5 INPUT"ENTER FILENAME";FI$
10 OPEN3,8,3,FI$:POKE53280,5
20 GET#3,A$:PRINTA$;:GET B$
30 IF B$="P"THEN 70
40 IF B$="A"THEN PRINT:PRINT:              PRINT"READ ABORTED!!":GOTO60
50 IF ST=0 THEN 20
60 CLOSE 3:END
70 POKE53280,2
80 GET A$:IF A$<>"C" THEN 70
90 POKE53280,5:GOTO 50