RosettaCodeData/Task/File-input-output/BBC-BASIC/file-input-output-2.bbc
2015-02-20 09:02:09 -05:00

7 lines
198 B
Text

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