; iPass Dial-Up Networking Script
;
; Copyright (C) 1997-2000 iPass Inc.
;
; Do not edit this script.  Connection to the
; remote access point 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
    while count < 5 do
    transmit "^M"
    waitfor "ogin:" until 2
    if $SUCCESS then
    goto DoLogin
    endif
    count = count + 1
    endwhile
    halt
DoLogin:
    delay 1
    transmit $USERID, raw
    transmit "^M"
    waitfor "Password:"
    transmit $PASSWORD + "^M"
    waitfor "PPP"
endproc