home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d6xx / d645 / dmd.lha / DMD / REXX / WC.dme < prev   
Text File  |  1992-04-26  |  320b  |  14 lines
  1. /* WC.dme © 1992 Fergus Duniho */
  2.  
  3. bsave 'T:TEXT'
  4. W = 0
  5. Call Open 'File', 'T:TEXT', 'R'
  6. Do Until EOF('File')
  7.     W = W + Words(Readln('File'))
  8.     Call PostMsg 200,80,' Counting - Please Wait ...\' W
  9. End
  10. Call Close 'File'
  11. Call Delete 'T:TEXT'
  12. Call PostMsg
  13. Call Request 200,70,' Counting Finished.\' W 'words.',,'Resume'
  14.