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