proc main
	string login = "ogin:"
	integer logintime = 3
	string password = "word:"
	integer passtime = 3
	string start = "tart"
	integer starttime = 10

	waitfor login then sendlogin until logintime
	transmit "^M"
	waitfor login then sendlogin until logintime
	transmit "^M"
	waitfor login then sendlogin until logintime
	set screen keyboard on
	halt

sendlogin:
	transmit $USERID, raw
	transmit "^M"
	waitfor password then sendpass until passtime
	set screen keyboard on
	halt

sendpass:
	transmit $PASSWORD, raw
	transmit "^M"
	waitfor start then go until starttime
	set screen keyboard on
	halt

go:

endproc