An EGS4 Monte Carlo user code for radiation therapy planning