home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / pcjr / comm / FIDOTERM.LZH / F3.SCR < prev    next >
Text File  |  1988-01-29  |  531b  |  31 lines

  1.     message "Disconnecting ..."
  2. ;
  3. ;Disconnect a Hayes type modem; the first one 
  4. ;uses DTR, which my modem is set up to use. If
  5. ;yours is not, delete the next 2 lines.
  6. ;
  7.     dtr
  8.     jmp done
  9. ;
  10. ;If you delete the two lines above, the following
  11. ;routine uses +++ and ATH0 to disconnect.
  12. ;
  13.     delay 1000
  14.     copy "+++"
  15.     trap timeout
  16.     &t= 5
  17. :discon
  18.     sample
  19.     if "NO" done
  20.     if "OK" ath
  21.     jmp discon
  22. :timeout
  23.     message "Modem is asleep!"
  24.     return 0
  25. :ath
  26.     output "ATH0\r"
  27.     match "OK\r"
  28. :done
  29.     message "Disconnected"
  30.     return 1
  31.