proc main

   ; Delay for 3 seconds first to allow host time
   ; to send initial characters.

   delay 3
   transmit "^M"
   delay 1
   ; Wait for the login prompt before entering
   ; the user ID

   waitfor "ogin:"
   delay 1
   transmit $USERID
   transmit "^M"
   delay 1
   ; Enter the password

   waitfor "word:"
   delay 1
   transmit $PASSWORD
   transmit "^M"
   delay 1
   ;
   ; This provider has a menu list like this:
   ;

   waitfor "ash$"

   transmit "ppp^M"       ; Choose PPP connection

endproc