proc main
waitfor "Username: "
transmit $USERID
transmit "^M"
waitfor "Password: "
transmit $PASSWORD
transmit "^M"
waitfor "choice: "
transmit "l^M"
delay 1
endproc