File MORTT.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

C	MORTGAGE AMORTIZATION TABLE GENERATOR


C	FORMAT STATEMENTS:
C	------------------

1000	FORMAT(///)
1001	FORMAT(' MORTGAGE AMORTIZATION TABLE',//)
1002	FORMAT(' AMOUNT OF LOAN = ',F10.2)
1003	FORMAT(' LOAN RATE (%) = ',F5.2)
1004	FORMAT(' LOAN TERM (YEARS) = ',F5.1)
1005	FORMAT(' MONTHLY PAYMENTS = ',F7.2,/)
1006	FORMAT(F8.2)
1007	FORMAT(/,'    DATE   INTEREST   PRNCPL   PRNCPL')
1008	FORMAT('                        PAYMENT   REMAINING',/)
1009	FORMAT(/)
1010	FORMAT('  ',I3,I3,'   ',F8.2,'    ',F8.2,'    ',F8.2)
1011	FORMAT(/' LAST PAYMENT = ',F6.2)
1012	FORMAT(' STARTING MONTH (MM)= ')
1013	FORMAT(' STARTING YEAR (YY)= ')
1014	FORMAT(I4)
1015	FORMAT(F10.0)
1016	FORMAT(/,' INTEREST PAID THIS YEAR= ',F8.2)
1017	FORMAT(/,' TOTAL INTEREST PAID= ',F8.2)
1018	FORMAT(/,'LISTING DESIRED ? [Y OR N]: ')
1019	FORMAT(1A6)

C PAGE 2 C GET BASIC MORTGAGE DATA: C ------------------------ 1 WRITE(4,1001) WRITE(4,1002) READ(4,1015)AMOUNT WRITE(4,1003) READ(4,1015)RATE WRITE(4,1004) READ(4,1015)TERM C CALCULATE MONTHLY PAYMENTS C -------------------------- 10 RRATE=RATE/(12.*100.) TTERM=TERM*12. DE1=EXP(ALOG(1.+RRATE)*TTERM) DE2=1./DE1 DE3=1.-DE2 DE4=AMOUNT*RRATE PAYM=(DE4/DE3)+.01 WRITE(4,1005)PAYM C LISTINGS DESIRED ? C ------------------ AY='Y ' AN='N ' 11 WRITE(4,1018) READ(4,1019)ANS 12 IF(ANS-AN)13,1,13 13 IF(ANS-AY)11,15,11 15 WRITE(4,1012) READ(4,1014)MO WRITE(4,1013) READ(4,1014)IYR C LIST HEADING ON LINEPRINTER C --------------------------- 20 WRITE(4,1000) WRITE(4,1001) WRITE(4,1002)AMOUNT WRITE(4,1003)RATE WRITE(4,1004)TERM WRITE(4,1005)PAYM WRITE(4,1007) WRITE(4,1008)
C PAGE 3 C COMPUTE & LIST AMORTIZATION TABLE C --------------------------------- 30 MONTH=1 ITERM=TERM*12. ST=0. TT=0. PRNCPL=AMOUNT 31 IF(MO-13)33,32,33 32 MO=1 IYR=IYR+1 WRITE(4,1016)ST WRITE(4,1009) TT=TT+ST ST=0. WRITE(4,1009) 33 IF(MONTH-ITERM)34,36,34 34 PINT=PRNCPL*RATE/(100.*12.) PO=PAYM-PINT-.01 PRNCPL=PRNCPL-PO 35 WRITE(4,1010)MO,IYR,PINT,PO,PRNCPL ST=ST+PINT MO=MO+1 MONTH=MONTH+1 GO TO 31 C COMPUTE LAST PAYMENT C -------------------- 36 PINT=PRNCPL*RATE/(100.*12.) PO=PRNCPL PRNCPL=0. TLP=PO+PINT WRITE(4,1010)MO,IYR,PINT,PO,PRNCPL WRITE(4,1011)TLP ST=ST+PINT WRITE(4,1016)ST TT=TT+ST WRITE(4,1017)TT WRITE(4,1000) WRITE(4,1000) GO TO 1 END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search