'ProgramMode:RUN
"Monthly Payment:"?->P
"Interest rate (%):"?->I
"Time (years):"?->T
I/100->I
1+I/12->K
(P*K(K^(12*T)-1))/(I/12)->F
RndFix(F,2)->F
ClrText
Locate 1,1,T
Locate 8,1,"years"
Locate 1,2,"Monthly payment:"
Locate 1,3,"$"
Locate 2,3,P
Locate 1,4,"Future value:"
Locate 1,5,"$"
Locate 2,5,F