730 IF LEN(A$)=1 THEN A=ASC(A$):IF 96<A AND A<123 THEN A=A-32:A$=CHR$(A)
740 IF X$<>"" THEN IF INSTR(X$,A$)=0 THEN 710
750 LOCATE L,C:PRINT A$" ";
760 RETURN
770 ' Foreground=Background error
780 IF JEST=0 THEN PRINT:PRINT"Surely you jest! Please make foreground and background colors different.":JEST=1:PRINT:GOTO 350 ELSE PRINT:PRINT"Since this would not be readable, default colors will be used":PRINT:FG=15:BG=1:BR=1:JEST=0:GOTO 420
7220 IF ERR=52 OR ERR=53 OR ERR=55 OR ERR=64 OR ERR=67 THEN PRINT:PRINT: PRINT:PRINT "Filespec error - please reenter.":PRINT ELSE 7270
7230 IF ERL=1100 OR ERL=1110 OR ERL=1120 THEN RESUME 1060
7240 IF ERL=1310 OR ERL=1320 OR ERL=1330 THEN RESUME 1260
7250 IF ERL=5560 THEN RESUME 5540
7260 IF ERL=6440 THEN RESUME 6420
7270 ON ERROR GOTO 0
7280 ' Trap for open drive door, blank disk, etc.
7290 IF ERR<>53 AND ERR<>71 THEN 7310
7300 PRINT "No file on drive "A$:RESUME 830
7310 ON ERROR GOTO 0
7320 ' Printer failure during printout
7330 IF ERR=24 OR ERR=25 OR ERR=27 THEN PRINT:PRINT" Printer trouble. ";:PRINT "Printout aborted. Press any key to return to menu";:A$=INPUT$(1):RESUME 100