SUBROUTINE ICHR(STR,INDEX,CHR)
	LOGICAL*1 STR(2),CHR
	INTEGER*2 INDEX
	IND=INDEX
	CALL LENSTR(STR,LEN)
	IF(IND.GT.LEN)IND=LEN+1
	DO 1010 I=LEN+1,IND,-1
	STR(I+1)=STR(I)
1010	CONTINUE
1020	STR(IND)=CHR
	RETURN
	END