Compucolor.org – Virtual Media

Listing of file='EFFINT.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'

1 PLOT 14,12,6,1
4 PRINT TAB( 15)"EFFECTIVE INTEREST RATE ON INVESTMENTS"
7 PLOT 15,10,6,39,11,10
8 PRINT " THIS PROGRAM CALCULATES THE EFFECTIVE INTEREST RATE FOR "
9 PRINT " A KNOWN INVESTMENT.  WHICH AMOUNTS TO A FUTURE VALUE IN A "
10 PRINT " SPECIFIED PERIOD OF TIME.  THIS RATE EXPRESSES THE ACTUAL "
12 PRINT " RATE OF THE INTEREST EARNED ANNUALLY ON THE INVESTMENT. "
21 PLOT 11,14,10,6,1
30 INPUT "INITIAL INVESTMENT   = $";P
35 PRINT
50 INPUT "TOTAL VALUE AFTER Y YEARS  = ";T
55 PRINT
70 INPUT "NUMBER OF YEARS  = ";Y
80 PLOT 10,10,6,39
90 PRINT TAB( 20)"ANNUAL INTEREST RATE  =";((T/ P)^ (1/ Y)- 1)* 100;"%"
95 PLOT 6,2,10,15
100 PRINT :INPUT "MORE DATA? (1=YES 0=NO)";X
130 IF X= 1THEN RUN
150 PLOT 1