SUBROUTINE ISTR(STR1,INDEX,STR2)
	LOGICAL*1 STR1(2),STR2(2)
	INTEGER*2 INDEX
	IND=INDEX
	CALL LENSTR(STR1,LEN1)
	CALL LENSTR(STR2,LEN2)
	IF(LEN2.EQ.0)RETURN
	IF(IND.GT.LEN1)IND=LEN1+1
	DO 1010 I=LEN1+1,IND,-1
	STR1(I+LEN2)=STR1(I)
1010	CONTINUE
	DO 1020	I=1,LEN2
1020	STR1(IND+I-1)=STR2(I)
	END