**TI92P*main30åîä6&ǰ˜¿2$¿30å0å¿åV%Ç> RCONTINTë¥Z‘() Prgm:lbl option3:clrio local a,b,c,e,f,p,r,t,g,h,i,j,k,l,m,n,o,p,q,r,s,t,cc disp "CONTINOUS INTEREST" disp "FOR FUTURE VALUE ENTER 1" disp "TO SOLVE FOR A UNKNOWN" disp "ENTER 0" input a:ab:if b=1 then:goto option1:else:goto option2:endif lbl option1 clrio disp "ENTER PRINCIPAL" input p: clrio disp "ENTER PERCENT INTEREST" disp"AS A PERCENT" input c:c/100r clrio disp "ENTER TIME IN YEARS" input t: clrio disp "FUTURE VALUE" disp p*(–^(r*t)) pause:clrio disp "TO CONTINUE ENTER 1" disp "TO QUIT ENTER 2" input e:ef:if f=1 then:goto option3:else:goto option4:endif clrio lbl option2 clrio:disp "SOLVE BEGINNING":disp "PRINCIPAL ENTER 1" disp "SOLVE INTEREST ENTER 2" disp "SOLVE TIME YRS. ENTER 3" input g:gh if h=1 then:goto option5:endif:if h=2 then:goto option6:endif:if h=3 then:goto option7:endif lbl option5:clrio:disp "ENTER INTEREST":disp "AS A PERCENT":input i:(i/100)j:clrio:disp"ENDING PRINCIPAL":input k:kl:clrio:disp "ENTER TIME IN YEARS":input m:mn:clrio:disp "INITIAL PRINCIPAL IS":disp (l/(–^(j*n))):pause:clrio:goto quit lbl option6:clrio:disp "ENTER START PRINCIPAL":input o:op:clrio:disp "END PRINCIPAL":input s:st:clrio:disp "ENTER TIME IN YEARS":input q:qr:clrio:disp solve(p–^(x*r)=t,x):disp "INTEREST RATE IS":disp x*100:pause:clrio:delvar x:goto quit lbl option7:clrio:disp "ENTER START PRINCIPAL":input o:op:clrio:disp "END PRINCIPAL":input s:st:clrio:disp "ENTER INTEREST RATE":input q:q/100r:clrio:disp "TIME IN YEARS IS":disp solve(p–^(R*X)=t,x):pause:clrio:goto quit lbl quit:clrio:disp "TO CONTINUE ENTER 1" disp "TO QUIT ENTER 2" input e:ef:if f=1 then:goto option3:else:goto option4:endif CLRIO lbl option4:clrio EndPrgm äåÜT