ON SHUTDOWN DO REALQUIT  
SET SYSMENU TO           && Использование главного меню
**DO FORM START            && Заставка
**DO FORM LOGIN            && Запуск формы контроля доступа
*SuperVisor=.T.
IF SuperVisor=.F.
   * Идентификация не выполнена
   DO STOP               && Завершение работы
ENDIF   
SET SYSMENU ON           && Работа со строкой главного меню

* Замена меню FoxPro на собственное
* Определение заголовков создаваемого меню
* PROMPT "\<Текст" - текст, появляющийся в строке меню 
DEFINE PAD POINT1 OF _MSYSMENU PROMPT "\<Формы"        
DEFINE PAD POINT5 OF _MSYSMENU PROMPT "\<Выход" 
* При переходе в пункт  1  меню показать POPUP-меню "Поддержка"
ON PAD POINT1 OF _MSYSMENU ACTIVATE POPUP SUPPORT   
* При выборе  5 -го пункта меню запустить процедуру STOP
ON SELECTION PAD POINT5 OF _MSYSMENU DO STOP             

* Описание POPUP-меню "Поддержка"
DEFINE POPUP SUPPORT MARGIN FONT [Arial Cyr], 11      
DEFINE BAR  1  OF SUPPORT PROMPT "\<Форма1"
* При выборе  1 -го пункта меню запустить форму ChangPic
ON SELECTION BAR  1  OF SUPPORT DO FORM probaform1

* Запуск обработчика событий Visual FoxPro
READ EVENTS
DO STOP        && Процедура STOP находится в файле FileProc

IF SuperVisor=.F.
   * Идентификация не выполнена
   DO STOP               && Завершение работы
ENDIF