FTN4,L
C 
C  ***************************************************************
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
C  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
C  ***************************************************************
C 
C     SOURCE PART NUMBER :92067-18400 
C 
C     RELOCATABLE PART NUMBER : 92067-16361 
C 
C     PROGRAMER(S)   : J.M.N. 
C 
C 
C     NAXT          GETS NEXT ACCOUNT 
C                   AND PUTS DIRECTORY IN JBUF
C 
C     CALLING SEQUENCE: 
C       CALL ACNXA(J,IREC,IDEL,KOUNT,IDIR)
C        WHERE J     IS OFFSET INTO JBUF OF DIRECTORY ENTRY 
C 
C                    J IS SET TO -1 TO START AT BEGINING
C                    OF DIRECTORY 
C 
C              IREC  IS RECORD NUMBER OF DIRECTORY ENTRY
C 
C              IDEL  IS MINUS THE NUMBER OF HOLES IN DIRECTORY
C 
C              KOUNT IS THE COUNT OF DIRECTORY ENTRIES
C 
C              IDIR  IS THE DIRECTORY ENTRY NUMBER
C 
C              IDELX IS INDEX INTO DELTA TABLE
C 
C 
      SUBROUTINE ACNXA(J,IREC,IDEL,KOUNT,IDIR,IDELX)
     1 ,92067-16361 REV.1940 781116 
      LOGICAL  ISRCH
      COMMON /ACOM1/NDCB(272),NBUF(256) 
      COMMON /ACOM2/ LRTRN,LRTR2,LGOTO,ITYPE,ITTYT,LTOSEG,NAMSG(3)
      COMMON /ACOM3/LIST(10),LDCB(144),LLIST,LLDCB(144),ITTY,ITDCB(144) 
      COMMON /ACOM4/ICMND(40) 
      COMMON /ACOM5/LOWUS,IHIGR 
      COMMON /ACOM6 /LOC(6),IRN,IPFLG 
      COMMON /ACOM7/IPBUF(11),ISTRC,JPBUF(11) 
      COMMON /ACOM8/LASTP(40),LENP
      COMMON /ACOM9/JBUF(136) 
      COMMON /ACOMA  /ISRCH,ISR1,ISR2,ISR3,ISR4 
      COMMON /ACOMB /ISTK(90),IPT 
      COMMON /ACOMC/IECHO,LULOG,ITLOG,KECHO 
      IF(J.LT.0) GO TO 60 
      KOUNT=KOUNT+1 
      IDELO=IDEL
      IF(JBUF(J).EQ.0) RETURN 
      IF(IDELX.GE.200) GO TO 10 
      IF(JBUF(J).EQ.-1) GO TO 50
C 
   10 J=J+16
      IDIR=IDIR+1 
      IF(J.LT.128) GO TO 30 
      CALL READF(NDCB,IERR,JBUF,128,LEN,IREC) 
      IREC=IREC+1 
      J=1 
C 
   30 IF(IDELX.GE.200) RETURN 
      IF(JBUF(J).EQ.-2) GO TO 40
      IF(JBUF(J).GE.0) GO TO 70 
      IDEL=IDEL-1 
      GO TO 10
C 
C     ENTRY EXTENT
C 
   40 IF(MOD(KOUNT,2).EQ.0) GO TO 70
      JBUF(J)=-1
      IDEL=IDEL+1 
      GO TO 70
   50 JBUF(J)=-2
      RETURN
C 
C     INITIALIZE J,IREC AND KOUNT 
C 
   60 KOUNT=0 
      IDIR=LOC(6)*2-1 
      J=128 
      IREC=LOC(5) 
      IDEL=0
      IDELX=-1
      GO TO 10
C 
C     IF DELTA CHANGED BUMP INDEX 
C 
   70 IF(IDEL.NE.IDELO) IDELX=IDELX+2 
      RETURN
      END 
                                                                                                