+---------------------------------+
|             MRKPAD              |
+---------------------------------+
MRKPAD(<expC1>, <expC2>)

-----------------------------------
Returns true if menu pad is marked.
Return value - Logical
-----------------------------------

<expC1>
        Name of menu bar.

<expC2>
        Name of menu pad to check.

+---------------------------------+
|         Program Example         |
+---------------------------------+
***  The program must be named PADEXAM.PRG ***
CLEAR
DEACTIVATE MENU mainmenu
DEFINE MENU mainmenu ;
        KEY alt+z BAR AT LINE 1
PUBLIC skipvar
skipvar = .t.

DEFINE PAD invoices  OF mainmenu PROMPT '\<Invoices'  ;
        key alt+I mark chr(3)
DEFINE PAD customers OF mainmenu PROMPT '\<Customers' ;
        key alt+C mark chr(4) skip for skipvar
DEFINE PAD inventory OF mainmenu PROMPT 'I\<nventory' ;
        key alt+N mark chr(5)
DEFINE PAD payments OF mainmenu PROMPT '\<Payments' ;
        key alt+P mark chr(6)
DEFINE PAD quit      OF mainmenu PROMPT '\<Quit' key alt+q

ON SELECTION MENU mainmenu ;
        DO tmenu IN padexam WITH MENU(), PAD()

ACTIVATE MENU mainmenu NOWAIT

PROCEDURE tmenu
PARAMETER mmenu, mpad
WAIT WINDOW 'Selected menu pad of ' + mmenu + ' is ' + mpad NOWAIT
SET MARK OF PAD (pad()) OF mainmenu TO !MRKPAD('mainmenu',pad())
skipvar = !skipvar

IF mpad = 'QUIT'
        DEACTIVATE MENU mainmenu
        RELEASE MENU mainmenu
ENDIF
RETURN

-----------------------------------

See Also:  DEFINE PAD, MRKBAR(), SET MARK OF

-----------------------------------