4245 IF XD>D THEN D=XD