home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 146 / dpcs0400.iso / Internet / CS2000.exe / %MAINDIR% / csl / mdmgen.csl < prev    next >
Encoding:
Text File  |  1999-09-30  |  1.1 KB  |  55 lines
  1. #
  2. #  MDMGEN.CSL: Generic Modem Script
  3. # 
  4.  
  5. TITLE    "Generic Modem Script"
  6.  
  7.  
  8. LABEL Connect
  9.    PICTURE 0
  10.    MSG 8450
  11.    GOSUB ModemSetup
  12.    PICTURE 4
  13.    GOSUB ModemDial
  14.    GOTO ConnectWait
  15. RETURN
  16.  
  17. LABEL ModemSetup
  18.    EXTERN SETUP
  19.    WAIT 5 FOR
  20.       {
  21.       "OK"    : MSG 8451 ; RETURN
  22.       "ERROR" : MSG 8461 ; FAILURE 8461
  23.       }
  24.    EXTERN BOUNCE_PORT 500
  25.    EXTERN SETUP
  26.    WAIT 4 FOR
  27.       {
  28.       "OK"    : MSG 8451 ; RETURN
  29.       "ERROR" : MSG 8461 ; FAILURE 8461
  30.       }
  31.    FAILURE 8462
  32.  
  33. LABEL ModemDial
  34.    MSG 8452
  35.    EXTERN DIAL
  36. RETURN
  37.  
  38. LABEL ConnectWait
  39.    WAIT 60 FOR
  40.       {
  41.       "CONNECT" : EXTERN CONNECTED ; PICTURE 6 ; GOTO PARENT:BannerScreen
  42.       "CARRIER" : EXTERN CARRIER   ; PICTURE 6 ; GOTO PARENT:BannerScreen
  43.  
  44.       # Failure responses
  45.       "NO CARRIER"   : FAILURE 8463
  46.       "NO DIAL TONE" : FAILURE 8464 
  47.       "NO DIALTONE"  : FAILURE 8464
  48.       "NO ANSWER"    : FAILURE 8465 
  49.       "VOICE"        : FAILURE 8466 
  50.       "BUSY"         : FAILURE 8467 
  51.       "ERROR"        : FAILURE 8468
  52.       }
  53.    FAILURE 8482
  54. RETURN   
  55.