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