SUBROUTINE MSTR(STR1,STR2)
	LOGICAL*1 STR1(2),STR2(2)
	CALL LENSTR(STR1,LEN)
	DO 1000 I=1,LEN+1
1000	STR2(I)=STR1(I)
	END