home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Holiday Catalog 1996 / EB1996Holiday.iso / a3w_data / discnnct.scr < prev    next >
Text File  |  1996-01-17  |  280b  |  13 lines
  1. #tell the modem to hang up.
  2. # try to get the OK three times.
  3. :hangup
  4. wait seconds(1);
  5. Say String(+++) CR(N);
  6. wait seconds(2);
  7. say string(ATH);
  8. wait seconds(1);
  9. GetAnswer Timeout(2);
  10. IfAnswer  is(NotEqual) to(OK) goto(hangup) MaxRepeat(2);
  11. ClosePort ;
  12. return code(0);
  13.