home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / EASys!_update_481_to_482 / ShutDown / Apps / AmigaWriter.rexx < prev    next >
OS/2 REXX Batch file  |  2000-08-01  |  322b  |  19 lines
  1. /* Quit App */
  2.  
  3. DO i=1 to 10
  4.   Port='AMIGAWRITER.'i
  5.   IF SHOW('P',Port) THEN
  6.     DO
  7.         ADDRESS COMMAND 'EASys!_bin:screentofront >NIL:' '"Amiga Writer"' '10'
  8.         ADDRESS VALUE Port
  9.         "QUIT"
  10.  
  11.         DO FOREVER
  12.          CALL DELAY(200)
  13.          IF ~SHOW('P',Port) THEN EXIT 0
  14.         END
  15.     END
  16. END
  17. EXIT 0
  18.  
  19.