.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

; Endring for LogReader.

if exists t:amitcp_login
	echo >>AmiTCP:AmiTCP.log "AmiTCP"
	echo >>AmiTCP:AmiTCP.log $InetServer
	type >>AmiTCP:AmiTCP.log t:amitcp_login
	delete >NIL: t:amitcp_login
	echo >>AmiTCP:AmiTCP.log "Logout: `datentime`"
endif