10 REM > Mortgage
   20 REM Monthly repayment mortgage payment calculator
   30 :
   40 INPUT"Principle:   `"P                     :REM Amount borrowed
   50 INPUT"Years:        "Y:N=Y*12              :REM Length of loan
   60 INPUT"APR:          "R                     :REM Annual Percentage Rate
   70 :
   80 R=R/(1200):M=P*(R/(1-(1+R)^-N))            :REM Magic formula, monthly=apr/12
   90 :
  100 A%=@%:@%=&20200                            :REM Fix format with 2 decimals
  110 PRINT"Annual repayment:  `"M*12
  120 PRINT"Monthly repayment: `"M
  130 PRINT"Total repayment:   `"M*N
  140 @%=A%                                      :REM Restore print format

Download Mortgage

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.