Z$()
M$()
PR$"####.##%"
V$"$$#,###,###,###.##"
I$"###.##%"2D$"": GI2$"##"YY$"Y":N$"N"o J,B,R,A,Q,P,T,Yu(2 D$;< &);"MENU"F D$;P "(1) Future Value of Investment (11) Depreciated Investment"ZId "(2) Future Value of Annuity (12) Salvage Value Year End"Onx "(3) Future Value of Savings (13) Discounted Commercial Paper" "(4) Withdrawals From Investment (14) Loan Principal"T "(5) Minimum Investment for Income (15) Loan Payment Schedules"Z "(6) Income From Investments (16) Final Loan Payments" "(7) Nominal Interest Rates (17) Remaining Loan Balance"_ "(8) Effective Interest Rates (18) Loan Repayment Periods"e "(9) Earned Interest Table (19) Loan Annual Interest Rate" "(10) Annual Depreciation Rate (20) Mortgage Amortization Table"( ,,2 D$;e "Select a Program by Number (0 to Exit): ";Zu Z " Z J,,,p,L,2,,,,,,t ,2
, Z Z1Z
6 Z1 ,,b,R
,V,
,F@ (J HT" #1 Future Value of Investment": D$;YY ,: D$;^ ,: "Enter the Initial Value of Investment: ";P: ,?: V$;Ph "Enter Nominal Interest Rate: ";I:
,?: I$;I": "Enter Number of Compounding Periods Each Year: ";N: ,?: N(i "Enter Number of Years for the Investment: ";Y: ,?: YoIINdTP(I)(NY)::"Future Value of This Investment is: ";: ,?: ,: V$;T: " ,: "Want Another Future Value Calculation (Y or N): ";ANS$C (ANS$,)Y$ J : ( :" Future Value of Regular Deposits  Annunity": D$; ,: D$;& ,: "Enter Amount of Regular Deposit: ";R0 ,?: V$;R,:
,: "Enter Nominal Interest Rate: ";I:
,A: I$;IiN: "Enter Number of Deposits Each Year: ";N: ,A: Nb: "Enter the Number of Years: ";Y: ,A: YlIINdvTR((I)(NY))I: "FUTURE VALUE IS: ";: ,?:
,: V$;T: = ,: "Another Future Value Calculation (Y or N): ";ANS$d (ANS$,)"y" : : (n " Future Value of Annuity or Savings Account" ,: "Enter Desired Future Value: ";T: ,?: V$;T5 "Enter Nominal Interest Rate: ";I:
,?: I$;Iq: "Enter Number of Deposits Per Year: ";N: ,?: N: "Enter the Number of Years: ";Y: ,?: YIINd RTI((I)(NY))"R$(R):T$(T)$L1(R$):L2(T$)q*::"Regular deposits of: ";:
,: ,((
L1)): V$;R;: :" will yield:";: V$;T:" in: ";Y;" years"4 ,: "Another run (Y or N): ";ANS$> (ANS$,)"Y" : (p :" Regular Wuthdrawals from an Investment": D$: ,: D$;h ,: "Enter the amount of your initial investment: ";P: ,?: V$;P "Enter nominal interest rate: ";I:
,?: I: "Enter the number of withdrawals each year: ";N: ,?: N: "Enter the number of years: ";Y: ,?: Y!IINd?RP(I((I)(NY))I) ,:"You may withdraw: ";: : V$;R;: :" from your account: ";N:"times per year for : ";Y;" years without reducing your initial investment". ,: "Do you want another calculation (Y or N): ";ANS$68 ANS$"Y" p : (L :" INVESTMENT REQUIRED TO PROVIDE FUTURE VALUE": V ,: "Enter amount you wish to end up with: ";T: ,?: V$;T` "Enter the number of compounding periods each year: ";N:
,?: Naj: "Enter the number of years for this investment: ";Y: ,?: Yt: "Enter the nominal interest rate: ";I: ,?: II1IIINdPT(I)(NY) ,:"You must invest: ";: : V$;P;: :" to yield: ";: V$;TP ,: "Do you want to make another calculation: ";ANS$l ANS$"Y" L : (2 :" MINIMUM INVESTMENT FOR INCOME";: D$: ,: D$;: ,d "Enter number of withdrawals each year: ";N: ,?: NCn "Enter amount of each withdrawal: ";R:
,?: V$;R "Enter the nominal interest rate: ";I: ,?: I$;I: "Withdrawal to occur for how many years: ";Y: ,?: YI1IIIdPRNI(((IN)(NY)))V ,:"A minimum investment of: ";: : V$;P;: :" will yeild your desired return" ,: "Do you want another calculation (Y or N): ";ANS$ ANS$"Y" 2 : (!: D$:" NOMINAL INTEREST ON INVESTMENTS:": D$: ,: D$;K!" ,: "Enter the amount of the principal: ";P: ,?: V$;P!, "Enter total amount of investment: ";T:
,?: V$;T!^ "Enter the number of years of the investment: ";Y: ,?: Y": "Enter the compounding periods each year: ";N: ,?: N/"I2N((TP)((NY)))d" ,: "The nominal interest rate for the above parameters is: ";: : I2;: " ,: "Do you want another calculation (Y or N): ";ANS$" ANS$"Y" : (/# :" EFFECTIVE INTEREST ON INVESTMENTS";: {#& ,: "Enter the amount of the initial investment";P: ,?: V$;P#: "Enter the desired future value: ";T:
,?: V$;T$N "Enter the life of the investment in years";Y: ,H: Y;"Years"%$X A((T P) ( Y) ) d$l ,:"The effective annual interest rate of the investment is:";:
,: PR$;A: $ ,: "Do you want to run another (Y or N): ";ANS$: (ANS$,)Y$ : (% : (Y$,) "Y" : % (/% EARNED INTEREST TABLE;% : D$l% "#9 EARNED INTEREST TABLE FOR INVESTMENT"t% ~% D$% " ******** UNDER CONSTRUCTION ********"% I : I: (% DEPRECIATION RATE ON INVESTMENT& F& " ANNUAL DEPRECIATION RATE OF AN INVESTMENT"Q& & ,: "Enter the Original Price of the Item";P: ,?: V$;P&4 "Enter the Resale Price of the Item";T:
,?: V$;T'H "Enter the Item's Life in Years";Y: ,I: I2$;Y;:" Years"B'\D d ( (T P) ( Y))'p ,: "If You Purchased This Item for:";: V$;P;:" and Sold it ";: I2$;Y;:" Years Later"( "for: ";: V$;T;:", the Actual Depreciation Rate is: ";:
,: PR$;D: .( ,: "Another Run (Y or N): ";ANS$U( (ANS$,) "Y" : (( CALCULATE THE AMOUNT OF DEPREC OF AN ITEM( ( " AMOUNT DEPRECIATED WITHIN A YEAR"( &) ,: "Enter the Original Price of the Item:";P: ,?: V$;P.) 9)K dk) "WHAT PERCENT DO YOU WANT TO DEPRECIATE";Is) ) I I d) : N K) YN)$ D P I ( I) (Y )). "YEAR #";Y;"DEPRECIATION IS $"; D:
*8 X X : X X 6*B "PRESS RETURN FOR MORE": X$: M*L D N~*V : "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$*` (Y$,) "Y" : *j (*t : D$*~ " #12 CALCULATE THE SALVAGE VALUE"+ " OF AN ITEM..."+ D$H+ "ENTER THE ORIGINAL PRICE OF THE ITEM";PP+ ~+ "ENTER THE ITEM'S DEPRECIATION RATE";I+ + K d+ N K+ YN+ S P ( I d) Y+ "YEAR #";Y;"SALVAGE VALUE IS $";S+ , X X : X X A,
"PRESS RETURN FOR MORE": X$: X,
S N,
: "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$,
(Y$,) "Y" : t ,(
(,2
FIND AMOUNT OF DISC PAPER,<
: D$F
"#13 CALCULATE THE NET COST OF DISCOUNTED">P
" PAPER.."HZ
D$Pd
~n
"ENTER THE FUTURE VALUE OF THE NOTE";Tx
"ENTER THE DISCOUNT RATE";D

"ENTER THE NUMBER OF DAYS TO MATURITY";N
D D d.
D1 T D N h .
3.
"IF YOU PURCHASE A NOTE WORTH $";T\.
" DUE IN";N;"DAYS".
"AT A DISCOUNT RATE OF";D d;"PERCENT,".
"THE DISCOUNT AMOUNT WILL BE $";D1.
"AND THE COST WILL BE $";T D1;" ."/
: : "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$@/
(Y$,) "Y" : 2
K/
(W/ : D$~/ )"#14 PRINCIPAL ON A LOAN"/ /" D$/, "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N/6 /@ "WHAT IS THE AMOUNT OF EACH PAYMENT";R0J 20T "WHAT IS THE LOAN ANNUAL INTEREST RATE";I:0^ i0h "ENTER THE LIFE OF THE LOAN IN YEARS";Y0rP R N ( ((I d) N ) (N Y)) (I d)0: "The principal on this loan is: "; "$$#,###,###.##";P 1 : : "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$H1 (Y$,) "Y" : S1 (_1 : D$1 " #15 REGULAR PAYMENT ON A LOAN.."1 1 D$1 "WHAT IS THE LIFE OF THE LOAN IN YEARS"1 Y2"WHAT IS TRHE ANNUAL INTEREST RATE ";I52 "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";Nb2 "WHAT IS THE LOAN PRINCIPAL AMOUNT";P2 : :R ((I d) P N) ( ((I d) N ) (N Y))2I1 I2 "Regular payments of "; "$$#,###,###.##";R;3 " made ";N;" times each year"13& "are required to satisfy"30 "a loan of "; "$$#,###,###.##";P;: " for a period of "; "###";Y;: " years"3: "at an interest rate of";I1;" pecent per annum."3D : : "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$4N (Y$,) "Y" : (4X (44b : D$_4l
)"#16 LAST PAYMENT ON A LOAN"g4v q4 D$4 "WHAT IS THE LIFE OF THE LOAN IN YEARS";Y4 "ENTER THE ANNUAL INTEREST RATE";I4
5 "WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R5 E5 "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";NM5 5 "ENTER THE AMOUNT OF THE LOAN PRINCIPAL";P5 :I1 I:I I d:BO P5 N Y d )"WORKING THE PROBLEM"5 K N Y6I2 ((BO I N) d ) d%6
A R I256
BO BO A>6
Kg6
"THE LAST PAYMENT FOR THIS LOAN,"6*
"WILL BE $"; ((R BO) d ) d64
: : "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$6>
(Y$,) "Y" : b7H
(7R
: D$=7\
" #17 REMAINING BALANCE ON A LOAN"E7f
O7p
D$7z
"ENTER THE NUMBERS OF PAYMENTS MADE EACH YEAR";N7
7
"ENTER THE ANNUAL INTEREST RATE";I7
7
"WHAT IS THE AMOUNT OF EACH PAYMENT";R7
+8
"WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P38
Z8
"ENTER THE LAST PAYMENT MADE ,"8
" (PAYMENT #, YEAR # )";N1,Y8
: "WORKING ON PROBLEM"8
I I d8
BO P8
K N (Y ) N19I1 ((BO I N) d ) d9A R I1.9BO BO A79$ Kz9. : "THE REMAINING BALANCE IS $"; (BO d ) d98 : "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$9B (Y$,) "Y" : R
9L (9V : D$
:`
)"THE TERM OF A LOAN":j :t D$Q:~ "ENTER THE NUMBER OF PAYMENTS EACH YEAR";NY: : "ENTER THE ANNUAL INTEREST RATE";I: : "WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R: : "WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P; R;Y ( ( (P (I d)) (N R)) ( ( I d N) N)); "A TERM OF"; (Y
)
;"YEARS WILL SATISFY THIS LOAN."; "SATISFY THIS SCHEDULE."; : "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$< (Y$,) "Y" : V#< (/<
: D$`< "#19 THE ANNUAL INTEREST RATE ON A LOAN"j< D$<( " ******** UNDER CONSTRUCTION ********"<2 I : I<< ( "Nunber of Years";N>J J dY>N N :I J :B I:R A I ( B N)> "Amount per Payment =";"$$,###,###.##";R>Q (R N A)> "Total Interest=";"$$,###,###.##";Q> "To Begin Listing Hit Any Key...":F?A$? A$"" ? :B A*?" ^?, "PMT INTEREST PRINCIPAL BALANCE"?6C C :L B I:P R L:B B P: B B?@ "###";C;: "$$,###,###.##";L;P;B?JF F ?T F ?^ NC 6?hDRB+@ "Last Payment was...";"$$,###,###.##";DX@ "Do You Want to Run Another (Y/N)";Y$}@ (Y$,) "Y" F : (@"TO CONTINUE STRIKE ANY KEY, ESC TO STOP"@A$: A$"" @ A$() : @ @F @ A ,A:A:!A& /A: D$;:HA D$;: ,: D$;:NAA: ,':"Bye":"C11D11E11D6E11C4": ,:"FINMENU":A:!A& /A: D$;:HA D$;: ,: D$;:NAA: ,':"Bye":"C11D11E11D6E11C4": ,: