;
; This is a script file that demonstrates how
; to establish a PPP connection with a host
; that uses a menu system.
;
; A script file must have a 'main' procedure.
; All script execution starts with this 'main'
; procedure.
;
; Main entry point to script
;
proc main
   ; Change these variables to customize for your
   ; specific Internet service provider
   integer nTries = 3
   ; This is the login prompt and timeout values
   string szLogin = "ogin:"
   integer nLoginTimeout = 3
   ; This is the password prompt and timeout values
   string szPW = "assword:"
   integer nPWTimeout = 3
   ; This is the prompt once your password is verified
   string szPrompt = "annex:"
   ; This is the command to send to establish the 
   ; connection.  This script assumes you only need
   ; to issue one command to continue.  Feel free
   ; to add more commands if your provider requires
   ; it.
   string szConnect = "3^M"
   ; Set this to FALSE if you don't want to get an IP
   ; address
   boolean bUseSlip = FALSE
   ; -----------------------------------------------------
   ; Delay for 2 seconds first to make sure the
   ; host doesn't get confused when we send the
   ; two carriage-returns.
   transmit "^M"
   delay 2 
   transmit "SET 1:0,2:0,3:0,4:1,5:0,6:1,7:0,9:0,10:0^M"
   transmit "9306^M"
   delay 2
   transmit "^M"
   ; Attempt to login at most 'nTries' times
   while 0 < nTries do
      ; Wait for the login prompt before entering
      ; the user ID, timeout after x seconds
      waitfor szLogin then DoLogin 
        until nLoginTimeout
TryAgain:
      transmit "^M"        ; ping
      nTries = nTries - 1
   endwhile
   goto BailOut
DoLogin:
   ; Enter user ID
   transmit $USERID, raw
   transmit "^M"
   ; Wait for the password prompt 
   waitfor szPW until nPWTimeout
   if FALSE == $SUCCESS then
      goto TryAgain
   endif
   ; Send the password
   transmit $PASSWORD, raw
   transmit "^M"
   goto Done
BailOut:
   ; Something isn't responding.  Halt the script
   ; and let the user handle it manually.
   set screen keyboard on
   halt
Done:
endproc