'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB letras (X!, y!, TEXT$, escl!, CLRS!, ang!, ancho!, relleno!)
SCREEN 12
DO
   LINE (0, 0)-(639, 479), 10, B
   FOR a = 0 TO 360 STEP 3
      letras 320, 240, "RONDA", 43, 13, a, 1, 1
      FOR DELAY = 1 TO 100: NEXT
      letras 320, 240, "RONDA", 43, 0, a, 1, 1
   NEXT
   LINE (0, 0)-(639, 479), 13, B
   FOR a = 0 TO 360 STEP 6
      letras 320, 240, "CIUDAD SO¤ADA", 18, 10, 360 - a, 1, 1
      FOR DELAY = 1 TO 100: NEXT
      letras 320, 240, "CIUDAD SO¤ADA", 18, 0, 360 - a, 1, 1
   NEXT
LOOP WHILE INKEY$ = ""
letras 320, 240, "CIUDAD SO¤ADA", 18, 10, 0, 1, 1
letras 40, 240, "ronda", 45, 13, 0, 1, 1
LINE (6, 6)-(633, 473), 10, B
SLEEP

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
'         >>>>>>>>>>>>>  NO ESTAN TODAS LAS LETRAS  <<<<<<<<<<<<<<
'
SUB letras (X, y, TEXT$, escl, CLRS, ang, ancho, relleno)
IF relleno < 1 THEN : relleno = 1
FOR h = 1 TO ancho STEP relleno
FOR v = 1 TO ancho STEP relleno
ccc = POINT(X + h, y + v)
PSET (X + h, y + v), ccc
C$ = STR$(CLRS): e$ = STR$(escl): a$ = STR$(ang)
FOR a = 1 TO LEN(TEXT$)
IF CLRS > 255 THEN RANDOMIZE TIMER: C$ = STR$(INT(RND * 15) + 1)
DRAW "S" + e$ + "C" + C$ + "ta" + a$
SELECT CASE UCASE$(MID$(TEXT$, a, 1))
CASE "A": DRAW "br2 u2nnr2u2r2d4"
CASE "C": DRAW "br2 bu4 nr2d4r2"
CASE "D": DRAW "br2 u4rfd2glbr2"
CASE "I": DRAW "br2 nu4"
CASE "J": DRAW "br2 nur2nu4"
CASE "K": DRAW "br2 u2 nu2ne2f2"
CASE "N": DRAW "br2 u4f4nu4"
CASE "¤": DRAW "br2 u3f3u3bunl3bd4"
CASE "¥": DRAW "br2 u3f3u3bunl3bd4"
CASE "O": DRAW "br2 bu4 nr2d4r2nu4"
CASE "R": DRAW "br2 u4r2d2l2f2"
CASE "S": DRAW "br2 r2u2l2u2r2BD4"
CASE "U": DRAW "br2 nu4r2nu4"
CASE ELSE: DRAW "S" + e$ + "ta" + a$ + "BR4"
END SELECT
NEXT: NEXT: NEXT
END SUB