>>DEFINE POPUP popFruits FROM 5,5 ; >> MULTISELECT MARGIN && Create multi-choice menu >>DEFINE BAR 1 OF popFruits ; >> PROMPT '\<Apples' MARK CHR(3) && First item >>DEFINE BAR 2 OF popFruits ; >> PROMPT '\<Bananas' MARK CHR(4) && Second item >>DEFINE BAR 3 OF popFruits ; >> PROMPT '\<Grapes' MARK CHR(5) && Third item >>DEFINE BAR 4 OF popFruits ; >> PROMPT '\<Lemons' MARK CHR(6) && Fourth item >>@ 12,5 SAY 'Your choices:' >>ON SELECTION POPUP popFruits DO yourchoice && Choice routine >>ACTIVATE POPUP popFruits >>PROCEDURE yourchoice && Executed when choice is made >>@ 13,5 CLEAR >>FOR gnCount = 1 TO CNTBAR('popFruits') && Loop for # of items >> IF MRKBAR('popFruits', gnCount) = .T. && Option is marked, >> ? PRMBAR('popFruits', gnCount) AT 5 && display caption >> ENDIF >>NEXT >>