******************************************************
*******************************************************************
*  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