For some reason if you mix letters and numbers it doesn't work right.
Code: Select all
open "fbfont.txt" for binary as #1
'A
put #1, 1, chr(&b1111100)
put #1, 2, chr(&b0001010)
put #1, 3, chr(&b0001001)
put #1, 4, chr(&b0001010)
put #1, 5, chr(&b1111100)
put #1, 6, chr(&b0000000)
'B
put #1, 7, chr(&b1111111)
put #1, 8, chr(&b1001001)
put #1, 9, chr(&b1001001)
put #1, 10, chr(&b1001001)
put #1, 11, chr(&b0110110)
put #1, 12, chr(&b0000000)
'C
put #1, 13, chr(&b0111110)
put #1, 14, chr(&b1000001)
put #1, 15, chr(&b1000001)
put #1, 16, chr(&b1000001)
put #1, 17, chr(&b0100010)
put #1, 18, chr(&b0000000)
'D
put #1, 19, chr(&b1111111)
put #1, 20, chr(&b1000001)
put #1, 21, chr(&b1000001)
put #1, 22, chr(&b1000001)
put #1, 23, chr(&b0111110)
put #1, 24, chr(&b0000000)
'E
put #1, 25, chr(&b1111111)
put #1, 26, chr(&b1001001)
put #1, 27, chr(&b1001001)
put #1, 28, chr(&b1001001)
put #1, 29, chr(&b1001001)
put #1, 30, chr(&b0000000)
'F
put #1, 31, chr(&b1111111)
put #1, 32, chr(&b0001001)
put #1, 33, chr(&b0001001)
put #1, 34, chr(&b0001001)
put #1, 35, chr(&b0001001)
put #1, 36, chr(&b0000000)
'G
put #1, 37, chr(&b0111110)
put #1, 38, chr(&b1000001)
put #1, 39, chr(&b1000001)
put #1, 40, chr(&b1010001)
put #1, 41, chr(&b1110010)
put #1, 42, chr(&b0000000)
'H
put #1, 43, chr(&b1111111)
put #1, 44, chr(&b0001000)
put #1, 45, chr(&b0001000)
put #1, 46, chr(&b0001000)
put #1, 47, chr(&b1111111)
put #1, 48, chr(&b0000000)
'I
put #1, 49, chr(&b1000001)
put #1, 50, chr(&b1000001)
put #1, 51, chr(&b1111111)
put #1, 52, chr(&b1000001)
put #1, 53, chr(&b1000001)
put #1, 54, chr(&b0000000)
'J
put #1, 55, chr(&b0100001)
put #1, 56, chr(&b1000001)
put #1, 57, chr(&b0111111)
put #1, 58, chr(&b0000001)
put #1, 59, chr(&b0000001)
put #1, 60, chr(&b0000000)
'K
put #1, 61, chr(&b1111111)
put #1, 62, chr(&b0001000)
put #1, 63, chr(&b0010100)
put #1, 64, chr(&b0010010)
put #1, 65, chr(&b1100001)
put #1, 66, chr(&b0000000)
'L
put #1, 67, chr(&b1111111)
put #1, 68, chr(&b1000000)
put #1, 69, chr(&b1000000)
put #1, 70, chr(&b1000000)
put #1, 71, chr(&b1000000)
put #1, 72, chr(&b0000000)
'M
put #1, 73, chr(&b1111111)
put #1, 74, chr(&b0000010)
put #1, 75, chr(&b0001100)
put #1, 76, chr(&b0000010)
put #1, 77, chr(&b1111111)
put #1, 78, chr(&b0000000)
'N
put #1, 79, chr(&b1111111)
put #1, 80, chr(&b0000110)
put #1, 81, chr(&b0011100)
put #1, 82, chr(&b0110000)
put #1, 83, chr(&b1111111)
put #1, 84, chr(&b0000000)
'O
put #1, 85, chr(&b0111110)
put #1, 86, chr(&b1000001)
put #1, 87, chr(&b1000001)
put #1, 88, chr(&b1000001)
put #1, 89, chr(&b0111110)
put #1, 90, chr(&b0000000)
'P
put #1, 91, chr(&b1111111)
put #1, 92, chr(&b0001001)
put #1, 93, chr(&b0001001)
put #1, 94, chr(&b0001001)
put #1, 95, chr(&b0000110)
put #1, 96, chr(&b0000000)
'Q
put #1, 97, chr(&b0011110)
put #1, 98, chr(&b0100001)
put #1, 99, chr(&b0100001)
put #1, 100, chr(&b0110001)
put #1, 101, chr(&b1011110)
put #1, 102, chr(&b0000000)
'R
put #1, 103, chr(&b1111111)
put #1, 104, chr(&b0001001)
put #1, 105, chr(&b0001001)
put #1, 106, chr(&b0011001)
put #1, 107, chr(&b1100110)
put #1, 108, chr(&b0000000)
'S
put #1, 109, chr(&b0100110)
put #1, 110, chr(&b1001001)
put #1, 111, chr(&b1001001)
put #1, 112, chr(&b1001001)
put #1, 113, chr(&b0110010)
put #1, 114, chr(&b0000000)
'T
put #1, 115, chr(&b0000001)
put #1, 116, chr(&b0000001)
put #1, 117, chr(&b1111111)
put #1, 118, chr(&b0000001)
put #1, 119, chr(&b0000001)
put #1, 120, chr(&b0000000)
'U
put #1, 121, chr(&b0111111)
put #1, 122, chr(&b1000000)
put #1, 123, chr(&b1000000)
put #1, 124, chr(&b1000000)
put #1, 125, chr(&b0111111)
put #1, 126, chr(&b0000000)
'V
put #1, 127, chr(&b0011111)
put #1, 128, chr(&b0100000)
put #1, 129, chr(&b1000000)
put #1, 130, chr(&b0100000)
put #1, 131, chr(&b0011111)
put #1, 132, chr(&b0000000)
'W
put #1, 133, chr(&b1111111)
put #1, 134, chr(&b0100000)
put #1, 135, chr(&b0011000)
put #1, 136, chr(&b0100000)
put #1, 137, chr(&b1111111)
put #1, 138, chr(&b0000000)
'X
put #1, , chr(&b1100011)
put #1, , chr(&b0010100)
put #1, , chr(&b0001000)
put #1, , chr(&b0010100)
put #1, , chr(&b1100011)
put #1, , chr(&b0000000)
'Y
put #1, , chr(&b0000011)
put #1, , chr(&b0000100)
put #1, , chr(&b1111000)
put #1, , chr(&b0000100)
put #1, , chr(&b0000011)
put #1, , chr(&b0000000)
'Z
put #1, , chr(&b1000011)
put #1, , chr(&b1000101)
put #1, , chr(&b1001001)
put #1, , chr(&b1010001)
put #1, , chr(&b1100001)
put #1, , chr(&b0000000)
'1
put #1, , chr(&b1000000)
put #1, , chr(&b1000010)
put #1, , chr(&b1111111)
put #1, , chr(&b1000000)
put #1, , chr(&b1000000)
put #1, , chr(&b0000000)
'2
put #1, , chr(&b1000010)
put #1, , chr(&b1100001)
put #1, , chr(&b1010001)
put #1, , chr(&b1001001)
put #1, , chr(&b1000110)
put #1, , chr(&b0000000)
'3
put #1, , chr(&b0100010)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b0110110)
put #1, , chr(&b0000000)
'4
put #1, , chr(&b0001111)
put #1, , chr(&b0001000)
put #1, , chr(&b0001000)
put #1, , chr(&b1111111)
put #1, , chr(&b0001000)
put #1, , chr(&b0000000)
'5
put #1, , chr(&b0101111)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b0110001)
put #1, , chr(&b0000000)
'6
put #1, , chr(&b0111110)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b0110010)
put #1, , chr(&b0000000)
'7
put #1, , chr(&b1100001)
put #1, , chr(&b0010001)
put #1, , chr(&b0001001)
put #1, , chr(&b0000101)
put #1, , chr(&b0000011)
put #1, , chr(&b0000000)
'8
put #1, , chr(&b0110110)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b0110110)
put #1, , chr(&b0000000)
'9
put #1, , chr(&b0100110)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b0111110)
put #1, , chr(&b0000000)
'0
put #1, , chr(&b0111110)
put #1, , chr(&b1010001)
put #1, , chr(&b1001001)
put #1, , chr(&b1000101)
put #1, , chr(&b0111110)
put #1, , chr(&b0000000)
'a
put #1, , chr(&b0111000)
put #1, , chr(&b1000100)
put #1, , chr(&b1000100)
put #1, , chr(&b0111000)
put #1, , chr(&b1111100)
put #1, , chr(&b0000000)
'b
put #1, , chr(&b1111111)
put #1, , chr(&b1001000)
put #1, , chr(&b1001000)
put #1, , chr(&b1001000)
put #1, , chr(&b0110000)
put #1, , chr(&b0000000)
'c
put #1, , chr(&b0111000)
put #1, , chr(&b1000100)
put #1, , chr(&b1000100)
put #1, , chr(&b1000100)
put #1, , chr(&b1000100)
put #1, , chr(&b0000000)
'd
put #1, , chr(&b0110000)
put #1, , chr(&b1001000)
put #1, , chr(&b1001000)
put #1, , chr(&b1001000)
put #1, , chr(&b1111111)
put #1, , chr(&b0000000)
'e
put #1, , chr(&b0111100)
put #1, , chr(&b1010010)
put #1, , chr(&b1010010)
put #1, , chr(&b1010010)
put #1, , chr(&b1001100)
put #1, , chr(&b0000000)
'f
put #1, , chr(&b0001000)
put #1, , chr(&b1111110)
put #1, , chr(&b0001001)
put #1, , chr(&b0000001)
put #1, , chr(&b0000010)
put #1, , chr(&b0000000)
'g
put #1, , chr(&b0100110)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b1001001)
put #1, , chr(&b0111110)
put #1, , chr(&b0000000)
'h
put #1, , chr(&b1111111)
put #1, , chr(&b0001000)
put #1, , chr(&b0001000)
put #1, , chr(&b0001000)
put #1, , chr(&b1110000)
put #1, , chr(&b0000000)
'i
put #1, , chr(&b0000000)
put #1, , chr(&b0000000)
put #1, , chr(&b1111101)
put #1, , chr(&b0000000)
put #1, , chr(&b0000000)
put #1, , chr(&b0000000)
'j
put #1, , chr(&b0100000)
put #1, , chr(&b1000000)
put #1, , chr(&b1000000)
put #1, , chr(&b0111101)
put #1, , chr(&b0000000)
put #1, , chr(&b0000000)
'k
put #1, , chr(&b1111111)
put #1, , chr(&b0010000)
put #1, , chr(&b0101000)
put #1, , chr(&b1000100)
put #1, , chr(&b0000000)
put #1, , chr(&b0000000)
'l
put #1, , chr(&b0000000)
put #1, , chr(&b0000000)
put #1, , chr(&b1111111)
put #1, , chr(&b0000000)
put #1, , chr(&b0000000)
put #1, , chr(&b0000000)
'm
put #1, , chr(&b1111000)
put #1, , chr(&b0001000)
put #1, , chr(&b1110000)
put #1, , chr(&b0001000)
put #1, , chr(&b1111000)
put #1, , chr(&b0000000)
'n
put #1, , chr(&b1111100)
put #1, , chr(&b0000100)
put #1, , chr(&b0000100)
put #1, , chr(&b0000100)
put #1, , chr(&b1111000)
put #1, , chr(&b0000000)
'o
put #1, , chr(&b0111000)
put #1, , chr(&b1000100)
put #1, , chr(&b1000100)
put #1, , chr(&b1000100)
put #1, , chr(&b0111000)
put #1, , chr(&b0000000)
'p
put #1, , chr(&b1111110)
put #1, , chr(&b0010010)
put #1, , chr(&b0010010)
put #1, , chr(&b0010010)
put #1, , chr(&b0001100)
put #1, , chr(&b0000000)
'q
put #1, , chr(&b0001100)
put #1, , chr(&b0010010)
put #1, , chr(&b0010010)
put #1, , chr(&b1111110)
put #1, , chr(&b0100000)
put #1, , chr(&b0000000)
'r
put #1, , chr(&b1111100)
put #1, , chr(&b0001000)
put #1, , chr(&b0001000)
put #1, , chr(&b0010000)
put #1, , chr(&b0000000)
put #1, , chr(&b0000000)
's
put #1, , chr(&b1001000)
put #1, , chr(&b1010100)
put #1, , chr(&b1010100)
put #1, , chr(&b1010100)
put #1, , chr(&b0100100)
put #1, , chr(&b0000000)
't
put #1, , chr(&b0000010)
put #1, , chr(&b0000010)
put #1, , chr(&b1111111)
put #1, , chr(&b0000010)
put #1, , chr(&b0000010)
put #1, , chr(&b0000000)
'u
put #1, , chr(&b0111100)
put #1, , chr(&b1000000)
put #1, , chr(&b1000000)
put #1, , chr(&b1000000)
put #1, , chr(&b1111100)
put #1, , chr(&b0000000)
'v
put #1, , chr(&b0011100)
put #1, , chr(&b0100000)
put #1, , chr(&b1000000)
put #1, , chr(&b0100000)
put #1, , chr(&b0011100)
put #1, , chr(&b0000000)
'w
put #1, , chr(&b1111100)
put #1, , chr(&b0100000)
put #1, , chr(&b0011000)
put #1, , chr(&b0100000)
put #1, , chr(&b1111100)
put #1, , chr(&b0000000)
'x
put #1, , chr(&b1000100)
put #1, , chr(&b0101000)
put #1, , chr(&b0010000)
put #1, , chr(&b0101000)
put #1, , chr(&b1000100)
put #1, , chr(&b0000000)
'y
put #1, , chr(&b0100001)
put #1, , chr(&b1000010)
put #1, , chr(&b1000100)
put #1, , chr(&b1001000)
put #1, , chr(&b0111111)
put #1, , chr(&b0000000)
'z
put #1, , chr(&b1000100)
put #1, , chr(&b1001100)
put #1, , chr(&b1010100)
put #1, , chr(&b1100100)
put #1, , chr(&b1000100)
put #1, , chr(&b0000000)
close #1