SUBROUTINE GSTR(STR1,BEG,END,STR2)
	LOGICAL*1 STR1(2),BEG,END,STR2(2)
	DO 1000 I=BEG,END
1000	STR2(I-BEG+1)=STR1(I)
	STR2(END-BEG+2)=0
	END