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-18385 
C 
C     RELOCATABLE PART NUMBER : 92067-16361 
C 
C     PROGRAMER(S)   : J.M.N. 
C 
C 
C 
C     FUNCTION ACNFG FETCHS NEXT WORD 
C     OF CONFIGURATION TABLE
C 
      FUNCTION ACNFG(IERR,IDX)  ,92067-16361 REV.1940 790309  
      COMMON /ACOM1/NDCB(272),NBUF(256) 
      COMMON /ACOM6 /LOC(6),IRN 
      IREC=MBYTE(IDX) 
      IF(IREC.EQ.IR.AND.IDX.NE.0) GO TO 100 
      IR=IREC 
      CALL READF(NDCB,IERR,NBUF,256,LEN,LOC(2)+IR*2)
  100 IX=LBYTE(IDX)+1 
      IDX=IDX+1 
      ACNFG=NBUF(IX)
      RETURN
      END 
                  