Hi Steve
Take a look at this example
eqn = Solve[4 x + 2 y == 28 && x > 0 && y > 0, {x, y},
Integers]; p = {x, y} /. eqn
In[817]:= eqn
Out[817]= {{x -> 1, y -> 12}, {x -> 2, y -> 10}, {x -> 3,
y -> 8}, {x -> 4, y -> 6}, {x -> 5, y -> 4}, {x -> 6, y -> 2}}
In[818]:= p
Out[818]= {{1, 12}, {2, 10}, {3, 8}, {4, 6}, {5, 4}, {6, 2}}
