10 OPEN "TESTF" FOR INPUT AS #1
20 IF EOF(1) THEN 60	
30 INPUT #1,A:PRINT A:GOTO 20
60 CLOSE #1