PROGRAM EXTSTR
       IMPLICIT REAL*4 (A-I,K-V), INTEGER*4 (J)
C
       WRITE(*,501)
 501   FORMAT(1X,'ENTER STRATA LOWER BOUND')
       READ(*,500) LFAMT
       WRITE(*,502)
 502   FORMAT(1X,'ENTER STRATA UPPER BOUND')
       READ(*,500) UFAMT
 500   FORMAT(F4.2)
       OPEN(UNIT=1,FILE="extrc86.dat")
       OPEN(UNIT=2,FILE="ex86110.dat")
       JC=0
       DO 10 JN=1,6253
       READ(1,400) YEAR,IDENT,FAMTC,TENUR,C1,C2,C12,C3,C4,
     + C34,C5,C6,C7,C8,C78,C5678,Y,P1,P2,P12,P3,P4,P34,P5,P6,P7,
     + P8,P78,P5678
 400   FORMAT(F4.0,F7.0,F4.2,F3.0,25G15.7)
       IF (FAMTC.LT.LFAMT) GO TO 10
       IF (FAMTC.GE.UFAMT) GO TO 10
  2    CONTINUE
       WRITE(2,401) YEAR,IDENT,FAMTC,TENUR,C12,C34,C5,C6,C78,Y,
     + P12,P34,P5,P6,P78
 401   FORMAT(F4.0,1X,F7.0,1X,F4.2,1X,F3.0,1X,11G15.7)
       JC=JC+1
  10   CONTINUE
   1   CONTINUE
       WRITE(*,503) JC
  503  FORMAT(I6)
       CLOSE(1)
       CLOSE(2)
       STOP
       END