900	  DIM FILE.ARRAY%(30%)		! Used in file directory lookup SYS   &
					! call				      &

15900	!***************************************************************      &
	!	      FNPROT.159 - GET PROTECTION CODE OF FILE		      &
	!***************************************************************      &
	!								      &
	!	             FN.PROTECTION%(FILE.NAME$)			      &
	!								      &
	!								      &
	!								      &
        !		     V A R I A B L E S   U S E D		      &
        !								      &
        !              NAME                       DESCRIPTION		      &
        !       -----------------       -------------------------------	      &
	!	FILE.NAME$		Input file name string		      &
	!	FN.PROTECTION%		Output of function (protection code)  &
	!	FILE.ARRAY%(30%)	30 word array which will contain data &
	! 				returned from SYS call		      &
	!				*** NOTE: FILE.ARRAY%(30%) must ***   &
	! 				*** be dimensioned in the 	***   &
	! 				*** calling module		***   &
	!								      &
	!****************************************************************     &
									      &

15900	  DEF FN.PROTECTION%(FILE.NAME$)				      &
	\ CHANGE SYS(CHR$(6%)+CHR$(-10%)+FILE.NAME$) TO FILE.ARRAY%	      &
	\ FILE.ARRAY%(0%) = 30%						      &
	\ FILE.ARRAY%(1%) = 6%						      &
	\ FILE.ARRAY%(2%) = 17%						      &
	\ FILE.ARRAY%(3%), FILE.ARRAY%(4%) = 0%				      &
	\ CHANGE FILE.ARRAY% TO FILE.NAME$				      &
	\ CHANGE SYS(FILE.NAME$) TO FILE.ARRAY%				      &
	\ FN.PROTECTION% = FILE.ARRAY%(15%)				      &
	! Perform SYS call to convert file name to RAD-50 format.  Then set   &
	! up 30 byte buffer (FILE.NAME$) and perform SYS call to do	      &
	! directory lookup by filename. (See RSTS/E Programmer's Ref. Man.,   &
	! p. 7-94, 7-99.)  The protection code will be byte 15 of the string  &
	! returned.							      &

15990	  FNEND								      &

 