proc main
delay 3
waitfor "odem>> "
transmit "ppp^M"
waitfor "sername:"
transmit $USERID
transmit "^M"
waitfor "assword:"
transmit $PASSWORD
transmit "^M"
endproc