INTEGER*4 TSKR50,CPU,ELAPSE,KNL,IDLE,TIME,TIMEOL
	INTEGER*2 TYPE,DBQIO,MTQIO,OTQIO,IB(16),YR,MTH,DAY,HR,MIN,SEC,TKS
	BYTE TSKASC(6),UIC(2),NAME(80)
	EQUIVALENCE (IB(1),TYPE),(IB(4),UIC(1)),(IB(5),TSKR50)
	EQUIVALENCE (IB(7),CPU),(IB(9),ELAPSE),(IB(11),DBQIO)
	EQUIVALENCE (IB(12),LPQIO),(IB(13),MTQIO),(IB(14),OTQIO)
	EQUIVALENCE (IB(2),YR),(IB(3),MTH),(IB(4),DAY),(IB(5),HR)
	EQUIVALENCE (IB(6),MIN),(IB(7),SEC),(IB(8),TKS),(IB(10),KNL)
	EQUIVALENCE (IB(12),IDLE)
	DATA TIMEOL/-99999/
	WRITE (5,9040)
	READ (5,9050) NAME
9040	FORMAT (1X,'NAME ?')
9050	FORMAT (80A1)
	CALL TRIM (NAME)
	OPEN (UNIT=1,NAME=NAME,TYPE='OLD',READONLY,
	1 FORM='UNFORMATTED',ACCESS='DIRECT',RECORDSIZE=8,
	2 CARRIAGECONTROL='NONE',SHARED)
	IR=0
10	IR=IR+1
	READ (1'IR,END=1000,ERR=1000) IB
	IF (TYPE.EQ.0) GO TO 1000
	IF (TYPE .GT. 16) GOTO 17
	TIME=HR
	TIME=TIME*3600+MIN*60+SEC
	IF (TIME-TIMEOL.LT.2) GO TO 1000
	TIMEOL=TIME
	FKNL=KNL/60.
	FIDLE=IDLE/60.
	WRITE(6,15)MTH,DAY,YR,HR,MIN,SEC,FKNL,FIDLE
15	FORMAT (1X,I2,'/',I2,'/',I2,2X,I2,':',I2,':'I2,2X,'KERNAL=',F8.2,
	1 '  IDLE=',F8.2)
	GOTO 10
17	CALL R50ASC(6,TSKR50,TSKASC)
	FCPU=CPU/60.
	FELAPS=ELAPSE/60.
	WRITE (6,20)UIC(2),UIC(1),TSKASC,FCPU,FELAPS,DBQIO,LPQIO,
     *	MTQIO,OTQIO
20	FORMAT (1X,O3,',',O3,1X,6A1,2(2X,F8.2,' SEC'),
     *	I8,' DB QIOS',I8,' LP QIOS',I8,' MT QIOS',I8,' OTHER QIOS')
	GOTO 10
1000	CLOSE (UNIT=1)
	STOP
	END