'' File read sample. line Input
''
'' Last updated: <2024/02/13 19:37:01 +0900>

Const infile = "test.txt"

' Open file
Dim As Long f = FreeFile()
If (Open(infile For Input As #f)) Then
    Print "Error: Cano not open " & infile : End -1
End If

' Read lines
Dim As Integer count = 0
Do until EOF(f)
    count += 1
    Dim As String s
    Line Input #f, s  ' Read 1 line
    Print Str(count) & ": " & s
Loop

' Close file
Close #f