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