home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 71 / 071.d81 / byte-grabber (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  285 b   |  13 lines
  1. 10 dim a$(999)
  2. 20 open 2,8,2,"control"
  3. 30 get #2,a$(nb):nb=nb+1
  4. 40 if st=0 then 30
  5. 50 print "total bytes"nb:close 2
  6. 60 for ts=0 to nb
  7. 70 if a$(ts)="."and a$(ts+1)="." and a$(ts+2)="." then 90
  8. 80 next
  9. 90 ts=ts-4:print "text starts at "ts
  10. 100 for t=0 to ts-1:print asc(a$(t));:next
  11. 110 for t=ts to ts+7:print asc(a$(t));:next
  12. 120 close2:end
  13.