[[ F(X)(X100.5)100M[XX53281:(147)(14)(8):XX,0:XX1,0:""}[L138:1024L,64:1424L,64:1984L,64:L[(L094040:1024L,93:1063L,93:L[21024,112:1063,110:1984,109:2023,125:1424,107[<1463,115\FL1100::XX,1:XX1,1\PT1100:E\ZA$" OAN & ORTGAGE ALCULATOR":160\dA$" BY":160:A$" IRK ESSNER":160\nA$" (72606,1534)":160\x""\A$" ODIFIED 11/86":160/]A$" BY":160:A$" RAIG AVIDSON":1608]180g]X(A$)11:""(A$,X)"":T120:::o]:]">>PRESS ANY KEY TO BEGIN <<"]A$:A$""190](147)]L138:1024L,64:1984L,64:L ^L4094040:1024L,93:1063L,93:L7^1024,112:1063,110:1984,109:2023,125C^(142)j^********DEFINE VARIABLES*********y^ N$=NAME^ D$=DATE^ M =LOAN AMOUNT^" IR=INTEREST RATE^, Y =NUMBER OF PAYMENTS^6 Z =INTEREST ADJUSTED FOR FORMULA_@ I =MONTHLY INTEREST9_J P =AMOUNT OF MONTHLY PAMENTW_T R =RATE FOR COMPARISON_^ YC=NUMBER OF PAYMENTS FOR COMPARISON_h IC=MONTHLY INTEREST FOR COMPARISON_r PA=PAYMENT FOR COMPARISON_| MP=LOAN AMOUNT FOR PERIOD` D =DIFFERENCE OF NUMBER OF PAYMENTS3` B =TOTAL INTERESTU` A =TOTAL PAID ON PRINCIPALq` EQ=MONTHLY PRINCIPAL` IT=MONTHLY AMOUNT OF INTEREST` BAL=REMAINING BALANCE OF LOAN` T =TOTAL PAID` YR=YEARS OF TERMa"ENTER FOLLOWING INFORMATION:"a1,01a"NAME:";:1,N$_a" ":""~a"DATE(00-00-00):";:1,D$a" ":""a"LOAN VALUE:";:1,M$a" ":""b&"INTEREST RATE:";:1,IR$Bb0" ":""eb:"NUMBER OF PAYMENTS:";:1,Y$bD" ":""bNM(M$):IR(IR$):Y(Y$)bXN$(N$,20):D$(D$,10)bbIR1ZIRblIR1ZIR100cvIR1IIR12cIR1IIR1200.cPM((1(1I)Y)I):c(147)ac"MORTGAGE INFORMATION"c"===================="c"NAME:"N$c"DATE:"D$c"LOAN VALUE:";Mc"INTEREST RATE:";F(Z)"%"d"NUMBER OF PAYMENTS:";Y"OR"F(Y12)"YEARS"2d"MONTHLY PAYMENT:";F(P)9d1Ud"OK? (Y/N)hdA$:A$""770d A$"Y"1:M0:IR0:Y0:200d"ENTER DESIRED FUNCTION"d ""d*"<1>ANOTHER CALCULATION"e4"<2> OUTPUT TO PRINTER",e>"<3> EXIT PROGRAM"5eH1,0NeR"-->";:1,XX$_e\XX(XX$):1refXX1XX3790epXX1M0:IR0:Y0:200ezXX2920eXX32450e *** PRINTER OUTPUT MODIFIED BY CRAIG DAVIDSON 1/10/87 ***f"OUTPUT TO PRINTER"7f""hf" TURN PRINTER ON AND POSITION PAPER.f **** DETERMINE WHETHER COMPLETE OR PARTIAL SCEDULE ****f"PRINT: ENTIRE SCEDULE"f" 12 MONTH PERIOD"g" PAYMENT COMPARISONS"/g C$: C$"" 990Ag C$"A"1060Sg C$"B"1050eg C$"C"990g"ENTER DIFFERENCE OF NUMBER OF PAYMENTS";Dg1060g"ENTER FIRST PAYMENT OF PERIOD";Ng$"OUTPUT TO SCREEN OR PRINTER (S/P)?" h.A$:A$""1070h8A$"P"17900hBA$"S"1070ThL ***START OF SCREEN DISPLAY***\hV 0nh`C$"C"1410zhjYRY12htRIRh~ICIhPAPhYCYh7)"===MORTGAGE COMPARISON==="h"COMPARISONS FOR LOAN AMOUNT OF $";MhDDD12Bi"TERM-> ##.## ##.## ##.## ##.##";YR,YRDD,YRDD2,YRDD3Oi"RATES"Yi" Vfi LC19iPAM((1(1IC)YC)IC)iYCYCDiPBM((1(1IC)YC)IC)iYCYCDi PCM((1(1IC)YC)IC)iYCYCDiPDM((1(1IC)YC)IC)=j("##.## ####.## ####.## ####.## ####.##";R,PA,PB,PC,PDIj2RR.25Zj<R1ICR12mjFR1ICR1200vjPYCY~jZLCjd"PRESS ANY KEY TO CONTINUE"jnA$:A$""1390jx2440j"========================================"k"LOAN AMORTIZATION SCHEDULE"(k"LOAN AMOUNT:";MZk"INTEREST RATE:";IR;"% FOR";F(Y12);"YEARS"xk"MONTHLY PAYMENT:";F(P)k"========================================"k"PAY# PRINCIPAL INTEREST BALANCE"l"========================================"lMPMlS1Y:lITMPI:EQPIT:BALMPEQKlC$"A"1540YlSN1550l"### #####.## #####.## #####.##";S,EQ,IT,BALlMPMPEQlC$"B"1590l"SN1590l,B0:A0l6BBITl@AAEQlJTABmTC$"A"1640m^S(N11)1730"mhSY1670)mrS3m|1510cm"========================================"m"TOTAL INT.:#####.## TOTAL PAID:#####.##";F(B),F(T)m"========================================"m"PRESS ANY KEY TO CONTINUE"nA$: A$""1710n2440@n"========================================"}n"PERIOD TOT: INT:#####.## PRINC:#####.##";F(B),F(A)n"========================================"n"PRESS ANY KEY WHEN READY"nA$:A$""1770n2440o"PRESS ANY KEY WHEN READY"/oA$:A$""1800Io1,4,0:2,4:3,4:4,4Wo2,(147)jo& C$"C"2100vo0YRY12o:RIRoDICIoNPAPoXYCYob1,17)"===MORTGAGE COMPARISON==="ol1,"COMPARISONS FOR LOAN AMOUNT OF $";MovDDD12Xp1,"TERM(YEARS)--> ##.## ##.## ##.## ##.##";YR,YRDD,YRDD2,YRDD3fp1,"RATESrp1," Vp LC19pPAM((1(1IC)YC)IC)pYCYCDpPBM((1(1IC)YC)IC)pYCYCDpPCM((1(1IC)YC)IC)pYCYCDqPDM((1(1IC)YC)IC)kq1,"##.## ####.## ####.## ####.## ####.##";R,PA,PB,PC,PDwqRR.25qR1ICR12q R1ICR1200qYCYq LCq*2430q41,"============================================================" r>1,"LOAN AMORTIZATION SCHEDULE"ErH1,"NAME:";N$;8)"LOAN VALUE:";MrR1:1,"INTEREST RATE:";IR;"%"8)"NUMBER OF PAYMENTS:";Y"OR"F(Y12)"YRS"r\1:1,"MONTHLY PAYMENT:";F(P);17)"DATE:";D$ sf1,"============================================================"Psp1,"PAY# PRINCIPAL INTEREST BALANCE"sz1,"============================================================"sMPMsS1YsITMPI:EQPIT:BALMPEQs C$"A"2230s SN 2240=t2,"### ######.## ######.## ######.##";S,EQ,IT,BALJtMPMPEQ\tC$"B"2280ktSN2280wtB0:A0tBBITtAAEQtTABt C$"A"2330t S(N11) 2400t SY2360t$ St. 2200#u8 1,"============================================================"wuB 1,"TOTAL INTEREST PAID: $#####.## TOTAL PAID: $#####.##;FNF(B),FNF(T)uL 1,"============================================================"uV C$"A"2430v` 1,"============================================================"hvj 1,"PERIOD TOTALS: INTEREST: $#####.## PRINCIPAL: $#####.##";F(B),F(A)vt 1,"============================================================"v~ 1:2:3:4v 790v