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