d ********************************7n * *^x * FINANCE CALCULATOR * * * * RE-WRITTEN FROM ORIGINAL PET * * PROGRAM THAT APPEARED IN * * KILOBAUD (AUGUST 1978) *! * *H * ADAPTED BY ROBERT W. BAKER *o *15 WINDSOR DR, ATCO, NJ 08004 * * * ******************************** : L1$(17)"----------------------------------------"8 (147)::" F I N A N C E C A L C U L A T O R":L1$] " INVESTMENT CALCULATIONS": "1 - FUTURE VALUE OF ONE-TIME INVESTMENT" "2 - FUTURE VALUE OF REGULAR DEPOSITS" "3 - REGULAR DEPOSITS REQUIRED" "" TO CREATE A DESIRED TOTAL VALUE"% ," LOAN CALCULATIONS"J 6"4 - REGULAR PAYMENT ON A LOAN"l @"5 - LAST PAYMENT ON A LOAN" J"6 - TERM OF A LOAN" T"7 - REMAINING BALANCE ON A LOAN" ^"8 - COST OF BORROWING": h"9 - END OF PROGRAM" r L1$:" DESIRED FUNCTION (1-9):";( | C$: C$"" 380C V(C$): V9 "":o  V 420,520,630,740,850,970,1080,1200u  (147)::"FUTURE VALUE OF ONE-TIME INVESTMENT": L1$ "ENTER INITIAL INVESTMENT:": I1 "ENTER NOMINAL INTEREST RATE:": R. "TERM OF INVESTMENT (YEARS,MONTHS):": Y,M_ "NUMBER OF COMPOUNDING PERIODS / YEAR:": N{ RRN100:Y(12YM)12 T2I1(1R)(NY):T2(T21000.5)100 I2T2I1:1380  1350: A$"Y" 420 (147)::"FUTURE VALUE OF REGULAR DEPOSITS": L1$:"ENTER AMOUNT OF EACH DEPOSIT:": DZ"ENTER INTEREST RATE:": R&"TERM OF INVESTMENT (YEARS,MONTHS):": Y,M0"NUMBER OF DEPOSITS PER YEAR:": N:RRN100:Y(12YM)12DT2D((1R)(NY)1)RNT2(T2100.5)100XI1DYN:I2T2I1: 13808b 1350: A$"Y" 520>lov(147)::"REQUIRED REGULAR DEPOSITS": L1$"ENTER THE DESIRED TOTAL VALUE:": T2"ENTER NOMINAL INTEREST RATE:": R"TERM OF INVESTMENT (YEARS,MONTHS):": Y,M"NUMBER OF DEPOSITS PER YEAR:": N7RRN100:Y(12YM)12eDT2R((1R)(NY)1):D(D1000.5)100X1D: 1430:I1DYN:I2T2I1:"REGULAR DEPOSITS: ";X$:13801350:A$"Y" 630(147)::"REGULAR PAYMENT ON A LOAN": L1$#"ENTER THE PRINCIPAL AMOUNT:": P1W"ENTER THE TERM OF LOAN (YEARS,MONTHS):": Y,M"ENTER THE ANNUAL INTEREST RATE:": R "NUMBER OF PAYMENTS PER YEAR:": NRRN100:Y(Y12M)12 P31(1R)(NY):P2P1R(1P3)*X1P2: 1430: L1$#4"REGULAR PAYMENT: ";X$: L1$=> 1350: A$"Y" 740CHlR(147):::"LAST PAYMENT ON A LOAN\"ENTER THE PRINCIPLE AMOUNT:": P1f"ENTER TERM OF LOAN (YEARS,MONTHS):": Y,Mp"ENTER THE ANNUAL INTEREST RATE:": Rz"NUMBER OF PAYMENTS PER YEAR:": ND"ENTER AMOUNT OF REGULAR PAYMENT:": P4gRRN100:Y(Y12M)12:I1NY I1 I1:R1(P1R1000.5)100:R2P4R1:P1P1R2:IP2P4P1:X1P2:1430: L1$"LAST PAYMENT: ";X$: L1$ 1350: A$"Y" 850((147):::"TERM OF A LOAN": L1$P"ENTER THE PRINCIPAL AMOUNT:": P1}"ENTER AMOUNT OF REGULAR PAYMENT:": P4"ENTER THE ANNUAL INTEREST RATE:": R"NUMBER OF PAYMENTS PER YEAR:": NRRN100:T11(P1RP4):T21R T((T1)(T2))N2M(T12):Y(M12):MMY12: L1$d"TERM OF LOAN: ";Y;"YEARS,";M;"MONTHS": L1$~$ 1350: A$"Y" 970.8(147):::"REMAINING BALANCE ON A LOAN": L1$B"ENTER THE PRINCIPAL AMOUNT:": P1L"ENTER AMOUNT OF REGULAR PAYMENT:": P49V"ENTER THE ANNUAL INTEREST RATE:": Ra`"NUMBER OF PAYMENTS PER YEAR:": Nj"NUMBER OF PAYMENTS MADE:": I1tRRN100~ I1 I1:R1(P1R1000.5)100:R2P4R1:P1P1R2:IX1P1: 1430: L1$ "REMAINING BALANCE: ";X$: L1$% 1350: A$"Y" 1080+V(147):::"COST OF BORROWING": L1$z"ENTER PRINCIPAL AMOUNT:": P1"ENTER TERM OF LOAN (YEARS, MONTHS):": Y,M"ENTER THE ANNUAL INTEREST RATE:": R"NUMBER OF PAYMENTS EACH YEAR:": N,RRN100:Y(Y12M)12:P31(1R)(NY)eP4P1R(1P3):P4(P41000.5)100:P5P1:C0:I1NY I1 I1:R1(P5R1000.5)100R2P4R1:P5P5R2:CCP4: I CCP5:C1CP1: L1$X1P4: 1430:" REGULAR PAYMENT: ";X$X1C: 1430:"TOTAL PAYMENTS: ";X$E(X1C1: 1430:" COST OF BORROWING: ";X$f2 L1$: 1350: A$"Y" 1200l<F "ANOTHER CALCULATION (Y/N):"P A$: A$"Y" A$"N" 1360Zd L1$nX1I1: 1430:"VALUE OF YOUR INVESTMENT: ";X$'xX1I2: 1430:"VALUE OF ACCUM. INTEREST: ";X$YX1T2: 1430:" TOTAL VALUE: ";X$e L1$:~X1(X11000.5)100X2(X1):X3(X1X2)1001000X$"$"(X2)"."((X3),2):