House Payments

Bill Gunter of Sacramento, CA shares another short TS 2068 program with us this issue. It is a program which will compare the costs of home loans. If the user enters them AMOUNT of the loan, the number of YEARS for the loan, the INTEREST rate on the loan and the number of pay PERIODS per year (usually 12), the computer will furnish the monthly payment and the total cost of the loan over the entire period of the loan. Two such calculations can be displayed on one screen which makes it easy to compare loans in terms of varying time periods, ect. Users should know that the “^” symbol in line 150 is the symbol shifted “H” on the keyboard.

   1 REM ******************
   2 REM * HOUSE PAYMENTS *
   3 REM *    by BILLY    *
   4 REM ******************
   5 LET Z=0
   6 BORDER 1: PAPER 6: INK 0
   9 CLS
  10 PRINT "AMOUNT? ";
  20 INPUT A
  30 PRINT A
  40 PRINT "YEARS? ";
  50 INPUT Y
  60 PRINT Y
  70 PRINT "INTEREST? ";
  80 INPUT I
  90 PRINT I
 100 PRINT "PERIODS? ";
 110 INPUT PER
 120 PRINT PER
 130 LET I=I/PER/100
 140 LET N=PER*Y
 150 LET P=A*I*(1+I)^N/((1+I)^N-1)
 160 PRINT "MONTHLY PAYMENT="; INT (100*F+.5)/100
 165 LET T= INT (100*P+.5)/100
 170 PRINT
 175 PRINT "TOTAL COST OF LOAN=";T*Y*PER
 180 LET Z=Z+1
 195 PRINT
 200 PRINT "********************************"
 205 IF Z=2 THEN  GO TO 230
 210 PRINT
 220 GO TO 10
 230 PRINT  AT 20,5;"PRESS "; FLASH 1; "C";  FLASH 0;" TO CONTINUE"
 240 IF  INKEY$ ="C" OR  INKEY$ ="c" THEN  GO TO 5
 250 GO TO 240