Getting them to line up might be a bit of a problem I could imagine if you were to program it directly.
Here is how you'd get the very basic axes down:
Graphics[{}, Axes -> True, Ticks -> {Range[0, 100, 10], Range[0, 100, 10]}, PlotRange -> {{0, 100}, {0, 100}}]
From here there's a number of things you could do. Working directly with the graphics primitives would probably be difficult. The other option is to try to do something tricky with the Ticks option and give it some unique labels for the tick marks. Here is how we can generate tick labels:
Table[Column[{i, 100 - i}, Center], {i, 0, 100, 10}]
So here are the positions and the labels together as pairs:
xTicks=Table[{i, Column[{i, 100 - i}, Center]}, {i, 0, 100, 10}]
And we can use them in the graphics like this.
Graphics[{}, Axes -> True, Ticks -> {xTicks, Range[0, 100, 10]}, PlotRange -> {{0, 100}, {0, 100}}]
