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