DEFINE POPUP menucontex SHORTCUT RELATIVE FROM MROW(),MCOL() DEFINE BAR 1 OF menucontex PROMPT "A1" DEFINE BAR 2 OF menucontex PROMPT "A2" ON BAR 2 OF menucontex ACTIVATE POPUP Bloques SET MARK OF BAR 1 OF menucontex TO .T. SET MARK OF BAR 2 OF menucontex TO .T. DEFINE POPUP Bloques SHORTCUT RELATIVE DEFINE BAR 1 OF Bloques PROMPT "B1" DEFINE BAR 2 OF Bloques PROMPT "B2" DEFINE BAR 3 OF Bloques PROMPT "B3" SET MARK OF BAR 1 OF Bloques TO .T. SET MARK OF BAR 2 OF Bloques TO .T. SET MARK OF BAR 3 OF Bloques TO .T. ACTIVATE POPUP menucontex