Listing of file='22B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 682, program filename = '22B' 0010 DIM S(50) 0020 INPUT "FIRST YEAR FOR WHICH FIGURES ARE KNOWN",N1 0030 INPUT "LAST YEAR FOR WHICH FIGURES ARE KNOWN",N2 0040 J=1 0050 FOR I=N1TO N2 0060 PRINT "SALES FOR PERIOD ";I : INPUT S(J) 0070 J=J+1 0080 NEXT I 0090 T=LOG(S(1)) 0100 V=0 0110 FOR I=1TO N2-N1 0120 L=LOG(S(I+1)) 0130 T=T+L 0140 V=V+I*L 0150 NEXT I 0160 A=6*(2*V/(N2-N1)-T)/((N2-N1)+1)/((N2-N1)+2) 0170 G=EXP(A)-1 0180 PRINT 0190 PRINT "'AVE.' GROWTH RATE=";G*100;"PERCENT" 0200 PRINT 0210 S1=EXP(T/((N2-N1)+1)-A*(N2-N1)/2) 0220 INPUT "YEAR OF INTEREST (FOR PROJECTED SALES)",M 0225 IF M=0THEN 280 0230 M1=M 0240 M=M-N1 0260 PRINT "PROJECTED SALES FOR YEAR ";M1;" =";S1*(1+G)^M 0270 GOTO 220 0280 END