home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / MEMOFUNC.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  846 b   |  17 lines
  1. *****************************************************************
  2. *     * 09/92               MENUFUNC.PRG                        *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates to use menu pad functions to   *
  8. *     * to locate a menu pad and release it                     *
  9. *****************************************************************
  10. FOR count = 1 TO CNTPAD('_msysmenu')  && Number of pads
  11.     IF PRMPAD('_msysmenu', GETPAD('_msysmenu', count)) = 'Text'
  12.         RELEASE PAD (GETPAD('_msysmenu', count)) OF _msysmenu
  13.         ?  (GETPAD('_msysmenu', count)) ,count
  14.         EXIT
  15.     ENDIF
  16. ENDFOR
  17.