Update NEWTON.PAS