home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / WC.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  778 b   |  14 lines
  1. *****************************************************************
  2. *     * 09/92               WC.PRG                              *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * Illustrates how to add Word Count popup menu bar to     *
  8. *     * Systems menu after Filer pad. Counts words in clipboard *
  9. *****************************************************************
  10. DEFINE BAR 99 OF _MSYSTEM AFTER _MST_FILER PROMPT "Word Count"
  11. ON SELECTION BAR 99 OF _MSYSTEM  WAIT WINDOW;
  12.    LTRIM(STR(OCCURS(" ", _CLIPTEXT)))+" Words in Clipboard"
  13.  
  14.