if it is than the code could be optimised much more! ]]>

` ``Input "%?",P If P Then Prompt S,E abs(S-E)/S→R Disp "%=",100R End Disp("A(1+R)^T Prompt A If not(P Prompt R Prompt T A(1+R)^T`

Which saves another 66 Bytes.

]]>Disp "% + or -?

Input "0 or 1 ",P

If P

Then

Input "START: ",S

Input "End: ",E

(S-E)/S(2(E<S)-1→R

Disp "% CHNG:",100R

End

Disp "F(T)=A(1+R)^T

Prompt A

If not(P

Prompt R

Prompt T

Disp A(1+R)^T

saved a few bytes:

I think there's a "%" command…

also chanhed END to the End command, which saves 2 bytes.

` ``ClrHome Disp "CALCULATE Disp "PERCENT INC/DEC? Input "0/1 ",P If P Then Input "START: ",S Input "END: ",E abs(S-E)/S→R Disp "PCT CHNG:",100R End Disp "F(T)=A(1+R)^T Prompt A If not(P Prompt R Prompt T Disp "VALUE: A(1+R)^T`

` ``:ClrHome :Disp "CALCULATE","PERCENT INC/DEC? :Input "0/1 ",P :If P=1 :Then :Input "START: ",S :Input "END: ",E :If E>S :-((S−E)/S)→Q :If S>E :(S−E)/S→Q :Disp "PCT CHNG:",QE2 //scientific E :End :Disp "F(T)=A(1+R)^T :If P≠1 :Prompt A,R,T :If P=1 :Then :Prompt A,T :Q→R :End :Delvar ADelvar RDelvar TDelvar PDelvar QDelvar SDelvar EDisp "VALUE:",A(1+R)^T`

With DelVar commands, you don't need a new line or any colons between them, you can just put one of them after another, like I did. Also you can put one command directly after a DelVar (variable) to save space. ]]>

` ``ClrHome Disp "CALCULATE" Disp "PERCENT INC/DEC?" Input "0/1 ",P If P=1 Then Input "START: ",S Input "END: ",E If E>S -((S−E)/S)→Q If S>E (S−E)/S→Q Disp "PCT CHNG:",Q*100 End Disp "F(T)=A(1+R)^T" If P≠1 Prompt A,R,T If P=1 Then Prompt A,T Q→R End Disp "VALUE:",A(1+R)^T Delvar A Delvar R Delvar T Delvar P Delvar Q Delvar S Delvar E`