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