13 VTAB 21: HTAB 8: GET A$:A$ = CHR$( ASC(A$) -32 *( ASC(A$) >95)): HOME : IF A$ = "Q" THEN VTAB 21: PRINT "QUIT NOW? (Y/N): ";: GET A$: ON A$ < >"Y" AND A$ < >"y" GOTO 10: HOME : VTAB 23: DEL 3,3: END
14 ON A$ = "E" GOTO 26: ON A$ = "S" OR A$ = "L" GOTO 16: ON A$ = "C" GOTO 15: ON A$ = "P" GOTO 27: ON A$ = "T" GOTO 30: GOTO 10
15 TEXT : HOME : PRINT : PRINT D$"CAT": PRINT : GOSUB 31: PRINT "ANY KEY:";: GET A$: POKE -16304,0: GOTO 10
16 B$ = "LOAD": IF A$ = "S" THEN B$ = "SAVE"
17 HOME : VTAB 24: PRINT "<RETURN> TO ESCAPE";: VTAB 22: HTAB 1: PRINT B$" FONT NAMED";: GOSUB 20: IF B$ = "LOAD" THEN PRINT D$"BLOAD "F$",A"F:Z = PEEK(F +1) -1: IF Z <0 OR Z >1 THEN POKE 222,13: GOTO 23
18 IF B$ = "SAVE" THEN PRINT D$"BSAVE "F$",A"F",L"2 + PEEK(F +200) + PEEK(F +201) *256
19 GOTO 8
20 INPUT ":";F$: CALL -958: IF NOT LEN(F$) THEN POP :B$ = "": GOTO 9
21 RETURN
22 CALL -3288
23 HOME : VTAB 22:I = PEEK(222)
24 INVERSE : IF I <14 THEN PRINT CHR$(7)" "E$(I)" ERROR "
25 FOR J = 1 TO 2000 -1999 *(I = 255): NEXT : NORMAL : GOTO 9
26 CALL 3968 +3: GOTO 10
27 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
32 RESTORE : FOR I = F TO F +3: READ J: POKE I,J: NEXT : FOR I = F +4 TO F +192 STEP 2: POKE I,216: POKE I +1,0: NEXT : FOR I = F +194 TO F +252: READ J: POKE I,J: NEXT : GOTO 7
33 DATA 100,2,208,0,223,0,232,0,241,0,250,0,0,0,0,0,0,0,73,137,146,146,146,146,18,0,150,146,146,146,146,9,0,64,192,64,192,64,192,64,24,0,64,192,64,192,64,192,64,88,0,64,192,64,192,64,192,64,8,0,25,0,0