SUBROUTINE CITS(STR,IVAL)
	LOGICAL*1 STR(2)
	INTEGER*2 IVAL
	ENCODE(6,10,STR)IVAL
10	FORMAT(I6)
	STR(7)=0
	CALL RLBS(STR)
	END