*DECK PUTTIME 
PROC PUTTIME(TIMES);
BEGIN 
*CALL ASSEMOP 
ARRAY TIMES (1);
ITEM TIME;
 CONTROL IFEQ CB5$TIMR,"NO";
 $BEGIN 
 CONTROL FI;
XREF BEGIN PROC CBLIST; 
           FUNC DEC C(10);
    END 
ITEM I,J,K,L; 
ITEM CHARTIME C(10);
ITEM PRLINE C(80) = 
" REALTIME =            MILLISEC.   CPTIME =            MILLISEC."; 
J = 13; 
FOR I = 0 STEP 1 UNTIL 1 DO 
BEGIN 
CHARTIME = DEC(TIME[I]);
C<J,10> PRLINE = CHARTIME;
J = J + 32; 
END 
CBLIST(2,PRLINE,80);
 CONTROL IFEQ CB5$TIMR,"NO";
 $END 
 CONTROL FI;
END 
TERM
