home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / comm / dilscrpt.sit / DialScript_1.5_SIT / DialScript / Examples / AttackDial.ds next >
Encoding:
Text File  |  1991-04-27  |  457 b   |  20 lines  |  [TEXT/dIsR]
  1. script AttackDial  -- Dial Hayes until connect
  2.  
  3.    state Dial
  4.       send "\r"; send "AT\r";
  5.       wait "OK";                -- This is bad.  Should have timeout.
  6.       send "ATDT3456789\r";
  7.       select
  8.          "CONNECT" : next GotIt;
  9.          "BUSY"         : next Dial;
  10.          "NO CARRIER"   : next Dial;
  11.          timeout 22     : display "Dial timeout!"; next Dial;
  12.       end; 
  13.    end; -- Dial
  14.  
  15.    state GotIt
  16.       display "connected";
  17.    end;
  18.  
  19. end;
  20.