'ProgramMode:RUN "Loan amount"?->L "Interest rate (in %)"?->I "Monthly payment($)"?->M "No. of payments made"?->N I/100->I 0->C While CL C+1->C WhileEnd RndFix(L,2)->L ClrText Locate 1,1,"After " Locate 6,1,N Locate 10,1,"payments of" Locate 1,2,"$" Locate 2,2,M I*100->I Locate 1,3,"at" Locate 4,3,I Locate 9,3,"%" Locate 1,5,"$" Locate 2,5,L Locate 1,6,"is still owed