DECLARE SUB loadfont () DIM SHARED font%(0 TO 255, 0 TO 7, 0 TO 7) SUB loadfont SCREEN 7 FOR a% = 0 TO 255 LOCATE 1, 1 PRINT CHR$(a%) FOR y% = 0 TO 7 FOR x% = 0 TO 7 font%(a, x, y) = POINT(x%, y%) NEXT x% NEXT y% NEXT a% END SUB