Graphic Font Editor part

 BBS: Inland Empire Archive
Date: 02-13-93 (19:50)             Number: 338
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Graphic Font Editor part       Conf: (2) Quik_Bas

'Part 6 of 6 Font Editor
     inregs.ax = 3
     CALL interruptx(&H33, inregs, outregs)
     x = outregs.cx
     y = outregs.dx
     IF outregs.bx = 1 THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     PAINT (x, y), 2, 8
     END IF
     IF outregs.bx = 2 THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     PAINT (x, y), 0, 8
     END IF
     IF i$ = "-" OR i$ = "_" THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB DecreaseAsciiValue
     END IF
     IF i$ = "=" OR i$ = "+" THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB IncreaseAsciiValue
     END IF
     IF i$ = "a" OR i$ = "A" THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB ShowPresentCharSet
     END IF
     IF i$ = "c" OR i$ = "C" THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB ChangeAsciiValue
     END IF
     IF i$ = "l" OR i$ = "L" THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB LoadNewCharSet
     END IF
     IF i$ = "s" OR i$ = "S" THEN
     GOSUB SaveNewCharSetToDisk
     END IF
     IF i$ = "x" OR i$ = "X" THEN
     ec = 1
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB ClearScreen
     END IF
     IF i$ = CHR$(13) THEN
     inregs.ax = 2
     CALL interruptx(&H33, inregs, outregs)
     GOSUB UpdateArray
     END IF
     IF i$ = "" THEN
     GOTO MainMouseInkey
     END IF
     GOTO MainMouseInkey
' Part 6 of 6 end of program

--- Maximus 2.01wb
 * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)