10 KEY OFF:CLS
20 PRINT"???????????????????????????????????????"
30 PRINT"??????????????????????????????????????"
40 PRINT"?? ??"
50 PRINT"?? 1017-A.BAS ??"
60 PRINT"?? GROWTH RATE & PROJECTION ??"
70 PRINT"?? ??"
80 PRINT"?? ??"
90 PRINT"?? BROUGHT TO YOU BY THE MEMBERS OF ??"
100 PRINT"?? ????? ????? ????? ????? ??"
110 PRINT"?? ? ? ? ? ? ? ??"
120 PRINT"?? ? ????? ? ? ? ??"
130 PRINT"?? ? ? ? ? ? ??"
140 PRINT"?? ????? ? ????? ????? ??"
150 PRINT"?? ??"
160 PRINT"?? International PC Owners ??"
170 PRINT"?? ??"
180 PRINT"??P.O. Box 10426, Pittsburgh PA 15234??"
190 PRINT"?? ??"
200 PRINT"??????????????????????????????????????"
210 PRINT"???????????????????????????????????????"
220 PRINT
230 PRINT " PRESS ANY KEY TO CONTINUE
240 A$=INKEY$: IF A$="" THEN 240
250 CLS
1000 REM PROGRAM IPCO HEADER
1010 CLS : SCREEN 0 : WIDTH 40 : KEY OFF
1020 A$=CHR$(201)+STRING$(30,205)+CHR$(187)
1030 B$=CHR$(186)+STRING$(30,32 )+CHR$(186)
1040 C$=CHR$(200)+STRING$(30,205)+CHR$(188)
1050 LOCATE 3,4,0 : PRINT A$
1060 FOR I=4 TO 18
1070 LOCATE I,4 : PRINT B$
1080 NEXT
1090 LOCATE 19,4 : PRINT C$
1100 LOCATE 8,13 : PRINT "PREPARED BY: "
1110 LOCATE 6,8: PRINT "IPCO PROGRAM SUBMISSION "
1120 LOCATE 10,9 : PRINT "THOMAS R. HOCKSWENDER "
1130 LOCATE 11,9 : PRINT "3173 MEADOWRIDGE COURT"
1140 LOCATE 12,9 : PRINT "GIBSONIA,PA 15044 "
1150 LOCATE 13,9 : PRINT " 412-443-0212"
1160 LOCATE 25,8 : PRINT "PRESS ANY KEY TO CONTINUE " : BEEP
1170 F$=INKEY$ : IF F$="" THEN 1170 ELSE 1180
1180 KEY OFF
1190 CLS
1200 WIDTH 80
1210 DIM F(24)
1220 PRINT " GROWTH RATE AND PROJECTIONS"
1230 PRINT
1240 PRINT
1250 PRINT " THIS PROGRAM ANALYZES SALES OR OTHER FIGURES FROM PAST MONTHS,"
1260 PRINT " COMPUTES AN AVERAGE GROWTH RATE AND PROJECTS FUTURE FIGURES."
1270 PRINT " YOU SPECIFY THE NUMBER OF PAST AND FUTURE MONTHS."
1280 PRINT " ==> THE TOTAL NUMBER OF MONTHS CANNOT EXCEED 24."
1290 PRINT
1300 PRINT " PRESS ANY KEY TO CONTINUE AT THE END OF EACH SCREEN "
1310 PRINT
1320 PRINT
1330 INPUT "HOW MANY PAST MONTHS";M
1340 IF M<=1 THEN PRINT "ENTER AT LEAST 2 MONTHS, PLEASE!":GOTO 1320
1350 INPUT "HOW MANY MONTHS TO PROJECT";P
1360 IF M+P>24 THEN PRINT :PRINT "ONLY 24 MONTHS TOTAL, PLEASE!":GOTO 1320
1370 PRINT
1380 PRINT "NOW ENTER AMOUNTS FOR PAST MONTHS:"
1390 PRINT
1400 FOR J=1 TO M
1410 PRINT "MONTH";J;
1420 INPUT F(J)
1430 NEXT J
1440 T=LOG(F(1))
1450 V=0
1460 FOR J=2 TO M
1470 L=LOG(F(J))
1480 T=T+L
1490 V=V+(J-1)*L
1500 NEXT J
1510 A=6*(2*V/(M-1)-T)/M/(M+1)
1520 A=EXP(A)-1
1530 AGF=EXP(T/M-A*(M-1)/2)
1540 FOR J=M+1 TO M+P
1550 F(J)=INT(AGF*(1+A)^(J-1)+.5)
1560 NEXT J
1570 MIN=F(1)
1580 MAX=F(1)
1590 FOR J=1 TO M+P
1600 IF F(J)>MAX THEN MAX=F(J)
1610 IF F(J)M+P THEN J=24:GOTO 1690
1670 PRINT
1680 PRINT "MONTH";J;TAB(10);F(J);
1690 NEXT J
1700 PRINT TAB(18);"(GROWTH RATE:";INT(A*10000+.5)/100;"%)";
1710 GOSUB 1900
1720 FOR J=1 TO M+P
1730 IF J>M THEN C=1
1740 PSET (J*11+45,200-INT(S*F(J))),C
1750 NEXT J
1760 GOSUB 1900
1770 PSET (56,200-INT(S*F(1))),C
1780 FOR J=2 TO M+P
1790 IF J>M THEN C=1
1800 LINE -(J*11+45,200-INT(S*F(J))),C
1810 NEXT J
1820 GOSUB 1900
1830 FOR J=1 TO M+P
1840 IF J>M THEN C=1
1850 LINE (J*11+45,200)-(J*11+54,200-INT(S*F(J))),C,BF
1860 NEXT J
1870 A$=INPUT$(1)
1880 SCREEN 0,0,0
1890 CLS:SCREEN 1,0:COLOR 0,0:LOCATE 5,10:PRINT "PROGRAM FINISHED!":KEY ON:END
1900 A$=INPUT$(1)
1910 CLS
1920 SCREEN 1,0
1930 COLOR 0,0
1940 C=2
1950 PRINT " AVERAGE GROWTH RATE IS ";INT(A*10000+.5)/100;"%"
1960 PRINT "AMOUNT"
1970 PRINT " || <------------ MONTH ------------>";
1980 PRINT " \/ 1 3 6 9 12 15 18 21 24";
1990 FOR J=5 TO 25 STEP 5
2000 LOCATE J,1
2010 PRINT INT((168-(J/5-1)*40)/S+.5);
2020 NEXT J
2030 RETURN
5 18 21 24";
1990 FOR J=5 TO 25 STEP 5
2000 LOCATE J,1
2010 PRINT INT((168-(J/5-1)*40)/S+.5);
2020 NEXT J
20