is
$ x# K7 A: w1 [; i i:real;3 o! N4 c4 V( e" h$ |7 ^" s& u
a,b:integer;" ~) W# s0 S0 n
do
9 f" x5 b* j3 k9 P+ o* @ i:=z_uniform(2,0,1);
2 c2 I* E' [: e W% A: D if i<0.67 then
, _ e/ l9 \5 B: [. U" k$ O from a:=1;; t% R% q. ~6 _7 l \5 E( j
until a>6 loop5 M( a9 d7 l! a
.models.pan.create(.Models.Frame2.SingleProc);
! N; j3 {( E3 e0 }! k a:=a+1;/ p8 H2 h% y% f
end;8 T1 L$ J- I/ N
else @$ M0 m( \8 u
from b:=13 F1 F$ N5 A' D& x# s
until b>8 loop7 F/ @ }% t, J+ Y+ ]8 m& L
.models.ban.create(.Models.Frame2.SingleProc);* K7 R3 v& n, ?- e
b:=b+1;
$ l8 `( Z% \" r& h4 ~: D end;. ~, g2 c2 c* A6 P& f
end;
0 U2 x# z6 u1 N: ` i3 b- h' vend;8 R2 l, [- H$ }8 b7 L- Z
|