INTEGER*4 TSKR50,CPU,ELAPSE,KNL,IDLE,S1,S2,S3,S4,S5,S6
	INTEGER*2 TYPE,DBQIO,MTQIO,OTQIO,IB(16),YR,MTH,DAY,HR,MIN,SEC,TKS
	BYTE TSKASC(6),UIC(2)
	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/
	DATA S1,S2,S3,S4,S5,S6/6*0/
	OPEN (UNIT=1,NAME='[1,6]ACCLOG.SYS',TYPE='OLD',READONLY,
	1 FORM='UNFORMATTED',ACCESS='DIRECT',RECORDSIZE=8,
	2 CARRIAGECONTROL='NONE',SHARED)
	IR=0
	N=1
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
	FKNL=KNL/60.
	FIDLE=IDLE/60.
	WRITE (6,15)MTH,DAY,YR,HR,MIN,SEC,FKNL,FIDLE
	WRITE (6,9988) S1,S2,S3,S4
9988	FORMAT (1X,6I15)
	S1=0
	S2=0
	S3=0
	S4=0
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.
	IF (TSKASC(1).EQ.1HS.AND.TSKASC(2).EQ.1HH) GO TO 18
	S1=S1+CPU
	S2=S2+ELAPSE
	IF (N.EQ.1) GO TO 10
18	S3=S3+CPU
	S4=S4+ELAPSE
	IF (N.EQ.1) GO TO 10
	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