is! k$ P8 p- K; x5 ]/ d4 a9 \4 {+ w
i:real;
5 B3 p8 @. m- o: `0 @ a,b:integer;0 I9 s. F7 l" ]- E, Y& Q$ R: I# p
do
1 z, W: f$ Z& \) R i:=z_uniform(2,0,1);/ w+ S& W3 h7 t% a* I
if i<0.67 then; R$ E1 W( W& {3 L
from a:=1;9 c+ R O- C. E8 b! B
until a>6 loop
# l7 q' o6 P4 L! ?8 w .models.pan.create(.Models.Frame2.SingleProc);
; @2 t; D5 n$ G4 E8 F v3 a a:=a+1;$ Q; ^0 E0 o! P8 ~! f
end;
8 q" b: [ v8 I* ]4 t7 r else1 G0 {/ r! y- _. P6 r
from b:=1+ ^% e7 O, y4 k- R4 k
until b>8 loop
6 L; c& d8 @! | .models.ban.create(.Models.Frame2.SingleProc);
5 V/ d2 m& h) Z% J1 j8 V b:=b+1;
2 ]- d9 c6 e6 d4 h0 y! Z$ O end;- h% s5 @8 x) ^) M
end;6 v1 U( U8 M3 C1 _1 U* f' b
end;
* }/ `% \# |- D+ q% c |