LOGICAL*1 NAM(80)
	INTEGER*2 IBUF2(16),MMDD,HHMM,SSTT,FLAG
	INTEGER*4 IBUF4(8),KTICKS,ITICKS,ETICKS,LOSTRQ
	REAL*8    RBUF8(4)
C
	EQUIVALENCE (IBUF2,IBUF4,RBUF8,MMDD), (IBUF2(2),HHMM),
     *		(IBUF2(3),SSTT), (IBUF2(4),FLAG),
     *		(IBUF4(3),KTICKS),(IBUF4(4),ITICKS),
     *		(IBUF4(5),ETICKS),(IBUF4(6),LOSTRQ)
C
	IBUF4(7)=0
	IBUF4(8)=0
9000	FORMAT (' INPUT FILENAME ?')
9010	FORMAT (80A1)
9020	FORMAT (1X,4I6,3I10,I5)
9030	FORMAT (' OUTPUT FILENAME ?')
C
	WRITE (5,9000)
	READ (5,9010) NAM
	CALL TRIM (NAM)
	CALL ASSIGN (2,NAM)
C
	WRITE (5,9030)
	READ (5,9010) NAM
	CALL TRIM (NAM)
	CALL ASSIGN (3,NAM)
C
	NEW=1
1000	READ (2,9020,END=5000) MMDD,HHMM,SSTT,FLAG,KTICKS,
     *				ITICKS,ETICKS,LOSTRQ
	WRITE (3) RBUF8
	IF (NEW.EQ.0) GO TO 1000
	NEW=0
	WRITE (5,9020) MMDD,HHMM,SSTT,FLAG,KTICKS
	GO TO 1000
C
5000	STOP
	END