'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'              DEMO TIPOGRAFIAS MAPAS DE BITS DEGRADADOS HECHO EN RONDA                  
'
'
'
DECLARE SUB letras (h1!, v!, n$, c!, ch!, cv!, dh!, dv!, gh!, gv!)
SCREEN 13

letras 0, 60, "Hecho en RondaÛ", 27, 1, 0, 3, 2, 2, 1

letras 2, 90, "JM. PROGRAMADO EN QBASICÛ", 27, 1, 0, 2, 1, 1, 0

letras 30, 150, "ABDCEFGHIJKLMN¥OPQRSTUVWXYZÛ", 55, 2, 2, 1, 1, 0, 0
letras 30, 165, "abcdefghijklmn¤opqrstuvwxyzÛ", 27, 1, 0, 1, 2, 0, 1

letras 18, 15, "1234567890Û+-=.,", 80, 2, 2, 2, 2, 1, 1

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                    TIPOGRAFIA MAPAS DE BITS DEGRADADOS HECHO EN RONDA          
'
'
'      <!> MAYUSCULAS Y MINUSCULAS
'
'
SUB letras (h1, v, n$, c, ch, cv, dh, dv, gh, gv)
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 "a": cad$ = "0000000000000000110010010100101001001111"
CASE "b": cad$ = "100001000010000111101000110001100010111"
CASE "c": cad$ = "000000000000000011101000110000100010111"
CASE "d": cad$ = "000010000100001011111000110001100010111"
CASE "e": cad$ = "000000000000000011101000111111100000111"
CASE "f": cad$ = "00010001000010000100011100010000100001000010001"
CASE "g": cad$ = "00000000000000001110100011000110001011110000100111"
CASE "h": cad$ = "1000010000100001111010001100011000110001"
CASE "i": cad$ = "0000000100000000110000100001000010001111"
CASE "j": cad$ = "00000000100000000111000100001000010100100111"
CASE "k": cad$ = "1000010000100001000110010111001001010001"
CASE "l": cad$ = "011000010000100001000010000100001000111"
CASE "m": cad$ = "0000000000000000111010101101011010110101"
CASE "n": cad$ = "0000000000000000111010001100011000110001"
CASE "¤": cad$ = "0000001110000000111010001100011000110001"
CASE "o": cad$ = "000000000000000011101000110001100010111"
CASE "p": cad$ = "0000000000000000111010001100011000111110100001"
CASE "q": cad$ = "00000000000000001110100011000110001011110000100001"
CASE "r": cad$ = "00000000000000001011011000100001000111"
CASE "s": cad$ = "000000000000000011111000001110000011111"
CASE "t": cad$ = "0010000100011100010000100001000010000111"
CASE "u": cad$ = "000000000000000100011000110001100010111"
CASE "v": cad$ = "00000000000000010001100010101001010001"
CASE "w": cad$ = "000000000000000101011010110101101010111"
CASE "x": cad$ = "0000000000000001000101010001000101010001"
CASE "y": cad$ = "00000000000000010001100011000110001011110000100011"
CASE "z": cad$ = "0000000000000001111100010001000100011111"
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 LINE (h + (hh * dh), v + (vv * dv))-STEP(gh, gv), c + ((vv - 1) * cv) + ((hh - 1) * ch), BF
NEXT
NEXT
h = h + (dh * 6)
NEXT
END SUB