****************************************************** ******************************************************************* * Description: This program will create the POS menu that appears * at the top of the screen, it will also cycle back * after every selection is completed. ******************************************************************* PROCEDURE MAINPOPS 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" ON SELECTION PAD _Cash_Reg OF &Main_Menu DO Regtemp ON PAD _Inventory OF &Main_Menu ACTIVATE POPUP Inventory ON PAD _Utilities OF &Main_Menu ACTIVATE POPUP Utilities ON SELECTION PAD _Exit OF &Main_Menu CLEAR EVENTS ACTIVATE MENU &Main_Menu READ EVENTS RETURN