! LOGIN.LAT
! script for terminal server login
! p0 is username, p1 is password, p2 is system name to connect to

	zero

getts:
	count
	ifgtr	nots	6
!	log		Sending 3 - <CR>'s, expecting name>
	send	\r\r\r
	expect	gotts	name>
	timeout	getts	5000

nots:
	logerr Sent CRs, no "Enter Username>" prompt
	failed

gotts:
	sendstr	0
	send	\r
	expect	connect	ocal>
	timeout	noconnect	15000

noconnect:
	logerr Sent username, no "Local>" prompt
	failed

connect:
	send	set port flow disabl
	send	\r
connect1:
	count
	ifgtr	nounp	9
	send	connect\s
	sendstr	2
	send	\r
	expect	gotunp	Username:
	timeout	connect1	2000

nounp:
	logerr No "Username:" prompt
	failed

gotunp:
	sendstr	0
	send	\r
	ifnstr	done	1
	sendstr	1
	send	\r

done:
	log VMS login OK
	success