home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 310.lha / DevKit_v1.2 / Rexx / SetScriptBit.ced < prev    next >
Encoding:
Text File  |  1980-12-03  |  502 b   |  20 lines
  1. /************************************************************************
  2.  *
  3.  * SetScriptBit                        Copyright (c) 1989, Peter Cherna
  4.  *
  5.  * ARexx program for CygnusEd Professional that sets the script bit
  6.  * of the current file.
  7.  *
  8.  * Version 1.00:  April 26, 1989    Release 1.2:  August 29, 1989
  9.  *
  10.  ************************************************************************/
  11.  
  12. options results
  13.  
  14. /*    Get the full path and file name of the current file: */
  15. status 19
  16.  
  17. address command 'protect' result '+S'
  18.  
  19. exit
  20.