Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0020/mortga.dem
There are 2 other files named mortga.dem in the archive. Click here to see a list.
100' NAME--MORTGA
110'
120' DESCRIPTI0N--COMPUTES THE LIFE OF A HOME MORTGAGE.
130'
140' SOURCE--UNKNOWN
150'
160' INSTRUCTIONS--TYPE "RUN" AND FOLLOW INSTRUCTIONS.
170'
180'
190' * * * * * MAIN PROGRAM * * * * * * * * * *
200'
210 PRINT "THIS IS A HOME MORTGAGE COMPUTER."
220 PRINT "ENTER YOUR YEARLY INTEREST RATE IN PERCENT";
230 INPUT I
240 LET I = I/100
250 PRINT "ENTER YOUR INITIAL PRINCIPAL";
260 INPUT P
270 PRINT "ENTER YOUR MONTHLY PAYMENT";
280 INPUT P1
290 PRINT "ENTER MONTH (COMMA) YEAR IN NUMBERS";
300 INPUT M, Y
310 PRINT
320 LET R = 1 + I/12
330 PRINT " YEAR "; " PRINCIPAL "
340 GO TO 440
350 LET P = P*R - P1
360 IF P >= 0 THEN 380
370 LET P = 0
380 LET M = M + 1
390 IF M > 12 THEN 420
400 PRINT " ";
410 GO TO 450
420 LET M = 1
430 LET Y = Y + 1
440 PRINT Y;
450 PRINT INT(P)
460 IF P > 0 THEN 350
470 END