188
@verb #9682:"stats" none none none rdo #9682
@program #9682:"stats" none none none
b = 0
j = 0
while (!0)
  suspend(0)
  if (b + j == 10000)
    break
  endif
  if (random(10) <= 3)
    b = b + 1
    continue
  endif
  if (random(10) <= 3)
    j = j + 1
    continue
  endif
endwhile
player:tell("Probability Bob will win: " + tostr(tofloat(b) / 10000.0 * 100.0) + "%")
.

0