4272 IF XD>D THEN D=XD