RosettaCodeData/Task/Read-entire-file/BBC-BASIC/read-entire-file-2.basic

5 lines
163 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
file% = OPENIN("input.txt")
strvar$ = STRING$(EXT#file%, " ")
SYS "ReadFile", @hfile%(file%), !^strvar$, EXT#file%, ^temp%, 0
CLOSE #file%