4270 IF XD>D THEN D=XD