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