! script for KX-PH35S connetiong So-net Yokohama with PIAFS
! 2000.08.01 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:
LOOP 5
	{
	WAIT 10
		{
		"name" login
		"ogin" login
		}
	SEND <0xd>
	}

login:
	SEND "MYLOGINNAME"+<0x0d>
!	SEND login_name$+<0x0d>
	WAIT 10
		{
		"assword:" password
		"nvalid" failure
		"rror" failure
		"ncorrect" failure
		}
	EXIT KErrTimeOut$

password:
	SEND "MYPASSWORD"+<0x0d>
!	SEND login_pass$+<0x0d>
	WAIT 10
		{
		"OK" success
		"HELLO" success
		"GO" success
		"IP" success
		"ddress" success
		"ocol" protocol
		"nvalid" failure
		"rror" failure
		"ncorrect" failure
		"ad Password" failure
		}
	EXIT KErrTimeOut$

protocol:
	SEND "PPP"+<0x0d>
	EXIT

success:
	EXIT
failure:
	EXIT KErrLoginFail$