home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 June / 1994-06b.d64 / wordcount (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  618b  |  23 lines
  1. 100 data 169,0,170,157,0,33,232,224,4,208,248,162,1,32,198,255
  2. 110 data 32,228,255,41,127,201,48,106,170,77,3,33,142,3,33
  3. 120 data 45,3,33,10,120,248,162,0,106,42,189,0,33,105,0
  4. 130 data 157,0,33,106,232,224,3,208,241,216,88,165,144,240,211
  5. 140 data 32,204,255,162,2,189,0,33,32,76,32,202,16,247,96
  6. 150 data 72,74,74,74,74,9,48,32,210,255,104,41,15,9,48
  7. 160 data 32,210,255,96
  8. 200 for j=8192 to 8286
  9. 210 read x:t=t+x
  10. 220 poke j,x
  11. 230 next j
  12. 240 if t<>10266 then stop
  13. 300 print "[147][144]word counter - jim butterfield"
  14. 310 input "name of text file";f$
  15. 320 open 15,8,15
  16. 330 open 1,8,2,f$
  17. 340 input#15,e,e$,e1,e2
  18. 350 if e<>0 then print e$:close 15:end
  19. 360 sys 8192
  20. 370 print " words."
  21. 380 close 1
  22. 390 close 15
  23.