>CLEAR > >SET SYSMENU TO >SET SYSMENU automatic >main_menu = "_mSysMenu" > >DEFINE MENU (Main_Menu) BAR AT LINE 1 > >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) DO myRETURN > >*** >ACTIVATE MENU (Main_Menu) PAD _Cash_Reg >*** > >>