SUBROUTINE REPORT (KD,MNTH,IDAY,KERN,PROG,IDOWN)
C****************************************************************
C
C	SYSTEM ACTIVITY REPORTING PROGRAM.  PRINTS A 
C	PRINTER GRAPH OF SYSTEM USAGE IN KERNAL AND 
C	PROGRAM ACTIVITIES.   TWO MODES ARE POSSIBLE...
C
C	IF KD=1	
C		DAILY SUMMARY
C
C	IF KD=2
C		MONTHLY SUMMARY
C
C****************************************************************
C
	LOGICAL*1 IDOWN(1),LINE(100)
C
	REAL KERN(1),PROG(1),MNTHS(3,12)
C
	DATA MNTHS /'  JA','NUAR','Y   ','  FE','BRUA','RY  ',
     *		    '   M','ARCH','    ','   A','PRIL','    ',
     *		    '    ','MAY ','    ','    ','JUNE','    ',
     *		    '    ','JULY','    ','   A','UGUS','T   ',
     *		    ' SEP','TEMB','ER  ','  OC','TOBE','R   ',
     *		    '  NO','VEMB','ER  ','  DE','CEMB','ER  '  /
C
	DATA LINE / 100*' ' /
C
9000	FORMAT (1H0,//48X,'S Y S T E M    U T I L I Z A T I O N',
     *		/48X,37('*'),//)
9010	FORMAT (60X,3A4,/59X,12('*'),///)
9020	FORMAT (58X,I2,2X,3A4,/57X,16('*'),///)
9030	FORMAT (10X,I2,':',I2,2X,'*',100A1,'*')
9040	FORMAT (10X,109('*'))
C
	WRITE (6,9000)
	IF (KD.EQ.1) WRITE (6,9020) IDAY,MNTHS(1,MNTH),MNTHS(2,MNTH),
     *				    MNTHS(3,MNTH)
	IF (KD.EQ.2) WRITE (6,9010) MNTHS(1,MNTH),MNTHS(2,MNTH),
     *				    MNTHS(3,MNTH)
C
	WRITE (6,9040)
C
	N=0
	K=-1
	DO 2000 I=1,24
	K=K+1
C
	DO 1500 J=30,60,30
	N=N+1
C
	LINE(50)=1H.
	IF (IDOWN(N).GT.0) GO TO 1000
	LINE(1)=1HD
	LINE(2)=1HO
	LINE(3)=1HW
	LINE(4)=1HN
	WRITE (6,9030) K,J,LINE
	DO 500 L=1,4
500	LINE(L)=1H 
	GO TO 1500
C
1000	J1=KERN(N)*100.0+0.5
	IF (J1.LT.1) J1=1
	IF (J1.GT.100) J1=100
	J2=PROG(N)*100.0+0.5
	IF (J2.LT.1) J2=1
	IF (J2.GT.100) J2=100
	LINE(J1)=1HK
	LINE(J2)=1HP
	WRITE (6,9030) K,J,LINE
	LINE(J1)=1H 
	LINE(J2)=1H 
1500	CONTINUE
2000	CONTINUE
C
	WRITE (6,9040)
	RETURN
	END