! script for KX-PH35S connetiong So-net Yokohama with PIAFS
! 2002.04.25 Kondo Reishi <reishi@anet.ne.jp>

start:
LOOP 6
	{
	SEND "ATZ"+<0xd>
	WAIT 1
		{
		"OK" la
		}
	}
	EXIT KErrModemInitError$

la:
SEND "ATD0454433070"+<0xd>
LOOP 50
	{
	WAIT 1
		{
		"ONNECT" le
		"USY" lb
		"O DIALTONE" lc
		"O CARRIER" ld
		}
	}
	EXIT KErrLoginFail$

lb:
EXIT KErrBusy$

lc:
EXIT KErrNoDialTone$

ld:
EXIT KErrNoCarrier$

le:
	EXIT