home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 6 / 3ComUSRConnections.iso / Software / Internet / CSERV / CS2000US.EXE / %MAINDIR% / csl / mdmgen.csl < prev    next >
Encoding:
Text File  |  1999-05-26  |  1.0 KB  |  51 lines
  1. #
  2. #  MDMGEN.CSL: Generic Modem Script
  3. # 
  4. #  Copyright 1998 CompuServe Interactive Services, Inc., an America Online Company.
  5. #  All rights reserved.
  6.  
  7. TITLE    "Generic Modem Script"
  8.  
  9.  
  10. LABEL Connect
  11.    PICTURE 0
  12.    GOSUB ModemSetup
  13.    PICTURE 4
  14.    GOSUB ModemDial
  15.    GOTO ConnectWait
  16. RETURN
  17.  
  18. LABEL ModemSetup
  19.    MSG 1000 
  20.    EXTERN SETUP
  21.    WAIT 8 FOR
  22.       {
  23.       "OK"    : MSG 1001 ; RETURN
  24.       "ERROR" : MSG 1099 ; FAILURE 1099
  25.       }
  26.    FAILURE 1100
  27. RETURN
  28.  
  29. LABEL ModemDial
  30.    MSG 1002
  31.    EXTERN DIAL
  32. RETURN
  33.  
  34. LABEL ConnectWait
  35.    WAIT 45 FOR
  36.       {
  37.       "CONNECT" : EXTERN CONNECTED ; PICTURE 6 ; GOTO PARENT:BannerScreen
  38.       "CARRIER" : EXTERN CARRIER   ; PICTURE 6 ; GOTO PARENT:BannerScreen
  39.  
  40.       # Failure responses
  41.       "NO CARRIER"   : FAILURE 1101
  42.       "NO DIAL TONE" : FAILURE 1102 
  43.       "NO DIALTONE"  : FAILURE 1102
  44.       "NO ANSWER"    : FAILURE 1103 
  45.       "VOICE"        : FAILURE 1104 
  46.       "BUSY"         : FAILURE 1105 
  47.       "ERROR"        : FAILURE 1106
  48.       }
  49.    FAILURE 1120
  50. RETURN   
  51.