Listing of file='FURDEP.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'
9 PLOT 12 10 PRINT TAB( 20) " FUTURE VALUE OF REGULAR DEPOSITS " 18 PLOT 6,28,14 20 INPUT "REGULARLY DEPOSITED AMOUNT ";R 50 INPUT "NOMINAL INTEREST RATE ";I 70 INPUT "NUMBER OF DEPOSITS EACH YEAR ";N 90 INPUT "HOW MANY YEARS ";Y 110 I= I/ N/ 100 120 T= R* ((1+ I)^ (N* Y)- 1)/ I 126 PRINT 127 PLOT 6,2 128 PRINT SPC( 20)" FUTURE VALUE = $" ;INT (T* 100+ .5)/ 100:REM 140 PRINT :PRINT :PRINT 150 PLOT 6,2,15 160 INPUT "HAVE YOU GOT ANOTHER SAVINGS PLAN IN MIND ?? ( 1=YES, 0=NO ) ";X 190 IF X = 1 THEN 9 200 PLOT 1