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