1  DIM X[104],A[104],U[105],E[105]
2  DIM R[195],S[105]
3  GOTO 198
4  REM  CASE2, HP 36841A, /74  (NEWC1,  PART 6 OF 8)
10  REM NEWC2 BASIC PROGRAM TO ACCOMPANY NEWFOOD(C) PART II 7/25/73
11  REM MAKES DYNAMIC FORCASTS USING A DEPTH OF REPEAT MODEL
45  FOR N=D TO Z STEP D
47  PRINT "PERIOD",N
48  PRINT 
49  R5=0
50  W=0
51  FOR I=1 TO Z
52  R[I]=X[I]
53  NEXT I
55  L=0
57  C=0
58  M=E[N]
60  FOR J=1 TO N-1
71  U=U[J]
73  A=A[J]
80  S[J]=0
90  FOR K=(J+1) TO N
95  S[K]=0
100  FOR I=J TO K-1
110  S=R[I]*(-A*G^(K-I)+A*G^(K-I-1))
120  S[K]=S+S[K]
122  L=S*(K-I)+L
130  NEXT I
140  C=S[K]+C
150  NEXT K
151  FOR K=J+1 TO N
152  R[K]=S[K]
153  NEXT K
160  R[J]=0
170  W=C*U+W
179  IF C<.5 THEN 181
180  PRINT "R(";J;")",INT(C+.5),C/M
181  L=0
183  M=C
187  IF J#1 THEN 189
188  R5=C
189  C=0
190  NEXT J
191  PRINT "TOTAL SALES",E[N]*U1+W
192  PRINT "TRIAL SALES",E[N]*U1
193  PRINT "REPEAT SALES",W,"REP SALES PER REPEATER";W/R5
194  PRINT 
195  NEXT N
197  GOTO 9999
198  PRINT "NUMBER OF WEEKS IN FORCAST";
201  INPUT Z
202  PRINT "HOW MANY WKS  IN EACH REPORT";
205  INPUT D
240  FOR T=1 TO 24
241  READ X[T]
242  NEXT T
250  FOR T1=7 TO Z/4
255  PRINT "TRIAL DURING THE";T1;"TH 4 WEEK PERIOD";
256  INPUT X
257  FOR T=T1*4-3 TO T1*4
258  X[T]=X/4
260  NEXT T
265  NEXT T1
270  GOTO 300
300  PRINT "LIMIT ON FIRST REPEAT AND AVE TIME BETWEEN PURCHASES";
305  INPUT A2,G
306  G=G/(G+1)
310  PRINT "LIMIT FOR REPEAT LEVEL 2,AND LONG RUN LIMIT";
315  INPUT A3,A4
320  G9=.6
325  A5=A4*(1-G9)
329  E[1]=X[1]
331  FOR I=2 TO Z
332  E[I]=E[I-1]+X[I]
334  NEXT I
350  PRINT "AVE UNITS ON TRIAL,AVE UNITS ON REPEAT";
354  U3=0
355  INPUT U1,U2
360  FOR T=1 TO Z
365  U[T]=U2+U3*(T-1)
370  NEXT T
371  A[2]=A3
374  A[1]=A2
375  FOR T=3 TO Z
380  A[T]=A5+G9*A[T-1]
385  NEXT T
400  FOR T=1 TO Z
415  NEXT T
420  GOTO 45
500  DATA 10,15,11,9,22,12,15,17,9,11,7,10,7,9,11,8,2,1,5,1,5,1,2,3
9999  END 
