10 PRINT"[147]":POKE53280,6:POKE53281,6
100 PRINT"FILE END CHECKER - JIM BUTTERFIELD"
110 DATA 162,1,32,198,255,169,0,141,0,33,32,228,255
120 DATA 164,144,240,246,141,1,33,76,204,255
160 DATA 72,32,204,255,162,2,32,201,255,174,0,33
200 FOR J=8704 TO 8726
210 READ X:T=T+X
220 POKE J,X
230 NEXT J
240 IF T<>3010 THEN STOP
300 INPUT "NAME OF FILE";F$
310 OPEN 15,8,15
320 OPEN 1,8,2,F$
330 INPUT#15,E,E$:IF E<>0 THEN PRINT E$:STOP
340 SYS 8704
350 CLOSE 1
360 CLOSE 15
370 IF PEEK(8449)<>13 THEN PRINT"FILE DOES NOT END WITH <RETURN>.": END
380 IF PEEK(8448)<>13 THEN PRINT"FILE ENDS WITH A SINGLE <RETURN>.": END
390 PRINT"FILE ENDS WITH MULTIPLE <RETURN> CHARS."