home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 July / 1994-07a.d64 / filereader (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  471 b   |  19 lines
  1. 5 if a=1then30
  2. 10 poke53281,6:poke53280,6:poke646,1
  3. 15 print"[147][201]nsert disk with [212]ext [210]eader program.":gosub100
  4. 20 ifa=0thena=1:load"text reader",8,1
  5. 30 print"[147][206]ow insert disk with file to read."
  6. 40 input"[206]ame of file to read";f$
  7. 42 if f$=""then99
  8. 45 f=49153:fl=49170:fori=820to1023:pokei,0:next
  9. 50 fori=1tolen(f$):pokei+f,asc(mid$(f$,i,1)):next
  10. 55 pokefl,len(f$)+2
  11. 60 sys49171
  12. 70 print"[147][215]ant to read another file? ([217]/[206])":gosub105
  13. 75 if w$<>"y"then 99
  14. 80 goto 30
  15. 99 end
  16. 100 print" -- [208]ress any key when ready --  "
  17. 105 getw$:if w$=""then105
  18. 110 return
  19.