' ' © 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