home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / EASys!_update_481_to_482 / ShutDown / Apps / CED.rexx < prev    next >
OS/2 REXX Batch file  |  2000-08-01  |  210b  |  17 lines
  1. /* Quit App */
  2.  
  3. Port = 'rexx_ced'
  4. IF SHOW('P', Port) THEN
  5. DO
  6.     ADDRESS VALUE Port
  7.     cedtofront
  8.     "QUIT & DIE"
  9.  
  10.     DO FOREVER
  11.      CALL DELAY(200)
  12.      IF ~SHOW('P', Port) THEN EXIT 0
  13.     END
  14. END
  15. EXIT 0
  16.  
  17.