home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 146 / dpcs0400.iso / Internet / CS2000.exe / %MAINDIR% / csl / csnet.csl < prev    next >
Encoding:
Text File  |  1999-09-30  |  1.9 KB  |  86 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       "CSnet"
  7. HARDWARE    MODEM
  8.  
  9. GOSUB mdmgen.csl:Connect
  10.  
  11. LABEL BannerScreen
  12.    WAIT 20 FOR
  13.       {
  14.       "ANSNet"       : GOTO PWWaitForLogin
  15.       "UUNet"        : GOTO PWWaitForLogin # international use
  16.       "Saturn.BBN"   : GOTO PWWaitForLogin
  17.       "Sprint-IP"    : GOTO PWWaitForLogin
  18.       "UQKT1"        : GOTO NoPWWaitForLogin
  19.       "UQKT2"        : GOTO PWWaitForLogin
  20.       "NO CARRIER"   : FAILURE 8469 
  21.       }
  22.    FAILURE 8470
  23.  
  24. LABEL PWWaitForLogin
  25.    MSG 8453
  26.    WAIT 20 FOR
  27.       {
  28.       "login"        : GOTO PWSendLogin
  29.       "username"     : GOTO PWSendLogin # this case occurs for Sprint IP
  30.       "NO CARRIER"   : FAILURE 8469
  31.       }
  32.    FAILURE 8471
  33.  
  34. LABEL NoPWWaitForLogin
  35.    MSG 8453
  36.    WAIT 20 FOR
  37.       {
  38.       "login"        : GOTO NoPWSendLogin
  39.       "username"     : GOTO NoPWSendLogin
  40.       "NO CARRIER"   : FAILURE 8469
  41.       }
  42.    FAILURE 8471
  43.  
  44. LABEL PWSendLogin
  45.    MSG 8454
  46.    XMIT csn
  47.    WAIT 20 FOR
  48.       {
  49.       "Password"     : GOTO SendPassword
  50.       "NO CARRIER"   : FAILURE 8469
  51.       }
  52.    FAILURE 8471
  53.  
  54. LABEL NoPWSendLogin
  55.    MSG 8454
  56.    XMIT csn
  57.    GOTO CISConnect
  58.  
  59. LABEL SendPassword
  60.    XMIT csnet
  61.    GOTO CISConnect
  62.  
  63. LABEL CISConnect
  64.    MSG 8455
  65.    WAIT 120 FOR
  66.       {
  67.       "Connected"       : GOTO SuccessfulConnection
  68.       "Open"            : GOTO SuccessfulConnection
  69.       "Unavailable"     : FAILURE 8474
  70.       "Connect Failed"  : FAILURE 8474
  71.       "Not Available"   : FAILURE 8474
  72.       "Unreachable"     : FAILURE 8474
  73.       "No Connection"   : FAILURE 8474
  74.       "Bad Password"    : FAILURE 8483
  75.       "Login Invalid"   : FAILURE 8484
  76.       "NO CARRIER"      : FAILURE 8469
  77.       }
  78.    FAILURE 8485
  79.  
  80. LABEL SuccessfulConnection
  81.    PICTURE 7
  82.    MSG 8459
  83.    SUCCESS
  84.  
  85.