      PROGRAM MAKIND
**Program to create unformatted index file from INVENTORY-FILE

      INTEGER ITEMNO

      OPEN(UNIT=9, FILE='FIL12-4A.DAT', STATUS='OLD')
      OPEN(UNIT=10, FILE='FIL12-4B.DAT',FORM='UNFORMATTED', STATUS='NEW')
10    READ  (9, '(I4)', END = 99) ITEMNO
      WRITE (UNIT=10) ITEMNO
      GO TO 10
99    END

