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

4 lines
163 B
Text

file% = OPENIN("input.txt")
strvar$ = STRING$(EXT#file%, " ")
SYS "ReadFile", @hfile%(file%), !^strvar$, EXT#file%, ^temp%, 0
CLOSE #file%