	PROGRAM FIXLIST
C
	CHARACTER*128 JUNK
C
	OPEN(UNIT=66,NAME='FFTMNB.LIS',STATUS='OLD')
	OPEN(UNIT=67,NAME='FFTMNB.FOR',STATUS='NEW')
C 1001	FORMAT(128A1)
 1001	FORMAT(A)
  100	READ(66,1001,END=200) JUNK
	WRITE(67,1001) JUNK(8:87)
	TYPE 1001, JUNK(8:87)
	GO TO 100
 200	CONTINUE
	CLOSE(UNIT=66)
	CLOSE(UNIT=67)
	STOP
	END
	
