proc main

	waitfor "login:"
	transmit $USERID
	transmit "^M"
	
	waitfor "Password:"
	transmit $PASSWORD
	transmit "^M"

endproc