Graphic Font Editor part

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

'Part 2 of 6 Font Editor
     LOCATE 4, 1
     COLOR 12
     PRINT n;
     COLOR 8
     FOR y = 90 TO 250 STEP 10
     LINE (1, y)-(161, y)
     NEXT
     FOR x = 1 TO 161 STEP 20
     LINE (x, 90)-(x, 250)
     NEXT
     FOR y = 90 TO 250 STEP 10
     LINE (220, y)-(380, y)
     NEXT
     FOR x = 220 TO 380 STEP 20
     LINE (x, 90)-(x, 250)
     NEXT
     LOCATE 19, 2: COLOR 14: PRINT "Template Character";
     LOCATE 19, 32: PRINT "Edit Character";
ReEntry2:
     FOR x = 8 TO 15
     FOR y = 14 TO 29
     IF POINT(x, y) = 14 THEN
     GOSUB AsciiToMainBitMap
     END IF
     NEXT
     NEXT
     IF flag$ = "mouse" THEN
     GOTO MainMouseRoutine
     END IF
KeyBoardWait:
     i$ = INKEY$
     PUT (H, V), a
     PUT (H, V), a
     IF i$ = "" THEN
     GOTO KeyBoardWait
     END IF
     AA = ASC(i$)
     IF AA = 0 THEN
     GOTO ArrowKeys
     END IF
     IF i$ = "=" OR i$ = "+" THEN
     GOSUB IncreaseAsciiValue
     END IF
     IF i$ = "-" OR i$ = "_" THEN
     GOSUB DecreaseAsciiValue
     END IF
     IF i$ = "D" OR i$ = "d" THEN
     PAINT (H + 2, V + 4), 2, 8
     END IF
     IF i$ = "E" OR i$ = "e" THEN
     PAINT (H + 2, V + 4), 0, 8
     END IF
     IF i$ = "S" OR i$ = "s" THEN
     GOSUB SaveNewCharSetToDisk
     END IF
     IF i$ = "C" OR i$ = "c" THEN
     GOTO ChangeAsciiValue
     END IF
     IF i$ = "L" OR i$ = "l" THEN
     GOTO LoadNewCharSet
     END IF
     IF i$ = "A" OR i$ = "a" THEN
     GOSUB ShowPresentCharSet
     END IF
     IF i$ = "x" OR i$ = "X" THEN
     ec = 1
     GOSUB ClearScreen
     END IF
     IF i$ = CHR$(13) THEN
     GOSUB UpdateArray
     END IF
     GOTO KeyBoardWait
ClearScreen:
     IF ec = 1 THEN ec = 0: GOTO EditOnly
     FOR x = 11 TO 151 STEP 20
     FOR y = 85 TO 250 STEP 10
' end of part 2 of 6

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