ContourPlot[1-99/x == y, {x, 100, 1000}, {y, 0, 1}]