Public Sub WorkWithTerm()
	'Работа с терминальными свойствами
	'Выключаю опции
	Application. DisplayStatusBar = False
	Application. DisplayRecentFiles = False
	
End Sub