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