home *** CD-ROM | disk | FTP | other *** search
- #
- # CSNET.CSL: CSNET Script
- #
- # Copyright 1998 CompuServe Interactive Services, Inc., an America Online Company.
- # All rights reserved.
-
- TITLE "ISDNnet (ISDN)"
-
- GOSUB isdngen.csl:Connect
-
- LABEL BannerScreen
- WAIT 20 FOR
- {
- "ANSNet" : GOTO PWWaitForLogin
- "UUNet" : GOTO PWWaitForLogin # international use
- "Saturn.BBN" : GOTO PWWaitForLogin
- "Sprint-IP" : GOTO PWWaitForLogin
- "UQKT1" : GOTO NoPWWaitForLogin
- "UQKT2" : GOTO PWWaitForLogin
- "NO CARRIER" : FAILURE 8469
- }
- FAILURE 8470
-
- LABEL PWWaitForLogin
- MSG 8453
- WAIT 20 FOR
- {
- "login" : GOTO PWSendLogin
- "username" : GOTO PWSendLogin # this case occurs for Sprint IP
- "NO CARRIER" : FAILURE 8469
- }
- FAILURE 8471
-
- LABEL NoPWWaitForLogin
- MSG 8453
- WAIT 20 FOR
- {
- "login" : GOTO NoPWSendLogin
- "username" : GOTO NoPWSendLogin
- "NO CARRIER" : FAILURE 8469
- }
- FAILURE 8471
-
- LABEL PWSendLogin
- MSG 8454
- XMIT csn
- WAIT 20 FOR
- {
- "Password" : GOTO SendPassword
- "NO CARRIER" : FAILURE 8469
- }
- FAILURE 8471
-
- LABEL NoPWSendLogin
- MSG 8454
- XMIT csn
- GOTO CISConnect
-
- LABEL SendPassword
- XMIT csnet
- GOTO CISConnect
-
- LABEL CISConnect
- MSG 8455
- WAIT 120 FOR
- {
- "Connected" : GOTO SuccessfulConnection
- "Open" : GOTO SuccessfulConnection
- "Unavailable" : FAILURE 8474
- "Connect Failed" : FAILURE 8474
- "Not Available" : FAILURE 8474
- "Unreachable" : FAILURE 8474
- "No Connection" : FAILURE 8474
- "Bad Password" : FAILURE 8483
- "Login Invalid" : FAILURE 8484
- "NO CARRIER" : FAILURE 8469
- }
- FAILURE 8485
-
- LABEL SuccessfulConnection
- PICTURE 7
- MSG 8459
- SUCCESS
-
-