home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / wc.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  18 lines
  1. 1 'WC.BA by Gregory Sandow, modified by Robert Benson
  2. 10 IFPEEK(1)=171THENRESTORE24:FORX=63577TO63639ELSERESTORE22:FORX=64707TO64769
  3. 11 READY:POKEX,Y:NEXT
  4. 12 CLS:CLEAR:ONERRORGOTO20:PRINT@130,"File to count";:INPUTF$:OPENF$FORINPUTAS1
  5. 13 IFPEEK(1)=171THENC=29058:S=63574:X=63577ELSEC=24046:S=64704:X=64707
  6. 14 X=VARPTR(#1):D=PEEK(X+2)+256*(PEEK(X+3))
  7. 15 POKES,33:POKES+1,PEEK(D)-1:POKES+2,PEEK(D+1)
  8. 16 CALLS:CLS:PRINT@134,"Words ="PEEK(S+64)+(256*PEEK(S+65))
  9. 17 PRINT@206,"A)gain, E)dit file, Q)uit? ";:ONINSTR("AaEeQq",INPUT$(1))GOTO18,18,19,19,21,21:GOTO17
  10. 18 CLOSE:RESTORE:GOTO12
  11. 19 CLS:CALLC
  12. 20 IFERR=52GOTO12
  13. 21 CLOSE:MENU
  14. 22 DATA17,0,0,14,0,35,126,254,32,202,244,252,254,13,202,244,252,254,10,202,244,252,254,9,202,244,252,254,45,202,244,252
  15. 23 DATA254,46,202,200,252,14,0,254,26,194,200,252,235,34,0,253,201,121,238,1,202,200,252,14,1,19,195,200,252,0,0
  16. 24 DATA17,0,0,14,0,35,126,254,32,202,138,248,254,13,202,138,248,254,10,202,138,248,254,9,202,138,248,254,45,202,138,248
  17. 25 DATA254,46,202,94,248,14,0,254,26,194,94,248,235,34,150,248,201,121,238,1,202,94,248,14,1,19,195,94,248,0,0
  18.