14 lines
223 B
Text
14 lines
223 B
Text
' FB 1.05.0 Win64
|
|
|
|
Dim line_ As String ' line is a keyword
|
|
Open "input.txt" For Input As #1
|
|
|
|
While Not Eof(1)
|
|
Input #1, line_
|
|
Print line_ ' echo to the console
|
|
Wend
|
|
|
|
Close #1
|
|
Print
|
|
Print "Press any key to quit"
|
|
Sleep
|