>>>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 >>>