9 VTAB 21: HTAB 8: GET A$:A$ = CHR$( ASC(A$) -32 *( ASC(A$) >95)): IF A$ = "Q" THEN HOME : VTAB 21: PRINT "QUIT NOW? (Y/N): ";: GET A$: ON A$ < >"Y" AND A$ < >"y" GOTO 7: HOME : VTAB 23: DEL 3,3: END
10 ON A$ = "L" GOTO 11: ON A$ = "S" GOTO 15: ON A$ = "C" GOTO 18: ON A$ = "P" GOTO 19: GOTO 9
11 HOME : VTAB 24: PRINT "<RETURN> TO ESCAPE";: VTAB 22: HTAB 1: INPUT "LOAD FONT NAMED:";F$: CALL -958: IF NOT LEN(F$) THEN 7
12 PRINT D$"BLOAD "F$",A$6000":Z = PEEK(24577): HGR : CALL 4096 +9: CALL 4096: IF Z = 1 THEN CALL 4096 +6
13 IF Z = 2 THEN CALL 4096 +3
14 L = PEEK(0) +( PEEK(1) -96) *256: GOTO 7
15 IF NOT Z THEN HOME : VTAB 22: INVERSE : PRINT CHR$(7)" NOTHING TO SAVE ": NORMAL : GOSUB 22: GOTO 7
16 HOME : VTAB 24: PRINT "<RETURN> TO ESCAPE";: VTAB 22: HTAB 1: INPUT "SAVE FONT NAMED:";F$: CALL -958: IF NOT LEN(F$) THEN 7
17 PRINT D$"BSAVE "F$",A$6000,L"L: GOTO 7
18 TEXT : HOME : PRINT : PRINT D$"CAT": PRINT : GOSUB 23: PRINT "ANY KEY:";: GET A$: POKE -16304,0: GOTO 7
19 PRINT CHR$(4)"PREFIX": INPUT A$: HOME : VTAB 24: PRINT "<RETURN> TO ESCAPE";: VTAB 22: HTAB 1: PRINT "PREFIX:"A$;: VTAB 22: HTAB 8: CALL -657:A$ = "": FOR I = 512 TO 767: IF PEEK(I) < >141 THEN A$ = A$ + CHR$( PEEK(I) -128): NEXT