home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / NETMAIL / FT4A_IBM.ZIP / F3.SCR < prev    next >
Encoding:
Text File  |  1988-01-29  |  531 b   |  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.