1   REM  MORTGAGE COMOPUTER
2   REM  YEARLY INTEREST RATE
10  DATA  0.05
15  REM  INITIAL PRINCIPAL
20  DATA  28500
25  REM  MONTHLY PAYMENT
30  DATA  170
35  REM  STARTING MONTH AND YEAR
40  DATA  1, 1964
50  READ I, P, P1, M, Y
60  LET R = 1 + I/12
70  PRINT "YEAR", "PRINCIPAL"
80  PRINT Y, P
90  LET  P = P*R - P1
100 IF  P >= 0 THEN 120
110 LET P = 0
120 LET M = M + 1
130  IF M > 12 THEN 160
140  PRINT "       ",
150  GO TO 190
160  LET  M = 1
170  LET Y = Y + 1
180  PRINT Y,
190  PRINT INT(P)
200  IF P > 0 THEN 90
210  END
