EXTERNALROUTINE CFACS(STRING (255)S) EXTERNALINTEGERFNSPEC DCONNECT(STRING (6)U, STRING (11)F, C INTEGER FSYS, MODE, APF, INTEGERNAME SEG, GAP) INTEGER J, SEG, GAP, A INTEGERARRAYNAME F INTEGERARRAYFORMAT FF(0:1016) CONSTINTEGER TOPJ = 95 SEG = 0 GAP = 0 J = DCONNECT("VOLUMS", "FCOUNT", -1, 11, 0, SEG, GAP) IF J = 0 OR J = 34 START A = SEG << 18 + 32 F == ARRAY(A, FF) CYCLE J = 1, 1, TOPJ F(J) = 0 REPEAT FINISH WRITE(J, 1) NEWLINE END ENDOFFILE