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