On (Release)
      Comment: Principal = EstimatedPrice - DownPayment - NetTradeIn
      Set Variable: "p" = EstimatedPrice - DownPayment - NetTradeIn
      Comment: e14 = exp(12*log(1+((APR/100)/12)))-1
      Set Variable: "x" = 1+(APR/100)/12
      Call ("ln")
      Set Variable: "x" = 12*ln_x
      Call ("exp")
      Set Variable: "e14" = e_x-1
      Comment:  e15 = (exp(log(e14+1)/t)-1)*t
      Set Variable: "x" = e14+1
      Call ("ln")
      Set Variable: "x" = ln_x/t
      Call ("exp")
      Set Variable: "e15" = (e_x-1)*t
      Comment: e17 = p*(e15/12)/(1-pow((e15/12)+1,-t))
      Set Variable: "a" = -t
      Set Variable: "b" = (e15/12)+1
      Call ("pow")
      Set Variable: "e17" = p*(e15/12)/(1-pow_result)
      Set Variable: "x" = e17
      Call ("FormatCurrency")
      Set Variable: "MonthlyPayment" = result
End On