0 'WC v. 1.0  -- copyright 1985 by Gregory Sandow. Copyright notice may be removed for use, but must be intact if program is given to anyone else.
1 IFHIMEM<MAXRAMTHEN?"Can't run WC":CALL23456ELSECLEAR100,HIMEM-66
2 INPUT"File";F$:S=62894:FORX=S+3TO62959:READY:POKEX,Y:NEXT
3 OPENF$FORINPUTAS1:X=VARPTR(#1):D=PEEK(X+2)+256*(PEEK(X+3))
4 POKES,33:POKES+1,PEEK(D)-1:POKES+2,PEEK(D+1)
5 CALLS:PRINTPEEK(S+64)+(256*PEEK(S+65))+1"words"
6 PRINT"More? ";:ONINSTR("YyEe",INPUT$(1))GOTO7,7,8,8:CLEAR0,MAXRAM:MENU
7 CLOSE:RESTORE:PRINT:GOTO2
8 PRINT:CALL24046
9 DATA17,0,0,14,0,35,126,254,32,202,226,245,254,13,202,226,245
10 DATA254,10,202,226,245,254,9,202,226,245,254,45,202,226,245,254,46,202,182,245
11 DATA14,0,254,26,194,182,245,235,34,238,245,201,121,238,1,202,182,245,14,1,19,195,182,245,0,0