PROGRAM CNVTST
C
	INTEGER IN(3),OUT(5)
C
5	WRITE(5,10)
10	FORMAT(/'$ENTER WORD1,WORD2,WORD3 [OCTAL]: ')
	READ(5,20,END=1000) IN
20	FORMAT(3O8)
	CALL CNVTIM(IN,OUT)
	WRITE(5,30) OUT
30	FORMAT(' MSEC: ',I5,'  SEC: ',I5,'  MIN: ',I5,'  HOUR: ',I5,
	1'  DAY/ID: ',I5)
	GO TO 5
1000	CALL EXIT
	END