home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 6 / 3ComUSRConnections.iso / Software / Internet / CSERV / CS2000US.EXE / %MAINDIR% / csl / csnet.csl next >
Encoding:
Text File  |  1999-05-26  |  1.9 KB  |  85 lines
  1. #
  2. #  CSNET.CSL: CSNET Script
  3. # 
  4. #  Copyright 1998 CompuServe Interactive Services, Inc., an America Online Company.
  5. #  All rights reserved.
  6.  
  7. TITLE       "CSnet"
  8. HARDWARE    MODEM
  9.  
  10. GOSUB mdmgen.csl:Connect
  11.  
  12. LABEL BannerScreen
  13.    WAIT 20 FOR
  14.       {
  15.       "ANSNet"       : GOTO PWWaitForLogin
  16.       "UUNet"        : GOTO PWWaitForLogin # international use
  17.       "Saturn.BBN"   : GOTO PWWaitForLogin
  18.       "Sprint-IP"    : GOTO PWWaitForLogin
  19.       "UQKT1"        : GOTO NoPWWaitForLogin
  20.       "UQKT2"        : GOTO PWWaitForLogin
  21.       "NO CARRIER"   : FAILURE 1107 
  22.       }
  23.    FAILURE 1108
  24.  
  25. LABEL PWWaitForLogin
  26.    MSG 1003
  27.    WAIT 20 FOR
  28.       {
  29.       "login"        : GOTO PWSendLogin
  30.       "username"     : GOTO PWSendLogin    # this case occurs for Sprint IP
  31.       "NO CARRIER"   : FAILURE 1107
  32.       }
  33.    FAILURE 1109
  34.  
  35. LABEL NoPWWaitForLogin
  36.    MSG 1003
  37.    WAIT 20 FOR
  38.       {
  39.       "login"        : GOTO NoPWSendLogin
  40.       "username"     : GOTO NoPWSendLogin
  41.       "NO CARRIER"   : FAILURE 1107
  42.       }
  43.    FAILURE 1109
  44.  
  45. LABEL PWSendLogin
  46.    MSG 1004
  47.    XMIT csn
  48.    WAIT 20 FOR
  49.       {
  50.       "Password"     : GOTO SendPassword
  51.       "NO CARRIER"   : FAILURE 1107
  52.       }
  53.    FAILURE 1109
  54.  
  55. LABEL NoPWSendLogin
  56.    MSG 1004
  57.    XMIT csn
  58.    GOTO CISConnect
  59.  
  60. LABEL SendPassword
  61.    XMIT csnet
  62.    GOTO CISConnect
  63.  
  64. LABEL CISConnect
  65.    MSG 1005
  66.    WAIT 120 FOR
  67.       {
  68.       "Connected"       : GOTO SuccessfulConnection
  69.       "Open"            : GOTO SuccessfulConnection
  70.       "Unavailable"     : FAILURE 1112
  71.       "Connect Failed"  : FAILURE 1112
  72.       "Not Available"   : FAILURE 1112
  73.       "Unreachable"     : FAILURE 1112
  74.       "No Connection"   : FAILURE 1112
  75.       "Bad Password"    : FAILURE 1122
  76.       "Login Invalid"   : FAILURE 1123
  77.       "NO CARRIER"      : FAILURE 1107
  78.       }
  79.    FAILURE 1124
  80.  
  81. LABEL SuccessfulConnection
  82.    PICTURE 7
  83.    MSG 1006
  84.    SUCCESS
  85.