из-за этого миленького условия цикла:
;и нет другого бонуса
While Not (masPrep(x_rnd, z_rnd) = 1 And masBonuses(x_rnd, z_rnd) = 0)
x_rnd = Rand (CFieldWidth)
z_rnd = Rand (CFieldHeight)
Wend
у меня комп намертво повис. (никогда не буду запускать проги без debug`а)