SUBROUTINE CCCHR(STR,CHR)
	LOGICAL*1 STR(2),CHR
	CALL LENSTR(STR,LEN)
	CALL ICHR(STR,LEN+1,CHR)
	END