FontGen.bas

DIM FontBmp(16390) AS INTEGER
DIM Font(14280) AS INTEGER
DEFINT A-Z
SCREEN 13

DEF SEG = VARSEG(FontBmp(0))
BLOAD "Font14~1.BSV", VARPTR(FontBmp(0))

PUT (0, 0), FontBmp(0), PSET

DEF SEG = VARSEG(BitmapPtr(0))
BitmapPtr = VARPTR(FontBmp(0))
FontPos = 0

FOR ChrY = 0 TO 16
   FOR ChrX = 0 TO 15
'      PRINT ChrX + (ChrY * 15);
      X = ChrX + (ChrY * 15)
      FOR LoopNum = 0 TO 8
         'First Byte
         IF PEEK(BitmapPtr + X + 0) THEN Font(FontPos) = Font(FontPos) OR 1
         IF PEEK(BitmapPtr + X + 1) THEN Font(FontPos) = Font(FontPos) OR 2
         IF PEEK(BitmapPtr + X + 2) THEN Font(FontPos) = Font(FontPos) OR 4
         IF PEEK(BitmapPtr + X + 3) THEN Font(FontPos) = Font(FontPos) OR 8
         IF PEEK(BitmapPtr + X + 4) THEN Font(FontPos) = Font(FontPos) OR 16
         IF PEEK(BitmapPtr + X + 5) THEN Font(FontPos) = Font(FontPos) OR 32
         IF PEEK(BitmapPtr + X + 6) THEN Font(FontPos) = Font(FontPos) OR 64
         IF PEEK(BitmapPtr + X + 7) THEN Font(FontPos) = Font(FontPos) OR 128

         X = X + 1
         'Second Byte
         IF PEEK(BitmapPtr + X + 0) THEN Font(FontPos + 1) = Font(FontPos + 1) OR 1
         IF PEEK(BitmapPtr + X + 1) THEN Font(FontPos + 1) = Font(FontPos + 1) OR 2
         IF PEEK(BitmapPtr + X + 2) THEN Font(FontPos + 1) = Font(FontPos + 1) OR 4
         IF PEEK(BitmapPtr + X + 3) THEN Font(FontPos + 1) = Font(FontPos + 1) OR 8
         IF PEEK(BitmapPtr + X + 4) THEN Font(FontPos + 1) = Font(FontPos + 1) OR 16
         IF PEEK(BitmapPtr + X + 5) THEN Font(FontPos + 1) = Font(FontPos + 1) OR 32
         IF PEEK(BitmapPtr + X + 6) THEN Font(FontPos + 1) = Font(FontPos + 1) OR 64
         IF PEEK(BitmapPtr + X + 7) THEN Font(FontPos + 1) = Font(FontPos + 1) OR 128
         FontPos = FontPos + 2
         X = X + 254
      NEXT LoopNum
   NEXT ChrX
NEXT ChrY