*** The next line creates 4 invisible buttons and ***
*** executes the procedure SHOWCARD when a button is chosen ***
***
***
@ 1,1 GET choice PICTURE '@*IH ;;;' SIZE 4,4,4 ;
        VALID(SHOWCARD()) MESSAGE 'Pick a card, any card!'
READ CYCLE
***
***
PROCEDURE SHOWCARD  && Procedure executed when a button is chosen
@ 6,1 CLEAR
DO CASE
        CASE _CUROBJ = 1                && First  button chosen
        @ 6,1 SAY 'Hearts'
        CASE _CUROBJ = 2                && Second button chosen
        @ 6,9 SAY 'Diamonds'
        CASE _CUROBJ = 3                && Third  button chosen
        @ 6,17 SAY 'Clubs'
        CASE _CUROBJ = 4                && Fourth button chosen
        @ 6,25 SAY 'Spades'
ENDCASE
RETURN .T.

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

See Also:  @ ... SAY/GET, READ, SHOW GETS, OBJNUM(), USER-DEFINED
FUNCTIONS (UDFs)

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