home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2003 September / INTERNET107.ISO / pc / aol8 / comp01.000 / %MAINDIR% / csl / global.csl < prev    next >
Encoding:
Text File  |  2003-05-19  |  3.5 KB  |  115 lines
  1. #
  2. #  GLOBAL.CSL: GLOBALNET Connection Script
  3. # 
  4.  
  5. TITLE       "AOLGLOBALnet"
  6. HARDWARE    MODEM
  7.  
  8. GOSUB mdmgen.csl:Connect
  9.  
  10. LABEL BannerScreen     
  11.   WAIT 5               #        { Wait for PAD to detect error correction }
  12.   #  ChrDelay 20       #        { Set the Character Delay }
  13.   SET {GlobalTries} 1
  14.   GOTO GlobalRequestAttn
  15.  
  16. LABEL GlobalRequestAttn
  17.   MSG 8453
  18.   #  ChrDelay 2
  19.   XMIT "..."        # { Send out SYNC }               
  20.   WAIT 25 FOR
  21.     {
  22.     "SITA NETWORK"  : GOTO GlobalSetupEnvironment
  23.     "ANSNET"        : FAILURE 8478
  24.     "SATURN.BBN"    : FAILURE 8478
  25.     "SPRINT-IP"     : FAILURE 8478
  26.     "TERMINAL="     : FAILURE 8477
  27.     "TERMINAL ="    : FAILURE 8477
  28.     "\13\10@"       : FAILURE 8477
  29.     "\13\10 ?"      : FAILURE 8470
  30.     "LOCAL"         : FAILURE 8470
  31.     "ERROR"         : FAILURE 8470
  32.     "NO CARRIER"    : FAILURE 8476
  33.     }
  34.   INCREMENT {GlobalTries} 
  35.   IF {GlobalTries} LE 3
  36.     GOTO GlobalRequestAttn
  37.   FAILURE 8476
  38.  
  39. LABEL GlobalSetupEnvironment
  40.   MSG 8454
  41.   #    { Setup the local X.3 Environment }
  42.   XMIT "SET 1:0,2:0,21:0"
  43.   WAIT 1   # note: CCL had a wait of 1.2 seconds.
  44.   SET {GlobalTries} 1
  45.   GOTO GlobalTalkToNetwork
  46.  
  47. LABEL GlobalTalkToNetwork
  48.   # ChrDelay 2 
  49.   WAIT 1
  50.   XMIT "NUI 22500001"
  51.   WAIT 10 FOR
  52.     {
  53.     "XXXXXX"        : GOTO GlobalReqAuth
  54.     "\13\10 ?"      : FAILURE 8470
  55.     "ERROR"         : FAILURE 8470
  56.     "NO CARRIER"    : FAILURE 8476
  57.     }
  58.   INCREMENT {GlobalTries} 
  59.   IF {GlobalTries} LE 4
  60.     GOTO GlobalTalkToNetwork
  61.   FAILURE 8476
  62.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
  63. LABEL GlobalReqAuth
  64.   MSG 8454
  65.   # ChrDelay 2     
  66.   WAIT 1
  67.   # { Check for prompt }
  68.   XMIT "OPXY9F"
  69.   WAIT 10 FOR 
  70.     {
  71.     "ACTIVE"        : GOTO GlobalConnect
  72.     "\13\10 ?"      : FAILURE 8470
  73.     "ERROR"         : FAILURE 8470
  74.     "NO CARRIER"    : FAILURE 8476
  75.     }
  76.   GOTO GlobalTalkToNetwork   # { Go back two spaces and lose a turn }
  77.  
  78. LABEL GlobalConnect
  79.   MSG 8455
  80.   # ChrDelay 2 
  81.   WAIT 1
  82.   XMIT "LINE(256)9001131,windows 0001"
  83.   WAIT 23 FOR
  84.     {
  85.     "CONNECTED"         : GOTO SuccessfulConnection
  86.     "OPEN"              : GOTO SuccessfulConnection
  87.     "NOT RE"            : FAILURE 8474
  88.     "NOT AVAIL"         : FAILURE 8474
  89.     "NO CONNECT"        : FAILURE 8474
  90.     "BAD PASSWORD"      : FAILURE 8483
  91.     "LOGIN INVALID"     : FAILURE 8484
  92.     "REJECT"            : FAILURE 8474
  93.     "LOCAL"             : FAILURE 8474
  94.     "NOT PERMIT"        : FAILURE 8474
  95.     "CONGEST"           : FAILURE 8474
  96.     "NOT OPERATING"     : FAILURE 8474
  97.     "BUSY"              : FAILURE 8474
  98.     "DISCONNECT"        : FAILURE 8474
  99.     "PROBLEM"           : FAILURE 8474
  100.     "NOT AL"            : FAILURE 8474
  101.     "NOT IN S"          : FAILURE 8474
  102.     "REMOTE DIRECTIVE"  : FAILURE 8474
  103.     "\13\10 ?"          : FAILURE 8474
  104.     "ERROR"             : FAILURE 8474
  105.     "NO CARRIER"        : FAILURE 8476
  106.     }
  107.   FAILURE 8485
  108.  
  109. LABEL SuccessfulConnection
  110.    PICTURE 7
  111.    MSG 8459
  112.    SUCCESS
  113.  
  114.  
  115.