; The Gower.Net Script for Flex & X2
;  by Jon Burford
;  written on 1/13/00

proc main
   integer nTries = 3
   string szLogin = "sername:"
   integer nLogin = 5
   string szPW = "assword:"
   string szPrompt = "ction:"
   integer nATimeout = 5
   string szConnect = "PPP^M"
   boolean bUseSlip = FALSE

   delay 3
   transmit "^M^M"
   while 0 < nTries do
      waitfor szLogin then DoLogin
        until nLogin

TryAgain:
      transmit "^M"
      nTries = nTries - 1

   endwhile
   goto BailOut

DoLogin:
   transmit $USERID, raw
   transmit "^M"
   waitfor szPW
   transmit $PASSWORD, raw
   transmit "^M"
      if FALSE == $SUCCESS then
         goto TryAgain
      endif
   waitfor szPrompt until nATimeout
   transmit szConnect
   if bUseSlip then
			      ;     waitfor "Your address is "
      set ipaddr getip 2      ;     set ipaddr getip
   endif
   goto Done

BailOut:
   set screen keyboard on
   halt

Done:
   endproc