home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / EASys!_update_481_to_482 / ShutDown / Apps / FinalWriter.rexx < prev    next >
OS/2 REXX Batch file  |  2000-08-01  |  306b  |  19 lines
  1. /* Quit App */
  2.  
  3. DO i=1 to 10
  4.   Port = 'FINALW.'i
  5.   IF SHOW('P', Port) THEN
  6.     DO
  7.       ADDRESS COMMAND 'EASys!_bin:screentofront >NIL:' '"Final 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.