proc main
	delay 2
	waitfor "user:"
	transmit $USERID
	transmit "^M"
	waitfor "assword:"
	transmit $PASSWORD
	transmit "^M"
	delay 5
endproc