C*	QXLIT	- LIST TOTAL TIMES
C
	SUBROUTINE QXLIT
C
	INCLUDE 'QXCM.COM/NOLIST'
C
	DIMENSION TTMES(3,2), BTEMP(80)
	DATA BTEMP/80*'-'/
	DATA TTMES/'    ','    ','    ','@240','0 BA','UD  '/
	LFIRST = .TRUE.
C
	DO 100 I=1, MAXDEV
	IF (ISTAT(1,I) .EQ. 0) GO TO 100
	IF (.NOT.LFIRST) GO TO 20
C
C	FIRST HIT - PRINT THE HEADING
C
	WRITE (5, 530) BTEMP
	LFIRST = .FALSE.
 20	CONTINUE
C
C	PRINT IT
C
	J = 1
	IF (ISTAT(1,I) .EQ. 'TT') J = 2
	IPGTOT = FSTAT(3,I)
	ENCODE (80, 520, BTEMP) ISTAT(1,I), ISTAT(2,I),
	1	(TTMES(II,J),II=1,3), IPGTOT, FSTAT(4,I)
 520	FORMAT (A2,O2,' ',3A4,51X,I5,F7.1)
	CALL STBLK (BTEMP, BTEMP, 4)
	WRITE (5, 530) BTEMP
 530	FORMAT (' ',80A1)
C
 100	CONTINUE
C
	RETURN
	END
