INTEGER FUNCTION CROP(ITEM,COMAND)
	BYTE ITEM(8),COMAND(8),IT
	CROP = .FALSE.
	IF (ITEM(1).NE.COMAND(1)) RETURN
	DO 1 I=2,8
	IT=ITEM(I)
	IF (IT.EQ."40.OR.IT.EQ.0) GO TO 2
	IF (IT.NE.COMAND(I)) RETURN
1	CONTINUE
2	CROP = .TRUE.
	RETURN
	END