**TI92P*calculusRmipM¥Zó() Prgm Local i,m,p,r,t setMode("Exact/Approx","APPROXIMATE") Dialog Title "Monthly Interest Principal" Text "M=P(i/(1-(1/(1+i))^12t)" Text "i=(1/12)r" Request "Principal Amount (P)",p Request "Mnthly Intrst Rt (i)",i Request "Annual Intrst Rt (r)",r Request "Period of Time (yrs)",t EndDlog if ok=0 goto prge expr(p)p expr(i)i expr(r)r expr(t)t p*(i/(1-(1/(1+i))^(12*t)))m Dialog Title "Answer" Text "The answer is: "&string(m) EndDlog lbl prge setMode("Exact/Approx","AUTO") EndPrgmäåÜu›