SUBROUTINE DSTR(STR,IBEG,IEND)
	LOGICAL*1 STR(2)
	INTEGER*2 IBEG,IEND,LEN
	CALL LENSTR(STR,LEN)
	IF(IEND.GT.LEN)IEND=LEN
	IF(IBEG.GT.IEND)RETURN
	N=LEN-IEND+1
	DO 1000 I=1,N
1000	STR(IBEG+I-1)=STR(IEND+I)
	END