RosettaCodeData/Task/Read-entire-file/Run-BASIC/read-entire-file.run
2014-01-17 05:34:36 +00: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