PROGRAM RKTST
C
C
	LOGICAL*1 IOST(4)
	INTEGER IAR(3),IPARM(6),IOUT(5)
C
C
	CALL ASSIGN(3,'RK:')
	CALL GETADR(IPARM(1),IAR(1))
	IPARM(2)=6
5	WRITE(5,10)
10	FORMAT(/'$ENTER FUNCTION CODE IN OCTAL [1000=IO.RLB]: ')
	READ(5,20,END=1000) IFUN
20	FORMAT(O8)
	IAR(1)=0
	IAR(2)=0
	IAR(3)=0
	CALL WTQIO(IFUN,3,1,,IOST,IPARM,IDS)
	CALL CNVTIM(IAR,IOUT)
	WRITE(5,30) IDS,IOST,IAR
30	FORMAT(/' IDS: ',O6,'  IOST: ',4O4,'  ARRAY: ',3O8)
	WRITE(5,40) IOUT
40	FORMAT(' MSEC: ',I5,'  SEC: ',I5,'  MIN: ',I5,'  HOUR: ',I5,
	1'  DAY/ID: ',I5)
	GO TO 5
1000	CALL EXIT
	END