.KEY FLUSH/S
.BRA {
.KET }

; $Id: stopnet,v 3.1 1996/03/20 17:08:39 too Exp $

FailAt 21
Version bsdsocket.library >nil:
If NOT Warn 

  If Exists AmiTCP:db/User-Stopnet
    Execute AmiTCP:db/User-Stopnet
  EndIf

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

  If {FLUSH}
    Wait 3 secs
    If `rx "Say Show(ports, AMITCP)"` EQ 0
      Avail >NIL: FLUSH
    Else
      Echo Memory NOT flushed!
    EndIf
  EndIf
Else
  Echo AmiTCP/IP is not running.
EndIf
