home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Commodities / Watcher / ARexxScripts / Quit.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-09-27  |  449 b   |  26 lines
  1. /*
  2.  *
  3.  * Script name:  Quit.rexx
  4.  * Author:       Franz Hemmer
  5.  * Purpose:      Demonstrate how quit Watcher from ARexx.
  6.  * Written:      25.11.92
  7.  * Comments:     You need to have Watcher running.
  8.  *
  9.  */
  10.  
  11. Options FailAt 100
  12. Options Results
  13. address WATCHER1                /* Address Watcher's ARexx port. */
  14. lf = '0A'x
  15.  
  16. /*
  17.  * Try to read the window title bar
  18.  */
  19. Quit
  20.  
  21. IF rc > 0 THEN
  22.   SAY 'Error was 'WATCHER.LASTERROR
  23. ELSE DO
  24.   SAY 'Watcher has gone...'
  25. END
  26.