projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
1950910d0e370207b3c2214bf35bccf18bb16ae2
[qbasicapps.git]
/
modules
/
fnt8x8.bas
1
DECLARE SUB loadfont ()
\r
2
DIM SHARED font%(0 TO 255, 0 TO 7, 0 TO 7)
\r
3
\r
4
\r
5
SUB loadfont
\r
6
SCREEN 7
\r
7
\r
8
FOR a% = 0 TO 255
\r
9
LOCATE 1, 1
\r
10
PRINT CHR$(a%)
\r
11
FOR y% = 0 TO 7
\r
12
FOR x% = 0 TO 7
\r
13
font%(a, x, y) = POINT(x%, y%)
\r
14
NEXT x%
\r
15
NEXT y%
\r
16
NEXT a%
\r
17
\r
18
END SUB
\r
19
\r