home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 146 / dpcs0400.iso / Internet / CS2000.exe / %MAINDIR% / csl / isdnnet.csl < prev    next >
Encoding:
Text File  |  1999-09-30  |  1.9 KB  |  85 lines

  1. #
  2. #  CSNET.CSL: CSNET Script
  3. #  Copyright 1998 CompuServe Interactive Services, Inc., an America Online Company.
  4. #  All rights reserved.
  5.  
  6. TITLE       "ISDNnet (ISDN)"
  7.  
  8. GOSUB isdngen.csl:Connect
  9.  
  10. LABEL BannerScreen
  11.    WAIT 20 FOR
  12.       {
  13.       "ANSNet"       : GOTO PWWaitForLogin
  14.       "UUNet"        : GOTO PWWaitForLogin # international use
  15.       "Saturn.BBN"   : GOTO PWWaitForLogin
  16.       "Sprint-IP"    : GOTO PWWaitForLogin
  17.       "UQKT1"        : GOTO NoPWWaitForLogin
  18.       "UQKT2"        : GOTO PWWaitForLogin
  19.       "NO CARRIER"   : FAILURE 8469 
  20.       }
  21.    FAILURE 8470
  22.  
  23. LABEL PWWaitForLogin
  24.    MSG 8453
  25.    WAIT 20 FOR
  26.       {
  27.       "login"        : GOTO PWSendLogin
  28.       "username"     : GOTO PWSendLogin # this case occurs for Sprint IP
  29.       "NO CARRIER"   : FAILURE 8469
  30.       }
  31.    FAILURE 8471
  32.  
  33. LABEL NoPWWaitForLogin
  34.    MSG 8453
  35.    WAIT 20 FOR
  36.       {
  37.       "login"        : GOTO NoPWSendLogin
  38.       "username"     : GOTO NoPWSendLogin
  39.       "NO CARRIER"   : FAILURE 8469
  40.       }
  41.    FAILURE 8471
  42.  
  43. LABEL PWSendLogin
  44.    MSG 8454
  45.    XMIT csn
  46.    WAIT 20 FOR
  47.       {
  48.       "Password"     : GOTO SendPassword
  49.       "NO CARRIER"   : FAILURE 8469
  50.       }
  51.    FAILURE 8471
  52.  
  53. LABEL NoPWSendLogin
  54.    MSG 8454
  55.    XMIT csn
  56.    GOTO CISConnect
  57.  
  58. LABEL SendPassword
  59.    XMIT csnet
  60.    GOTO CISConnect
  61.  
  62. LABEL CISConnect
  63.    MSG 8455
  64.    WAIT 120 FOR
  65.       {
  66.       "Connected"       : GOTO SuccessfulConnection
  67.       "Open"            : GOTO SuccessfulConnection
  68.       "Unavailable"     : FAILURE 8474
  69.       "Connect Failed"  : FAILURE 8474
  70.       "Not Available"   : FAILURE 8474
  71.       "Unreachable"     : FAILURE 8474
  72.       "No Connection"   : FAILURE 8474
  73.       "Bad Password"    : FAILURE 8483
  74.       "Login Invalid"   : FAILURE 8484
  75.       "NO CARRIER"      : FAILURE 8469
  76.       }
  77.    FAILURE 8485
  78.  
  79. LABEL SuccessfulConnection
  80.    PICTURE 7
  81.    MSG 8459
  82.    SUCCESS
  83.  
  84.