home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 6 / 3ComUSRConnections.iso / Software / Internet / CSERV / CS2000US.EXE / %MAINDIR% / csl / global.csl < prev    next >
Encoding:
Text File  |  1999-05-26  |  3.6 KB  |  117 lines
  1. #
  2. #  GLOBAL.CSL: GLOBALNET Connection Script
  3. # 
  4. #  Copyright 1998 CompuServe Interactive Services, Inc., an America Online Company.
  5. #  All rights reserved.
  6.  
  7. TITLE       "CSGLOBALnet"
  8. HARDWARE    MODEM
  9.  
  10. GOSUB mdmgen.csl:Connect
  11.  
  12. LABEL BannerScreen     
  13.   WAIT 5               #        { Wait for PAD to detect error correction }
  14.   #  ChrDelay 20       #        { Set the Character Delay }
  15.   SET {GlobalTries} 1
  16.   GOTO GlobalRequestAttn
  17.  
  18. LABEL GlobalRequestAttn
  19.   MSG 1003
  20.   #  ChrDelay 2
  21.   XMIT "..."        # { Send out SYNC }               
  22.   WAIT 25 FOR
  23.     {
  24.     "SITA NETWORK"  : GOTO GlobalSetupEnvironment
  25.     "ANSNET"        : FAILURE 1116
  26.     "SATURN.BBN"    : FAILURE 1116
  27.     "SPRINT-IP"     : FAILURE 1116
  28.     "TERMINAL="     : FAILURE 1115
  29.     "TERMINAL ="    : FAILURE 1115
  30.     "\13\10@"       : FAILURE 1115
  31.     "\13\10 ?"      : FAILURE 1108
  32.     "LOCAL"         : FAILURE 1108
  33.     "ERROR"         : FAILURE 1108
  34.     "NO CARRIER"    : FAILURE 1114
  35.     }
  36.   INCREMENT {GlobalTries} 
  37.   IF {GlobalTries} LE 3
  38.     GOTO GlobalRequestAttn
  39.   FAILURE 1108
  40.  
  41. LABEL GlobalSetupEnvironment
  42.   MSG 1004
  43.   #    { Setup the local X.3 Environment }
  44.   XMIT "SET 1:0,2:0,21:0"
  45.   WAIT 1   # note: CCL had a wait of 1.2 seconds.
  46.   SET {GlobalTries} 1
  47.   GOTO GlobalTalkToNetwork
  48.  
  49. LABEL GlobalTalkToNetwork
  50.   # ChrDelay 2 
  51.   WAIT 1
  52.   XMIT "NUI 22500002"
  53.   WAIT 10 FOR
  54.     {
  55.     "XXXXXX"        : GOTO GlobalReqAuth
  56.     "\13\10 ?"      : FAILURE 1108
  57.     "ERROR"         : FAILURE 1108
  58.     "NO CARRIER"    : FAILURE 1114
  59.     }
  60.   INCREMENT {GlobalTries} 
  61.   IF {GlobalTries} LE 4
  62.     GOTO GlobalTalkToNetwork
  63.   FAILURE 1108
  64.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
  65. LABEL GlobalReqAuth
  66.   MSG 0 "Requesting network authorization ..."
  67.   # ChrDelay 2     
  68.   WAIT 1
  69.   # { Check for prompt }
  70.   XMIT "YRNS9D"
  71.   WAIT 10 FOR 
  72.     {
  73.     "ACTIVE"        : GOTO GlobalConnect
  74.     "\13\10 ?"      : FAILURE 1108
  75.     "ERROR"         : FAILURE 1108
  76.     "NO CARRIER"    : FAILURE 1114
  77.     }
  78.   GOTO GlobalTalkToNetwork   # { Go back two spaces and lose a turn }
  79.  
  80. LABEL GlobalConnect
  81.   MSG 1005
  82.   # ChrDelay 2 
  83.   WAIT 1
  84.   XMIT "9001131,windows 0001"
  85.   WAIT 23 FOR
  86.     {
  87.     "CONNECTED"         : GOTO SuccessfulConnection
  88.     "OPEN"              : GOTO SuccessfulConnection
  89.     "NOT RE"            : FAILURE 1112
  90.     "NOT AVAIL"         : FAILURE 1112
  91.     "NO CONNECT"        : FAILURE 1112
  92.     "BAD PASSWORD"      : FAILURE 1122
  93.     "LOGIN INVALID"     : FAILURE 1123
  94.     "REJECT"            : FAILURE 1112
  95.     "LOCAL"             : FAILURE 1112
  96.     "NOT PERMIT"        : FAILURE 1112
  97.     "CONGEST"           : FAILURE 1112
  98.     "NOT OPERATING"     : FAILURE 1112
  99.     "BUSY"              : FAILURE 1112
  100.     "DISCONNECT"        : FAILURE 1112
  101.     "PROBLEM"           : FAILURE 1112
  102.     "NOT AL"            : FAILURE 1112
  103.     "NOT IN S"          : FAILURE 1112
  104.     "REMOTE DIRECTIVE"  : FAILURE 1112
  105.     "\13\10 ?"          : FAILURE 1112
  106.     "ERROR"             : FAILURE 1112
  107.     "NO CARRIER"        : FAILURE 1114
  108.     }
  109.   FAILURE 1124
  110.  
  111. LABEL SuccessfulConnection
  112.    PICTURE 7
  113.    MSG 1006
  114.    SUCCESS
  115.  
  116.  
  117.