Read a file line by line: Difference between revisions

Read a file line by line en QBasic
mNo edit summary
(Read a file line by line en QBasic)
Line 777:
 
==={{header|Locomotive Basic}}===
 
<lang locobasic>10 OPENIN"foo.txt"
20 WHILE NOT EOF
Line 783 ⟶ 782:
40 PRINT i$
50 WEND</lang>
 
==={{header|QBasic}}===
{{works with|QBasic}}
{{works with|QuickBasic}}
<lang qbasic>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</lang>
 
==={{header|ZX Spectrum Basic}}===
2,150

edits