SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD m_doc OF _MSYSMENU PROMPT "Операции" COLOR SCHEME  3 
DEFINE PAD m_ser OF _MSYSMENU PROMPT "Сервис" COLOR SCHEME  3 
DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "Окно" COLOR SCHEME  3 
DEFINE PAD m_exit OF _MSYSMENU PROMPT "Выход" COLOR SCHEME  3  
ON SELECTION PAD m_exit OF _MSYSMENU clear events
ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP _mwindow
DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME  4 

DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME  4 
DEFINE BAR _med_cut OF _medit PROMPT "Вырезать" KEY CTRL+X,"Ctrl+X"
DEFINE BAR _med_copy OF _medit PROMPT "Копировать" KEY CTRL+C, "Ctrl+C"
DEFINE BAR _med_paste OF _medit PROMPT "Вставить" KEY CTRL+V, "Ctrl+V"

ON PAD m_doc OF _MSYSMENU ACTIVATE POPUP mdoc
DEFINE POPUP mdoc MARGIN RELATIVE SHADOW COLOR SCHEME  4 
DEFINE BAR  1  OF mdoc PROMPT "Прием данных"
DEFINE BAR  2  OF mdoc PROMPT "\-"
DEFINE BAR  3  OF mdoc PROMPT "Отчеты"
DEFINE BAR  4  OF mdoc PROMPT "\-"
DEFINE BAR  5  OF mdoc PROMPT "Просмотр ошибок"
ON SELECTION BAR  1  OF mdoc do LoadData
ON SELECTION BAR  3  OF mdoc do form report
ON SELECTION BAR  5  OF mdoc do BrowError
...