home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / readfile.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  227 b   |  11 lines
  1. 5 input"enter filename";fi$
  2. 10 open3,8,3,fi$:poke53280,5
  3. 20 get#3,a$:printa$;:get b$
  4. 30 if b$="p"then 70
  5. 40 if b$="a"then print:print:              print"read aborted!!":goto60
  6. 50 if st=0 then 20
  7. 60 close 3:end
  8. 70 poke53280,2
  9. 80 get a$:if a$<>"c" then 70
  10. 90 poke53280,5:goto 50
  11.