SUBROUTINE CMPSTR(STR1,STR2,RESULT)
	LOGICAL*1 STR1(2),STR2(2)
	INTEGER*2 RESULT
	CALL LENSTR(STR1,LEN1)
	CALL LENSTR(STR2,LEN2)
	LIM=LEN1
	IF(LIM.GT.LEN2)LIM=LEN2
	IF(LIM.EQ.0)GO TO 1020
	DO 1010 I=1,LIM
	IF(STR1(I).EQ.STR2(I))GO TO 1010
	IF(STR1(I).LT.STR2(I))RESULT=-1
	IF(STR1(I).GT.STR2(I))RESULT=1
	RETURN
1010	CONTINUE
1020	IF(LEN1.LT.LEN2)RESULT=-1
	IF(LEN1.EQ.LEN2)RESULT=0
	IF(LEN1.GT.LEN2)RESULT=+1
	END