Listing of file='FCAST.BAS;01' on disk='vmedia/chip_75-sector.ccvf'
100 REM "FCAST"; GENERATE A FINANCIAL FORECAST OF RETIREMENT 110 REM W. RUST, SEPT 1982, FOR COMPUCOLOR II 120 REM A PRINTER IS REQUIRED 130 PLOT 15,6,6,12 140 PRINT "FINANCIAL FORECAST OF RETIREMENT (TURN ON THE PRINTER) 150 PRINT :PLOT 6,3 200 REM --- INPUT DATA 210 INPUT "AGE (DURING RETIREMENT) IN FIRST YEAR OF FORECAST ";A1 220 INPUT "AGE WHEN SOC SEC BEGAN OR WILL BEGIN ";B1 225 INPUT "AGE WHEN PENSION BEGAN OR WILL BEGIN ";D1 230 INPUT "ANNUAL LIVING EXPENSE IN FIRST YEAR OF FORECAST ";L1 240 INPUT "ANNUAL PENSION 1ST YEAR REC'D, OR 1ST YEAR OF FORECAST ";P1 250 INPUT "ANNUAL FIXED INCOME DURING RETIREMENT YEARS ";F1 260 INPUT "SOC SEC INCOME 1ST YEAR REC'D, OR 1ST YEAR OF FORECAST ";S1 270 INPUT "ESTIMATED AVERAGE ANNUAL PERCENT INFLATION RATE ";T1 275 INPUT "ESTIMATED ANNUAL PERCENT PENSION GROWTH RATE ";U1 280 INPUT "AVERAGE PERCENT RETURN ON YOUR CAPITAL INVESTMENTS ";R1 290 INPUT "CAPITAL ON HAND AT FIRST YEAR OF FORECAST ";C1 300 REM --- SET STARTING VALUES 301 REM --- 1=INITIAL VALUES; 2=MODIFIED VALUES 310 R2= 1+ R1/ 100:T2= 1+ T1/ 100:U2= 1+ U1/ 100 320 A2= A1:L2= L1 330 S2= 0:IF A2> = B1THEN S2= S1 335 P2= 0:IF A2> = D1THEN P2= P1 340 C2= C1 400 REM --- PRINT HEADING 401 POKE 33289,80:PLOT 14,27,18,3,15,27,13 410 PRINT 420 PRINT "FINANCIAL FORECAST OF RETIREMENT YEARS:" 430 PRINT 440 PRINT "AGE IN FIRST YEAR OF THIS FORECAST..........";A1 450 PRINT "AGE WHEN SOCIAL SECURITY BEGINS.............";B1 455 PRINT "AGE WHEN PENSION BEGINS.....................";D1 460 PRINT "ANNUAL LIVING EXPENSE IN FIRST YEAR.........";L1 470 PRINT "PENSION INCOME..............................";P1 480 PRINT "ANNUAL FIXED INCOME.........................";F1 490 PRINT "SOCIAL SECURITY INCOME......................";S1 500 PRINT "ESTIMATED AVERAGE ANNUAL PERCENT INFLATION..";T1 505 PRINT "ESTIMATED ANNUAL PERCENT PENSION GROWTH.....";U1 510 PRINT "AVERAGE PERCENT RETURN ON INVESTMENTS.......";R1 520 PRINT "CAPITAL ON HAND IN FIRST YEAR...............";C1 530 PRINT 540 PRINT "AGE CAPITAL PENSION INC "; 550 PRINT "FIXED INCOME SOC SEC INC LIVING EXP" 600 REM --- LOOP BEGINS HERE 610 IF A2= B1THEN S2= S1 620 IF A2= D1THEN P2= P1 630 C3= (C2+ P2+ F1+ S2- L2)* R2 631 C$= " "+ STR$ (INT (C2)) 632 IF C2< 1E6GOTO 640 633 C$= STR$ (INT (C2/ 1000))+ "000" 640 PRINT A2;TAB( 5);C$;TAB( 20);INT (P2); 650 PRINT TAB( 35);INT (F1);TAB( 50);INT (S2); 660 PRINT TAB( 65);INT (L2) 700 REM --- UPDATE VARIABLES 710 A2= A2+ 1 720 C2= C3 730 P2= P2* U2 740 S2= S2* T2 750 L2= L2* T2 800 REM --- TEST FOR END OF LOOP 810 IF C2< = 0THEN 1000 820 IF A2> 99THEN 2000 830 GOTO 600 1000 PRINT 1010 PRINT "YOUR CAPITAL IS GONE. YOU MUST NOW LIVE WITHIN YOUR INCOME." 2000 PRINT :PRINT 2010 POKE 33265,0:POKE 33289,64 2020 PRINT :PLOT 6,1 2030 INPUT "DO YOU WANT TO ENTER NEW NUMBERS? (Y OR N) ";Q$ 2040 IF Q$= "Y"THEN 150 2050 PRINT :PLOT 6,3 2060 END 8000 REM --- LIST ON PRINTER 8010 POKE 33289,80:PLOT 14,27,18,3,15,27,13 8020 LIST :PRINT 8030 POKE 33265,0:POKE 33289,64 8040 END