Jump to content

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 "thatThat file is not found... tryTry again.":goto 20
60 if er<>0 then print "thereThere was an unexpected error.":gosub 1100
 
70 get#5,a$
113

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.