home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 033 / atcp40de.zip / STOPNET < prev    next >
AmigaDOS Script File  |  1994-05-27  |  230b  |  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.