is
3 z# J2 o+ D' O1 b i:real;( }9 W6 H9 b$ r' c" M/ A
a,b:integer;! [. Y; x6 j" i# u( U0 n
do2 M3 E! D+ n$ |# f- C
i:=z_uniform(2,0,1);
7 L( \. @" Q) l if i<0.67 then
$ i1 t7 z3 A/ v from a:=1;
' [* }6 _! G. h) o, x* K8 A until a>6 loop
5 o Z# k0 b* v" \3 R8 C( L5 t% J# _ .models.pan.create(.Models.Frame2.SingleProc);: c# [0 M# ?, j$ H( ]8 Z
a:=a+1;
4 u. y* B' p; S4 t; @. A# T% ~0 J end;
3 ]# ?0 j4 d" ]) ? else2 B( W, \- Q+ V& Q, B
from b:=1
3 |; w' C9 y* U7 b1 q. W" R8 } until b>8 loop
6 i2 N7 s2 _( ]: ^2 t7 i .models.ban.create(.Models.Frame2.SingleProc);1 I; j$ c4 h& _
b:=b+1;
V8 |/ z' E. F+ _8 x7 k3 c- L! U/ y: R$ e end;
2 ?7 A! P& L$ m) i: D# k end;
+ d" [: [4 _$ [! u \: Mend;8 Q I+ N/ ^) ?7 s+ R p2 A1 u
|