home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 82 / af082sub.adf / FINALWRITER / FINAL.lzx / FinalWriter / FinalWrapper / FW_Macros / FW_CloseWindow.rexx next >
Encoding:
OS/2 REXX Batch file  |  1978-01-01  |  509 b   |  21 lines
  1. /* FW_CloseWindow.rexx 1.0 (04.01.95) by NDY's
  2.  
  3. Tries to force FinalWrapper to exit.
  4. If this doesn't succeed, it tries closes the window.
  5. In this case, FinalWrapper can't be started anymore before the next reset. */
  6.  
  7. port="FinalWrapperPort"
  8. IF Show("P",port) THEN
  9.   DO
  10.     ADDRESS VALUE port
  11.     Abort
  12.     Lock RESET
  13.     Die
  14.     IF RESULT~=0 & RESULT~="RESULT" | RC~=0 THEN Die 1
  15.     ADDRESS COMMAND Wait 5 SECS
  16.     IF Show("P",port) THEN ADDRESS "apig.task.1" DIE
  17.   END
  18. ELSE
  19.   ADDRESS "apig.task.1" DIE
  20. EXIT
  21.