PROGRAM	DAGGER
C
	INCLUDE	'DAGCOM.FTN'
C

	TYPE 100
100	FORMAT ('$INPUT FILENAME: ')
	READ (5,101) SPYFIL
101	FORMAT (24A1)
	SPYFIL(24)=0			!TO TERMINATE CHAR STRING
	OPEN (UNIT=SPYLUN,NAME=SPYFIL,TYPE='OLD',READONLY,
	1	FORM='UNFORMATTED',ACCESS='SEQUENTIAL')
	OPEN (UNIT=RPTLUN,NAME='SPY.RPT')
C
	CALL SUMMER
	CALL USRRPT
	CALL MNTH
	CALL HOUR
	CALL TSKRPT
C
	CLOSE (UNIT=RPTLUN,DISPOSE='PRINT')
	END
C
C
C
C
	FUNCTION	GTREC()
C
	INCLUDE	'DAGCOM.FTN'
C

	READ (SPYLUN,END=40) SPYRC1
	GTREC = SPYTKS
	IF (SPYTKS .LE. 0) RETURN
	NWORDS = 3*SPYTKS
	READ (SPYLUN)(SPYRC2(I),I=1,NWORDS)
	RETURN
C
40	GTREC = EOF
	END