SET SYSMENU TO SET SYSMENU AUTOMATIC DEFINE PAD Ordering OF _MSYSMENU PROMPT "Ordering" COLOR SCHEME 3 ; KEY ALT+O, "" DEFINE PAD Receiving OF _MSYSMENU PROMPT "Receiving" COLOR SCHEME 3 ; KEY ALT+R, "" DEFINE PAD Suppliers OF _MSYSMENU PROMPT "Suppliers" COLOR SCHEME 3 ; KEY ALT+S, "" DEFINE PAD _2an0tmktl OF _MSYSMENU PROMPT "Reports" COLOR SCHEME 3 ; KEY ALT+R, "" DEFINE PAD Utilities OF _MSYSMENU PROMPT "Utilities" COLOR SCHEME 3 ; KEY ALT+U, "" DEFINE PAD _2an0tmktm OF _MSYSMENU PROMPT "Exit" COLOR SCHEME 3 ; KEY ALT+E, "" ON SELECTION PAD Ordering OF _MSYSMENU DO FORM frmorder ON SELECTION PAD Receiving OF _MSYSMENU DO FORM frmrecv ON SELECTION PAD Suppliers OF _MSYSMENU DO FORM frmsuppliers ON PAD _2an0tmktl OF _MSYSMENU ACTIVATE POPUP reports ON PAD Utilities OF _MSYSMENU ACTIVATE POPUP utilities ON SELECTION PAD _2an0tmktm OF _MSYSMENU do unload DEFINE POPUP reports MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF reports PROMPT "Orders Summary" DEFINE BAR 2 OF reports PROMPT "Drug Order History" ON SELECTION BAR 1 OF reports DO Form frmsummary ON SELECTION BAR 2 OF reports DO Form frmdruglist DEFINE POPUP utilities MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR Configuration OF utilities PROMPT "Configuration" DEFINE BAR PO OF utilities PROMPT "Load Starting PO" DEFINE BAR 3 OF utilities PROMPT "Reindex" DEFINE BAR Scanning OF utilities PROMPT "Inventory Scanning" ON SELECTION BAR Configuration OF utilities do form frmconfg ON SELECTION BAR PO OF utilities do form frmpo ON SELECTION BAR 3 OF utilities DO REINDEX ON SELECTION BAR Scanning OF utilities do form frmscanand the code blows on the