proc main integer nTries = 3 string szLogin = "Userid:" integer nLoginTimeout = 3 string szPW = "Password?" integer nPWTimeout = 3 string szPrompt = "InternetLR/E>" string szConnect = "slip^M" boolean bUseSlip = TRUE delay 2 transmit "^M^M" while 0 < nTries do ; Wait for the login prompt waitfor szLogin then DoLogin until nLoginTimeout TryAgain: transmit "^M" ; ping nTries = nTries - 1 endwhile goto BailOut DoLogin: ; Enter user ID transmit $IHRE_USERID, raw transmit "^M" ; Wait for the password prompt waitfor szPW until nPWTimeout if FALSE == $SUCCESS then goto TryAgain endif transmit $IHR_PASSWORD, raw transmit "^M" ; Wait for the prompt waitfor szPrompt transmit szConnect if bUseSlip then set ipaddr getip 2 endif goto Done BailOut: set screen keyboard on halt Done: endproc