home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / tcp / AmiTCP-demo / bin / stopnet < prev    next >
AmigaDOS Script File  |  1995-05-13  |  250b  |  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. Sys:rexxc/rx "address AMITCP; KILL" ; Send "KILL" to AmiTCP
  8.  
  9. If {FLUSH}
  10.     Wait 2 secs
  11.     If `Sys:rexxc/rx "Say Show(ports, AMITCP)"` EQ 0
  12.         Avail >NIL: FLUSH
  13.     EndIf
  14. EndIf
  15.