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

10 lines
164 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
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