This table its allmost complete, the subroutine below is also adapted too…
SUB GLCD_ascdigit(dig)
IF dig >= 32 OR dig <= 96 THEN
FOR charloop = 5 TO 1 ' each character map in the table is 5 dots (bytes) wide
ReadTable digits, ((dig - 32) * 5) + charloop, charmap
GLCD_data charmap
NEXT
GLCD_data 0 ' leave a blank column before next digit
END IF
End Sub
This table its allmost complete, the subroutine below is also adapted too…
SUB GLCD_ascdigit(dig)
IF dig >= 32 OR dig <= 96 THEN
FOR charloop = 5 TO 1 ' each character map in the table is 5 dots (bytes) wide
ReadTable digits, ((dig - 32) * 5) + charloop, charmap
GLCD_data charmap
NEXT
GLCD_data 0 ' leave a blank column before next digit
END IF
End Sub
TABLE digits
b'00000000' ' '32 ESPACIO
b'00000000' '
b'00000000' '
b'00000000' '
b'00000000' '
b'00000000' '! '33
b'00000000' '
b'011111 1' ' ***** *
b'00000000' '
b'00000000' '
b'00000000' '" '34
b'01110000' ' ***
b'00000000' '
b'01110000' ' ***
b'00000000' '
b'00010100' '# * * '35
b'01111111' ' *******
b'00010100' ' * *
b'01111111' ' *******
b'00010100' ' * *
b'00100100' '$ * * '36
b'00101010' ' * * *
b'01111111' ' *******
b'00101010' ' * * *
b'00010010' ' * *
b'00100111' '% * *** '37
b'00010101' ' * * *
b'01101011' ' ** * **
'01010100' ' * * *
b'01110010' ' *** *
b'00000101' '& * * '38
b'00000010' ' *
b'00110101' ' ** * *
b'01001001' ' * * *
b'00110110' ' ** **
b'01110000' '' *** '39
b'01101000' ' ** *
b'00000000' '
b'00000000' '
b'00000000' '
b'01000001' '( * * '40
b'00100010' ' * *
b'00001100' ' ***
b'00000000' '
b'00000000' '
b'00011100' ') *** '41
b'00100010' ' * *
b'01000001' ' * *
b'00000000' '
b'00000000' '
b'00101010' ' * * * '42 ASTERISCO
b'00011100' ' ***
b'01111111' ' *******
b'00011100' ' ***
b'00101010' ' * * *
b'00001000' '+ * '43
b'00001000' ' *
b'01111111' ' *****
b'00001000' ' *
b'00001000' ' *
b'00000000' ', '44
b'00000000' '
b'00000000' '
b'00001110' ' ***
b'00001101' ' ** *
b'00001000' '- * '45
b'00001000' ' *
b'00001000' ' *
b'00001000' ' *
b'00001000' ' *
b'00000000' ' . '46
b'00000000' '
b'00000000' '
b'00000011' ' **
b'00000011' ' **
b'00010000' '\ * '47
b'00001000' ' *
b'00000100' ' *
b'00000010' ' *
b'00000001' ' *
b'00111110' '0 ***** '48
b'01010001' ' * * *
b'01001001' ' * * *
b'01000101' ' * * *
b'00111110' ' *****
b'00000000' '1 '49
b'00000001' ' *
b'01111111' ' *******
b'00100001' ' * *
b'00000000' '
b'00110001' '2 ** * '50
b'01001001' ' * * *
b'01001001' ' * * *
b'01001001' ' * * *
b'00100111' ' * ***
b'00110110' '3 ** ** '51
b'01001001' ' * * *
b'01001001' ' * * *
b'01001001' ' * * *
b'01000001' ' * *
b'00000100' '4 * '52
b'01111111' ' *******
b'00100100' ' * *
b'00010100' ' * *
b'00001100' ' **
b'01001110' '5 * *** '53
b'01010001' ' * * *
b'01010001' ' * * *
b'01010001' ' * * *
b'01110010' ' *** *
b'00000110' '6 ** '54
b'01001001' ' * * *
b'01001001' ' * * *
b'00101001' ' * * *
b'00011110' ' ****
b'01100000' '7 ** '55
b'01010000' ' * *
b'01001000' ' * *
b'01000111' ' * ***
b'01000000' ' *
b'00110110' '8 ** ** 56
b'01001001' ' * * *
b'01001001' ' * * *
b'01001001' ' * * *
b'00110110' ' ** **
b'00111100' '9 **** 57
b'01001010' ' * * *
b'01001001' ' * * *
b'01001001' ' * * *
b'00110000' ' **
b'00000000':' 58
b'00000000' '
b'00011011' ' ** **
b'00011011' ' ** **
b'00000000' '
b'00000000';' 59
b'00000000' '
b'01101110' ' ** ***
b'01101101' ' ** ** *
b'00000000' '
b'00001000'>' * 60
b'00010100' ' * *
b'00100010' ' * *
b'01000001' ' * *
b'00000000' '
b'00101000':' * * 61
b'00101000' ' * *
b'00101000' ' * *
b'00101000' ' * *
b'00101000' ' * *
b'00000000'<' 62
b'01000001' ' * *
b'00100010' ' * *
b'00010100' ' * *
b'00001000' ' *
b'00110000':' ** 63
b'01001000' ' * *
b'01000101' ' * * *
b'01000000' ' *
b'00100000' ' *
b'00111110':' ***** 64
b'01000001' ' * *
b'01001111' ' * ****
b'01001001' ' * * *
b'00100110' ' * **
b'00011111'A' ***** 65
b'00100100' ' * *
b'01000100' ' * *
b'00100100' ' * *
b'00011111' ' *****
b'00110110'B' ** ** 66
b'01001001' ' * * *
b'01001000' ' * * *
b'01111111' ' *******
b'01000001' ' * *
b'00100010'C' * * 67
b'01000001' ' * *
b'01000001' ' * *
b'01000001' ' * *
b'00111110' ' *****
b'00111110'D' ***** 68
b'01000001' ' * *
b'01000001' ' * *
b'01111111' ' *******
b'01000010' ' * *
b'01000001'E' * * 69
b'01000001' ' * *
b'01001001' ' * * *
b'01001001' ' * * *
b'01111111' ' *******
b'01000000'F' * 70
b'01000000' ' *
b'01001000' ' * *
b'01001000' ' * *
b'01111111' ' *******
b'00101110'G' * *** 71
b'01001001' ' * * *
b'01001001' ' * * *
b'01000001' ' * *
b'00111100' ' *****
b'01111111'H' ******* 72
b'00001000' ' *
b'00001000' ' *
b'00001000' ' *
b'01111111' ' *******
b'00000000'I' 73
b'01000001' ' * *
b'01111111' ' *******
b'01000001' ' * *
b'00000000' '
b'01000000'J' * 74
b'01111110' ' ******
b'01000001' ' * *
b'00000001' ' *
b'00000010' ' *
b'01000001'K' * * 75
b'00100010' ' * *
b'00010100' ' * *
b'00001000' ' *
b'01111111' ' *******
b'00000001'L' * 76
b'00000001' ' *
b'00000001' ' *
b'00000001' ' *
b'01111111' ' *******
b'01111111'M' ******* 77
b'00100000' ' *
b'00011000' ' **
b'00100000' ' *
b'01111111' ' *******
b'01111111'N' ******* 78
b'00001000' ' *
b'00010000' ' *
b'00100000' ' *
b'01111111' ' *******
b'00111110'O' ***** 79
b'01000001' ' * *
b'01000001' ' * *
b'01000001' ' * *
b'00111110' ' *****
b'00110000'P' ** 80
b'01001000' ' * *
b'01001000' ' * *
b'01001000' ' * *
b'01111111' ' *******
b'00111101'Q' **** * 81
b'01000010' ' * *
b'01000101' ' * * *
b'01000001' ' * *
b'00111110' ' *****
b'00110001'R' ** * 82
b'01001010' ' * * *
b'01001100' ' * **
b'01001000' ' * *
b'01111111' ' *******
b'00100110'S' * ** 83
b'01001001' ' * * *
b'01001001' ' * * *
b'01001001' ' * * *
b'00110010' ' ** *
b'01000000'T' * '84
b'01000000' ' *
b'01111111' ' *******
b'01000000' ' *
b'01000000' ' *
b'01111110'U ****** '85
b'00000001' ' *
b'00000001' ' *
b'00000001' ' *
b'01111110' ' ******
b'01110000'V' *** '86
b'00001100' ' **
b'00000011' ' **
b'00001100' ' **
b'01110000' ' ***
b'01111111'W' ******* '87
b'00000010' ' *
b'00001100' ' **
b'00000010' ' *
b'01111111' ' *******
b'01100011'X' ** ** '88
b'00010100' ' * *
b'00001000' ' *
b'00010100' ' * *
b'01100011' ' ** **
b'01100000'Y' ** '89
b'00010000' ' *
b'00001111' ' ****
b'00010000' ' *
b'01100000' ' **
b'01100001'Z' ** * '90
b'01010001' ' * * *
b'01001001' ' * * *
b'01000101' ' * * *
b'01000011' ' * **
b'00000000'[' '91
b'01000001' ' * *
b'01000001' ' * *
b'01111111' ' *******
b'00000000' '
b'00000010'/' * '92
b'00000100' ' *
b'00001000' ' *
b'00010000' ' *
b'00100000' ' *
b'00000000']' '93
b'01111111' ' *******
b'01000001' ' * *
b'01000001' ' * *
b'00000000' '
b'00010000'^' * '94
b'00100000' ' *
b'01000000' ' *
b'00100000' ' *
b'00010000' ' *
b'00000001'V' * '95
b'00000001' ' *
b'00000001' ' *
b'00000001' ' *
b'00000001' ' *
b'00000000'V' '96
b'01101000' ' ** *
b'01110000' ' ***
b'00000000' '
b'00000000' '
END TABLE