'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                            RąTULO LUMINOSO LEDS MOVIL
'
'
'
DECLARE SUB letras (h1!, v!, n$)
SCREEN 12
PAINT (1, 1), 7
PALETTE 12, 63
PALETTE 6, 30
letras 0, 0, "Este programa ha sido hecho en ronda"

LINE (5, 105)-(635, 239), 0, BF
LINE (5, 105)-(635, 239), 6, B
FOR h = 1 TO 39
   FOR v = 1 TO 8
      CIRCLE (h * 16, (v * 16) + 100), 7, 6
   NEXT
NEXT
PAINT (6, 106), 6, 6


DO
   FOR h = 1 TO 39
      FOR v = 1 TO 8
         IF POINT(h + x, v) = 15 THEN
            PAINT (h * 16, (v * 16) + 100), 12, 6
'            CIRCLE (h * 16, (v * 16) + 100), 6, 12
'            LINE (h * 16 - 4, (v * 16) + 96)-STEP(9, 9), 14, BF
         ELSE
            PAINT (h * 16, (v * 16) + 100), 0, 6
'            CIRCLE (h * 16, (v * 16) + 100), 6, 0
'            LINE (h * 16 - 4, (v * 16) + 96)-STEP(9, 9), 0, BF
         END IF
      NEXT
   NEXT
   x = x + 1
   IF x > 200 THEN x = 0
LOOP WHILE INKEY$ = ""

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                               TIPOGRAFIA MAPAS DE BITS HECHO EN RONDA
'
SUB letras (h1, v, n$)
h = h1
n$ = UCASE$(n$)
FOR n = 1 TO LEN(n$)
SELECT CASE MID$(n$, n, 1)
CASE "A": cad$ = "0111010001100011000110001111111000110001"
CASE "B": cad$ = "111101000110001100011111010001100011111"
CASE "C": cad$ = "011101000110000100001000010000100010111"
CASE "D": cad$ = "11100100101000110001100011000110010111"
CASE "E": cad$ = "1111110000100001000011110100001000011111"
CASE "F": cad$ = "111111000010000100001111010000100001"
CASE "G": cad$ = "011101000110000100001000010011100010111"
CASE "H": cad$ = "1000110001100011000111111100011000110001"
CASE "I": cad$ = "1111100100001000010000100001000010011111"
CASE "J": cad$ = "000110000100001000010000100001100010111"
CASE "K": cad$ = "1000010001100101010011000101001001010001"
CASE "L": cad$ = "1000010000100001000010000100001000011111"
CASE "M": cad$ = "1000111011111111010110001100011000110001"
CASE "N": cad$ = "1000110001100011100110101100111000110001"
CASE "„": cad$ = "1111100000100011000111001101011001110001"
CASE "O": cad$ = "011101000110001100011000110001100010111"
CASE "P": cad$ = "011101000110001100011111010000100001"
CASE "Q": cad$ = "0111010001100011000110001100011001001101"
CASE "R": cad$ = "0111010001100011000111110101001001010001"
CASE "S": cad$ = "011101000110000100000111000001100010111"
CASE "T": cad$ = "11111001000010000100001000010000100001"
CASE "U": cad$ = "100011000110001100011000110001100010111"
CASE "V": cad$ = "10001100011000110001100011101101010001"
CASE "W": cad$ = "100011000110001100011010110101101010111"
CASE "X": cad$ = "1000101010010100010000100010100101010001"
CASE "Y": cad$ = "10001100011000110001011100010000100001"
CASE "Z": cad$ = "1111100001000010001011111010001100011111"
CASE "1": cad$ = "001000110011100001000010000100001000111"
CASE "2": cad$ = "0111010001000010001000100010001000011111"
CASE "3": cad$ = "011101000100001000010011000001100010111"
CASE "4": cad$ = "1000010000100011000111111000010000100001"
CASE "5": cad$ = "111111000010000100001111000001100010111"
CASE "6": cad$ = "001100100010000100001111010001100010111"
CASE "7": cad$ = "11111100010000100010000100010000100001"
CASE "8": cad$ = "011101000110001100010111010001100010111"
CASE "9": cad$ = "0111010001100011000101111000010000100001"
CASE "0": cad$ = "011101000110001100011000110001100010111"
CASE ".": cad$ = "0000000000000000000000000000000000001"
CASE ",": cad$ = "00000000000000000000000000000000000010001"
CASE "-": cad$ = "0000000000000000000011111"
CASE "+": cad$ = "000000000000100001001111100100001"
CASE "=": cad$ = "00000000000000000000111110000011111"
CASE " ": cad$ = ""
CASE "Û": cad$ = STRING$(40, "1")
CASE ELSE: cad$ = "0000000000000000000000000000000000011111"
END SELECT
nnn = 0
FOR vv = 1 TO 10
FOR hh = 1 TO 5
nnn = nnn + 1
IF MID$(cad$, nnn, 1) = "1" THEN PSET (h + hh, v + vv), 15
NEXT
NEXT
h = h + 6
NEXT
END SUB