C FID.F - FOR ADDING SEQUENTIAL FID INSTEAD OF AERODATA FID
      CHARACTER*24 FIRST
      CHARACTER*166 LAST
      INTEGER*4 FID
      FID=0
      OPEN(UNIT=3,FILE='elliott.dat',READONLY)
      OPEN(UNIT=4,FILE='elliott.int')
   10 READ(3,100,END=20) FIRST,LAST
  100 FORMAT(A24,8X,A166)
      IF (LAST(22:22) .EQ. '0') GOTO 10
C SKIP DATA NOTUSED AT ENDS OF LINES
      FID=FID+1
      WRITE(4,200) FIRST,FID,LAST
  200 FORMAT(A24,I8,A166)
      GOTO 10
C
C
   20 CONTINUE
      CLOSE(UNIT=4,STATUS='KEEP')
      END