proc main
transmit "^M"
transmit "^M"
delay 3
waitfor "me:"
transmit $USERID
transmit "^M"
waitfor  "rd:"
transmit $PASSWORD
transmit "^M"
waitfor ">"
transmit "ppp"
delay 1
transmit "^M"
endproc