SUBROUTINE RLBS(STR)
	LOGICAL*1 STR(2)
	CALL LENSTR(STR,LEN)
	DO 1000 I=1,LEN
	IF(STR(I).NE.' ')GO TO 1010
1000	CONTINUE
	STR(1)=0
	RETURN
1010	N=I-1
	IF(N.EQ.0)RETURN
	DO 1020 I=1,LEN-N+1
1020	STR(I)=STR(I+N)
	END