From: George De Bruin 
On Wednesday, May 07, 1997 12:58 PM, Danny Keogh 
[SMTP:632-158!Danny.Keogh@sawasdi.apana.org.au] wrote:
> I have seen several messages on this echo recently envolving
> people asking for word counters.  I have written one which I will
> consider distributing if I get enough replies to this message.
If you're trying to do something like this is TSE Pro (either 2.5 or 2.6), it 
is a very short macro:
proc main()
    integer count = 1
    PushPosition()
    PushBlock()
    BegFile() GotoPos(PosFirstNonWhite())
    UnMarkBlock()
    While WordRight()
        if CurrChar()  _AT_EOL_
            count = count + 1
        endif
    endwhile
    PopBlock()
    PopPosition()
    warn("Total Words: ", count)
end
                           George J. De Bruin
                       SemWare Technical Support
 
------------------------------------------------------------------------------
 SemWare Corporation         Phone: (770) 641-9002  FAX: (770) 640-6213
 WEB: http://www.semware.com  FTP: ftp.semware.com  
george.de.bruin@semware.com
 
------------------------------------------------------------------------------
---
---------------