K :ADAPTED FROM A PROGRAM BY ROBERT BAKER, RUN MAGAZINE, MARCH, 1985.g(147): 16,1,60,24,1(142):%:5,8:6,1:""(L1$""2" "<" M O N E Y M A N A G E R ]F" ":"":""P" INVESTMENT CALCULATIONS ": Z"1 - FUTURE VALUE OF ONE-TIME INVESTMENT"d"2 - FUTURE VALUE OF REGULAR DEPOSITS"n"3 - REGULAR DEPOSITS REQUIRED"7x" TO CREATE A TOTAL VALUE":k" LOAN CALCULATIONS ":"4 - REGULAR PAYMENT OF A LOAN""5 - LAST PAYMENT ON A LOAN""6 - TERM OF A LOAN""7 - REMAINING BALANCE ON A LOAN""8 - COST OF BORROWING":,"9 - END OF PROGRAM"W L1$:" DESIRED FUNCTION (1-9): ";o C$: C$"" 210V(C$): V9  0,0,79,24,1: V9  V 250,350,460,570,680,800,910,1030 "FUTURE VALUE OF ONE-TIME INVESTMENT": L1$( "ENTER INITIAL INVESTMENT:" : I1P "ENTER NOMINAL INTEREST RATE:": R "TERM OF INVESTMENT (YEARS, MONTHS):": Y,M ""NUMBER OF COMPOUNDING PERIODS/YEAR:": N ,RRN100:Y(12YM)12 6T2I1(1R)(NY):T2(T21000.5)100 !@I2T2I1: 1210&!J 1180: A$"Y" 250,!T\!^"FUTURE VALUE OF REGULAR DEPOSITS": L1$!h"ENTER AMOUNT OF EACH DEPOSIT:": D!r"ENTER NOMINAL INTEREST RATE:": R!|"TERM OF INVESTMENT (YEARS,MONTHS):": Y,M""NUMBER OF DEPOSITS PER YEAR:": N$"RRN100:Y(12YM)12?"T2D((1R)(NY)1)RW"T2(T2100.5)100v"I1DYN: I2T2I1: 1210" 1180: A$"Y" 350"""REQUIRED REGULAR DEPOSITS": L1$""ENTER THE DESIRED TOTAL VALUE:": T2#"ENTER NOMINAL INTEREST RATE:": RF#"TERM OF INVESTMENT (YEARS,MONTHS):": Y,Mo#"NUMBER OF DEPOSITS PER YEAR:": N#RRN100: Y(12YM)12#DT2R((1R)(NY)1): D(D1000.5)100#X1D: 1260: I1DYN: I2T2I1$"REGULAR DEPOSITS: ";X$: 1210!$& 1180: A$"Y" 460'$0P$:"REGULAR PAYMENT ON A LOAN": L1$y$D"ENTER THE PRINCIPAL AMOUNT:": P1$N"ENTER TERM OF LOAN (YEARS,MONTHS):": Y,M$X"ENTER THE ANNUAL INTEREST RATE": R$b"NUMBER OF PAYMENTS PER YEAR:" : N%lRRN100:Y(Y12M)12?%vP31(1R)(NY): P2P1R(1P3)X%X1P2: 1260: L1${%"REGULAR PAYMENT: ";X$: L1$% 1180: A$"Y" 570%%"LAST PAYMENT OF A LOAN": L1$%"ENTER THE PRINCIPAL AMOUNT:": P1 &"ENTER THE TERM OF LOAN (YEARS,MONTHS):": Y,MK&"ENTER THE ANNUAL INTEREST RATE:": Rt&"NUMBER OF PAYMENTS PER YEAR:": N&"ENTER AMOUNT OF REGULAR PAYMENT:": P4&RRN100: Y(Y12M)12: I1NY' I1 I1: R1(P1R1000.5)100: R2P4R1: P1P1R2: I*'P2P4P1: X1P2: 1260: L1$J'"LAST PAYMENT: ";X$: L1$e'  1180: A$"Y" 680k'' "TERM OF A LOAN": L1$'*"ENTER THE PRINCIPAL AMOUNT:": P1'4"ENTER THE AMOUNT OF REGULAR PAYMENT:": P4 (>"ENTER THE ANNUAL INTEREST RATE:": R6(H"NUMBER OF PAYMENTS PER YEAR:": N\(RRRN100: T11(P1RP4): T21Rs(\T((T1)(T2))N(fM(T12): Y(M12): MMY12: L1$(p"TERM OF LOAN: ";Y;"YEARS,";M;"MONTHS": L1$(z 1180: A$"Y" 800()"REMAINING BALANCE ON A LOAN": L1$E)"ENTER THE PRINCIPAL AMOUNT:": P1s)"ENTER AMOUNT OF REGULAR PAYMENT:": P4)"ENTER THE ANNUAL INTEREST RATE:": R)"NUMBER OF PAYMENTS PER YEAR:": N)"NUMBER OF PAYMENTS MADE:": I1)RRN100<* I1 I1: R1(P1R1000.5)100: R2P4R1: P1P1R2: IU*X1P1: 1260: L1$z*"REMAINING BALANCE: ";X$: L1$* 1180: A$"Y" 910**"COST OF BORROWING": L1$*"ENTER THE PRINCIPAL AMOUNT:": P1+"ENTER TERM OF LOAN (YEARS,MONTHS):": Y,MB+$"ENTER THE ANNUAL INTEREST RATE:": Rj+."NUMBER OF PAYMENTS PER YEAR:": N+8RRN100: Y(Y12M)12: P31(1R)(NY)+BP4P1R(1P3): P4(P41000.5)100: P5P1: C0: I1NY+L I1 I1: R1(P5R1000.5)100!,VR2P4R1: P5P5R2: CCP4: I<,`CCP5: C1CP1: L1$i,jX1P4: 1260: " REGULAR PAYMENT: ";X$,tX1C: 1260: " TOTAL PAYMENTS:";X$,~X1C1: 1260: "COST OF BORROWING: ";X$, L1$: 1180: A$"Y" 1030,-"":"ANOTHER CALCULATION (Y/N):"7- A$: A$"Y" A$"N" 1190=-G- L1${-X1I1: 1260: "VALUE OF YOUR INVESTMENT: ";X$-X1I2: 1260: "VALUE OF ACCUM. INTEREST: ";X$-X1T2: 1260: " TOTAL VALUE: ";X$- L1$: .X1(X11000.5)100+.X2(X1): X3(X1X2)1001000N.X$"$"(X2)"."((X3),2):