Compucolor.org – Virtual Media

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

4 PLOT 6,1,14,12
7 PRINT TAB( 23)"INITIAL INVESTMENT"
10 PLOT 10,6,3,15
11 PRINT "THIS PROGRAM CALCULATES THE INVESTMENT NECESSARY TO PROVIDE"
13 PRINT "A STATED FUTURE VALUE IN A SPECIFIED TIME PERIOD. "
15 PRINT "YOU MUST ENTER THE FUTURE VALUE OF THE INVESTMENT, THE"
17 PRINT "NUMBER OF YEARS OF THE INVESTMENT, THE NUMBER OF COUMPOUNDING"
18 PRINT "PERIODS PER YEAR, AND THE NOMINAL INTEREST RATE...."
25 PLOT 14,6,2,10
30 INPUT  "TOTAL VALUE AFTER Y YEARS  = $";T
50 INPUT "# OF COMPOUNDING PERIODS PER YEAR  = ";N
70 INPUT "NUMBER OF YEARS  = ";Y
90 INPUT "NOMINAL INTEREST RATE  = ";I
95 PRINT
110 I= I/ N/ 100
120 P= T/ (1+ I)^ (N* Y)
125 PLOT 6,1
130 PRINT TAB( 10)"INITIAL INVESTMENT  = $";INT (P* 100+ .5)/ 100
135 PLOT 15,6,2
140 PRINT :INPUT "MORE DATA ?  (1=YES  0=NO )   ?";X
180 IF X= 1THEN 4
200 LOAD "MENU":RUN