Editor 3

 BBS: Inland Empire Archive
Date: 02-20-93 (14:19)             Number: 395
From: JON SPRINGER                 Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Editor 3                       Conf: (2) Quik_Bas

'part 3 of font 2.5 starts here

      LINE (10 * across, 100 + ((down - 1) * 10))-         'Same thing
      (10 * across + 10, 100 + ((down - 1) * 10) + 10), 0, BF
      LINE (10 * across, 100 + ((down - 1) * 10))-         'and again
      (10 * across + 10, 100 + ((down - 1) * 10) + 10), 15, B
    END IF

  gonk = 1:  Put.pixel:  GOTO in.k
END SUB

SUB Fill
  IF i = 9 THEN LET g = 0 ELSE g = 1
  FOR glom = 1 TO box(1)
     FOR glim = 1 TO box(2)
     LET font(cell, glom, glim) = g
     LET across = glom: LET down = glim: Put.pixel
     NEXT
  NEXT
LET down = 1: LET across = 1
END SUB

SUB Get.input
  LOCATE 1, 12: PRINT "Font Des";
  LINE (30, 20)-(610, 260), 13, B
  PRINT "ign   vers.";
  LINE (40, 30)-(600, 250), 13, B
  PAINT (31, 21), 1, 13
  PRINT "2.5   ****   written by Jon Springer    "
  LOCATE 4, 23: PRINT "Enter a number to change options": COLOR 14, 8
  LOCATE 5, 21: PRINT STRING$(40, "- ")
  LOCATE 7, 22: PRINT "1>   Character box across."
  LOCATE 9, 22: PRINT "2>   Character box down..."
  LOCATE 11, 22: PRINT "3>   Font Set name........"
  LOCATE 13, 22: PRINT "4>   Screen blanker......."
  LOCATE 14, 21: PRINT STRING$(40, "- "): COLOR 11
  LOCATE 16, 22: PRINT "Esc>   Go to Editor"
  LOCATE 17, 22: PRINT "Q>     System"
  GOSUB print.options
'
--
stuff.input:
  LOCATE 23, 1: a$ = INKEY$: z = z + 1: IF z = 5000 THEN z = 1
  IF z = 1 THEN PRINT CHR$(219)
  IF z = 2500 THEN PRINT " "
  IF a$ = "" THEN GOTO stuff.input
  IF a$ = "Q" OR a$ = "q" THEN GOTO end.message
  IF a$ = CHR$(27) THEN EXIT SUB
  IF a$ = "1" THEN GOSUB one
  IF a$ = "2" THEN GOSUB two
  IF a$ = "3" THEN GOSUB three
  IF a$ = "4" THEN GOSUB four
  GOSUB print.options
  LOCATE 23, 1: PRINT STRING$(78, " ")
  GOTO stuff.input
one:
INPUT "Enter character box across "; a$
i = VAL(a$)
IF i > 16 THEN LET i = 16
IF i < 2 THEN LET i = 2
box(1) = INT(i)
a$ = ""
RETURN
two:

--- QuickBBS 2.76
 * Origin: Programmers Information Exchange   (206) 283-5978 (1:343/27)