10 lines
394 B
Text
10 lines
394 B
Text
' FB 1.05.0 Win64
|
|
|
|
Open "input.txt" For Input Encoding "ascii" As #1
|
|
Dim fileLen As LongInt = Lof(1) '' get file length in bytes
|
|
Dim buffer As String = Space(fileLen) '' allocate a string of size 'fileLen' bytes
|
|
Get #1, 1, buffer '' read all data from start of file into the buffer
|
|
Print buffer '' print to console
|
|
buffer = "" '' release memory used by setting buffer to empty
|
|
Close #1
|
|
Sleep
|