RosettaCodeData/Task/Read-a-file-line-by-line/QBasic/read-a-file-line-by-line.basic

f = FREEFILE
filename$ = "file.txt"

OPEN filename$ FOR INPUT AS #f

WHILE NOT EOF(f)
    LINE INPUT #f, linea$
    PRINT linea$
WEND
CLOSE #f
END