home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 400-499 / ff445.lzh / TurboText / Rexx / CountWords.ttx < prev    next >
Text File  |  1991-01-24  |  405b  |  27 lines
  1.  
  2. /** $VER: CountWords.ttx Demo 1.0 (26.12.90)
  3.  **
  4.  ** Count the number of words in the document
  5.  **
  6.  ** Written by Martin Taillefer
  7.  **/
  8.  
  9.  
  10. OPTIONS RESULTS
  11.  
  12.  
  13.   SetDisplayLock ON
  14.   SetBookmark 0
  15.   SetStatusBar TEMPORARY "Counting..."
  16.  
  17.   count = 0
  18.   MoveSOF
  19.   DO UNTIL RC ~= 0
  20.     MoveNextWord
  21.     count = count + 1
  22.   END
  23.  
  24.   SetStatusBar "Counted " || count || " words"
  25.   MoveBookmark 0
  26.   SetDisplayLock OFF
  27.