proc main
delay 3
transmit "^M"
delay 1
transmit "^M"
delay 1
transmit "^M"
waitfor "sername>"
transmit $USERID
transmit "^M"
waitfor "assword>"
transmit $PASSWORD
transmit "^M"
waitfor "choice."
transmit "2"
delay 1
transmit "^M"
delay 1
endproc