Editor 6

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

'part 6 of font 2.5 starts here

   IF flag = 1 THEN LET flag = 0: GOTO main.input
i = 6
IF ASC(a$) < 48 THEN LET cell = 1: EXIT SUB
IF ASC(a$) < 58 THEN LET cell = 53 + (ASC(a$) - 48): EXIT SUB
IF ASC(a$) >= 65 AND ASC(a$) <= 90 THEN
  LET cell = 1 + (ASC(a$) - 65): EXIT SUB
END IF
IF ASC(a$) >= 97 AND ASC(a$) <= 122 THEN
   LET cell = 27 + (ASC(a$) - 97): EXIT SUB
END IF
LET cell = 1: EXIT SUB
blanker:
   nerf = 0: SCREEN , , 1, 1: COLOR 0, 0:LINE (0, 0)-(639, 349), 0,BF
   a$=input$(1): SCREEN , , 0, 0 :  a$ = "": COLOR 14, 8: RETURN
END SUB

SUB Insert
PALETTE 12, 13
  FOR i = 61 TO cell STEP -1
    FOR glom = 1 TO box(1)
      FOR glim = 1 TO box(2)
        LET font(i + 1, glom, glim) = font(i, glom, glim)
      NEXT
    NEXT
  NEXT
    FOR glom = 1 TO box(1)
      FOR glim = 1 TO box(2)
        LET font(cell, glom, glim) = 0
      NEXT
    NEXT:Out.alphabet:  i = 0
END SUB

SUB Load.font
   gonk = 1
   SCREEN , , 1, 1
   LOCATE 1, 1: CLS
   FILES "*.f": PRINT : PRINT
   INPUT "Load what font "; a$
   IF LEN(a$) > 8 OR LEN(a$) < 1 THEN BEEP: GOTO endall2
   OPEN a$ + ".f" FOR INPUT AS #1
   INPUT #1, box(1), box(2)
   ERASE font
   FOR i = 1 TO 62
     FOR ii = 1 TO box(1)
     FOR iii = 1 TO box(2)
       INPUT #1, font(i, ii, iii)
     NEXT iii
     NEXT ii
   NEXT i
   LET name$ = a$
   CLOSE
endall2:
SCREEN , , 0, 0
     across = 1: down = 1
     COLOR 14, 8
     FOR i = 1 TO 12
     LOCATE i + 3, 42: PRINT STRING$(38, " ")
     NEXT
     LOCATE 1, 1: PRINT "Editing "; CHR$(34); name$;
     print CHR$(34); "  "; box(1); "across"; box(2); "down";

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