Graphic Font Editor part

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

'Part 3 of 6 Font Editor
     PAINT (x, y), 0, 8
     NEXT: NEXT
EditOnly:
     FOR x = 230 TO 370 STEP 20
     FOR y = 85 TO 250 STEP 10
     PAINT (x, y), 0, 8
     NEXT: NEXT
     RETURN
ArrowKeys:
     IF ASC(MID$(i$, 2)) = 75 THEN
     H = H - 20
     END IF
     IF ASC(MID$(i$, 2)) = 77 THEN
     H = H + 20
     END IF
     IF ASC(MID$(i$, 2)) = 72 THEN
     V = V - 10
     END IF
     IF ASC(MID$(i$, 2)) = 80 THEN
     V = V + 10
     END IF
     IF H < 222 THEN
     H = 222
     END IF
     IF H > 362 THEN
     H = 362
     END IF
     IF V < 88 THEN
     V = 88
     END IF
     IF V > 238 THEN
     V = 238
     END IF
     GOTO KeyBoardWait
AsciiToMainBitMap:
     'transfer from ASCII char to main bit map
     PAINT (-150 + (x * 20), -45 + (y * 10)), 2, 8
     PAINT (65 + (x * 20), -45 + (y * 10)), 2, 8
     RETURN
ExitPgm:
     REM exit program
     DEF SEG
     SCREEN 0
     CLS
     END
IncreaseAsciiValue:
     REM increase ascii value
     n = n + 1
     IF n > 122 THEN n = 122
     GOSUB ClearScreen
     LOCATE 3, 2
     PRINT "              ";
     GOTO ReEntry1
DecreaseAsciiValue:
     REM decrease ascii value
     n = n - 1
     IF n < 48 THEN n = 48
     GOSUB ClearScreen
     LOCATE 3, 2
     PRINT "              ";
     GOTO ReEntry1
UpdateArray:
     REM Temp Save Routine to memory array only
     S = VARSEG(SCRN2(0))
     O = VARPTR(SCRN2(0))
     DEF SEG = S
     y = 85
IncrementVertical:
     y = y + 10
     IF y > 250 THEN
     GOTO ZeroCounter
     END IF
     x = 230
     IF POINT(x, y) = 2 THEN
     T = 128
     END IF
'end of part 3 of 6

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