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