' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB letras (X!, y!, TEXT$, escl!, CLRS!, ang!, ancho!, relleno!) SCREEN 12 DIM mil(1 TO 1050) DIM dosmil(1 TO 1050) DIM cincomil(1 TO 1050) DIM diezmil(1 TO 1050) 'PRIMERO DIBUJA LOS BILLETES Y LOS COPIA A MEMORIA LINE (70, 30)-(170, 90), 15, BF LINE (70, 30)-(170, 90), 7, B LINE (100, 33)-(167, 87), 2, BF letras 110, 87, "1000", 8, 15, 90, 1, 1 letras 75, 87, "banco espa¤a", 4, 8, 90, 1, 1 letras 100, 40, "mil 1000", 4, 15, 0, 1, 1 letras 100, 48, "pesetas", 4, 15, 0, 1, 1 GET (70, 30)-(170, 90), mil LINE (200, 30)-(300, 90), 15, BF LINE (200, 30)-(300, 90), 7, B LINE (230, 33)-(297, 87), 12, BF letras 240, 87, "2000", 8, 15, 90, 1, 1 letras 205, 87, "banco espa¤a", 4, 8, 90, 1, 1 letras 230, 40, "dosmil 2000", 4, 15, 0, 1, 1 letras 230, 48, "pesetas", 4, 15, 0, 1, 1 DIM pelota(1 TO 1350) GET (200, 30)-(300, 90), dosmil LINE (330, 30)-(430, 90), 15, BF LINE (330, 30)-(430, 90), 7, B LINE (360, 33)-(427, 87), 6, BF letras 370, 87, "5000", 8, 15, 90, 1, 1 letras 335, 87, "banco espa¤a", 4, 8, 90, 1, 1 letras 360, 40, "cincomil 5000", 4, 15, 0, 1, 1 letras 360, 48, "pesetas", 4, 15, 0, 1, 1 GET (330, 30)-(430, 90), cincomil LINE (460, 30)-(560, 90), 15, BF LINE (460, 30)-(560, 90), 7, B LINE (490, 33)-(557, 87), 3, BF letras 500, 87, "10000", 7, 15, 90, 1, 1 letras 465, 87, "banco espa¤a", 4, 8, 90, 1, 1 letras 490, 40, "diezmil 10000", 4, 15, 0, 1, 1 letras 490, 48, "pesetas", 4, 15, 0, 1, 1 GET (460, 30)-(560, 90), diezmil 'AHORA ES CUANDO SE MUEVEN DO FOR a = 0 TO 538 PUT (a, -ABS(SIN(a / 20) * (183 - (a / 3))) + 233 + (a / 3)), mil, PSET NEXT FOR a = 0 TO 538 PUT (a, -ABS(SIN(a / 20) * (183 - (a / 3))) + 233 + (a / 3)), dosmil, PSET NEXT FOR a = 0 TO 538 PUT (a, -ABS(SIN(a / 20) * (183 - (a / 3))) + 233 + (a / 3)), cincomil, PSET NEXT FOR a = 0 TO 538 PUT (a, -ABS(SIN(a / 20) * (183 - (a / 3))) + 233 + (a / 3)), diezmil, PSET NEXT LOOP WHILE INKEY$ = "" SLEEP ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' 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 "B": DRAW "br2 u4r2dgnlfdnl2" CASE "C": DRAW "br2 bu4 nr2d4r2" CASE "D": DRAW "br2 u4rfd2glbr2" CASE "E": DRAW "br2 bu4 nr2d2nr2d2r2" CASE "F": DRAW "br2 bu4 nr2d2nr2d2br2" CASE "G": DRAW "br2 bu4 nr2d4r2unld" CASE "H": DRAW "br2 u2nu2r2nu2d2" CASE "I": DRAW "br2 nu4" CASE "J": DRAW "br2 nur2nu4" CASE "K": DRAW "br2 u2 nu2ne2f2" CASE "L": DRAW "br2 nu4r2" CASE "M": DRAW "br2 u4f2e2d4" CASE "N": DRAW "br2 u4f4nu4" CASE "¤": DRAW "br2 u3f3u3bunl3bd4" CASE "¥": DRAW "br2 u3f3u3bunl3bd4" CASE "O": DRAW "br2 bu4 nr2d4r2nu4" CASE "P": DRAW "br2 u2nnr2u2r2d2bd2" CASE "Q": DRAW "br2 bu4 nr2d4renu3blf" CASE "R": DRAW "br2 u4r2d2l2f2" CASE "S": DRAW "br2 r2u2l2u2r2BD4" CASE "T": DRAW "br2 BU4r2nd4r2bd4" CASE "U": DRAW "br2 nu4r2nu4" CASE "V": DRAW "br2 bunu3fenu3bd" CASE "W": DRAW "br2 bunu3fenu2fenu3bd" CASE "X": DRAW "br2 br2bu2ne2nf2ng2nh2br2bd2" CASE "Y": DRAW "br2 br2u2nh2ne2bd2br2" CASE "Z": DRAW "br2 bu4 r4g2nlnrg2r4" CASE "1": DRAW "br2 bu3ed4nlr" CASE "2": DRAW "br2 bu3 erfg3r3" CASE "3": DRAW "br2 bu4 r2d2nl2d2nl2" '"br2 bu4 r2fgnlfgnl2bl" CASE "4": DRAW "br2 bu2 nu2r2nu2d2" CASE "5": DRAW "br2 bu4 nr2d2r2d2nl2" CASE "6": DRAW "br2 bu4 nr2d2nr2d2r2nu2" CASE "7": DRAW "br2 bu4 r2d4" CASE "8": DRAW "br2 u4r2d2nl2d2nl2" CASE "9": DRAW "br2 bu2 nr2u2r2d4" CASE "0": DRAW "br2 bu4 nr2d4r2nu4" CASE "*": DRAW "br2 br2 u2nl2nu2nr2nengnhfbf " CASE "+": DRAW "br2 br2 u2nl2nu2r2bd2" CASE "-": DRAW "br2 bu2r2bd2" CASE ".": DRAW "br2 nu" CASE ",": DRAW "br2 ng" CASE ";": DRAW "br2 ngbunuBD" CASE ":": DRAW "br2 ubuubd3" CASE "=": DRAW "br2 bunr2bu2r2bd3" CASE ELSE: DRAW "S" + e$ + "ta" + a$ + "BR4" END SELECT NEXT: NEXT: NEXT END SUB