Graphic Font Editor Part

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

'Part 5 of 6 Font Editor
     INPUT "New ASCII Value"; i$
     n = VAL(i$)
     IF n < 48 OR n > 122 THEN
     LOCATE 22, 2
     PRINT "                     ";
     GOTO Input2
     END IF
     LOCATE 4, 1
     COLOR 12
     PRINT n;
     LOCATE 22, 2
     PRINT "                          ";
     LOCATE 2, 2
     COLOR 14
     PRINT CHR$(n);
     GOTO ReEntry2
LoadNewCharSet:
     REM Load New Char Set
     LOCATE 22, 2
     COLOR 14
     INPUT "File Name "; f$
     IF ASC(LEFT$(f$, 1)) > 90 THEN
     END IF
     LOCATE 22, 2
     PRINT "                           ";
     DEF SEG = VARSEG(SCRN2(0))
     V = VARPTR(SCRN2(0))
     BLOAD f$ + ".dat", V
     DEF SEG
     GOSUB ClearScreen
     H = 280
     V = 168
     LOCATE 6, 1
     PRINT "              ";
     LOCATE 6, 2
     PRINT UCASE$(f$);
     GOTO ReEntry3
ErrorTrap:
     REM On Error Routine
     RESUME LoadNewCharSet
ShowPresentCharSet:
PCOPY 0, 1
CLS : COLOR 14
FOR x = 48 TO 122
PRINT CHR$(x);
NEXT
HoldScrn:
     i$ = INKEY$
     IF i$ = "" THEN
     GOTO HoldScrn
     END IF
     PCOPY 1, 0
RETURN
MainMouseRoutine:
     inregs.ax = 0
     CALL interruptx(&H33, inregs, outregs)
     hmin% = 224
     hmax% = 375
     inregs.cx = hmin%
     inregs.dx = hmax%
     inregs.ax = 7
     CALL interruptx(&H33, inregs, outregs)
     vmin% = 92
     vmax% = 122
     inregs.cx = vmin%
     inregs.dx = vmax% * 2
     inregs.ax = 8
     CALL interruptx(&H33, inregs, outregs)
     inregs.cx = 0
     inregs.dx = 0
     inregs.ax = 4
     CALL interruptx(&H33, inregs, outregs)
MainMouseInkey:
     i$ = INKEY$
     inregs.ax = 1
     CALL interruptx(&H33, inregs, outregs)
'End of part 5 of 6

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