Manipulate[ContourPlot[{150(Subscript[x, 1])+175 (Subscript[x, 2])==k, 7 (Subscript[x, 1])+11(Subscript[x, 2])==77,10 (Subscript[x, 1])+8(Subscript[x, 2])==80, (Subscript[x, 1])==9, (Subscript[x, 2])==6, (Subscript[x, 1])==0, (Subscript[x, 2])== 0}, {(Subscript[x, 1]) , -2, 10}, {(Subscript[x, 2]),-2,10},PlotPoints->10, ContourStyle->{Red,Black, Black, Black, Black, Black, Black}],
{k, 0,1500,100}]