1  REM HINB1 COMPUTER PROGRAM TO ACCOMPANY HINESBURY MILLS(B) 7/23/73
2  REM PROGRAM PROVIDES TRACE OUTPUT FOR INDIVIDUAL CONSUMERS
3  REM  CASE2,  HP 36841A,  2/74 (HINB1,  PART 1 OF  8)
7  X=0
8  LET S1=S2=S3=S4=S5=0
9  READ M,O1,O2
10  READ Q[1,2],Q[1,3],Q[2,2],Q[2,3],Q[3,2],Q[3,3]
11  READ C[1],C[2],C[3],T[1],T[2],T[3]
12  READ Q4,Q5,D,H,S,P,R3,A
13  READ Q6,Q7
18  FOR K=1 TO M
19  LET Z=0
20  PRINT 
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  PRINT "CONSUMER";K;"HAS PRIMARY USE";O
61  LET N=1100*Q+10*C+T
62  PRINT "PERCEIVED NEED IS",1100*Q+10*C+T
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  PRINT "PRICE BRAND PERC AS ",B4
73  PRINT "PREM PERCEIVED AS",B2
74  PRINT "REG PERCEIVED AS",B1
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  PRINT "ADD BUTTER PERCEIVED AS",B5
101  IF RND(X)>D THEN 300
102  PRINT "THERE IS A DEAL"
104  IF RND(X)<H THEN 130
105  PRINT "PRICE REDUCTION IS SMALL"
107  IF RND(X)<S THEN 141
108  PRINT "IT IS NOT SEEN"
109  GOTO 300
130  PRINT "PRICE REDUCTION IS LARGE"
131  GOTO 141
141  IF RND(X)>P THEN 200
142  PRINT "HINESBURY REG IS DEAL ITEM"
143  IF Q>2 THEN 146
144  IF C=2 THEN 146
145  IF T=1 THEN 168
146  PRINT "NO EXACT MATCH"
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  PRINT "NO DEAL PURCHASE MADE"
167  GOTO 300
168  PRINT "HINESBURY REG IS PURCHASED"
171  LET S1=S1+1
172  GOTO 900
200  PRINT "OTHER REG PLUS ADD BUTTER IS ON DEAL"
205  IF Q>2 THEN 211
206  IF C=2 THEN 211
207  IF T=2 THEN 211
208  PRINT "OTHER REG IS PURCHASED"
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  PRINT "ADD BUTTER IS PURCHASED"
215  LET S5=S5+1
216  GOTO 900
217  PRINT "NO EXACT MATCH"
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  PRINT "NO EXACT MATCH"
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  PRINT "PRICE BRAND IS PURCHASED"
402  LET S4=S4+1
403  GOTO 900
405  PRINT "PREM IS PURCHASED"
406  LET S2=S2+1
407  GOTO 900
421  PRINT "REG CAKE IS PURCHASED"
423  IF RND(X)<R3 THEN 430
424  PRINT "BRAND IS HINESBURY"
425  GOTO 171
430  PRINT "BRAND IS OTHER REG"
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  PRINT "CHANGE PERC NEED TO";N
792  GOTO 290
800  PRINT "CONSUMER DOES NOT BUY"
801  GOTO 900
900  IF .005*K <> INT(.005*K) THEN 950
901  PRINT K,"CONSUMERS HAVE BEEN SIMULATED"
949  PRINT 
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*S1/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 10,.2,.5
971  DATA .4,0,.85,.15,1,.3
972  DATA 1,.65,.55,.6,.7,.85
973  DATA .5,.25,.4,.25,.5,.3,.75,.56
974  DATA .6,.65
999  END 
