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}}===
|