EXTERNALROUTINE  CHANGE(STRING (255)WHAT)
!
!
EXTERNALROUTINESPEC  GETAVFSYS(INTEGERNAME  N,INTEGERARRAYNAME  A)
RECORDFORMAT  NNF(STRING (6)NAME, BYTEINTEGER  KB, INTEGER  I)
EXTERNALINTEGERFNSPEC  GETUSNAMES2(RECORD (NNF)ARRAYNAME  NN,
      INTEGERNAME  N, INTEGER  F)
EXTERNALINTEGERFNSPEC  DSFI(STRING (6)U,INTEGER  F,T,S,A)
!
!
INTEGER  AF, FI, NSYS, F, NU, J, K
INTEGERARRAY  FSYS(0:99)
INTEGERARRAY  FLD(0:15)
RECORD (NNF)ARRAY  NN(0:340)
!
      AF = ADDR(FLD(0))
      GETAVFSYS(NSYS, FSYS)
      CYCLE  FI = 0, 1, NSYS-1
         F = FSYS(FI)
         J = GETUSNAMES2(NN, NU, F)
         PRINTSTRING("Number of users on fsys")
         WRITE(F, 2)
         PRINTSTRING(" is")
         WRITE(NU, 3)
         NEWLINE
         CYCLE  J = 0, 1, NU-1
            K = DSFI(NN(J)_NAME, F, 42, 1, AF)
         REPEAT 
      REPEAT 
END 
ENDOFFILE