     	SUBROUTINE CODTIM( TIM, RTIM )
C
C  PROGRAMMER:  R.S. ZHOU
C		ALFRED UNIVERSITY,  FEB-1987
C
C	THIS ROUTINE DECODES D-500 SYSTEM TIME
C
     	CHARACTER TIM*8, ATIM*6

     	TIM = '00:00:00'
     	ITIM = RTIM
     	ENCODE( 6, 1, ATIM ) ITIM
     	TIM(1:2) = ATIM(1:2)
     	TIM(4:5) = ATIM(3:4)
     	TIM(7:8) = ATIM(5:6)
1	FORMAT(I6)

     	RETURN
     	END
