SUBROUTINE HTITL(IHIS)
C
C	WRITE THE LIST OF HISTOGRAMS ON THE PLOT SCOPE
C
	COMMON /SCRAT/IA(24),IB(40)
	CALL	HSTAT(0,IXN,IYN,IHMAX)
	IHMX	= IHMAX
	IYP	= 650
	IHMIN	= IAND("177700,IHIS)
	IF(IHIS .LE. 0) IHMIN	= -IHIS*64
	IF(IHMIN .GT. IHMAX) IHMIN	= 0
	IHMAX	= IHMAX - IHMIN
	IF(IHMAX .GT. 64) IHMAX	= 64
	IF(IHMAX .LE. 0) RETURN
	IHX	= (IHMAX+3)/4
	IF(IHX .LE. 0) IHX	= 1
	DO 100 I	= 1,IHX			!DO IHX ROWS
	DO 10 J	= 1,24
10	IA(J)	= '_'				!FILL IN WITH DASHES
	MAX	= 1
	DO 90 J	= 0,3				!BY 4 COLUMNS
	IH	= I + IHX*J + IHMIN
	IF(IH .GT. IHMX) GO TO 91		! No more labels this line
	MAX	= 18 * J + 15
	CALL HSTAT(IH,IX,IY,IZ,IZ,IZ,IZ)	!FIND OUT IF IT EXISTS
	IF(IX .NE. 0)CALL GTITL(IH,IA(6*J+2),5)	!GET REAL TITLE IF IT EXISTS
90	IA(6*J+1)	= IH
91	ENCODE(72,1000,IB) IA			!SET UP FOR OUTPUT
	CALL CHAR(28,IYP,IB,MAX)		!AND TITLE
	IYP	= IYP - 28
100	CONTINUE
1000	FORMAT( 4(I4,1X,5A2,3X) )
	END