Loan Payment

Gallery

Source Code

   1 REM *MONTHLY LOAN PAYMENT*
   3 PRINT "%M%O%N%T%H%L%Y% %L%O%A%N% %P%A%Y%M%E%N%T"
   4 PRINT 
  15 LET M=0
  20 PRINT "AMT BORROWED = $";
  25 INPUT P
  30 PRINT P
  35 PRINT "ANNUAL INTEREST = ";
  40 INPUT I
  45 PRINT I
  50 LET I=(0.01*I)/12
  55 PRINT "NO. OF PAYMENTS = ";
  60 INPUT N
  65 PRINT N
  70 LET M=P*I/(1-((1+I)**(-N)))
  75 PRINT "MO. PAYMENT = $ ";M
  77 PRINT 
  80 IF INKEY$="" THEN GOTO 80
  85 GOTO 20
 100 SAVE "1002%7"
 200 RUN