      INCLUDE '($ACLDEF)'
      INTEGER*4 N
      PARAMETER (N=1000)
      INTEGER*4 STAT,L,IX
      INTEGER*4 ITMLST(4),DES(2)
      BYTE BUF(N)
      CHARACTER*256 S
      INTEGER*4 SYS$CHANGE_ACL,SYS$FORMAT_ACL
      ITMLST(1)=65536*ACL$C_READACL+N
      ITMLST(2)=%LOC(BUF)
      ITMLST(3)=0
      ITMLST(4)=0
      STAT=SYS$CHANGE_ACL(,ACL$C_FILE,'Z.Z',ITMLST,,,,)
      WRITE(*,*) STAT
      IX=1
100   DES(1)=BUF(IX)
      DES(2)=%LOC(BUF(IX))
      IX=IX+DES(1)
      IF(DES(1).EQ.0) GOTO 200
      STAT=SYS$FORMAT_ACL(DES,L,S,,,,,)
      WRITE(*,*) STAT
      WRITE(*,*) S(1:L)
      GOTO 100
200   END
