_SCREEN.CAPTION = [ОАО «ГазпромЬ»]
  _SCREEN.BACKCOLOR = RGB(245,240,220)
  _SCREEN.WIDTH = 350
  _SCREEN.HEIGHT = 250
  _SCREEN.AUTOCENTER = .T.
  _SCREEN.CLOSABLE = .T.

   SET PATH TO ARHIV, DATABASE, FORM, GRAPHIC, MENU, PRG, SHABL
   SET TALK OFF
   SET HELP OFF
   SET ESCAPE OFF
   SET SAFETY OFF
   SET CONFIRM ON
   SET DELETED ON
   SET DATE GERMAN
   SET HOURS TO 24
   SET STATUS BAR OFF

  *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
   ON ERROR MESSAGEBOX([Номер ошибки: ]           + LTRIM(STR(ERROR())) +CHR(13)+;
                       [Сообщение: ]              + MESSAGE()           +CHR(13)+;
                       [Строка с ошибкой: ]       + MESSAGE(1)          +CHR(13)+;
                       [Номер строки с ошибкой: ] + LTRIM(STR(LINENO()))+CHR(13)+;
                       [Программа с ошибкой: ]    + PROGRAM()                   ,;
               0+64+0, [ОШИБКА ...])                                            &&
  *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*


*_________________________
 ON SHUTDOWN DO MY_EXIT &&
 PUSH MENU _MSYSMENU    &&
*_________________________


_SCREEN.ADDOBJECT([COMMAND_1], [MY_COMMAND])

*_________________________
_SCREEN.VISIBLE = .T.   &&
 READ EVENTS            &&
*_________________________





*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~< ПРОЦЕДУРЫ И ФУНКЦИИ >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*





*****************************************************************
*///////////////////////////////////////////////////////////////
***************************************************************
 PROCEDURE MY_EXIT
   CLEAR EVENTS
   QUIT
 RETURN
 
 

*****************************************************************
*///////////////////////////////////////////////////////////////
***************************************************************
 DEFINE CLASS MY_COMMAND AS COMMANDBUTTON
     CAPTION = [Выход]
     CANCEL = .T.
     LEFT = 10
     TOP = 10
     HEIGHT = 25
     WIDTH = 100
     VISIBLE = .T.

     PROCEDURE CLICK
       CLEAR EVENTS &&  в меню-выход
       QUIT         &&  эти строчки
     RETURN
 ENDDEFINE