RosettaCodeData/Task/Read-entire-file/Run-BASIC/read-entire-file.basic

6 lines
116 B
Plaintext

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