2' NAME--BANKPROJ 4' 6' DESCRIPTION--PROJECTS 8 BALANCE SHEET AND INCOME STATEMENT 7' ENTRIES FOR A BANK 10 YEARS INTO THE FUTURE. 8' 10' SOURCE--H.C. SIMPSON, REVISED 2/12/68 12' 14' INSTRUCTIONS--FOR EXPLANATORY NOTES ON THIS PROGRAM, SEE 15' PROJINF*** 16' 18' THIS PROGRAM WAS WRITTEN FOR STUDENT USE AT AMOS TUCK SCHOOL 19' OF HANOVER, N.H., WHICH DOES NOT ASSUME RESPONSIBILITY FOR 20' ITS ACCURACY. 22' 24' * * * * * * * * * * * * MAIN PROGRAM * * * * * * * * * * * * 26' 40PRINT TAB(20);"HANOVER BANK & TRUST CO." 45PRINT TAB(15);"PLANNING MODEL - FINANCIAL PROJECTION" 50PRINT 60PRINT 130 DIM T(50,11) 140 DIM O(25), N(25), P(25) 150DIM I(30) 170MAT T=ZER(50,11) 180 LET M=L1=X1=Y1=A2=J4=A4=A8=0 190 LET L9=T9=A=0 192 LET L4=L5=L7=0 195 REM LINES 200-696. TRENDS ARE CALCULATED IN SUB 5000 AND PROJECTED 196 REM FORWARD FOR 10 YEARS IN SUB 5200 200FORJ=1TO8 210GOSUB5000 220LETY(J)=R 225 LET Z(J)=INT(100*((G(1)-G(2))/G(2))) 240FORI=1TO10 250LETQ(I,J)=R1 260NEXTI 270NEXTJ 280LETK=A(0)=Y(1) 290LETJ=1 300GOSUB5200 310FORI=1TO10 320LETA(I)=S(I) 330NEXTI 340LETK=B(0)=Y(2) 350LETJ=2 360GOSUB5200 370FORI=1TO10 380LETB(I)=S(I) 390NEXTI 400LETK=C(0)=Y(3) 410LETJ=3 420GOSUB5200 425FORI=1TO10 430LETC(I)=S(I) 440NEXTI 450LETK=D(0)=Y(4) 460LETJ=4 470GOSUB5200 475FORI=1TO10 480LETD(I)=S(I) 485NEXTI 490LETK=E(0)=Y(5) 500LETJ=5 510GOSUB5200 520FORI=1TO10 530LETE(I)=S(I) 540NEXTI 550LETK=F(0)=Y(6) 560LETJ=6 570GOSUB5200 575FORI=1TO10 580LETF(I)=S(I) 585LETG(I)=0 590NEXTI 600LETK=G(0)=Y(7) 610LETJ=7 620GOSUB5200 630FORI=1TO10 640LETG(I)=S(I) 650NEXTI 660LETK=H(0)=Y(8) 670LETJ=8 675 GO SUB 5200 680FORI=1TO10 690LETH(I)=S(I) 695LETS(I)=0 696NEXTI 697 IF K1>0 THEN 1030 700 READ A2,D8,A8,E9,A4 705 READ M,A9,R3,A6 706 READ L8,L6 707 FORJ=1 TO 12 710 READ N(J) 712NEXTJ 713 FOR J=1 TO 12 720 READ O(J) 722 NEXT J 725 FOR J= 1 TO 12 730 READ P(J) 735 NEXT J 740 MAT READ R(10) 750 MAT READ U(10) 755 MAT READ V(10) 770 MAT READ X(10) 780 MAT READ I(30) 790 LET L6=L6/100 800 LET N(2)=N(2)/100 810 LET O(2)=O(2)/100 820 LET P(2)=P(2)/100 830 FOR I=1 TO 10 840 LET U(I)=U(I)/100 850 NEXT I 860 FOR I=1 TO 30 870 LET I(I)=I(I)/100 880 NEXT I 1000 DATA 8653,8639,9223,9456,10781 1001 DATA .1,.1,.1,.1,.1 1002 DATA 2236,2592,2902,2975,3623 1003 DATA 131,146,141,104,169 1004 DATA 1055,1173,1387,1373,1435 1005DATA 410,470,532,600,670 1006DATA200,300,400,500,600 1007 DATA 11,10,10,10,9 1008 DATA 2360,90 1009 DATA 68 1010 DATA 142,40 1011 DATA 1158 1012 DATA 1967 1013 DATA 2,36 1014 DATA 1800,4 1016 DATA 1648,6,400,200,200,100,100,100,800,0,0,0 1017 DATA 1590,4,100,100,100,100,100,100,100,100,100,100 1018 DATA 75,5,50,25,0,0,0,0,0,0,0,0 1019 DATA 5,5,5,5,5,5,5,5,5,5 1020 DATA 4.5,5,5,5,5,5,5,5,5,5 1021 DATA 0,0,0,0,0,0,0,0,0,0 1022 DATA 0,0,0,0,0,0,0,0,0,0 1024 DATA 6,6,6,6,6,6,6,6,6,6 1025 DATA 5,5,5,5,5,5,5,5,5,5 1026 DATA 8,8,8,8,8,8,8,8,8,8 1027 REM LINES 1031-1080. ROUNDS ANNUAL TRENDS 1028 FOR I=1 TO 10 1029 LET L9=I 1030 LET I=L9 1031 LET Z1=INT(100*Q(I,1)+.5) 1032 LET Z2=INT(100*Q(I,2)+.5) 1040 LET Z3=INT(100*Q(I,3)+.5) 1045 LET Z4=INT (100*Q(I,4)+.5) 1050 LET Z5=INT(100*Q(I,5)+.5) 1060 LET Z6=INT(100*Q(I,6)+.5) 1070 LET Z7=INT(100*Q(I,7)+.5) 1080 LET Z8=INT(100*Q(I,8)+.5) 1099 REM LINES 1100-1160 CALCULATED AND ROUNDS % BREAKDOWN OF PORTFOLIO 1100 LET P1=C(I-1)+D(I-1)+E(I-1)+N(1)+O(1)+P(1)+L8 1110 LET P2=INT(100*C(I-1)/P1+.5)/100 1120 LET P3=INT(100*D(I-1)/P1+.5)/100 1130 LET P4=INT(100*E(I-1)/P1+.5)/100 1140 LET P5=INT(100*N(1)/P1+.5)/100 1150LETP6=INT(100*O(1)/P1+.5)/100 1158 LET P8=INT(100*L8/P1+.5)/100 1160 LET P7=INT(100*(1-P5-P6-P2-P3-P4-P8)+.5) 1170 LET D=I+10 1198 IF K1>0 THEN 1300 1199 PRINT 1200 PRINT"EARNING ASSETS BREAKDOWN AT THE END OF LAST YEAR AS FOLLOWS:" 1220 PRINT 1225 PRINT "ASSET NO","DESCRIPTION","PERCENT" 1230 PRINT" 1 ","GOV OBLIG",P5*100 1240 PRINT" 2 ","STATE & MUN",P6*100 1250 PRINT" 3 ","COM LOANS",P2*100 1260 PRINT" 4 ","R.E. LOANS",P3*100 1270 PRINT" 5 ","CONS LOANS",P4*100 1275 PRINT" 6 ","LIQUID LOANS",100*P8 1280 PRINT" 7 ","OTHER ASSETS",P7 1290 PRINT" ","TOTAL ","100" 1300 PRINT 1307 IF K1>0 THEN 1310 1308 IF I>1 THEN 1412 1310 PRINT"THE FOLLOWING TRENDS HAVE BEEN CALCULATED (ANNUAL % CHANGE):" 1315 PRINT 1320 PRINTTAB(0);"TREND NO";TAB(16);"DESCRIPTION";TAB(50);"5 YEAR TREND"; 1321 PRINT TAB(65);A9 1330 PRINT TAB(6);"1";TAB(16);"DEMAND DEPOSITS";TAB(50);Z1;TAB (65); 1331 PRINT Z(1) 1340 PRINTTAB(6);"2";TAB(16);"TIME DEPOSITS";TAB(50); 1341 PRINT Z2;TAB(65);Z(2) 1350 PRINT TAB(6);"3";TAB(16);"COMMERCIAL LOANS";TAB(50); 1351 PRINT Z3;TAB(65);Z(3) 1360 PRINT TAB(6);"4";TAB(16);"REAL ESTATE LOANS";TAB(50); 1361 PRINT Z4;TAB(65);Z(4) 1370 PRINT TAB(6);"5";TAB(16);"CONSUMER LOANS";TAB(50); 1371 PRINT Z5;TAB(65);Z(5) 1380 PRINT TAB(6);"6";TAB(16);"COSTS EXCLUDING INTEREST";TAB(50); 1381 PRINT Z6;TAB(65);Z(6) 1390 PRINT TAB(6);"7";TAB(16);"INCOME EXCLUDING INTEREST";TAB(50); 1391PRINTZ7;TAB(65);Z(7) 1400 PRINT TAB(6);"8";TAB(16);"DEPRECIATION CLAIMED";TAB(50); 1401 PRINT Z8;TAB(65);Z(8) 1410 PRINT 1411 IF K1>0 THEN 1430 1412 PRINT 1415 PRINT"------------------------------------------------------------" 1416 PRINT 1417 PRINT 1420 PRINT TAB(20);"PROJECTION FOR YEAR"A9+I 1421 PRINT TAB(18);"*****************************" 1430 PRINT 1435 LET K1=0 1440 PRINT"DO YOU WISH TO CHANGE TRENDS?" 1442 PRINT"(NO=0,YES = NUMBER OF CHANGES)"; 1450 INPUT K1 1460 IF K1=0 THEN 1490 1470 FOR J=1 TO K1 1475 PRINT"ENTER TREND NUMBER,NEW RATE"; 1480 INPUT K2,K3 1485 LETQ(I,K2)=K3/100 1487 NEXT J 1488 GO TO 280 1490 PRINT 1491 LET L7=(L8-.5*L8)*L6 1492 PRINT"EARNING ASSETS ARE MATURING THIS YEAR IN THE AMOUNT OF:" 1493 PRINT TAB(12);"GOVERNMENT OBLIGATIONS";TAB(50);N(I+2) 1494 PRINT TAB(12);"STATE & POLITICAL OBLIGATIONS";TAB(50);O(I+2) 1495PRINT TAB(12);"OTHER INVESTMENTS";TAB(50);P(I+2) 1496 PRINT TAB(12);"LIQUIDITY LOANS";TAB(50);L8 1497 LET N(1)=N(1)-N(I+2) 1498 LET O(1)=O(1)-O(I+2) 1499 LET P(1)=P(1)-P(I+2) 1500 LET T(16,I)=(C(I-1)-C(I))+(D(I-1)-D(I))+(E(I-1)-E(I))+L8-L5 1502 IF T(16,I)>0 THEN 1508 1504 LET W(I)=-(.024*T(16,I)) 1508 LET E9=E9+W(I) 1509 REM LINES 1510-2095.CALCULATES AND UPDATES ANNUAL STATEMENTS 1510 LET C1=(C(I)-.5*(C(I)-C(I-1)))*I(I) 1520 LET C2=(D(I)-.5*(D(I)-D(I-1)))*I(I+10) 1530 LET C3=(E(I)-.5*(E(I)-E(I-1)))*I(I+20) 1540 LET T(1,I)=C1+C2+C3+L7 1590 LET C4=(N(I)+.5*N(I+2))*N(2) 1600 LET C5=(O(1)+.5*N(I+2))*O(2) 1610 LET C6=(P(1)+.5*P(I+2))*P(2) 1620 LET T(2,I)=C4 +C5+C6+L1 1630 LET T(3,I)=G(I) 1640 LET T(4,I)=T(1,I)+T(2,I)+T(3,I) 1642 IF K5>0 THEN 1656 1644 PRINT 1646PRINT"ENTER AN ESTIMATE OF THE CHANGE IN AMOUNT OF CD'S ,AND AVERAGE" 1648 PRINT"RATE PAID DURING THE YEAR ON CD'S"; 1650 INPUT D4,D5 1651 LET D5=D5/100 1652 LET D9=((D8+(D8+D4))/2)*D5 1654 LET D8=D8+D4 1656 LET T(5,I)=(B(I)-.5*(B(I)-B(I-1)))*U(I)+D9 1658 LET T(6,I)=F(I) 1660 LET T(7,I)=T(5,I)+T(6,I) 1662 LET T(8,I)=T(4,I)-T(7,I) 1690 LET D1=X1-Y1 1700 IF D1>1 THEN 1730 1710 LET D2=-D1 1720GOTO 1731 1730 LET D2=-(D1*.50) 1731 IF 250 THEN 1740 1737 LET A=A+T(9,I) 1738 LET T(9,I)=0 1740 IF 250 THEN 1784 1781 LET T9=T9+T 1782 LET T=0 1784 LET T(10,I)=T(8,I)-T(9,I) 1785 IF V(I)=0 THEN 1795 1790 LET T(11,I)=T(10,I)-W(I)-V(I)-X(I)+(T(9,I)-T) 1792 GOTO1797 1795 LET T(11,I)=T(10,I)-W(I)-X(I)+(T(9,I)-T)+X1+Y1 1797 LET T(12,I)=T(10,I)/R3 1800 LET T(13,I)=T(10,I) 1810 LET T(14,I)=H(I)-R(I) 1820 LET T(15,I)=N(I+2)+O(I+2)+P(I+2)-J4 1850 LET T(17,I)=B(I)-B(I-1)+D4 1860 LET T(18,I)=A(I)-A(I-1) 1862 GO TO 1870 1864 PRINT "ENTER NEW DIVIDEND PER SHARE"; 1865 INPUT T4 1866 LET A6=T4*R3 1870 LET T(19,I)=-A6 1880 LET T(20,I)=T(13,I)+T(14,I)+T(15,I)+T(16,I)+T(17,I)+T(18,I)+T(19,I) 1890 LET T(21,I)=T(20,I)-.03*(B(I)-B(I-1)+D4)-.12*(A(I)-A(I-1)) 1900 LET T(22,I)=T(22,I-1)+A2+T(20,I) 1920 LET T(23,I)=N(1) 1930 LET T(24,I)=O(1) 1935 LET T(25,I)=P(1) 1940 LET T(26,I)=C(I)+D(I)+E(I)+L5-E9 1960 LET T(27,I)=A8+T(27,I-1)+R(I)-H(I) 1970 LET T(28,I)=T(22,I)+T(24,I)+T(25,I)+T(26,I)+T(27,I)+T(23,I) 1980 LET T(29,I)=A(I) 1990 LET T(30,I)=B(I)+D8 1995 IF V(I)=0 THEN 2005 2000 LET T(32,I)=A4+T(32,I-1)+V(I)+X(I) 2001 GO TO 2010 2005 LET T(32,I)=A4+T(32,I-1)+X(I)+X1+Y1 2010 LET T(33,I)=M+T(33,I-1)+T(11,I)-A6 2020 LET T(31,I)=T(28,I)-T(29,I)-T(30,I)-T(32,I)-T(33,I) 2030 LET T(34,I)=T(28,I) 2040 LET T(35,I)=T(26,I)/(T(29,I)+T(30,I)) 2050 LET T(36,I)=T(22,I)/(T(29,I)+T(30,I)) 2060 LET T(37,I)=(T(28,I)-T(22,I)-T(23,I))/(T(33,I)+T(32,I)) 2070 LET T(38,I)=(T(29,I)+T(30,I))/(T(33,I)+T(32,I)) 2071 LET T8=0 2072 FOR J=4 TO 8 2076 LET T8=T8+O(J) 2077 NEXT J 2078 LET T6=N(I)-N(I+3) 2079 LET T(39,I)=(T6+T8)*.04+N(I+3)*.005+(O(1)-T8+P(1)+T(26,I))*.1+T(27,I) 2080 LET T(40,I)=T(10,I)/(T(33,I)+T(32,I)) 2085 LET T(36,I)=INT(100*T(36,I)+.5)/100 2087 LET T(37,I)=INT(100*T(37,I)+.5)/100 2088 LET T(40,I)=INT(T(40,I)*100+.5)/100 2090 LET T(12,I)=INT(100*T(12,I)+.5)/100 2091 PRINT 2092 LET T(35,I)=INT(100*T(35,I)+.5)/100 2093 LET T(38,I)=INT(100*T(38,I)+.5)/100 2094 LET T(10,I)=INT(T(10,I)+.5) 2095 LET T(39,I)=INT(T(39,I)+.5) 2096 PRINT"CASH AND LIQUIDITY IN " A9+I 2097 PRINT 2098 PRINTTAB(0);"YEAR";TAB(10);"CASH INCREASE";TAB(25);"CASH ACCT"; 2099 PRINT TAB(40);"RATIO CASH TO";TAB(55);"RATIO RISK ASSETS" 2100 PRINT TAB(10);"AFTER RES";TAB(25);"END OF YEAR";TAB(40);"DEPOSITS"; 2101 PRINT TAB(55);"TO CAPITAL" 2102 FOR J=1 TO I 2103 PRINT TAB(0);A9+J;TAB(10);T(21,J);TAB(25);T(22,J);TAB(40);T(36,J); 2104 PRINT TAB(55);T(37,J) 2105 NEXT J 2106 PRINT 2107 PRINT "DO YOU WANT TO CHANGE PORTFOLIO INVESTMENT DURING" A9+I 2108 PRINT"(YES OR NO)"; 2109 INPUT K4$ 2110 IF K4$="NO" THEN 2114 2112 GO SUB 6000 2113 GO TO 1590 2114 PRINT 2115 PRINT"YEAR","EARNINGS","LOANS/DEPOSITS","DEPOSITS/CAPITAL" 2120 FOR J=1 TOI 2130 PRINT A9+J,T(10,J),T(35,J),T(38,J) 2140 NEXT J 2145 PRINT 2146 PRINT 2147 PRINT "DO YOU WANT TO CHANGE THE DIVIDEND IN";A9+I;"(YES OR NO)"; 2148 INPUT T5$ 2149 IF T5$="YES" THEN 1864 2150 PRINT 2151 PRINT "DO YOU WANT TO PROJECT"A9+I+1;"(YES OR NO)"; 2160 INPUT L9$ 2165 LET M=L1=X1=Y1=A2=J4=A4=A8=D4=D9=0 2166 LET K5=0 2170 IF L9$="NO" THEN 2200 2172 LET L8=L5 2173 LET L5=0 2190 NEXT I 2200 FOR J=1 TO 11 2210 FOR L=1 TO 10 2220 LET T(J,L)=INT(T(J,L)+.5) 2230 NEXT L 2240 NEXT J 2250 FOR J=13 TO 34 2260 FOR L=1 TO 10 2270 LET T(J,L)=INT(T(J,L)+.5) 2280 NEXT L 2290 NEXT J 2400 PRINT"DO YOU WANT TO PRINT STATEMENTS (YES OR NO)"; 2410 INPUT O9$ 2415 IF O9$="NO" THEN 9999 2420 PRINT 2421 LET J=1 2422 PRINT TAB(25); 2425 IF I>4 THEN 2455 2449 FOR L=1 TO I 2451 PRINT A9+L;TAB(25+12*L); 2453 NEXT L 2454 GO TO 2469 2455 IF I>8 THEN 2462 2456 FOR L=5 TO I 2457 PRINT A9+L;TAB(25+12*(L-4)); 2459 NEXT L 2460 GO TO 2469 2462 FOR L=9 TO I 2463 PRINT A9+L;TAB(25+12*(L-8)); 2464 NEXT L 2469 PRINT 2470 PRINT"STATEMENT OF EARNINGS" 2475 PRINT"- - - - - - - - - -" 2480 PRINT"INTEREST ON LOANS"; 2490 GO SUB 7000 2500 PRINT 2510 PRINT"INTEREST ON INVESTMENTS"; 2520 GOSUB 7000 2530 PRINT 2540 PRINT"OTHER INCOME"; 2550 GOSUB 7000 2560 PRINT 2570 PRINT"TOTAL INCOME"; 2580 GOSUB 7000 2590 PRINT 2600 PRINT 2610 PRINT"INTEREST PAID"; 2620 GOSUB 7000 2630 PRINT 2640 PRINT"OTHER OPERATING EXPENSE"; 2650 GOSUB 7000 2670 PRINT 2680 PRINT"TOTAL OPERATING EXPENSE"; 2685 GO SUB 7000 2690 PRINT 2700 PRINT 2710 PRINT"PRETAX EARNINGS"; 2720 GO SUB 7000 2730 PRINT 2740 PRINT"INCOME TAXES"; 2750 GO SUB 7000 2760 PRINT 2770 PRINT"NET OPERATING EARNINGS"; 2780 GO SUB 7000 2790 PRINT 2800 PRINT"EARNINGS AFTER RESERVES"; 2805 GOSUB 7000 2810 PRINT 2820 PRINT 2830 PRINT"EARNINGS PER SHS"; 2840 GOSUB 7000 2850 PRINT 2860 PRINT 2870 PRINT"FLOW OF FUNDS STATEMENT" 2880 PRINT"- - - - - - - - - - -" 2890 PRINT"NET OPERATING EARNINGS"; 2900 GO SUB 7000 2910 PRINT 2920 PRINT"DEPREC LESS CAPITAL EXP"; 2930 GOSUB 7000 2940 PRINT 2950 PRINT"INVESTMENTS"; 2960 GO SUB 7000 2970 PRINT 2980 PRINT"LOANS"; 2990 GO SUB 7000 3000 PRINT 3010 PRINT"TIME DEPOSITS"; 3020 GO SUB 7000 3030 PRINT 3040 PRINT"DEMAND DEPOSITS"; 3050 GOSUB 7000 3060 PRINT 3070PRINT"DIVIDENDS"; 3080 GOSUB 7000 3090 PRINT 3100 PRINT "TOTAL CHANGE IN CASH"; 3110 GOSUB 7000 3120 PRINT 3130 PRINT "CASH AVAILABLE AFTER RES"; 3140 GOSUB 7000 3150 PRINT 3160 PRINT 3170 PRINT"STATEMENT OF CONDITION" 3180 PRINT"- - - - - - - - - - - - - - -" 3190 PRINT"CASH"; 3200 GOSUB 7000 3210 PRINT 3220 PRINT"GOVERNMENT OBLIGATIONS"; 3230 GOSUB 7000 3240 PRINT 3250 PRINT"STATE & POLIT OBLIG"; 3260 GOSUB 7000 3270 PRINT 3280 PRINT"OTHER INVESTMENTS"; 3290 GOSUB 7000 3300 PRINT 3310 PRINT"LOANS LESS RESERVE"; 3320 GOSUB 7000 3330 PRINT 3340 PRINT "OTHER ASSETS"; 3350 GOSUB 7000 3360 PRINT 3370 PRINT "TOTAL ASSETS"; 3380 GOSUB 7000 3390 PRINT 3400 PRINT 3410 PRINT"DEMAND DEPOSITS"; 3420 GOSUB 7000 3425 PRINT 3430 PRINT"TIME DEPOSITS"; 3440 GOSUB 7000 3450 PRINT 3460 PRINT"OTHER LIABILITIES"; 3470 GOSUB 7000 3480 PRINT 3490 PRINT"RESERVES"; 3500 GOSUB 7000 3510 PRINT 3520 PRINT"CAPITAL"; 3530 GOSUB 7000 3540 PRINT 3550 PRINT"TOTAL LIABILITIES"; 3560 GOSUB 7000 3570 PRINT 3580 PRINT 3590 PRINT"LOANS/DEPOSITS"; 3600 GOSUB 7000 3610 PRINT 3620 PRINT"CASH/DEPOSITS"; 3730 GOSUB 7000 3740 PRINT 3750 PRINT"RISK ASSETS/CAPITAL"; 3760 GOSUB 7000 3770 PRINT 3780 PRINT"DEPOSITS/CAPITAL"; 3790 GOSUB 7000 3791 PRINT 3792 PRINT"FED MINIMUM CAPITAL"; 3793 GOSUB 7000 3794 PRINT 3795 PRINT"RETURN ON CAPITAL"; 3796 GOSUB 7000 3800 PRINT 3801 IF I<9 THEN 3808 3803 LET I=8 3805 GO TO 3820 3808 IF I<5 THEN 4999 3810 LET I=4 3815 PRINT 3820 PRINT 4010 PRINT"DO YOU WANT TO PRINT STATEMENT FOR THE NEXT FOUR YEARS" 4020 PRINT"(YES OR NO)"; 4030 INPUT O9$ 4050 IF O9$ ="NO" THEN 4999 4052 GO TO 2421 4999 STOP 5000 FOR I=5 TO 1 STEP-1 5001 REM LEAST SQUARES CALCULATION 5010 READ G(I) 5020 NEXT I 5030 LET R=G(1) 5040 LET T1=5 5050 LET T2=T3 =0 5060 FOR I=1 TO 5 5070 IF G(I)> 0 THEN 5090 5080 PRINT "DO NOT ENTER ZERO IN LINES 1000-1007" 5090 LET T2=T2+LOG(G(I)) 5100 LET T3=T3-I*LOG(G(I)) 5110 NEXT I 5120 LET B1=(-T1)*(T1+1)/2 5130 LET B2=(-B1)*(2*T1+1)/3 5140 LET B3=T1*T3-B1*T2 5150 LET B5=T1*B2-B1^2 5160 LET B4=B3/B5 5170 LET R1=EXP(B4)-1 5180 RETURN 5200 MATS=ZER(10) 5201 REM PROJECTS FOR 10 YEARS USING TRENDS 5210 FOR I=1 TO 10 5220 LET S(I)=K+S(I-1)+(S(I-1)+K)*Q(I,J) 5225 LET K=0 5230 NEXT I 5240 RETURN 6000 PRINT 6001 REM INVESTMENT SIMULATION 6060 PRINT"ENTER ASSET NO (1=GOVERN'TS,2=MUNICIPALS,3=OTHER,4=LIQ LOANS)"; 6070 INPUT K5 6080 ON K5 GO TO 6100,6200,6300,6390 6100 PRINT 6110 PRINT"ARE GOVERNMENTS PURCHASED OR SOLD"; 6120 GOSUB 8000 6156 LET N(2)=(N(2)*N(1)+K8*K7)/(N(1)+K7) 6157 LET N(1)=N(1)+K7 6158 LET N(I+J1+2)=N(I+J1+2)+K7 6159 GO TO 6400 6177 LET N(2)=(N(2)*N(1)-(K8*J3))/(N(1)-J3) 6180 LET N(1)=N(1)-J3 6185 LET N(I+J1+2)=N(I+J1+2)-J3 6190 GO SUB 8100 6196 GO TO 6400 6200 PRINT 6210 PRINT "ARE MUNICIPALS PURCHASED OR SOLD"; 6220 GOSUB 8000 6257 LET O(2)=(O(2)*O(1)+K8*K7)/(O(1)+K7) 6258 LET O(1)=O(1)+K7 6259 LET O(I+J1+2)=O(I+J1+2)+K7 6260 GO TO 6400 6277 LET O(2)=(O(2)*O(1)-(K8*J3))/(O(1)-J3) 6280 LET O(1)=O(1)-J3 6285 LET O(I+J1+2)=O(I+J1+2)-J3 6290 GO SUB 8100 6296 GO TO 6400 6300 PRINT 6310 PRINT"ARE OTHER INVESTMENTS PURCHASED OR SOLD"; 6320 GO SUB 8000 6356 LETP(2)=(P(2)*P(1)+K8*K7)/(P(1)+K7) 6357 LET P(1)=P(1)+K7 6358 LET P(I+J1+2)=P(I+J1+2)+K7 6359 GO TO 6400 6377 LET P(2)=(P(2)*P(1)-(K8*J3))/(P(1)-J3) 6380 LET P(1)=P(1)-J3 6385 LET P(I+J1+2)=P(I+J1+2)-J3 6387 GOSUB 8100 6388 GO TO 6400 6390 GOSUB 8200 6400 PRINT 6405 PRINT"DO YOU WISH TO MAKE MORE PORTFOLIO CHANGES" 6410 PRINT"(YES OR NO)"; 6415 INPUT K5$ 6420 IF K5$="YES" THEN 6000 6430 GO TO 1500 6990 REM LINES 7000-7080. SPACES AND PRINTS OUT STATEMENT OF 6993 REM EARNINGS, FLOW OF FUNDS STATEMENT, AND STATEMENT OF CONDITION. 7000 PRINT TAB(25); 7025 IF I>4 THEN 7055 7049 FOR L= 1 TO I 7051 PRINT T(J,L);TAB(25+12*L); 7053 NEXT L 7054 GO TO 7070 7055 IF I>8 THEN 7062 7057 FOR L=5 TO I 7058 PRINT T(J,L);TAB (25+12*(L-4)); 7059 NEXT L 7060 GO TO 7070 7062 FOR L=9 TO I 7063 PRINT T(J,L);TAB(25+12+(L-8)); 7064 NEXT L 7070 LET J=J+1 7080 RETURN 8000 INPUT K6$ 8002 IF K6$="SOLD" THEN 8050 8003 PRINT"ENTER AMOUNT,RATE,QUARTER PURCHASED(1-4), YEARS TO MATURITY" 8009 INPUT K7,K8,K9,J1 8010 LET K8=K8/100 8015 LET J4=J4+K7 8020 LET L1=L1+((K9/4)*K7)*(-K8) 8030 RETURN 8050 PRINT"ENTER PROCEEDS,RATE,QUARTER SOLD(1-4),YEARS TO MATURITY," 8052 PRINT"GAIN OR LOSS (-)"; 8054 INPUT J3,K8,K9,J1,J2 8056 LET K8=K8/100 8060 LET L1=L1+((K9/4)*J3)*K8 8070 LET J4=J4-J3 8080 ON K5 GO TO 6177,6277,6377 8100 IF J2>0 THEN 8130 8110 LET Y1=Y1 +J2 8120 RETURN 8130 LET X1=X1+J2 8140 RETURN 8200 PRINT 8210 PRINT"ENTER AMOUNT PURCHASED, RATE"; 8220 INPUT K7,K8 8225 LET K8=K8/100 8230 LET L4=L4+K7*K8 8240 LET L5=L5+K7 8250 LET L6=L4/L5 8260 LET L7=L7+K7*K8 8270 RETURN 9999 END