RosettaCodeData/Task/File-input-output/QuickBASIC/file-input-output.basic
2023-07-01 13:44:08 -04:00

10 lines
172 B
Text

' File input/output
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
END