home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2003 September / INTERNET107.ISO / pc / aol8 / comp01.000 / %MAINDIR% / csl / mdmgen.csl < prev    next >
Encoding:
Text File  |  2003-05-19  |  1.8 KB  |  85 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 DIAL TONE" : GOTO NoToneRetry
  46.       "NO DIALTONE"  : GOTO NoToneRetry
  47.  
  48.       "NO CARRIER"   : FAILURE 8463
  49.       "NO ANSWER"    : FAILURE 8465 
  50.       "VOICE"        : FAILURE 8466 
  51.       "BUSY"         : FAILURE 8467 
  52.       "ERROR"        : FAILURE 8468
  53.       }
  54.    EXTERN DIALTIMEOUT
  55.    FAILURE 8482
  56. RETURN
  57.  
  58. LABEL NoToneRetry
  59.    EXTERN NOTONE
  60.    EXTERN SETUP
  61.    WAIT 5 FOR
  62.       {
  63.       "OK"      : # NoOp
  64.       "ERROR"   : # NoOp
  65.       }
  66.    EXTERN DIAL
  67.    WAIT 60 FOR
  68.       {
  69.       "CONNECT" : EXTERN CONNECTED ; PICTURE 6 ; GOTO PARENT:BannerScreen
  70.       "CARRIER" : EXTERN CARRIER   ; PICTURE 6 ; GOTO PARENT:BannerScreen
  71.  
  72.       # Failure responses
  73.       "NO DIAL TONE" : EXTERN NOTONE ; RETURN
  74.       "NO DIALTONE"  : EXTERN NOTONE ; RETURN
  75.  
  76.       "NO CARRIER"   : FAILURE 8463
  77.       "NO ANSWER"    : FAILURE 8465 
  78.       "VOICE"        : FAILURE 8466 
  79.       "BUSY"         : FAILURE 8467 
  80.       "ERROR"        : FAILURE 8468
  81.       }
  82.    EXTERN DIALTIMEOUT
  83. RETURN
  84.  
  85.