SET TALK OFF 
SET STATUS BAR OFF 
SET SYSMENU OFF 
ON SHUTDOWN Do Exit.prg
ON error MessageBox ('Ошибка')
Set path to baza
With _Screen 
_screen.AUTOCENTER =.T.
.Height =  200  
.Width =  600  
.BackColor=RGB( 255 , 255 , 255 ) 
.Caption="Программа формирования списков на банк Уралсиб v 1.01" 
Endwith 

IF .NOT. FILE('S86.dbf')
	MessageBox( 'Нет файла S86.dbf','Программа прервана' ) 
	my_Exit(.t.)
ENDIF

DO menu1.mpr
READ EVENTS



release window 
CLOSE ALL 
CLEAR EVENTS 
CLEAR ALL 
ON SHUTDOWN

*****************
procedure my_Exit
*****************
lparameters tlMessage
*  tlMessage - если .f. , то светим сообщение
if !tlMessage
	IF MESSAGEBOX("Закрыть программу?",  4 + 32 , "Выход") =  6  
		release window 
		Clear windows 
		CLOSE ALL 
		CLEAR EVENTS 
	endif
else
    on shutdown 
    quit
endif