home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 146 / dpcs0400.iso / Internet / CS2000.exe / %MAINDIR% / csl / sprint.csl < prev    next >
Encoding:
Text File  |  1999-09-30  |  3.1 KB  |  116 lines
  1. #
  2. #  SPRINT.CSL: SprintNet Script
  3. # 
  4.  
  5. TITLE       "SprintNet"
  6. HARDWARE    MODEM
  7.  
  8. GOSUB mdmgen.csl:Connect
  9.  
  10. LABEL BannerScreen
  11.    SET {SprintTries} 1
  12.    GOTO SprintSyncLoop
  13.  
  14. LABEL SprintSyncLoop
  15.    XMIT "@D"         # Transmit SYNC command.
  16.    MSG 8453
  17.    WAIT 20 FOR
  18.       {
  19.       "TERMINAL="    : GOTO SprintNetLogin
  20.       "TERMINAL ="   : GOTO SprintNetLogin
  21.       "\13\10@"      : GOTO SprintTalkToNetwork
  22.       "\13\10 ?"     : FAILURE 8470
  23.       "LOCAL"        : FAILURE 8470
  24.       "ANSNet"       : FAILURE 8478
  25.       "UU.Net"       : FAILURE 8478
  26.       "Saturn.BBN"   : FAILURE 8478
  27.       "Sprint-ip"    : FAILURE 8478
  28.       "NO CARRIER"   : FAILURE 8473
  29.       }
  30.    INCREMENT {SprintTries}
  31.    IF {SprintTries} LE 3
  32.       GOTO SprintSyncLoop
  33.    FAILURE 8470
  34.  
  35. # This label is called as a hotwire from AolNet.
  36. LABEL SprintOnlyBannerScreen
  37.    XMIT "@D"         # Transmit SYNC command.
  38.    MSG 8453
  39.    WAIT 20 FOR
  40.       {
  41.       "TERMINAL="    : GOTO SprintNetLogin
  42.       "TERMINAL ="   : GOTO SprintNetLogin
  43.       "\13\10@"      : GOTO SprintTalkToNetwork
  44.       "\13\10 ?"     : FAILURE 8470
  45.       "LOCAL"        : FAILURE 8470
  46.       "NO CARRIER"   : FAILURE 8473
  47.       }
  48.    FAILURE 8471
  49.  
  50. LABEL SprintNetLogin
  51.    XMIT "D1"
  52.    MSG 8454
  53.    WAIT 40 FOR 
  54.       {
  55.       "\13\10@"      : GOTO SprintTalkToNetwork
  56.       "@"            : GOTO SprintTalkToNetwork
  57.       "(AAA,LLL)="   : GOTO SprintNetLogin
  58.       "(AAA,LLL) ="  : GOTO SprintNetLogin
  59.       "="            : GOTO SprintNetLogin
  60.       "\13\10 ?"     : FAILURE 8470
  61.       "NO CARRIER"   : FAILURE 8473
  62.       }
  63.    FAILURE 8471
  64.  
  65. LABEL SprintTalkToNetwork 
  66.    WAIT 2
  67.    SET {HiLo} 1
  68.    XMIT "par? 11"
  69.    WAIT 20 FOR
  70.    {
  71.    "11:2"       :   SET {HiLo} 0   # 300
  72.    "11:3"       :   SET {HiLo} 0   # 1200
  73.    "11:12"      :   SET {HiLo} 1   # 2400
  74.    "11:13"      :   SET {HiLo} 1   # 4800 
  75.    "11:14"      :   SET {HiLo} 1   # 9600
  76.    "11:15"      :   SET {HiLo} 1   # 19200
  77.    "11:16"      :   SET {HiLo} 1   # 48000
  78.    "11:17"      :   SET {HiLo} 1   # 56000
  79.    "NO CARRIER" :   FAILURE 8473
  80.    }
  81.  
  82.    WAIT 2
  83.    MSG 8455
  84.    EXTERN TLN {HiLo}
  85.    WAIT 200 FOR
  86.    {
  87.       "Connected"       : GOTO SuccessfulConnection
  88.       "Open"            : GOTO SuccessfulConnection
  89.       "Unavailable"     : FAILURE 8474
  90.       "Connect Failed"  : FAILURE 8474
  91.       "Not Available"   : FAILURE 8474
  92.       "Unreachable"     : FAILURE 8474
  93.       "No Connection"   : FAILURE 8474
  94.       "\13\10 ?"        : FAILURE 8474
  95.       "NOT RE"          : FAILURE 8474
  96.       "AVAIL"           : FAILURE 8474
  97.       "REJECT"          : FAILURE 8474
  98.       "LOCAL"           : FAILURE 8474
  99.       "ERROR"           : FAILURE 8474
  100.       "NOT PERMIT"      : FAILURE 8474
  101.       "CONGEST"         : FAILURE 8474
  102.       "NOT OPERATING"   : FAILURE 8474
  103.       "BUSY"            : FAILURE 8474
  104.       "DISCONNECT"      : FAILURE 8474
  105.       "Bad Password"    : FAILURE 8483
  106.       "Login Invalid"   : FAILURE 8484
  107.       "NO CARRIER"      : FAILURE 8473
  108.    }
  109.    FAILURE 8485
  110.  
  111. LABEL SuccessfulConnection
  112.    PICTURE 7
  113.    MSG 8459
  114.    SUCCESS
  115.  
  116.