1  REM HINB2 COMPUTER PROGRAM TO ACCCOMPANY HINESBURY MILLS(B) 7/23/73
2  REM PROGRAM DOES NOT SHOW TRACE FOR INDIVIDUAL CONSUMERS
3  REM ONLY FINAL BRAND SHARE FROM SIMULATION
4  REM  CASE2:   HP 36841A, 2/74 (HINB2, PART 2 OF 8)
7  X=0
8  LET S1=S2=S3=S4=S5=0
9  READ M,O1,O2
10  READ Q[1,2],Q[2,2],Q[3,2]
11  READ Q[1,3],Q[2,3],Q[3,3]
12  READ C[1],C[2],C[3],T[1],T[2],T[3]
13  READ Q6,Q7,Q4,Q5
14  READ D,H,S,P,R3,A
18  FOR K=1 TO M
19  LET Z=0
24  LET X=RND(X)
25  LET X=RND(X)
26  IF X<O1 THEN 30
27  IF X<O2 THEN 32
28  LET O=3
29  GOTO 39
30  LET O=1
31  GOTO 39
32  LET O=2
39  LET X=RND(X)
40  IF X<Q[O,3] THEN 45
42  IF X<Q[O,2] THEN 47
43  LET Q=1
44  GOTO 50
45  LET Q=3
46  GOTO 50
47  LET Q=2
50  LET X=RND(X)
51  IF X<C[O] THEN 54
52  LET C=2
53  GOTO 55
54  LET C=1
55  LET X=RND(X)
56  IF X<T[O] THEN 59
57  LET T=2
58  GOTO 60
59  LET T=1
60  REM
61  LET N=1100*Q+10*C+T
62  REM
65  LET B4=1111
66  IF RND(X)<Q6 THEN 68
67  LET B4=B4+1000
68  LET B2=3311
69  IF RND(X)<Q7 THEN 71
70  LET B2=B2-1000
71  LET B1=2211
72  REM
73  REM
74  REM
76  IF RND(X)<Q4 THEN 79
77  LET B5=2022
78  GOTO 81
79  LET B5=3022
81  IF RND(X)<Q5 THEN 84
82  LET B5=B5+200
83  GOTO 89
84  LET B5=B5+300
89  REM
101  IF RND(X)>D THEN 300
102  REM
104  IF RND(X)<H THEN 130
105  REM
107  IF RND(X)<S THEN 141
108  REM
109  GOTO 300
130  REM
131  GOTO 141
141  IF RND(X)>P THEN 200
142  REM
143  IF Q>2 THEN 146
144  IF C=2 THEN 146
145  IF T=1 THEN 168
146  REM
147  IF N=1112 THEN 168
148  IF N=1121 THEN 168
149  IF N=2212 THEN 168
150  IF N=2221 THEN 168
151  IF N=3311 THEN 168
166  REM
167  GOTO 300
168  REM
171  LET S1=S1+1
172  GOTO 900
200  REM
205  IF Q>2 THEN 211
206  IF C=2 THEN 211
207  IF T=2 THEN 211
208  REM
209  LET S3=S3+1
210  GOTO 900
211  IF T=1 THEN 217
212  IF C=1 THEN 217
213  IF N-100>B5 THEN 217
214  REM
215  LET S5=S5+1
216  GOTO 900
217  REM
220  IF N=1112 THEN 208
221  IF N=1121 THEN 208
222  IF N=2221 THEN 208
223  IF N=3311 THEN 208
240  IF N=1122 THEN 214
241  IF N=2212 THEN 214
242  IF N=3322 THEN 214
270  GOTO 166
290  IF Z>1 THEN 800
300  IF N=B4 THEN 401
301  IF N=B4-1000 THEN 401
302  IF N=B4+100 THEN 401
303  IF N=B1 THEN 421
304  IF N=B5+100 THEN 214
305  IF N=B2 THEN 405
306  IF N=B5 THEN 214
307  IF N=B5-1000 THEN 214
308  LET Z=Z+1
309  IF Z>1 THEN 800
310  REM
311  IF O=3 THEN 500
312  IF O=2 THEN 600
315  IF N=1112 THEN 710
316  IF B5=2222 THEN 708
317  IF B5=2322 THEN 710
318  IF B5=3222 THEN 708
319  IF B5=3322 THEN 710
401  REM
402  LET S4=S4+1
403  GOTO 900
405  REM
406  LET S2=S2+1
407  GOTO 900
421  REM
423  IF RND(X)<R3 THEN 430
424  REM
425  GOTO 171
430  REM
431  GOTO 209
500  IF N=2212 THEN 708
501  IF N=2221 THEN 706
502  IF N=3312 THEN 708
503  IF N=3321 THEN 706
504  IF N=2222 THEN 704
505  IF N=3322 THEN 708
506  IF N=3311 THEN 702
600  IF N=1112 THEN 710
601  IF N=1121 THEN 706
602  IF N=2221 THEN 706
603  IF N=3321 THEN 706
604  IF N=1122 THEN 702
605  IF N=2212 THEN 708
606  IF N=2222 THEN 704
607  IF N=3312 THEN 708
608  IF N=3322 THEN 702
609  IF N=3311 THEN 706
700  LET Q=1
701  GOTO 790
702  LET Q=2
703  GOTO 790
704  LET Q=3
705  GOTO 790
706  LET C=1
707  GOTO 790
708  LET C=2
709  GOTO 790
710  LET T=1
711  GOTO 790
712  LET T=2
790  LET N=1100*Q+10*C+T
791  REM
792  GOTO 290
800  REM
801  GOTO 900
900  IF .005*K <> INT(.005*K) THEN 950
901  PRINT K,"CONSUMERS HAVE BEEN SIMULATED"
950  NEXT K
959  LET M=S1+.75*S2+S3+S4+.75*S5
960  PRINT 
961  PRINT "BRAND SHARES"
962  PRINT "HINESBURY REG",(S1/M)*A
963  PRINT "HINESBURY PREM",(.75*S2/M)*A
964  PRINT "OTHER REG",(S3/M)*A
965  PRINT "ADD BUTTER",(.75*S5/M)*A
966  PRINT "PRICE BRAND",(S4/M)*A
967  PRINT "TOTAL PURCHASES",S1+S2+S3+S4+S5
969  REM MODEL1
970  DATA 1000
980  DATA .15,.65
981  DATA .4,.85,1
982  DATA 0,.15,.3
983  DATA 1,.65,.55
984  DATA .65,.75,.9
985  DATA .5,.6,.5
986  DATA .35
987  DATA .5,.35,.6,.35,.75,.56
999  END 
