dc. DO ACT c. Computes CPU time used, and finds active terminals. ,c. c. ..note.. Output to FOR006 .. date, time, cpu% , term_num c. ..note.. No output from 8:00 pm thru 8:00 am if no users logged in Xc. c.-end.of.info- C.  PARAMETER MXTERM = 17  REAL TBUF(3) L CHARACTER IDATE*9, ITIME*8  BYTE ITERM(MXTERM)  CHARACTER*5 TERM(MXTERM) x DATA TERM/'OPA0:','TTA0:','TTA1:','TTA2:','TTA3:','TTA4:'  1 ,'TTA5:','TTA6:','TTA7:','TTB0:' @ 2 ,'TTB1:','TTB2:','TTB3:','TTB4:','TTB5:','TTB6:','TTB7:'/ C.  NUSER=0 l DO 190 I=1,MXTERM  OPEN( UNIT=1, NAME=TERM(I), ERR=150 ) 4 CLOSE( UNIT=1 )  GOTO 190 C. ` C.TERMINAL ACTIVE C. ( 150 CONTINUE IF( I.EQ.2 ) GOTO 190 NUSER = NUSER+1 T ITERM(NUSER) = I-2 190 CONTINUE  C. OPEN( UNIT=6 1 , ACCESS='APPEND', TYPE='UNKNOWN' ) H CALL DATE( IDATE ) CALL TIME( ITIME ) C. t CALL JJTIME( TBUF ) c... CALL SYS$SETPRI( , , %VAL(1), IBASE ) < DO 210 I=1,100 000  B = -B 210 CONTINUE h CALL JJTIME( TBUF ) c... CALL SYS$SETPRI( , , %VAL(IBASE), ) 0 IPER = 100-((100*TBUF(1))/TBUF(2))  IF( IPER.LT.0 ) IPER=0 C. \ IF( NUSER.EQ. 0 ) THEN  IF( ITIME(1:2).GE.'08'.AND.ITIME(1:2).LT.'18' ) $ 1 WRITE( 6, 240 ) IDATE, ITIME, IPER 240 FORMAT( 1X, A9, ' ', A5, I4, '% ', ' . . . . .' )  ELSE P WRITE( 6, 290 ) IDATE, ITIME, IPER, (ITERM(I),I=1,NUSER)  ENDIF 290 FORMAT( 1X, A9, ' ', A5, I4, '% ',Z2, ' . . . . .' ) |C.  CLOSE( UNIT=6 ) DC. 900 CONTINUE  END