>DO Mainpops >READ EVENTS >>
>>_EXIT = .F. >>DO WHILE _EXIT = .F. >> _EXIT = .T. >> DO Mainpops WITH _EXIT >>*TMT 12/12/08 >>ENDDO >>>>
>>****************************************************** >>******************************************************************* >>* 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 >>PARAMETER _EXITPOS >> >>CLEAR >> >>*main_menu = "Main_Menu" >>SET SYSMENU TO >>*SET SYSMENU automatic >> >>main_menu = "_mSysMenu" >> >>*DEFINE MENU &Main_Menu BAR AT LINE 1 >>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 RETURN >> >>******************************************************************* >>-SNIP- >> >>ACTIVATE MENU &Main_Menu >> >>_EXITPOS = .F. >> >>RETURN >>>>