home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / useful / comm / tcp / amitcp-demo / bin / stopnet < prev    next >
Encoding:
AmigaDOS Script File  |  1994-05-27  |  230 b   |  15 lines
  1. .KEY FLUSH/S
  2. .BRA {
  3. .KET }
  4.  
  5. ; $Id: stopnet,v 3.1 1994/05/27 07:08:39 jraja Exp $
  6.  
  7. rx "address AMITCP; KILL" ; Send "KILL" to AmiTCP
  8.  
  9. If {FLUSH}
  10.     Wait 2 secs
  11.     If `rx "Say Show(ports, AMITCP)"` EQ 0
  12.         Avail >NIL: FLUSH
  13.     EndIf
  14. EndIf
  15.