	SUBROUTINE TASKS(OUT,TSCTB)
	IMPLICIT INTEGER (A-Z)
	DIMENSION TSCTB(#41)
	DIMENSION HIGH(3),LOW(3)
	WRITE(OUT,30)
30	FORMAT(16X,'TASK SIZE HISTOGRAM')
	DO 10 I=1,33,3
	DO 20 J = 1,3
	LOW(J)=(I-1+J-1)*1024
	HIGH(J)=(J-1+I)*1024-1
20	CONTINUE
	IF(I.EQ.31) HIGH(3) = #777777
	WRITE(OUT,40)(LOW(J),HIGH(J),TSCTB(J-1+I),J=1,3)
40	FORMAT(2X,3(O6,'-',O6,I4,3X))
10	CONTINUE
	RETURN
	END
