SUBROUTINE LENSTR(STR,LEN)
	LOGICAL*1 STR(2)
	INTEGER*2 LEN
	DO 1000 I=1,256
	LEN=I-1
	IF(STR(I).EQ.0)GO TO 1100
1000	CONTINUE
	CALL PLINE('LENSTR: NO STRING TERMINATER')
	LEN=0
1100	CONTINUE
	END