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