Є
: " FINANCIAL PACKAGE" "copyright (c) 1985" "Dr. Michael W. Ecker" 4( "Recreational Mathemagical Software L2 "129 Carol. Drivek< "Clarks Summit, PA 18411F: "-- more -- "; X$ PZ "MENU OF PROGRAMS"_ "================ۅd "1) COMPOUND INTEREST n "2) ANNUITY PLANNING x "3) LOAN AMORTIZATION -} "4) QUIT: PROGRAM 3V "CHOICE NUMBER (1,2,3,4)";N d N4 N1 N2 NC3 140 : N 1000, 2000,3000: 80 ؆"===COMPOUND INTEREST CALCULATION===" "I'LL ASK YOU THE AMOUNT YOU WISH TO 1 "deposit (one deposit only), followed"_ "by the interest rate (percent) and the "term in years, as well as the number" "of times per year interest is given."և$:"Enter to continue";X܇.8"Principal {no dollar sign)";P= PO 1080AB"Annual interest rate (percent)";I:RI100RG I0 1090tL"Time (number of years) ";T V"How many times per year (interest) ";N`: "Enter for results";X$j: "At the end of the period, you will havetAP(1RN)(NT)~A(100A)100 ' "$";A-_ "Do more interest calculations (Y or N)";R$| R$"Y" R$"y" 1070 "ANNUITY PLANNING" "================" "In this portion, you can make financial" "projections of retirement income."0: "Enter for more ---";X6_ "I'll ask you how much you wish to "save or deposit each period. That is," "specify the constant amount you will"* "deposit each period. Then give the"4 "expected average high and low interest"@> "rates (or any two rates - percents),mH "followed by the period of payments inR "years.";:" " ;:"More--->";X$ ŋT: "ALSO GIVE THE NUMBER OF PAYMENTS PERV "YEAR WHEN ASKED FOR THE FREQUENCY." X "INTEREST IS ASSUMED TO BE GIVEN FOR ANY NZ "PREVIOUS BALANCE AT PAYMENT TIMES.": p[ "READY TO BEGIN (ENTER)";X$v\f"PRINCIPAL (PERIODIC PAYMENT)";Pk PO 2150 ͌p "FIRST INTEREST RATE";I1u I10 2160 xI1I1100z"SECOND INTEREST RATE";I I20 2170,I2I2100[ "PAYMENT FREQUENCY (number per year) ";Nv NO N(N) 2180 "TIME IN YEARS";T "Enter for results --->";X$ "PERIOD "; "BALANCE #1 ";"BALANCE #2" DL1 1000: DL)S10: S20: 2 RATES, 2 SUMS> PERIOD1 NTSS1(1I1N)S1PhS2(1I2N)S2P}S1(S1100)100S2(S2100)100 PERIOD;" ";S1,S2 PERIOD "BALANCES: ";(1OOS1(1I1N))100; (100S2(1I2N))100 DL1 1000: DL3 "DO MORE ANNUITIES (A)?R "OR RETURN TO MENU (M)?"v "Touch M or A, then Enter";N$ N$"M" N$"m" N$"A" N$"a" 2050͏ "QUICK LOAN AMORTIZATION" "======================="
:"ANSWER THE QUESTIONS5 "AND THE COMPUTER WILL PROVIDE YOUR"U"MONTHLY PAYMENT AMOUNT. "o: "MORE ---->>";X$u "PRINCIPAL (AMOUNT BORROWED)";PĐ "ANNUAL INTEREST RATE (percent)";RА
RR100 "TERM OF LOAN (NUMBER OF YEARS)";T(& "YOUR MONTHLY PAYMENT AMOUNT IS ";N0APR(12(1(12(12R))(12T)))d:A(100A.5)100mD A N:"L FOR MORE LOANS, M FOR MENU";X$X X$"L" X$"l" 3000͑b X$"M" X$"m" ӑ