.KEY FLUSH/S
.BRA {
.KET }

; $Id: stopnet,v 3.1 1994/05/27 07:08:39 jraja Exp $

rx "address AMITCP; KILL" ; Send "KILL" to AmiTCP

If {FLUSH}
 Wait 2 secs
 If `rx "Say Show(ports, AMITCP)"` EQ 0
  Avail >NIL: FLUSH
 EndIf
EndIf
IPDial neosoftHangup