CSPYDMP.FTN
C
C	DUMP THE SPY.DAT FILE
C
C SPYRC1
C
	LOGICAL*1	SPYRC1(10)
	LOGICAL*1	DATE	(5)
	LOGICAL*1	NTASKS
	INTEGER*2	SYST	(3)
	INTEGER*2	TERMS
C
C SPYRC2
C
	LOGICAL*1	TSKBUF(96)
C
C REPORTING VARIABLES FOR SPYRC2
C
	INTEGER*2	TNAME(3)
	LOGICAL*1	GRP,USR
C
	OPEN (UNIT=1,NAME='SPY.DAT',READONLY,FORM='UNFORMATTED',
	1	CARRIAGECONTROL='NONE',TYPE='OLD')
	CALL ASSIGN (2,'LI:SPY.LST')
	NRECS=0
C
10	READ (1,END=90,ERR=80) DATE,NTASKS,SYST,TERMS
	NRECS = NRECS+1
	WRITE (2,1000) DATE(2),DATE(3),DATE(1),DATE(4),DATE(5),
	1	NTASKS,SYST,TERMS
	IF (NTASKS .EQ. 0) GOTO 10
	NBYTES = 6*NTASKS
	READ (1,ERR=81)(TSKBUF(I),I=1,NBYTES)
	J=1
	DO 100 I=1,NTASKS
	  CALL R50ASC(6,TSKBUF(J),TNAME)
	  J = J+4
	  GRP = TSKBUF(J+1)
	  USR = TSKBUF(J)
	  J = J+2
	  WRITE (2,2000) TNAME,GRP,USR
100	  CONTINUE
	GOTO 10
C
1000	FORMAT (I3,2(1H-,I2),I3,1H:,I2,I4,3I7,O7)
2000	FORMAT (4X,3A2,2H [,O3,1H,,O3,1H])
C
80	STOP 'REC1 ERROR'
81	STOP 'REC2 ERROR'
90	TYPE *,NRECS
	CALL EXIT
C
	END