Editor 5

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

'part 5 of font 2.5 starts here

stuf.input:
  LOCATE 25, 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 stuf.input
a$ = "":SCREEN , , 0, 0:COLOR 14
END SUB

SUB In.key
   flag = 0: Null$ = CHR$(0)
main.input:
     LINE(10*across,100+((down-1)*10))-       'attach next line on
     (10*across+10,100+((down-1)*10)+10),col,B
     a$ = INKEY$: z = z + 1: IF z > 1000 THEN LET z = 1
     IF z=1 THEN col=14 ELSE IF z=500 THEN col=4: LET nerf = nerf + 1
      IF nerf = delay THEN GOSUB blanker

     IF a$ = "" THEN GOTO main.input
     nerf = 0
     IF a$ = CHR$(8) THEN LET i = 1: flag = 1: EXIT SUB
     IF a$ = CHR$(13) THEN LET i = 1: EXIT SUB
     IF a$ = " " THEN LET i = 2: EXIT SUB
     IF a$ = CHR$(27) THEN LET i = 3: EXIT SUB
     IF a$ = CHR$(176) THEN LET i = 4: EXIT SUB
     IF a$ = CHR$(177) THEN LET i = 5: EXIT SUB
     IF a$ = "?" OR a$ = "/" THEN LET i = 13: EXIT SUB
   SELECT CASE a$
     CASE Null$ + CHR$(75)   ' LEFT key: move cursor left
         flag = 1
         LINE(10*across,100+((down-1)*10))-        '********
         (10*across+10,100+((down-1)*10)+10),15,B
         across = across - 1: IF across = 0 THEN across = box(1)
     CASE Null$ + CHR$(77)   ' RIGHT key: move cursor right
         flag = 1
         LINE (10 * across, 100 + ((down - 1) * 10))- '********
         (10 * across + 10, 100 + ((down - 1) * 10) + 10), 15, B
         across = across + 1: IF across > box(1) THEN across = 1
     CASE Null$ + CHR$(72)   ' UP key: move cursor up
         flag = 1
         LINE (10 * across, 100 + ((down - 1) * 10))-'******
         (10 * across + 10, 100 + ((down - 1) * 10) + 10), 15, B
         down = down - 1: IF down = 0 THEN down = box(2)
     CASE Null$ + CHR$(80)   ' DOWN key: move cursor down
         flag = 1
         LINE (10 * across, 100 + ((down - 1) * 10))- '******
         (10 * across + 10, 100 + ((down - 1) * 10) + 10), 15, B
         down = down + 1: IF down > box(2) THEN down = 1
     CASE Null$ + CHR$(82)
         i = 7: EXIT SUB
     CASE Null$ + CHR$(83)
         i = 8: EXIT SUB
     CASE Null$ + CHR$(71)
         i = 9: EXIT SUB
     CASE Null$ + CHR$(79)
         i = 10: EXIT SUB
     CASE Null$ + CHR$(73)
         i = 11: EXIT SUB
     CASE Null$ + CHR$(81)
         i = 12: EXIT SUB
   END SELECT
   LOCATE 7, 1: PRINT "ACROSS"; across; " DOWN"; down; "     "

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