**TI92P*calculusRannuity2Z() Prgm setMode("Exact/Approx","APPROXIMATE") Local a,r,n,t,i,d Dialog Title "Annuity Calculations" Text "*This Formula Solves for 'D'" Request "A",a Request "R",r Request "N",n Request "T",t EndDlog if ok=0 goto prge expr(a)a expr(r)r expr(n)n expr(t)t r/ni a*(i/((1+i)^(n*t)-1))d Dialog Title "Annuity Calculations" Text "D="&string(d) EndDlog lbl prge setMode("Exact/Approx","AUTO") EndPrgm ܮ