<<xlr8r.m

r={{A+X-> AX, (Subscript[k, 1])}, {AX-> A+X, (Subscript[k, 2])}, {AX -> B+X, (Subscript[k, 3])}}

interpret[r]

R={(Subscript[k, 1])-> .75, (Subscript[k, 2])-> .5, (Subscript[k, 3])-> 1};
IC={A-> 1, X-> 1, B-> 0};
s=run[r, rates-> R, initialConditions-> IC, timeSpan-> 5];
runPlot[s]