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