Solving the Time-Dependent SCHRÖDINGER Equation with Absorbing Boundary Conditions and Source Terms in Mathematica 6.0