home *** CD-ROM | disk | FTP | other *** search
/ ANews 2 / AnewsCD2.iso / Script / Autoclose.rexx < prev    next >
OS/2 REXX Batch file  |  1999-10-11  |  318b  |  22 lines
  1. /* Ferme tout si une erreur se produit */
  2.  
  3. options results
  4. address rexx
  5. do forever
  6.  call delay(200)
  7.  if ~show('p', 'ASERV') then do
  8.   if show('p', 'ANEWS') then do
  9.    address ANEWS quit
  10.   end
  11.   exit
  12.  end
  13.  if ~show('p', 'ANEWS') then do
  14.   if show('p', 'ASERV') then do
  15.    address ASERV QUIT
  16.   end
  17.   exit
  18.  end
  19. end
  20. exit
  21.  
  22.