~200 OPEN"DATA2"FORINPUTAS#1
205 LPRINT CHR$(27);"A";CHR$(8);
210 FORI%=1TO9
211 IFI%=2ORI%=7THENLPRINT
215 LPRINT CHR$(27);"L";CHR$(120);CHR$(0);
220 FORJ%=0TO119
226 INPUT #1,A$:ON ERROR GOTO400
230 LPRINT CHR$(VAL(A$));
240 NEXT
250 LPRINT CHR$(10);:LPRINT CHR$(13);:NEXT
300 CLOSE#1
310 GOTO200
400 PRINTERL;PRINTERR:CLOSE#1