home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / EASys!_update_481_to_482 / ShutDown / Apps / GoldED.rexx < prev    next >
OS/2 REXX Batch file  |  2000-08-01  |  250b  |  19 lines
  1. /* Quit App */
  2.  
  3. DO i=1 to 10
  4.   Port='GOLDED.'i
  5.   IF SHOW('P',Port) THEN
  6.   DO
  7.       ADDRESS VALUE Port
  8.       "SCREEN FRONT"
  9.       "QUIT UNLOAD"
  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.