Listing of file='FUTVAL.BAS;01' on disk='vmedia/home_budget_2-sector.ccvf'
10 REM FUTURE VALUE 20 REM 30 REM ADAPTED FROM A PROGRAM BY JOSEPH NAJJAR 40 REM IN MICROCOMPUTING, SEPTEMBER 1982, BY 50 REM 60 REM J.R.FARQUHAR 70 REM 80 PLOT 12,27,11:GOSUB 2000 90 FLAG= 0:C= 1:LINE= 4:P= 1 100 DIM CF(100),N(100) 110 PLOT 3,0,0:PRINT "PERIOD CASH FLOW NO OF CONSECUTIVE" 120 PRINT "NUMBER AMOUNT SIMILAR CASH FLOWS" 130 PRINT "---------------------------------------------------------------" 140 PRINT 150 PLOT 3,0,LINE:PRINT ""P;TAB( 23);""; 160 A$= "" 170 INPUT A$ 180 IF A$= "END"AND C< > 1THEN 340 190 CF(C)= VAL (A$):IF C= 1AND CF(C)> 0THEN CF(C)= - CF(C):FLAG= 1 193 IF C< > 1AND FLAG= 1THEN CF(C)= CF(C)* - 1 195 IF ABS (CF(C))= 0AND A$< > "0"THEN PLOT 7:GOTO 250 200 PLOT 3,52,LINE:PRINT ""; 210 N(C)= 1 220 INPUT N(C):IF N(C)< > INT (N(C))OR N(C)< = 0THEN PLOT 7:GOTO 250 230 IF N(C)> 1THEN GOSUB 280 240 C= C+ 1:P= P+ 1 250 IF LINE< 30THEN LINE= LINE+ 2 260 PRINT 270 GOTO 110 280 FOR X= 2TO N(C) 290 P= P+ 1 300 IF LINE< 30THEN LINE= LINE+ 2 310 PRINT 320 PLOT 3,0,LINE:PRINT ""P;TAB( 24);""CF(C) 330 NEXT X:RETURN 340 C= C- 1 350 PRINT :INPUT "CALCULATE (F)UTURE VALUE OR (I)NTEREST RATE...";A$ 360 IF A$= "I"THEN 510 370 IF A$< > "F"THEN PLOT 7:GOTO 350 380 PRINT :INPUT "WHAT IS THE ASSUMED INTEREST RATE PER PERIOD (IN %) ";II 390 IF II= 0THEN PLOT 7:GOTO 380 400 II= II/ 100 410 GOSUB 680 420 PLOT 12,3,0,14:PRINT "THE FUTURE VALUE IS....$";FV 430 PLOT 3,0,20:INPUT "DO YOU WANT TO RECALCULATE AT A DIFFERENT INTEREST RATE ";A$ 440 IF A$= "Y"THEN 380 450 IF A$< > "N"THEN PLOT 7:GOTO 430 460 A$= "" 470 INPUT "DO YOU WANT TO RUN AGAIN FROM SCRATCH (Y/N) ";A$ 480 IF A$= "Y"THEN RUN 490 IF A$= "N"THEN LOAD "MENU":RUN 500 PLOT 7:GOTO 470 510 INPUT "WHAT IS THE REQUIRED FUTURE VALUE (IN $) ";RFV 520 REM IF II=0 THEN 530 530 II= .5:IL= 0:IH= 1 540 PRINT :PRINT TAB( 10)"INTEREST FUTURE VALUE":PRINT 550 REM REPEAT UNITL FUTURE VALUE = REQD FV 560 PRINT TAB( 10)II,,:GOSUB 680:PRINT TAB( 32)FV 570 IF INT (FV)= RFVOR INT (FV)= CFVTHEN 630 580 IF (FV)< RFVTHEN IL= II:II= II+ (IH- IL)/ 2 590 IF (FV)> RFVTHEN IH= II:II= II- (IH- IL)/ 2 600 CFV= INT (FV) 610 GOTO 560 620 REM UNTIL FV = RFV 630 PRINT :PRINT "THE REQUIRED INTEREST RATE IS: ";INT (II* 10000)/ 100;"% PER PERIOD" 640 INPUT "DO YOU WANT TO RECALCULATE FOR A DIFFERENT FUTURE VALUE ";A$ 650 IF A$= "Y"THEN PLOT 12:GOTO 510 660 IF A$< > "N"THEN PLOT 7:GOTO 640 670 GOTO 470 680 NN= 0:T= 0 690 FOR X= CTO 1STEP - 1 700 FOR Y= 1TO N(X) 710 NN= NN- CF(X)* (1+ II)^ T 720 T= T+ 1 730 NEXT Y 740 NEXT X 750 FV= NN:RETURN 2000 PLOT 3,10,14:INPUT "DO YOU WANT INSTRUCTIONS (Y/N)? ";A$:IF LEFT$ (A$,1)= "N"THEN PLOT 12:RETURN 2005 IF LEFT$ (A$,1)< > "Y"THEN PLOT 7:GOTO 2000 2010 PLOT 12:PRINT :PRINT "THIS PROGRAM ENABLES YOU TO CALCULATE EITHER A FUTURE VALUE" 2020 PRINT "GIVEN A COMBINATION OF REGULAR DEPOSITS AND WITHDRAWALS INTO" 2030 PRINT "AND FROM AN INVESTMENT PLUS THE INTEREST RATE, OR THE INTEREST" 2040 PRINT "RATE REQUIRED FOR A PATICULAR FUTURE VALUE." 2050 PRINT :PRINT "THE BASIS FOR THE CALCULATIONS IS THE PERIOD NUMBER. THIS" 2060 PRINT "CAN BE ANY LENGTH YOU DESIRE (WEEKS, MONTHS, YEARS), BUT MUST" 2070 PRINT "BE THE SAME FOR ALL SUBSEQUENT PERIODS. YOU ARE THEN ASKED" 2080 PRINT "TO ENTER THE AMOUNT FOR THAT PERIOD. THE CONVENTION TO REMEMBER" 2090 PRINT "IS -XXX FOR AMOUNTS GOING FROM YOUR POCKET INTO AN INVESTMENT" 2100 PRINT "AND +XXX (OR JUST XXX) FOR AMOUNTS GOING INTO YOUR POCKET FROM" 2110 PRINT "AN INVESTMENT. TO PREVENT A LOT OF UNNECESSARY TYPING, YOU ARE" 2120 PRINT "THEN ASKED TO ENTER THE NUMBER OF SIMILAR CONSECUTIVE CASH" 2130 PRINT "FLOWS." 2140 PRINT :PRINT "WHEN YOU HAVE FINISHED ENTERING YOUR DATA, ENTER 'END' TO THE" 2150 PRINT "QUESTION '?' (AMOUNT?). YOU WILL THEN HAVE TO ANSWER WHETHER" 2160 PRINT "YOU WANT THE FUTURE VALUE CALCULATED FOR THE SERIES OF CASH" 2170 PRINT "FLOWS ENTERED, OR WHETHER YOU WANT THE INTEREST RATE CALCULATED" 2180 PRINT "FOR A PARTICULAR FUTURE VALUE. AFTER ANSWERING THIS QUESTION" 2190 PRINT "THE PROGRAM IS SELF-EXPLANATORY." 2195 PRINT :INPUT "HIT <RETURN> TO CONTINUE....";A:PLOT 12 2200 PRINT :PRINT "AS AN EXAMPLE, ASSUME YOU WON A MILLION DOLLAR LOTTERY" 2210 PRINT "AND HAD A CHOICE OF HAVING IT PAID TO YOU IN DEMOMINATIONS OF" 2220 PRINT "$50000 FOR 20 YEARS, OR A ONCE-ONLY PAYMENT OF $350000." 2230 PRINT "RUN THIS PROGRAM AND ENTER -350000 FOR ONE PERIOD. THEN ENTER" 2240 PRINT "+50000 (OR 50000) FOR 20 PERIODS. YOU CAN ESTABLISH BY EITHER" 2250 PRINT "CHOICE THAT AN INTEREST RATE OF 13.06% WILL GIVE YOU A FUTURE" 2260 PRINT "VALUE OF 0, 14.28% WILL GIVE YOU A FUTURE VALUE OF $350000," 2270 PRINT "OR 15.24% WILL GIVE YOU A FUTURE VALUE AFTER 20 YEARS OF " 2280 PRINT "$700000. SO IF YOU RECKON THAT YOU CAN GET AN INTEREST RATE" 2290 PRINT "OF BETTER THAN 13.06%, YOU ARE BETTER OFF TAKING THE $350000" 2300 PRINT "AND INVESTING IT ON THE MARKET YOURSELF." 2310 PRINT :INPUT "HIT <RETURN> TO CONTINUE WITH THE PROGRAM ";A:PLOT 12:RETURN