Input loop: Difference between revisions
Tidy up some capitalization since the program runs in lower-case mode.
(Added Commodore BASIC) |
(Tidy up some capitalization since the program runs in lower-case mode.) |
||
Line 496:
10 rem input loop - rosetta code
15 print chr$(147);chr$(14);:rem clear screen, switch to lower case
20 input "Enter filename";f$
25 if f$="" then end
30 open 15,8,15:open 5,8,5,f$+",s,r"
40 gosub 1000
50 if er=62 then print "
60 if er<>0 then print "
70 get#5,a$
| |||