BYTE FUNCTION BCOMP(A,B)
	BYTE A(80),B(80)
	BCOMP=1
	I=1
1	IF(A(I).NE.B(I)) GO TO 2
	IF(A(I).EQ.0) RETURN
	I=I+1
	GO TO 1
2	BCOMP=0
	RETURN
	END