{                 
	Send("AT+IPR=115200");
	Expect("OK");
	SetBaudRate(115200);
	Sleep(500);

	Send("AT&F");
	Expect("OK");

	Send("AT");
	Sleep(500);
	Send("AT");
	Sleep(500);

	SetReadTimeout(15000);


	pin = AskUserString("Отключение запроса PIN", "Введите PIN-код или просто нажмите OK если запрос PIN уже отключен")
	if (pin!="") {
	
		WaitBox("Отключение запроса PIN")	// Выводит сообщение
		Send("AT+CPIN="+pin)
		Expect("OK")
		Send("AT^SLCK=SC,0,"+pin+",7")
		Expect("OK")
		Sleep(10000);
		WaitBox("");
	}


	Send("AT&D0");		// DTR: реакция модема на состояние линии DTR отключена
	Expect("OK");		

	Send("AT+IFC=2,2");	// Некоторые модемы не поддерживают команду +IFC (управление потоком)
	str = RecvLn();		// В этом случае вместо +IFC используем команду \Qx
	str = RecvLn();

	if (str != "OK")
	{	Sleep(500);
		Send("AT\\Q3");
		Expect("OK");
	}

	Send("ATS0=0");
	Expect("OK");
	
	iBaudRate="57600"

	Send("AT+IPR="+iBaudRate);
	Expect("OK");

	SetBaudRate(iBaudRate);

	Sleep(1000);

	Send("AT&W");
	Expect("OK");

	SetReadTimeout(DefaultReadTimeout);	// Возврат таймаута, принятого по умолчанию
	
	ShowMessage("Модем настроен");
}