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

7 lines
158 B
Text

infile% = OPENIN("input.txt")
outfile% = OPENOUT("output.txt")
WHILE NOT EOF#infile%
BPUT #outfile%, BGET#infile%
ENDWHILE
CLOSE #infile%
CLOSE #outfile%