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

5 lines
116 B
Text

open DefaultDir$ + "/public/test.txt" for binary as #f
fileLen = LOF(#f)
a$ = input$(#f, fileLen)
print a$
close #f