===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 02-13-93 (19:39)             Number: 34
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Graphic Font Editor Part       Conf: (35) Quick Basi
---------------------------------------------------------------------------
' Part 1 of 6 parts. This is the basic program. Remember to
' load it using qb/l. The program is a graphics Font editor
' that can be used in EGA or VGA screen modes. You will
' also need FONTGEN.DOC, SROMCHAR.BAS, and LOADFONT.BAS
' which will follow this 6 part Basic Pgm
     '$INCLUDE: 'qb.bi'
     DIM inregs AS REGTYPEX, outregs AS REGTYPEX
     DIM SCRN2(3584)
     DEF SEG = 0
     CLS
     INPUT "Keyboard or Mouse (K or M)? ", i$
     IF i$ = "K" OR i$ = "k" THEN flag$ = "":  ELSE flag$ = "mouse"
     CLS
     DEF SEG = VARSEG(SCRN2(0))
     V = VARPTR(SCRN2(0))
     BLOAD "ROMFONT.DAT", V
     SCREEN 9
     CLS
     KEY OFF
     DEFINT X-Y
     inregs.ax = &H1121
     inregs.cx = 14
     inregs.ES = VARSEG(SCRN2(0))
     inregs.BP = VARPTR(SCRN2(0))
     CALL interruptx(&H10, inregs, outregs)
     DEF SEG
     ON ERROR GOTO ErrorTrap
     DIM a(100)
     H = 280
     V = 168
     IF flag$ = "mouse" THEN
     GOTO JumpIfMouse
     END IF
     DRAW "bm80,164;r4;br2;bu2;u3;bd5;br2;r4;bl6;bd2;d3;"
     GET (78, 157)-(95, 171), a
     LINE (78, 157)-(95, 171), 0, BF
JumpIfMouse:
     LOCATE 6, 1
     COLOR 14
     PRINT "ROMFONT"
ReEntry3:
     n = 65
     KEY(10) ON
     ON KEY(10) GOSUB ExitPgm
     COLOR 12
     LOCATE 2, 29
     PRINT "EGA/VGA Font Editor"
     LOCATE 4, 32
     PRINT "ELM Software"
ReEntry1:
     LOCATE 2, 60
     COLOR 7
     PRINT "Enter=Accept New Char"
     LOCATE 4, 60
     PRINT "F10=Exit Pgm"
     LOCATE 6, 60
     PRINT "Minus=Prev char";
     LOCATE 8, 60
     PRINT "Plus=Next char";
     LOCATE 10, 60
     PRINT "D=Place Pixel";
     LOCATE 12, 60
     PRINT "E=Erase Pixel";
     LOCATE 14, 60
     PRINT "S=Save New Char Set";
     LOCATE 16, 60
     PRINT "C=Change ASCII Value";
     LOCATE 18, 60
     PRINT "L=Load New Char Set";
     LOCATE 20, 60
     PRINT "A=Current Char Set";
     LOCATE 22, 60
     PRINT "X=Clear Screen";
     LOCATE 2, 2
     COLOR 14
     PRINT CHR$(n)
'End of part 1 of 6

--- Maximus 2.01wb
 * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20