20 VTAB 23: HTAB 2: GOSUB 5:K$ = B$:K = ASC(K$) +F0: IF K < >155 AND K < >175 AND (K <192 OR K >218) AND (K <177 OR K >183) THEN 20
21 VTAB 23: HTAB 1: CALL Z: ON K = 175 GOTO 25: IF K = 155 THEN HOME : PRINT : PRINT "QUIT NOW? (Y/N): ";: GOSUB 5: ON B$ < >"Y" GOTO 19: TEXT : VTAB 23: HTAB 1: CALL Z: DEL 3,3: END
22 VTAB 22: HTAB 1: CALL Z: PRINT :II = (K -192 +42 *(K <192)):A$ = A$(II): IF NOT LEN(A$) THEN 19
23 VTAB 22: CALL Z: IF A$ < >O$ THEN O$ = A$: PRINT D$"BLOAD ";A$;" ,A$4000"
24 GOTO 6
25 TEXT : ONERR GOTO 27
26 HOME : PRINT "INSERT DISK CONTAINING FONTS TO BE": PRINT "DISPLAYED AND PRESS RETURN (OR ENTER A": PRINT "PREFIX): ";: GOSUB 43: TEXT : NORMAL : GOTO 28
27 CALL -3288: PRINT : INVERSE : PRINT "PATH NOT FOUND ERROR" CHR$(7): NORMAL : VTAB 24: PRINT "ANY KEY: ";: GET B$: GOTO 25
28 HOME : INVERSE : PRINT : PRINT " FONT DISPLAY ": NORMAL : GOSUB 33: VTAB 21: GOSUB 33: FOR I = 1 TO 17: VTAB I +3: PRINT "<" CHR$(I +64)">" SPC( 17)"<" CHR$(I +81 -42 *(I +17 >26))">": NEXT : ONERR GOTO 34
29 VTAB 22: POKE 34,21: GOSUB 38: TEXT
30 FOR I = 1 TO FI: VTAB I +3 -17 *(I >17): HTAB 5 +20 *(I >17): PRINT LEFT$(A$(I),15): NEXT
31 IF FI <34 THEN FOR I = FI +1 TO 34: VTAB I +3 -17 *(I >17): HTAB 1 +19 *(I >17): CALL -868: NEXT
32 GOTO 19
33 FOR I = 1 TO 40: PRINT "-";: NEXT : RETURN
34 PRINT CHR$(7);: VTAB 22: HTAB 1: CALL Z: IF PEEK(222) = 6 THEN PRINT A$: INVERSE : PRINT " NOT FOUND ";: NORMAL : FOR I = 1 TO 999: NEXT : GOTO 37
35 IF PEEK(222) = 255 THEN POKE 34,0: VTAB 23: DEL 3,3: END
36 PRINT "ERROR"
37 A$ = "":O$ = A$: FOR I = 1 TO 999: NEXT : GOTO 18