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