>BLAH, BLAH, BLAH.... > >DO Mainpops WITH .F. >READ EVENTS > >DEACTIVATE MENU Main_Menu >RELEASE MENU Main_Menu EXTENDED > >SET SYSMENU TO DEFAULT > >MORE BLAH, BLAH, BLAH.... >>
>PROCEDURE MAINPOPS >PARAMETER _EXITPOS > >CLEAR > >*main_menu = "Main_Menu" >SET SYSMENU TO >main_menu = "_mSysMenu" > >DEFINE MENU &Main_Menu > >DEFINE PAD _Cash_Reg OF &Main_Menu PROMPT "\<Cash Register" >DEFINE PAD _Inventory OF &Main_Menu PROMPT "\<Inventory" >DEFINE PAD _Utilities OF &Main_Menu PROMPT "\<Utilities" >DEFINE PAD _Exit OF &Main_Menu PROMPT "E\<xit" > > >BLAH, BLAH, BLAH....... > >ACTIVATE MENU &Main_Menu > >_EXITPOS = .F. > >RETURN > >******************************************************************* >PROCEDURE CHECKSUSP &&REMOVE AFTER SEPT RELEASE >=ALARM(2) &&REMOVE AFTER SEPT RELEASE >WAIT WINDOW "Option replaced by Maintenance / Customers" TIMEOUT 2 > >>