proc main

   waitfor "sername:"
   transmit $USERID
   transmit "^M"

   waitfor "assword: "
   transmit $PASSWORD
   transmit "^M"

   waitfor ">"
   transmit "ppp default"
   transmit "^M"

endproc