home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / 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.