Listing of file='MININV.BAS;01' on disk='vmedia/financial_calc-sector.ccvf'
1 PLOT 14,6,3,12,10,10 10 PRINT TAB( 15)"MINIMUM INVESTMENT FOR WITHDRAWALS":PRINT 29 PLOT 6,1 30 INPUT "AMOUNT OF WITHDRAWALS ?? ";R 35 PRINT 50 INPUT "NOMINAL INTEREST RATE ?? ";I 55 PRINT 70 INPUT "NUMBER OF WITHDRAWALS PER YEAR ?? ";N 75 PRINT 90 INPUT "NUMBER OF YEARS ?? ";Y 95 PRINT :PRINT 110 I= I/ 100 120 P= R* N/ I* (1- 1/ ((1+ I/ N)^ (N* Y))) 125 PLOT 6,3 130 PRINT TAB( 8)"MINIMUM INVESTMENT = $ ";INT (100* P+ .5)/ 100 140 PLOT 10,15,6,2 150 INPUT "MORE DATA (1=YES, 0=NO) ";X 170 IF X= 1THEN RUN 190 PLOT 1