home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / gerald / 6_09 / Gamble02 / Brown / ProbDemo
Text File  |  1993-04-05  |  20KB  |  651 lines
  1. %OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938 
  2. %OP%DP0
  3. %OP%IRN
  4. %OP%GRY
  5. %OP%PL0
  6. %OP%PS1
  7. %OP%HM0
  8. %OP%FM0
  9. %OP%BM0
  10. %OP%LM10
  11. %OP%FX176
  12. %OP%FY176
  13. %OP%FS0
  14. %OP%PT0
  15. %OP%PDCanonNLQ
  16. %OP%WC2,2262,44,1748,0,0,0,0
  17. %OP%PZA1A1
  18. %OP%PZA3E4
  19. %OP%PZA5C5
  20. %OP%PZA8E107
  21. %OP%PZA109A111
  22. %OP%PZA113C113
  23. %OP%PZA114E114
  24. %OP%PZA115C115
  25. %OP%PZA116A117
  26. %OP%PZA119A121
  27. %OP%PZA123A124
  28. %OP%PZA126A130
  29. %OP%PZA132A133
  30. %OP%PZA135A138
  31. %OP%PZA140A141
  32. %OP%PZA143A144
  33. %OP%PZA146A146
  34. %OP%PZA148A148
  35. %OP%PZA156A156
  36. %OP%PZD110E112
  37. %CO:A,13,65%%C%%H2%%H1%OPEN THE BOX!
  38.  
  39. %C%%H2%Star Prize
  40. %C%%H2%is%H2% %H2%in
  41. %C%%H2%this%H2% %H2%box
  42.  
  43.  
  44. %V%%C%int(rand(0)*3)
  45. %V%%C%int(rand(0)*3)
  46. %V%%C%int(rand(0)*3)
  47. %V%%C%int(rand(0)*3)
  48. %V%%C%int(rand(0)*3)
  49. %V%%C%int(rand(0)*3)
  50. %V%%C%int(rand(0)*3)
  51. %V%%C%int(rand(0)*3)
  52. %V%%C%int(rand(0)*3)
  53. %V%%C%int(rand(0)*3)
  54. %V%%C%int(rand(0)*3)
  55. %V%%C%int(rand(0)*3)
  56. %V%%C%int(rand(0)*3)
  57. %V%%C%int(rand(0)*3)
  58. %V%%C%int(rand(0)*3)
  59. %V%%C%int(rand(0)*3)
  60. %V%%C%int(rand(0)*3)
  61. %V%%C%int(rand(0)*3)
  62. %V%%C%int(rand(0)*3)
  63. %V%%C%int(rand(0)*3)
  64. %V%%C%int(rand(0)*3)
  65. %V%%C%int(rand(0)*3)
  66. %V%%C%int(rand(0)*3)
  67. %V%%C%int(rand(0)*3)
  68. %V%%C%int(rand(0)*3)
  69. %V%%C%int(rand(0)*3)
  70. %V%%C%int(rand(0)*3)
  71. %V%%C%int(rand(0)*3)
  72. %V%%C%int(rand(0)*3)
  73. %V%%C%int(rand(0)*3)
  74. %V%%C%int(rand(0)*3)
  75. %V%%C%int(rand(0)*3)
  76. %V%%C%int(rand(0)*3)
  77. %V%%C%int(rand(0)*3)
  78. %V%%C%int(rand(0)*3)
  79. %V%%C%int(rand(0)*3)
  80. %V%%C%int(rand(0)*3)
  81. %V%%C%int(rand(0)*3)
  82. %V%%C%int(rand(0)*3)
  83. %V%%C%int(rand(0)*3)
  84. %V%%C%int(rand(0)*3)
  85. %V%%C%int(rand(0)*3)
  86. %V%%C%int(rand(0)*3)
  87. %V%%C%int(rand(0)*3)
  88. %V%%C%int(rand(0)*3)
  89. %V%%C%int(rand(0)*3)
  90. %V%%C%int(rand(0)*3)
  91. %V%%C%int(rand(0)*3)
  92. %V%%C%int(rand(0)*3)
  93. %V%%C%int(rand(0)*3)
  94. %V%%C%int(rand(0)*3)
  95. %V%%C%int(rand(0)*3)
  96. %V%%C%int(rand(0)*3)
  97. %V%%C%int(rand(0)*3)
  98. %V%%C%int(rand(0)*3)
  99. %V%%C%int(rand(0)*3)
  100. %V%%C%int(rand(0)*3)
  101. %V%%C%int(rand(0)*3)
  102. %V%%C%int(rand(0)*3)
  103. %V%%C%int(rand(0)*3)
  104. %V%%C%int(rand(0)*3)
  105. %V%%C%int(rand(0)*3)
  106. %V%%C%int(rand(0)*3)
  107. %V%%C%int(rand(0)*3)
  108. %V%%C%int(rand(0)*3)
  109. %V%%C%int(rand(0)*3)
  110. %V%%C%int(rand(0)*3)
  111. %V%%C%int(rand(0)*3)
  112. %V%%C%int(rand(0)*3)
  113. %V%%C%int(rand(0)*3)
  114. %V%%C%int(rand(0)*3)
  115. %V%%C%int(rand(0)*3)
  116. %V%%C%int(rand(0)*3)
  117. %V%%C%int(rand(0)*3)
  118. %V%%C%int(rand(0)*3)
  119. %V%%C%int(rand(0)*3)
  120. %V%%C%int(rand(0)*3)
  121. %V%%C%int(rand(0)*3)
  122. %V%%C%int(rand(0)*3)
  123. %V%%C%int(rand(0)*3)
  124. %V%%C%int(rand(0)*3)
  125. %V%%C%int(rand(0)*3)
  126. %V%%C%int(rand(0)*3)
  127. %V%%C%int(rand(0)*3)
  128. %V%%C%int(rand(0)*3)
  129. %V%%C%int(rand(0)*3)
  130. %V%%C%int(rand(0)*3)
  131. %V%%C%int(rand(0)*3)
  132. %V%%C%int(rand(0)*3)
  133. %V%%C%int(rand(0)*3)
  134. %V%%C%int(rand(0)*3)
  135. %V%%C%int(rand(0)*3)
  136. %V%%C%int(rand(0)*3)
  137. %V%%C%int(rand(0)*3)
  138. %V%%C%int(rand(0)*3)
  139. %V%%C%int(rand(0)*3)
  140. %V%%C%int(rand(0)*3)
  141. %V%%C%int(rand(0)*3)
  142. %V%%C%int(rand(0)*3)
  143. %V%%C%int(rand(0)*3)
  144.  
  145. =================================================================
  146. Check on randomness (should all be
  147. approximately 33).
  148.  
  149. %V%%C%dcounta(A8A107,A8A107=0)
  150. %V%%C%dcounta(A8A109,A8A109=1)
  151. %V%%C%dcounta(A8A112,A8A112=2)
  152. =================================================================
  153. %H1%Explanation
  154.  
  155. The random function has been used to choose:
  156. a) the star prize box
  157. b) the contestant's choice
  158.  
  159. The compΦre's choice is limited so an IF function has been 
  160. used to separate the two cases;
  161.  
  162. a) when the prize box and the contestant's box differ he has 
  163. only one choice.
  164. b) when the prize box and the contestant's box are the same 
  165. the random function has been used to choose one of the two 
  166. remaining boxes.
  167.  
  168. If the contestant sticks, a win is shown by 
  169. prizeáboxá=áoriginalácontestantáchoice.
  170.  
  171. If the contestant moves, a win is shown by 
  172. prizebox<>compΦre'sáboxáANDáprizebox<>originalácontestantáchoice. 
  173. (Column E is not really necessary since it is just the inverse 
  174. of column D.)
  175.  
  176. The number of wins when the contestant changes is shown as 
  177. approximately double that obtained when he sticks. 
  178.  
  179. "Would changing to the other unopened box improve your chances 
  180. of winning?"   - YES!
  181.  
  182. Don't I get a Wordz mug?!
  183.  
  184. B.D. Brown
  185. 34 Harlington Road East
  186. Feltham
  187. Middlesex
  188. TW13 5BN
  189.  
  190.  
  191.  
  192. 2nd April 1993.
  193. %CO:B,13,0%
  194.  
  195. %C%%H2%Contestant
  196. %C%%H2%chooses
  197. %C%%H2%this%H2% %H2%box
  198.  
  199.  
  200. %V%%C%int(rand(0)*3)
  201. %V%%C%int(rand(0)*3)
  202. %V%%C%int(rand(0)*3)
  203. %V%%C%int(rand(0)*3)
  204. %V%%C%int(rand(0)*3)
  205. %V%%C%int(rand(0)*3)
  206. %V%%C%int(rand(0)*3)
  207. %V%%C%int(rand(0)*3)
  208. %V%%C%int(rand(0)*3)
  209. %V%%C%int(rand(0)*3)
  210. %V%%C%int(rand(0)*3)
  211. %V%%C%int(rand(0)*3)
  212. %V%%C%int(rand(0)*3)
  213. %V%%C%int(rand(0)*3)
  214. %V%%C%int(rand(0)*3)
  215. %V%%C%int(rand(0)*3)
  216. %V%%C%int(rand(0)*3)
  217. %V%%C%int(rand(0)*3)
  218. %V%%C%int(rand(0)*3)
  219. %V%%C%int(rand(0)*3)
  220. %V%%C%int(rand(0)*3)
  221. %V%%C%int(rand(0)*3)
  222. %V%%C%int(rand(0)*3)
  223. %V%%C%int(rand(0)*3)
  224. %V%%C%int(rand(0)*3)
  225. %V%%C%int(rand(0)*3)
  226. %V%%C%int(rand(0)*3)
  227. %V%%C%int(rand(0)*3)
  228. %V%%C%int(rand(0)*3)
  229. %V%%C%int(rand(0)*3)
  230. %V%%C%int(rand(0)*3)
  231. %V%%C%int(rand(0)*3)
  232. %V%%C%int(rand(0)*3)
  233. %V%%C%int(rand(0)*3)
  234. %V%%C%int(rand(0)*3)
  235. %V%%C%int(rand(0)*3)
  236. %V%%C%int(rand(0)*3)
  237. %V%%C%int(rand(0)*3)
  238. %V%%C%int(rand(0)*3)
  239. %V%%C%int(rand(0)*3)
  240. %V%%C%int(rand(0)*3)
  241. %V%%C%int(rand(0)*3)
  242. %V%%C%int(rand(0)*3)
  243. %V%%C%int(rand(0)*3)
  244. %V%%C%int(rand(0)*3)
  245. %V%%C%int(rand(0)*3)
  246. %V%%C%int(rand(0)*3)
  247. %V%%C%int(rand(0)*3)
  248. %V%%C%int(rand(0)*3)
  249. %V%%C%int(rand(0)*3)
  250. %V%%C%int(rand(0)*3)
  251. %V%%C%int(rand(0)*3)
  252. %V%%C%int(rand(0)*3)
  253. %V%%C%int(rand(0)*3)
  254. %V%%C%int(rand(0)*3)
  255. %V%%C%int(rand(0)*3)
  256. %V%%C%int(rand(0)*3)
  257. %V%%C%int(rand(0)*3)
  258. %V%%C%int(rand(0)*3)
  259. %V%%C%int(rand(0)*3)
  260. %V%%C%int(rand(0)*3)
  261. %V%%C%int(rand(0)*3)
  262. %V%%C%int(rand(0)*3)
  263. %V%%C%int(rand(0)*3)
  264. %V%%C%int(rand(0)*3)
  265. %V%%C%int(rand(0)*3)
  266. %V%%C%int(rand(0)*3)
  267. %V%%C%int(rand(0)*3)
  268. %V%%C%int(rand(0)*3)
  269. %V%%C%int(rand(0)*3)
  270. %V%%C%int(rand(0)*3)
  271. %V%%C%int(rand(0)*3)
  272. %V%%C%int(rand(0)*3)
  273. %V%%C%int(rand(0)*3)
  274. %V%%C%int(rand(0)*3)
  275. %V%%C%int(rand(0)*3)
  276. %V%%C%int(rand(0)*3)
  277. %V%%C%int(rand(0)*3)
  278. %V%%C%int(rand(0)*3)
  279. %V%%C%int(rand(0)*3)
  280. %V%%C%int(rand(0)*3)
  281. %V%%C%int(rand(0)*3)
  282. %V%%C%int(rand(0)*3)
  283. %V%%C%int(rand(0)*3)
  284. %V%%C%int(rand(0)*3)
  285. %V%%C%int(rand(0)*3)
  286. %V%%C%int(rand(0)*3)
  287. %V%%C%int(rand(0)*3)
  288. %V%%C%int(rand(0)*3)
  289. %V%%C%int(rand(0)*3)
  290. %V%%C%int(rand(0)*3)
  291. %V%%C%int(rand(0)*3)
  292. %V%%C%int(rand(0)*3)
  293. %V%%C%int(rand(0)*3)
  294. %V%%C%int(rand(0)*3)
  295. %V%%C%int(rand(0)*3)
  296. %V%%C%int(rand(0)*3)
  297. %V%%C%int(rand(0)*3)
  298. %V%%C%int(rand(0)*3)
  299. %V%%C%int(rand(0)*3)
  300.  
  301.  
  302.  
  303.  
  304.  
  305. %V%%C%dcounta(B8B107,B8B107=0)
  306. %V%%C%dcounta(B8B109,B8B109=1)
  307. %V%%C%dcounta(B8B112,B8B112=2)
  308. %CO:C,13,13%
  309.  
  310. %C%%H2%Compere
  311. %C%%H2%opens
  312. %C%%H2%this%H2% %H2%box
  313.  
  314.  
  315. %V%%C%%D0%if(A8=B8,mod(round(B8+1+rand(0),0),3),3-(A8+B8))
  316. %V%%C%%D0%if(A9=B9,mod(round(B9+1+rand(0),0),3),3-(A9+B9))
  317. %V%%C%%D0%if(A10=B10,mod(round(B10+1+rand(0),0),3),3-(A10+B10))
  318. %V%%C%%D0%if(A11=B11,mod(round(B11+1+rand(0),0),3),3-(A11+B11))
  319. %V%%C%%D0%if(A12=B12,mod(round(B12+1+rand(0),0),3),3-(A12+B12))
  320. %V%%C%%D0%if(A13=B13,mod(round(B13+1+rand(0),0),3),3-(A13+B13))
  321. %V%%C%%D0%if(A14=B14,mod(round(B14+1+rand(0),0),3),3-(A14+B14))
  322. %V%%C%%D0%if(A15=B15,mod(round(B15+1+rand(0),0),3),3-(A15+B15))
  323. %V%%C%%D0%if(A16=B16,mod(round(B16+1+rand(0),0),3),3-(A16+B16))
  324. %V%%C%%D0%if(A17=B17,mod(round(B17+1+rand(0),0),3),3-(A17+B17))
  325. %V%%C%%D0%if(A18=B18,mod(round(B18+1+rand(0),0),3),3-(A18+B18))
  326. %V%%C%%D0%if(A19=B19,mod(round(B19+1+rand(0),0),3),3-(A19+B19))
  327. %V%%C%%D0%if(A20=B20,mod(round(B20+1+rand(0),0),3),3-(A20+B20))
  328. %V%%C%%D0%if(A21=B21,mod(round(B21+1+rand(0),0),3),3-(A21+B21))
  329. %V%%C%%D0%if(A22=B22,mod(round(B22+1+rand(0),0),3),3-(A22+B22))
  330. %V%%C%%D0%if(A23=B23,mod(round(B23+1+rand(0),0),3),3-(A23+B23))
  331. %V%%C%%D0%if(A24=B24,mod(round(B24+1+rand(0),0),3),3-(A24+B24))
  332. %V%%C%%D0%if(A25=B25,mod(round(B25+1+rand(0),0),3),3-(A25+B25))
  333. %V%%C%%D0%if(A26=B26,mod(round(B26+1+rand(0),0),3),3-(A26+B26))
  334. %V%%C%%D0%if(A27=B27,mod(round(B27+1+rand(0),0),3),3-(A27+B27))
  335. %V%%C%%D0%if(A28=B28,mod(round(B28+1+rand(0),0),3),3-(A28+B28))
  336. %V%%C%%D0%if(A29=B29,mod(round(B29+1+rand(0),0),3),3-(A29+B29))
  337. %V%%C%%D0%if(A30=B30,mod(round(B30+1+rand(0),0),3),3-(A30+B30))
  338. %V%%C%%D0%if(A31=B31,mod(round(B31+1+rand(0),0),3),3-(A31+B31))
  339. %V%%C%%D0%if(A32=B32,mod(round(B32+1+rand(0),0),3),3-(A32+B32))
  340. %V%%C%%D0%if(A33=B33,mod(round(B33+1+rand(0),0),3),3-(A33+B33))
  341. %V%%C%%D0%if(A34=B34,mod(round(B34+1+rand(0),0),3),3-(A34+B34))
  342. %V%%C%%D0%if(A35=B35,mod(round(B35+1+rand(0),0),3),3-(A35+B35))
  343. %V%%C%%D0%if(A36=B36,mod(round(B36+1+rand(0),0),3),3-(A36+B36))
  344. %V%%C%%D0%if(A37=B37,mod(round(B37+1+rand(0),0),3),3-(A37+B37))
  345. %V%%C%%D0%if(A38=B38,mod(round(B38+1+rand(0),0),3),3-(A38+B38))
  346. %V%%C%%D0%if(A39=B39,mod(round(B39+1+rand(0),0),3),3-(A39+B39))
  347. %V%%C%%D0%if(A40=B40,mod(round(B40+1+rand(0),0),3),3-(A40+B40))
  348. %V%%C%%D0%if(A41=B41,mod(round(B41+1+rand(0),0),3),3-(A41+B41))
  349. %V%%C%%D0%if(A42=B42,mod(round(B42+1+rand(0),0),3),3-(A42+B42))
  350. %V%%C%%D0%if(A43=B43,mod(round(B43+1+rand(0),0),3),3-(A43+B43))
  351. %V%%C%%D0%if(A44=B44,mod(round(B44+1+rand(0),0),3),3-(A44+B44))
  352. %V%%C%%D0%if(A45=B45,mod(round(B45+1+rand(0),0),3),3-(A45+B45))
  353. %V%%C%%D0%if(A46=B46,mod(round(B46+1+rand(0),0),3),3-(A46+B46))
  354. %V%%C%%D0%if(A47=B47,mod(round(B47+1+rand(0),0),3),3-(A47+B47))
  355. %V%%C%%D0%if(A48=B48,mod(round(B48+1+rand(0),0),3),3-(A48+B48))
  356. %V%%C%%D0%if(A49=B49,mod(round(B49+1+rand(0),0),3),3-(A49+B49))
  357. %V%%C%%D0%if(A50=B50,mod(round(B50+1+rand(0),0),3),3-(A50+B50))
  358. %V%%C%%D0%if(A51=B51,mod(round(B51+1+rand(0),0),3),3-(A51+B51))
  359. %V%%C%%D0%if(A52=B52,mod(round(B52+1+rand(0),0),3),3-(A52+B52))
  360. %V%%C%%D0%if(A53=B53,mod(round(B53+1+rand(0),0),3),3-(A53+B53))
  361. %V%%C%%D0%if(A54=B54,mod(round(B54+1+rand(0),0),3),3-(A54+B54))
  362. %V%%C%%D0%if(A55=B55,mod(round(B55+1+rand(0),0),3),3-(A55+B55))
  363. %V%%C%%D0%if(A56=B56,mod(round(B56+1+rand(0),0),3),3-(A56+B56))
  364. %V%%C%%D0%if(A57=B57,mod(round(B57+1+rand(0),0),3),3-(A57+B57))
  365. %V%%C%%D0%if(A58=B58,mod(round(B58+1+rand(0),0),3),3-(A58+B58))
  366. %V%%C%%D0%if(A59=B59,mod(round(B59+1+rand(0),0),3),3-(A59+B59))
  367. %V%%C%%D0%if(A60=B60,mod(round(B60+1+rand(0),0),3),3-(A60+B60))
  368. %V%%C%%D0%if(A61=B61,mod(round(B61+1+rand(0),0),3),3-(A61+B61))
  369. %V%%C%%D0%if(A62=B62,mod(round(B62+1+rand(0),0),3),3-(A62+B62))
  370. %V%%C%%D0%if(A63=B63,mod(round(B63+1+rand(0),0),3),3-(A63+B63))
  371. %V%%C%%D0%if(A64=B64,mod(round(B64+1+rand(0),0),3),3-(A64+B64))
  372. %V%%C%%D0%if(A65=B65,mod(round(B65+1+rand(0),0),3),3-(A65+B65))
  373. %V%%C%%D0%if(A66=B66,mod(round(B66+1+rand(0),0),3),3-(A66+B66))
  374. %V%%C%%D0%if(A67=B67,mod(round(B67+1+rand(0),0),3),3-(A67+B67))
  375. %V%%C%%D0%if(A68=B68,mod(round(B68+1+rand(0),0),3),3-(A68+B68))
  376. %V%%C%%D0%if(A69=B69,mod(round(B69+1+rand(0),0),3),3-(A69+B69))
  377. %V%%C%%D0%if(A70=B70,mod(round(B70+1+rand(0),0),3),3-(A70+B70))
  378. %V%%C%%D0%if(A71=B71,mod(round(B71+1+rand(0),0),3),3-(A71+B71))
  379. %V%%C%%D0%if(A72=B72,mod(round(B72+1+rand(0),0),3),3-(A72+B72))
  380. %V%%C%%D0%if(A73=B73,mod(round(B73+1+rand(0),0),3),3-(A73+B73))
  381. %V%%C%%D0%if(A74=B74,mod(round(B74+1+rand(0),0),3),3-(A74+B74))
  382. %V%%C%%D0%if(A75=B75,mod(round(B75+1+rand(0),0),3),3-(A75+B75))
  383. %V%%C%%D0%if(A76=B76,mod(round(B76+1+rand(0),0),3),3-(A76+B76))
  384. %V%%C%%D0%if(A77=B77,mod(round(B77+1+rand(0),0),3),3-(A77+B77))
  385. %V%%C%%D0%if(A78=B78,mod(round(B78+1+rand(0),0),3),3-(A78+B78))
  386. %V%%C%%D0%if(A79=B79,mod(round(B79+1+rand(0),0),3),3-(A79+B79))
  387. %V%%C%%D0%if(A80=B80,mod(round(B80+1+rand(0),0),3),3-(A80+B80))
  388. %V%%C%%D0%if(A81=B81,mod(round(B81+1+rand(0),0),3),3-(A81+B81))
  389. %V%%C%%D0%if(A82=B82,mod(round(B82+1+rand(0),0),3),3-(A82+B82))
  390. %V%%C%%D0%if(A83=B83,mod(round(B83+1+rand(0),0),3),3-(A83+B83))
  391. %V%%C%%D0%if(A84=B84,mod(round(B84+1+rand(0),0),3),3-(A84+B84))
  392. %V%%C%%D0%if(A85=B85,mod(round(B85+1+rand(0),0),3),3-(A85+B85))
  393. %V%%C%%D0%if(A86=B86,mod(round(B86+1+rand(0),0),3),3-(A86+B86))
  394. %V%%C%%D0%if(A87=B87,mod(round(B87+1+rand(0),0),3),3-(A87+B87))
  395. %V%%C%%D0%if(A88=B88,mod(round(B88+1+rand(0),0),3),3-(A88+B88))
  396. %V%%C%%D0%if(A89=B89,mod(round(B89+1+rand(0),0),3),3-(A89+B89))
  397. %V%%C%%D0%if(A90=B90,mod(round(B90+1+rand(0),0),3),3-(A90+B90))
  398. %V%%C%%D0%if(A91=B91,mod(round(B91+1+rand(0),0),3),3-(A91+B91))
  399. %V%%C%%D0%if(A92=B92,mod(round(B92+1+rand(0),0),3),3-(A92+B92))
  400. %V%%C%%D0%if(A93=B93,mod(round(B93+1+rand(0),0),3),3-(A93+B93))
  401. %V%%C%%D0%if(A94=B94,mod(round(B94+1+rand(0),0),3),3-(A94+B94))
  402. %V%%C%%D0%if(A95=B95,mod(round(B95+1+rand(0),0),3),3-(A95+B95))
  403. %V%%C%%D0%if(A96=B96,mod(round(B96+1+rand(0),0),3),3-(A96+B96))
  404. %V%%C%%D0%if(A97=B97,mod(round(B97+1+rand(0),0),3),3-(A97+B97))
  405. %V%%C%%D0%if(A98=B98,mod(round(B98+1+rand(0),0),3),3-(A98+B98))
  406. %V%%C%%D0%if(A99=B99,mod(round(B99+1+rand(0),0),3),3-(A99+B99))
  407. %V%%C%%D0%if(A100=B100,mod(round(B100+1+rand(0),0),3),3-(A100+B100))
  408. %V%%C%%D0%if(A101=B101,mod(round(B101+1+rand(0),0),3),3-(A101+B101))
  409. %V%%C%%D0%if(A102=B102,mod(round(B102+1+rand(0),0),3),3-(A102+B102))
  410. %V%%C%%D0%if(A103=B103,mod(round(B103+1+rand(0),0),3),3-(A103+B103))
  411. %V%%C%%D0%if(A104=B104,mod(round(B104+1+rand(0),0),3),3-(A104+B104))
  412. %V%%C%%D0%if(A105=B105,mod(round(B105+1+rand(0),0),3),3-(A105+B105))
  413. %V%%C%%D0%if(A106=B106,mod(round(B106+1+rand(0),0),3),3-(A106+B106))
  414. %V%%C%%D0%if(A107=B107,mod(round(B107+1+rand(0),0),3),3-(A107+B107))
  415.  
  416.  
  417.  
  418.  
  419.  
  420. %V%%C%dcounta(C8C107,C8C107=0)
  421. %V%%C%dcounta(C8C109,C8C109=1)
  422. %V%%C%dcounta(C8C112,C8C112=2)
  423. %CO:D,13,0%
  424.  
  425. %C%%H2%Contestant
  426. %C%%H2%sticks
  427.  
  428.  
  429.  
  430. %V%%C%if(A8=B8,"Win","Lose")
  431. %V%%C%if(A9=B9,"Win","Lose")
  432. %V%%C%if(A10=B10,"Win","Lose")
  433. %V%%C%if(A11=B11,"Win","Lose")
  434. %V%%C%if(A12=B12,"Win","Lose")
  435. %V%%C%if(A13=B13,"Win","Lose")
  436. %V%%C%if(A14=B14,"Win","Lose")
  437. %V%%C%if(A15=B15,"Win","Lose")
  438. %V%%C%if(A16=B16,"Win","Lose")
  439. %V%%C%if(A17=B17,"Win","Lose")
  440. %V%%C%if(A18=B18,"Win","Lose")
  441. %V%%C%if(A19=B19,"Win","Lose")
  442. %V%%C%if(A20=B20,"Win","Lose")
  443. %V%%C%if(A21=B21,"Win","Lose")
  444. %V%%C%if(A22=B22,"Win","Lose")
  445. %V%%C%if(A23=B23,"Win","Lose")
  446. %V%%C%if(A24=B24,"Win","Lose")
  447. %V%%C%if(A25=B25,"Win","Lose")
  448. %V%%C%if(A26=B26,"Win","Lose")
  449. %V%%C%if(A27=B27,"Win","Lose")
  450. %V%%C%if(A28=B28,"Win","Lose")
  451. %V%%C%if(A29=B29,"Win","Lose")
  452. %V%%C%if(A30=B30,"Win","Lose")
  453. %V%%C%if(A31=B31,"Win","Lose")
  454. %V%%C%if(A32=B32,"Win","Lose")
  455. %V%%C%if(A33=B33,"Win","Lose")
  456. %V%%C%if(A34=B34,"Win","Lose")
  457. %V%%C%if(A35=B35,"Win","Lose")
  458. %V%%C%if(A36=B36,"Win","Lose")
  459. %V%%C%if(A37=B37,"Win","Lose")
  460. %V%%C%if(A38=B38,"Win","Lose")
  461. %V%%C%if(A39=B39,"Win","Lose")
  462. %V%%C%if(A40=B40,"Win","Lose")
  463. %V%%C%if(A41=B41,"Win","Lose")
  464. %V%%C%if(A42=B42,"Win","Lose")
  465. %V%%C%if(A43=B43,"Win","Lose")
  466. %V%%C%if(A44=B44,"Win","Lose")
  467. %V%%C%if(A45=B45,"Win","Lose")
  468. %V%%C%if(A46=B46,"Win","Lose")
  469. %V%%C%if(A47=B47,"Win","Lose")
  470. %V%%C%if(A48=B48,"Win","Lose")
  471. %V%%C%if(A49=B49,"Win","Lose")
  472. %V%%C%if(A50=B50,"Win","Lose")
  473. %V%%C%if(A51=B51,"Win","Lose")
  474. %V%%C%if(A52=B52,"Win","Lose")
  475. %V%%C%if(A53=B53,"Win","Lose")
  476. %V%%C%if(A54=B54,"Win","Lose")
  477. %V%%C%if(A55=B55,"Win","Lose")
  478. %V%%C%if(A56=B56,"Win","Lose")
  479. %V%%C%if(A57=B57,"Win","Lose")
  480. %V%%C%if(A58=B58,"Win","Lose")
  481. %V%%C%if(A59=B59,"Win","Lose")
  482. %V%%C%if(A60=B60,"Win","Lose")
  483. %V%%C%if(A61=B61,"Win","Lose")
  484. %V%%C%if(A62=B62,"Win","Lose")
  485. %V%%C%if(A63=B63,"Win","Lose")
  486. %V%%C%if(A64=B64,"Win","Lose")
  487. %V%%C%if(A65=B65,"Win","Lose")
  488. %V%%C%if(A66=B66,"Win","Lose")
  489. %V%%C%if(A67=B67,"Win","Lose")
  490. %V%%C%if(A68=B68,"Win","Lose")
  491. %V%%C%if(A69=B69,"Win","Lose")
  492. %V%%C%if(A70=B70,"Win","Lose")
  493. %V%%C%if(A71=B71,"Win","Lose")
  494. %V%%C%if(A72=B72,"Win","Lose")
  495. %V%%C%if(A73=B73,"Win","Lose")
  496. %V%%C%if(A74=B74,"Win","Lose")
  497. %V%%C%if(A75=B75,"Win","Lose")
  498. %V%%C%if(A76=B76,"Win","Lose")
  499. %V%%C%if(A77=B77,"Win","Lose")
  500. %V%%C%if(A78=B78,"Win","Lose")
  501. %V%%C%if(A79=B79,"Win","Lose")
  502. %V%%C%if(A80=B80,"Win","Lose")
  503. %V%%C%if(A81=B81,"Win","Lose")
  504. %V%%C%if(A82=B82,"Win","Lose")
  505. %V%%C%if(A83=B83,"Win","Lose")
  506. %V%%C%if(A84=B84,"Win","Lose")
  507. %V%%C%if(A85=B85,"Win","Lose")
  508. %V%%C%if(A86=B86,"Win","Lose")
  509. %V%%C%if(A87=B87,"Win","Lose")
  510. %V%%C%if(A88=B88,"Win","Lose")
  511. %V%%C%if(A89=B89,"Win","Lose")
  512. %V%%C%if(A90=B90,"Win","Lose")
  513. %V%%C%if(A91=B91,"Win","Lose")
  514. %V%%C%if(A92=B92,"Win","Lose")
  515. %V%%C%if(A93=B93,"Win","Lose")
  516. %V%%C%if(A94=B94,"Win","Lose")
  517. %V%%C%if(A95=B95,"Win","Lose")
  518. %V%%C%if(A96=B96,"Win","Lose")
  519. %V%%C%if(A97=B97,"Win","Lose")
  520. %V%%C%if(A98=B98,"Win","Lose")
  521. %V%%C%if(A99=B99,"Win","Lose")
  522. %V%%C%if(A100=B100,"Win","Lose")
  523. %V%%C%if(A101=B101,"Win","Lose")
  524. %V%%C%if(A102=B102,"Win","Lose")
  525. %V%%C%if(A103=B103,"Win","Lose")
  526. %V%%C%if(A104=B104,"Win","Lose")
  527. %V%%C%if(A105=B105,"Win","Lose")
  528. %V%%C%if(A106=B106,"Win","Lose")
  529. %V%%C%if(A107=B107,"Win","Lose")
  530.  
  531.  
  532. %C%%H1%STICKS
  533. %C%Number
  534. %C%of wins
  535.  
  536. %V%%C%dcounta(D8D107,D8D107="Win")
  537. %CO:E,13,0%
  538.  
  539. %C%%H2%Contestant
  540. %C% %H2%changes
  541.  
  542.  
  543.  
  544. %V%%C%if(A8=3-(B8+C8),"Win","Lose")
  545. %V%%C%if(A9=3-(B9+C9),"Win","Lose")
  546. %V%%C%if(A10=3-(B10+C10),"Win","Lose")
  547. %V%%C%if(A11=3-(B11+C11),"Win","Lose")
  548. %V%%C%if(A12=3-(B12+C12),"Win","Lose")
  549. %V%%C%if(A13=3-(B13+C13),"Win","Lose")
  550. %V%%C%if(A14=3-(B14+C14),"Win","Lose")
  551. %V%%C%if(A15=3-(B15+C15),"Win","Lose")
  552. %V%%C%if(A16=3-(B16+C16),"Win","Lose")
  553. %V%%C%if(A17=3-(B17+C17),"Win","Lose")
  554. %V%%C%if(A18=3-(B18+C18),"Win","Lose")
  555. %V%%C%if(A19=3-(B19+C19),"Win","Lose")
  556. %V%%C%if(A20=3-(B20+C20),"Win","Lose")
  557. %V%%C%if(A21=3-(B21+C21),"Win","Lose")
  558. %V%%C%if(A22=3-(B22+C22),"Win","Lose")
  559. %V%%C%if(A23=3-(B23+C23),"Win","Lose")
  560. %V%%C%if(A24=3-(B24+C24),"Win","Lose")
  561. %V%%C%if(A25=3-(B25+C25),"Win","Lose")
  562. %V%%C%if(A26=3-(B26+C26),"Win","Lose")
  563. %V%%C%if(A27=3-(B27+C27),"Win","Lose")
  564. %V%%C%if(A28=3-(B28+C28),"Win","Lose")
  565. %V%%C%if(A29=3-(B29+C29),"Win","Lose")
  566. %V%%C%if(A30=3-(B30+C30),"Win","Lose")
  567. %V%%C%if(A31=3-(B31+C31),"Win","Lose")
  568. %V%%C%if(A32=3-(B32+C32),"Win","Lose")
  569. %V%%C%if(A33=3-(B33+C33),"Win","Lose")
  570. %V%%C%if(A34=3-(B34+C34),"Win","Lose")
  571. %V%%C%if(A35=3-(B35+C35),"Win","Lose")
  572. %V%%C%if(A36=3-(B36+C36),"Win","Lose")
  573. %V%%C%if(A37=3-(B37+C37),"Win","Lose")
  574. %V%%C%if(A38=3-(B38+C38),"Win","Lose")
  575. %V%%C%if(A39=3-(B39+C39),"Win","Lose")
  576. %V%%C%if(A40=3-(B40+C40),"Win","Lose")
  577. %V%%C%if(A41=3-(B41+C41),"Win","Lose")
  578. %V%%C%if(A42=3-(B42+C42),"Win","Lose")
  579. %V%%C%if(A43=3-(B43+C43),"Win","Lose")
  580. %V%%C%if(A44=3-(B44+C44),"Win","Lose")
  581. %V%%C%if(A45=3-(B45+C45),"Win","Lose")
  582. %V%%C%if(A46=3-(B46+C46),"Win","Lose")
  583. %V%%C%if(A47=3-(B47+C47),"Win","Lose")
  584. %V%%C%if(A48=3-(B48+C48),"Win","Lose")
  585. %V%%C%if(A49=3-(B49+C49),"Win","Lose")
  586. %V%%C%if(A50=3-(B50+C50),"Win","Lose")
  587. %V%%C%if(A51=3-(B51+C51),"Win","Lose")
  588. %V%%C%if(A52=3-(B52+C52),"Win","Lose")
  589. %V%%C%if(A53=3-(B53+C53),"Win","Lose")
  590. %V%%C%if(A54=3-(B54+C54),"Win","Lose")
  591. %V%%C%if(A55=3-(B55+C55),"Win","Lose")
  592. %V%%C%if(A56=3-(B56+C56),"Win","Lose")
  593. %V%%C%if(A57=3-(B57+C57),"Win","Lose")
  594. %V%%C%if(A58=3-(B58+C58),"Win","Lose")
  595. %V%%C%if(A59=3-(B59+C59),"Win","Lose")
  596. %V%%C%if(A60=3-(B60+C60),"Win","Lose")
  597. %V%%C%if(A61=3-(B61+C61),"Win","Lose")
  598. %V%%C%if(A62=3-(B62+C62),"Win","Lose")
  599. %V%%C%if(A63=3-(B63+C63),"Win","Lose")
  600. %V%%C%if(A64=3-(B64+C64),"Win","Lose")
  601. %V%%C%if(A65=3-(B65+C65),"Win","Lose")
  602. %V%%C%if(A66=3-(B66+C66),"Win","Lose")
  603. %V%%C%if(A67=3-(B67+C67),"Win","Lose")
  604. %V%%C%if(A68=3-(B68+C68),"Win","Lose")
  605. %V%%C%if(A69=3-(B69+C69),"Win","Lose")
  606. %V%%C%if(A70=3-(B70+C70),"Win","Lose")
  607. %V%%C%if(A71=3-(B71+C71),"Win","Lose")
  608. %V%%C%if(A72=3-(B72+C72),"Win","Lose")
  609. %V%%C%if(A73=3-(B73+C73),"Win","Lose")
  610. %V%%C%if(A74=3-(B74+C74),"Win","Lose")
  611. %V%%C%if(A75=3-(B75+C75),"Win","Lose")
  612. %V%%C%if(A76=3-(B76+C76),"Win","Lose")
  613. %V%%C%if(A77=3-(B77+C77),"Win","Lose")
  614. %V%%C%if(A78=3-(B78+C78),"Win","Lose")
  615. %V%%C%if(A79=3-(B79+C79),"Win","Lose")
  616. %V%%C%if(A80=3-(B80+C80),"Win","Lose")
  617. %V%%C%if(A81=3-(B81+C81),"Win","Lose")
  618. %V%%C%if(A82=3-(B82+C82),"Win","Lose")
  619. %V%%C%if(A83=3-(B83+C83),"Win","Lose")
  620. %V%%C%if(A84=3-(B84+C84),"Win","Lose")
  621. %V%%C%if(A85=3-(B85+C85),"Win","Lose")
  622. %V%%C%if(A86=3-(B86+C86),"Win","Lose")
  623. %V%%C%if(A87=3-(B87+C87),"Win","Lose")
  624. %V%%C%if(A88=3-(B88+C88),"Win","Lose")
  625. %V%%C%if(A89=3-(B89+C89),"Win","Lose")
  626. %V%%C%if(A90=3-(B90+C90),"Win","Lose")
  627. %V%%C%if(A91=3-(B91+C91),"Win","Lose")
  628. %V%%C%if(A92=3-(B92+C92),"Win","Lose")
  629. %V%%C%if(A93=3-(B93+C93),"Win","Lose")
  630. %V%%C%if(A94=3-(B94+C94),"Win","Lose")
  631. %V%%C%if(A95=3-(B95+C95),"Win","Lose")
  632. %V%%C%if(A96=3-(B96+C96),"Win","Lose")
  633. %V%%C%if(A97=3-(B97+C97),"Win","Lose")
  634. %V%%C%if(A98=3-(B98+C98),"Win","Lose")
  635. %V%%C%if(A99=3-(B99+C99),"Win","Lose")
  636. %V%%C%if(A100=3-(B100+C100),"Win","Lose")
  637. %V%%C%if(A101=3-(B101+C101),"Win","Lose")
  638. %V%%C%if(A102=3-(B102+C102),"Win","Lose")
  639. %V%%C%if(A103=3-(B103+C103),"Win","Lose")
  640. %V%%C%if(A104=3-(B104+C104),"Win","Lose")
  641. %V%%C%if(A105=3-(B105+C105),"Win","Lose")
  642. %V%%C%if(A106=3-(B106+C106),"Win","Lose")
  643. %V%%C%if(A107=3-(B107+C107),"Win","Lose")
  644.  
  645.  
  646. %C%%H1%CHANGES
  647. %C%Number
  648. %C%of wins
  649.  
  650. %V%%C%dcounta(E8E107,E8E107="Win")
  651.