RosettaCodeData/Task/Read-entire-file/BBC-BASIC/read-entire-file-1.basic
2023-07-01 13:44:08 -04:00

6 lines
149 B
Text

file% = OPENIN("input.txt")
strvar$ = ""
WHILE NOT EOF#file%
strvar$ += CHR$(BGET#file%)
ENDWHILE
CLOSE #file%