7m…ôcUÉ\cdõ const Pointer_Used = &408proc Start: local gEvent&(16) DO rem -- information of exiting this program gAt 10,30 gPrint "click here to finish" GETEVENT32 gEvent&() IF gEvent&(1)=Pointer_Used and gEvent&(4)=1 Event_Ptr:(gEvent&(3),gEvent&(6),gEvent&(7)) ENDIF UNTIL 0endpproc Event_Ptr:(winid&, inxpos&, inypos&) local val% if inxpos&<160 and inypos&<60 stop rem -- exit this program endif val% = mPopup(inxpos&, inypos&, 0, "one",1,"two",2,"three",3,"extra",%e) rem If select "one", val%=1. if select "extra", val%=%e, i.e. 101. rem While popup menu exists, return escape arrow keys are also availavle. rem Also control+e is available. it is identical to click "extra". gcls gAt 200,100 gPrint "select="+Gen$(val%,4)endpÐР   \c#efd\c+efdý‚.ÆA…*TextEd.app…3‰º