' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' MARCADORES DIGITALES HECHO EN RONDA ' ' ' DECLARE SUB MINIdigital (h!, v!, n$, C1!, C2!, B!) DECLARE SUB movilidad (h!, v!, txt$, C1!, C2!, delay!, B!) DECLARE SUB digital (h!, v!, n$, C1!, C2!, B!) DECLARE SUB boton (h!, v!, l!, a!, sol!, sombra!, cara!, borde!) SCREEN 12 PALETTE 12, 63 PALETTE 4, 30 PAINT (1, 1), 7 MINIdigital 60, 320, "01234567890", 10, 4, 1 MINIdigital 60, 350, "11 22 33 66 55 44", 13, 5, 1 digital 10, 20, "ABCDEFGHIJLMN¥OPRSTUVWYZ = 1234567890 -", 12, 4, 1 digital 100, 100, " PROGRAMA BASIC HECHO EN RONDA ", 9, 1, 1 digital 100, 150, " J MM G B ", 14, 6, 1 digital 100, 200, " HOLA OUE HAY ", 12, 4, 1 ' movilidad 21, 440, "hola hola hola hola hola ", 12, 4, 700, 1 ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB boton (h, v, l, a, sol, sombra, cara, borde) LINE (h, v)-STEP(l, a), borde, B LINE (h + 1, v + 1)-STEP(l - 2, a - 2), sol, B LINE (h + 2, v + 2)-STEP(l - 3, a - 3), sombra, B LINE (h + 2, v + 2)-STEP(l - 4, a - 4), sol, B LINE (h + 3, v + 3)-STEP(l - 5, a - 5), sombra, B LINE (h + 3, v + 3)-STEP(l - 6, a - 6), cara, BF END SUB ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' MARCADOR DIGITAL HECHO EN RONDA ' ' POSICION H ' POSICION V ' NUMERO O TEXTO COMO CADENA ' COLOR SEGMENTOS ILUMINADOS ' COLOR SEGMENTOS APAGADOS ' SI LLEVA BORDE ' SUB digital (h, v, n$, C1, C2, B) IF B THEN boton h - 5, v - 5, ((15 * LEN(n$) + 7)), 32, 8, 15, 0, 7 ah = h FOR x = 1 TO LEN(n$) SELECT CASE UCASE$(MID$(n$, x, 1)) CASE "1": cadena$ = "0010010" CASE "2": cadena$ = "1011101" CASE "3": cadena$ = "1011011" CASE "4": cadena$ = "0111010" CASE "5": cadena$ = "1101011" CASE "6": cadena$ = "1101111" CASE "7": cadena$ = "1010010" CASE "8": cadena$ = "1111111" CASE "9": cadena$ = "1111011" CASE "0": cadena$ = "1110111" CASE "A": cadena$ = "1111110" CASE "B": cadena$ = "0101111" CASE "C": cadena$ = "1100101" CASE "Z": cadena$ = "0001101" CASE "D": cadena$ = "0011111" CASE "E": cadena$ = "1101101" CASE "F": cadena$ = "1101100" CASE "G": cadena$ = "1100111" CASE "H": cadena$ = "0111110" CASE "I": cadena$ = "0010010" CASE "J": cadena$ = "0010011" CASE "L": cadena$ = "0100101" CASE "M": cadena$ = "1110110" CASE "N": cadena$ = "0001110" CASE "¤": cadena$ = "1001110" CASE "¥": cadena$ = "1001110" CASE "W": cadena$ = "0001111" CASE "O": cadena$ = "1110111" CASE "P": cadena$ = "1111100" CASE "R": cadena$ = "0001100" CASE "S": cadena$ = "1101011" CASE "T": cadena$ = "0101101" CASE "U": cadena$ = "0110111" CASE "V": cadena$ = "0000111" CASE "Y": cadena$ = "0111100" CASE "=": cadena$ = "0001001" CASE ":": cadena$ = "0001000" CASE "-": cadena$ = "0001000" CASE " ": cadena$ = "0000000" CASE ELSE: SOUND 1000, 1: cadena$ = "0000000" END SELECT IF MID$(cadena$, 1, 1) = "1" THEN : PSET (h, v), C1: DRAW "brr10gl8fr6": ELSE : PSET (h, v), C2: DRAW "brr10gl8fr6" IF MID$(cadena$, 2, 1) = "1" THEN : PSET (h, v), C1: : DRAW "bdd9eu7fd5": ELSE : PSET (h, v), C2: : DRAW "bdd9eu7fd5" IF MID$(cadena$, 3, 1) = "1" THEN : PSET (h, v), C1: : DRAW "bdbr12d9hu7gd5": ELSE : PSET (h, v), C2: : DRAW "bdbr12d9hu7gd5" IF MID$(cadena$, 4, 1) = "1" THEN : PSET (h, v), C1: : DRAW "br2bd10r8fl10fr8": ELSE : PSET (h, v), C2: : DRAW "br2bd10r8fl10fr8" IF MID$(cadena$, 5, 1) = "1" THEN : PSET (h, v), C1: : DRAW "bd12d9eu7fd5": ELSE : PSET (h, v), C2: : DRAW "bd12d9eu7fd5" IF MID$(cadena$, 6, 1) = "1" THEN : PSET (h, v), C1: : DRAW "bd12br12d9hu7gd5": ELSE : PSET (h, v), C2: : DRAW "bd12br12d9hu7gd5" IF MID$(cadena$, 7, 1) = "1" THEN : PSET (h, v), C1: : DRAW "brbd22r10hl8er6": ELSE : PSET (h, v), C2: : DRAW "brbd22r10hl8er6" PSET (h, v), 0 h = h + 15 NEXT h = ah END SUB ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' MARCADOR DIGITAL HECHO EN RONDA - TAMA¥O PEQUE¥O - SOLO NUMEROS ' ' POSICION H ' POSICION V ' NUMERO COMO CADENA ' COLOR SEGMENTOS ILUMINADOS ' COLOR SEGMENTOS APAGADOS ' SI LLEVA BORDE ' SUB MINIdigital (h, v, n$, C1, C2, B) IF B THEN LINE (h - 2, v - 2)-STEP((6 * LEN(n$)) + 2, 12), 0, BF ah = h FOR x = 1 TO LEN(n$) SELECT CASE UCASE$(MID$(n$, x, 1)) CASE "1": cadena$ = "0010010" CASE "2": cadena$ = "1011101" CASE "3": cadena$ = "1011011" CASE "4": cadena$ = "0111010" CASE "5": cadena$ = "1101011" CASE "6": cadena$ = "1101111" CASE "7": cadena$ = "1010010" CASE "8": cadena$ = "1111111" CASE "9": cadena$ = "1111011" CASE "0": cadena$ = "1110111" CASE "-": cadena$ = "0001000" CASE " ": cadena$ = "0000000" CASE ELSE: SOUND 1000, 1: cadena$ = "0000000" END SELECT IF MID$(cadena$, 1, 1) = "1" THEN : PSET (h, v), C1: DRAW "brr2": ELSE : PSET (h, v), C2: DRAW "brr2" IF MID$(cadena$, 2, 1) = "1" THEN : PSET (h, v), C1: DRAW "bdd2": ELSE : PSET (h, v), C2: DRAW "bdd2" IF MID$(cadena$, 3, 1) = "1" THEN : PSET (h, v), C1: DRAW "bdbr4d2": ELSE : PSET (h, v), C2: DRAW "bdbr4d2" IF MID$(cadena$, 4, 1) = "1" THEN : PSET (h, v), C1: DRAW "brbd4r2": ELSE : PSET (h, v), C2: DRAW "brbd4r2" IF MID$(cadena$, 5, 1) = "1" THEN : PSET (h, v), C1: DRAW "bd5d2": ELSE : PSET (h, v), C2: DRAW "bd5d2" IF MID$(cadena$, 6, 1) = "1" THEN : PSET (h, v), C1: DRAW "bd5br4d2": ELSE : PSET (h, v), C2: DRAW "bd5br4d2" IF MID$(cadena$, 7, 1) = "1" THEN : PSET (h, v), C1: DRAW "bd8brr2": ELSE : PSET (h, v), C2: DRAW "bd8brr2" PSET (h, v), 0 h = h + 6 NEXT h = ah END SUB ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' MARCADOR DIGITAL ENOMOVIMIENTO HECHO EN RONDA ' ' POSICION H ' POSICION V ' NUMERO O TEXTO COMO CADENA ' COLOR SEGMENTOS ILUMINADOS ' COLOR SEGMENTOS APAGADOS ' VELOCIDAD >>> MAS = MAS LENTO ' SI LLEVA BORDE ' SUB movilidad (h, v, txt$, C1, C2, delay, B) IF B THEN boton h - 5, v - 5, ((15 * LEN(txt$) + 7)), 32, 8, 15, 0, 7 n = 0 letrero$ = txt$ + txt$ DO na = na + 1 IF na > LEN(txt$) THEN na = 1 digital h, v, MID$(letrero$, na, LEN(txt$)), C1, C2, 0 FOR d = 1 TO delay: NEXT LOOP WHILE INKEY$ = "" END SUB