RosettaCodeData/Task/File-input-output/BASIC/file-input-output-1.basic

 OPEN "INPUT.TXT" FOR INPUT AS #1
 OPEN "OUTPUT.TXT" FOR OUTPUT AS #2
 DO UNTIL EOF(1)
   LINE INPUT #1, Data$
   PRINT #2, Data$
 LOOP
 CLOSE #1
 CLOSE #2
 SYSTEM