Listing of file='REGDEP.BAS;01' on disk='vmedia/financial_calc-sector.ccvf'
9 PLOT 12 10 PRINT TAB( 20) " REGULAR DEPOSITS REQUIRED " 15 PRINT TAB( 15) " FOR A STATED AMOUNT AT END OF Y YEARS " 20 PRINT :PRINT :PRINT 25 PLOT 6,5,14 30 INPUT "WHAT IS YOUR SAVINGS GOAL ? ";T 50 INPUT "WHAT IS THE NOMINAL INTEREST RATE ? ";I 70 INPUT "HOW MANY DEPOSITS PER YEAR ? ";N 90 INPUT "HOW MANY YEARS DO YOU PLAN TO MAKE DEPOSITS ? ";Y 110 I= I/ N/ 100 120 R= T* I/ ((I+ 1)^ (N* Y)- 1) 125 PLOT 6,2,14 126 PRINT :PRINT :PRINT 127 PRINT "YOU WILL HAVE TO REGULARLY DEPOSIT $";INT (R* 100+ .5)/ 100 129 PRINT :PRINT :PRINT 130 PLOT 15 135 INPUT "WANT TO TRY A DIFFERENT GOAL (1=YES 0=NO ) ";X 145 IF X= 1THEN 09 150 PLOT 1