; iPass Dial-Up Networking Script
;
; Copyright (C) 1997-2000 iPass Inc.
;
; Do not edit this script.  Connection to the
; remote access points requires this script.
;
; Future auto-updates of this script will not
; occur when editions are made to this script.
;
proc main
    integer count = 0
    transmit "^M"
    delay 1
    transmit "^M"
    delay 1
    transmit "^M"
    delay 1
    while count < 5 do
	 transmit "^M"
   	 waitfor "me:" until 2
   	 if $SUCCESS then
   	 goto DoLogin
   	 endif
   	 count = count + 1
    endwhile
    halt
DoLogin:
;    delay 1
    transmit $USERID, raw
    transmit "^M"
    waitfor "word: " until 2
    transmit $PASSWORD, raw
    transmit "^M"
    waitfor "ppp" until 10
     if $FAILURE then
     goto Fail
     endif
Fail:
endproc