Partial Adjustment Ada Code