home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD5.iso / workbench / libs / rexmooslib.lha / MOOS / ARexx / dos / Protect < prev    next >
Encoding:
Text File  |  1997-01-20  |  234 b   |  17 lines
  1. /*
  2.  * 'dos/Protect'()
  3.  *
  4.  * $(C): (1997, Rocco Coluccelli, Bologna)
  5.  * $VER: dos/Protect 1.00 (19.Jan.1997)
  6.  */
  7.  
  8. SIGNAL ON error
  9. CALL CLOSE(STDOUT)
  10.  
  11. ADDRESS COMMAND 'Protect "'ARG(1)'" "'ARG(2)'" QUIET' ARG(3)
  12. EXIT 1
  13.  
  14.  
  15. error:
  16.     EXIT 0
  17.