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 XD THEN 300 102 PRINT "THERE IS A DEAL" 104 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) 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