10 MAXFILES=2:CLS:PRINT@80,"":LINEINPUT"Which file to work on? ";A$:IFA$=""THENMENU
20 CLS:E=0:T=0:OPENA$FORINPUTAS1:OPEN"RAM:CRCERR.DO"FOROUTPUTAS2:PRINT@90,"Working On File":PRINT@170,"'";A$;"'":ONERRORGOTO40
30 LINEINPUT#1,B$:IFEOF(1)THENPRINT#2,CHR$(26);:T=T+1:GOSUB50:CLOSE:ENDELSET=T+LEN(B$)+2:PRINT#2,B$:GOSUB50:GOTO30
40 T=T+11:PRINT#2,"<<<ERROR>>>";:CLS:E=E+1:PRINT@90,"Error ";ERR;" in line ";ERL:PRINT@170,"Total Errors = ";E:GOSUB50:RESUME30
50 PRINT@250,"File Length = ";T:FORX=1TO100:NEXT:RETURN