is
0 \0 Y! f2 k5 ?3 \% h: B i:real;
1 F v" {5 I: u8 m0 l4 e a,b:integer;5 J. c8 f5 P0 U" w& ~# k
do; \, Q9 w2 ]1 i3 z- l# }2 S! j
i:=z_uniform(2,0,1);7 b+ ^4 D8 } |& z' y; H3 o
if i<0.67 then% X: c9 P( k7 u1 _# v+ c) L
from a:=1;
5 F- T+ O' s4 w. y until a>6 loop. S5 b; |" L! f
.models.pan.create(.Models.Frame2.SingleProc);) ?7 Y3 e4 ~6 d9 @) `4 A) b0 t
a:=a+1;
x9 i) Z/ B% |4 R1 e end;3 E1 X6 p- G7 R
else0 y$ p4 }% c! }' {
from b:=1* z/ z/ O1 b( J0 R' U- p+ i1 U
until b>8 loop$ [' x% k& v9 b1 ~7 P6 j7 K4 |
.models.ban.create(.Models.Frame2.SingleProc);, W& K" b) {' Z$ C0 K; \ ?! w
b:=b+1;$ u- T4 j& P: X$ n) v% C
end; E/ N2 x" d1 {* e5 t+ Q
end;
1 r; t6 e, [7 @2 S$ Mend;
; F1 Q0 \7 {: O8 h |