MORTGAGE
TO CALCULATE MORTGAGES
END
PRINCIPAL
TO CALCULATE PRINCIPAL
INPUT "INTEREST RATE  ";I:I=I/100
INPUT "TERM IN YEARS, MONTHS ";Y,M:TERM=Y+M/12
INPUT "MONTHLY REPAYMENT  ";R:R=R*12
P=R/(I+(I/((1+I)^TERM-1)))
FMT 6,2
PRINT "PRINCIPAL AMOUNT ";P
END
INTEREST
TO CALCULATE INTEREST
INPUT "PRINCIPAL  ";P
INPUT "TERM IN YEARS, MONTHS  ";Y,M:TERM=Y+M/12
INPUT "MONTHLY REPAYMENT  ";R:R=R*12
TEMP=0.1
REPEAT
I=TEMP
TEMP=R/P-(I/((1+I)^TERM-1))
UNTIL ABS(TEMP-I)<.000001 
FMT 2,3
PRINT "INTEREST RATE  ";(I*100)
END
DURATION
TO CALCULATE DURATION
INPUT "PRINCIPAL  ";P
INPUT "INTEREST RATE  ";I:I=I/100
INPUT "MONTHLY REPAYMENT  ";R:R=R*12
TERM=LOG(P*I/(R-P*I)/LOG(1+I)+1/24
Y=INT(TERM):M=INT((TERM-INT(TERM))*12)
FMT 2,0
PRINT "TERM IS  "Y" YEARS,  "M" MONTHS"
END
REPAYMENT
TO CALCULATE REPAYMENTS
INPUT "PRINCIPAL  ";P
INPUT "INTEREST RATE  ";I:I=I/100
INPUT "TERM IN YEARS, MONTHS  ";Y,M:TERM=Y+M/12
R=P*(I+(I/((1+I)^TERM-1)))/12
FMT 4,2
PRINT "MONTHLY PAYMENT IS  ";R
END
FINISH