INTEGER FUNCTION LTEQGT(ARG1,ARG2,SIZE)
	INTEGER SIZE,I
	BYTE ARG1(6),ARG2(6)
	I=KOMSTR(ARG1,1,6,ARG2,1,6)
	IF(SIZE.EQ.0)GOTO10
	IF(SIZE.GT.0)
     +   I=LSTRNG(ARG1,1,6,ARG2,1,SIZE)
	IF(I.LE.0)I=7
10	LTEQGT=I
C	TYPE 1,ARG1,ARG2,SIZE,I
C1	FORMAT(' ARG1=',6A1,'ARG2=',6A1,'SIZE=',I5,'I=',I5)
	RETURN
	END