home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR10 / GT1800_3.ZIP / GT1800_1.LZH / DIAL.SCR < prev    next >
Text File  |  1990-03-16  |  394b  |  21 lines
  1. writeln "Attempting to dial '" %name "' !!!"
  2. dialer
  3. case %FAIL
  4.     TRUE
  5.         goto BUSY
  6. esac
  7. writeln "Success!"
  8. twait 1000
  9. ;                    The 'set' command quits the script
  10. set online true
  11. :BUSY
  12. case %BUSY
  13.    TRUE
  14.        writeln "The line is busy..."
  15.        twait 1000
  16.        set online false
  17. esac
  18. writeln "Failed to make connection..."
  19. twait 1000
  20. set online false
  21.