' 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