Editor 7

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

'part 7 of font 2.5 starts here

     LINE (0, 13)-(639, 15), 12, BF: LINE (320, 0)-(323, 300), 12, BF
     COLOR 14, 8
     Out.alphabet

END SUB

SUB Out.alphabet
   IF flag = 0 THEN X = 330: Y = 50 ELSE X = 2: Y = 2
   IF flag = 1 THEN SCREEN 7
   PALETTE 12, 13
   FOR i = 1 TO 13
     FOR across = 1 TO box(1)
     FOR down = 1 TO box(2)
     IF font(i, across, down) = 1 THEN col = 15 ELSE col = 0
     PSET (X + (i * box(1)) + across, Y + down), col
     IF font(i + 13, across, down) = 1 THEN col = 15 ELSE col = 0
     PSET (X + (i * box(1)) + across, Y + down + 30), col
     IF font(i + 26, across, down) = 1 THEN col = 15 ELSE col = 0
     PSET (X + (i * box(1)) + across, Y + down + 60), col
     IF font(i + 39, across, down) = 1 THEN col = 15 ELSE col = 0
     PSET (X + (i * box(1)) + across, Y + down + 90), col
     if i<11 then
       IF font(i + 52, across, down) = 1 THEN col = 15 ELSE col = 0
       PSET (X + (i * box(1)) + across, Y + down + 120), col
     end if
     NEXT down
     NEXT across
   NEXT i
   IF flag = 0 THEN GOTO past.it.all
   COLOR 15:LOCATE 21,3: FOR i =1 TO 26: PRINT CHR$(64 + i); : NEXT
   LOCATE 23, 3: FOR i = 1 TO 26: PRINT CHR$(96 + i); : NEXT
   a$ = INPUT$(1): a$ = "": down = 1: across = 1
   SCREEN 9: COLOR 13, 8: EXIT SUB
past.it.all:
down = 1: across = 1:PALETTE: COLOR 14, 8
END SUB

SUB Put.pixel
  dx = 0: i = cell
  IF cell > 13 THEN LET dx = dx + 30: i = cell - 13
  IF cell > 26 THEN LET dx = dx + 30: i = cell - 26
  IF cell > 39 THEN LET dx = dx + 30: i = cell - 39
  IF cell > 52 THEN LET dx = dx + 30: i = cell - 52
  IF font(cell, across, down) = 1 THEN LET col = 15 ELSE LET col = 0
  PSET (330 + (i * box(1)) + across, dx + 50 + down), col
END SUB

SUB Save.font
   SCREEN , , 1, 1: LOCATE 1, 1: CLS
   FILES "*.*": PRINT : PRINT
   PRINT TAB(10); "Save "; name$; " to disk?"; : a$ = INPUT$(1)
   IF a$ <> "Y" AND a$ <> "y" THEN GOTO endall
   OPEN name$ + ".F" FOR OUTPUT AS #1
   WRITE #1, box(1), box(2)
   FOR i = 1 TO 62
     FOR ii = 1 TO box(1)
     FOR iii = 1 TO box(2)
        IF ii = box(1) AND iii = box(2) THEN
          IF font(i, ii, iii) = 1 THEN PRINT#1,"1" ELSE PRINT #1, "0"

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