Graphic Font Editor part

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

' part 4 of 6 Font Editor
     x = 250
     IF POINT(x, y) = 2 THEN
     T = T + 64
     END IF
     x = 270
     IF POINT(x, y) = 2 THEN
     T = T + 32
     END IF
     x = 290
     IF POINT(x, y) = 2 THEN
     T = T + 16
     END IF
     x = 310
     IF POINT(x, y) = 2 THEN
     T = T + 8
     END IF
     x = 330
     IF POINT(x, y) = 2 THEN
     T = T + 4
     END IF
     x = 350
     IF POINT(x, y) = 2 THEN
     T = T + 2
     END IF
     x = 370
     IF POINT(x, y) = 2 THEN
     T = T + 1
     END IF
     POKE O + n * 14 + CT, T
     CT = CT + 1
     T = 0
     GOTO IncrementVertical
ZeroCounter:
     CT = 0
     DEF SEG
     LOCATE 2, 2
     PRINT "    ";
     COLOR 14
     LOCATE 2, 2
     PRINT CHR$(n);
     RETURN
SaveNewCharSetToDisk:
     REM Save New Char Set - Permanent Change to Disk
Input1:
     LOCATE 22, 2
     COLOR 14
     INPUT "File Name "; f$
     IF f$ = "romfont" OR f$ = "ROMFONT" THEN
     BEEP
     LOCATE 22, 2
     PRINT "                           ";
     GOTO Input1
     END IF
     IF LEN(f$) > 8 THEN
     BEEP
     LOCATE 22, 2
     PRINT "                         ";
     GOTO Input1
     END IF
     LOCATE 22, 2
     PRINT "                       ";
     DEF SEG = VARSEG(SCRN2(0))
     O = VARPTR(SCRN2(0))
     BSAVE f$ + ".dat", O, 3584
     DEF SEG
     RETURN
ChangeAsciiValue:
     REM Change ASCII Value
     LOCATE 2, 2
     PRINT "            ";
     LOCATE 4, 1
     PRINT "            ";
     GOSUB ClearScreen
Input2:
     LOCATE 22, 2
     COLOR 14
'end of part 4 of 6

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