CLS
INPUT “Amount being borrowed?”; x
INPUT “Yearly Interest?”; y
INPUT “Monthly Payment?”; Payment
LET y = y / 100
LET Month = 0
DO
LET Month = Month + 1
LET Interest = x * (y / 12)
REM check for overpayment
IF (x + Interest) < Payment THEN Payment = x + Interest
LET Principal = Payment – Interest
LET x = x – Principal
REM deal with the calculation going into fractions of a penny
IF x < .01 THEN x = 0
PRINT Month, Payment, Interest, Principal, x
LOOP UNTIL x <= 0
CLS
INPUT “Amount being borrowed?”; x
INPUT “Yearly Interest?”; y
INPUT “Monthly Payment?”; Payment
LET y = y / 100
LET Month = 0
DO
LET Month = Month + 1
LET Interest = x * (y / 12)
REM check for overpayment
IF (x + Interest) < Payment THEN Payment = x + Interest
LET Principal = Payment – Interest
LET x = x – Principal
REM deal with the calculation going into fractions of a penny
IF x < .01 THEN x = 0
PRINT Month, Payment, Interest, Principal, x
LOOP UNTIL x <= 0