'ProgramMode:RUN
"Loan amount"?->L
"Interest rate (in %)"?->I
"Time (in years)"?->T
I/100->I
(1+I/12)^(12*T)->K
(L*I*K)/(12*(K-1))->M
RndFix(M,2)->M
ClrText
Locate 1,1,T
Locate 4,1,"year loan"
Locate 1,2,"$"
Locate 2,2,L
I*100->I
Locate 16,2,I
Locate 21,2,"%"
Locate 1,4,"Monthly payment:"
Locate 1,5,"$"
Locate 2,5,M