home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / tape data files3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  276 b   |  14 lines
  1. 300 rem           *    file    *
  2. 310 rem           *   reader   *
  3. 350 input"[147]what file";name$
  4. 360 ifname$="+1"then end
  5. 370 open1,1,0,name$:n=0:dimw$(16)
  6. 380 input#1,w$(n):n=n+1
  7. 390 ifw$(n-1)="-1"then410
  8. 400 goto380
  9. 410 close1:forx=0to(n-1):printw$(x):next
  10. 420 print"hit any key"
  11. 430 geta$:ifa$=""then430
  12. 450 run350
  13. 460 end
  14.