Input loop: Difference between revisions
Added uBasic/4tH version
(Added uBasic/4tH version) |
|||
Line 708:
190 CLOSE #1
200 END HANDLER</lang>
==={{header|uBasic/4tH}}===
<lang>If Set (a, Open ("myfile.bas", "r")) < 0 Then Print "Cannot open \qmyfile.bas\q" : End
Do While Read (a)
Print Show(Tok(0))
Loop
Close a
</lang>
=={{header|Batch File}}==
| |||