is
. q9 ]8 ` O' B. K i:real;
8 X h' l" j3 L+ c3 A( @( P2 G a,b:integer;6 a# l0 Q, t( n% R
do
% q& M1 q, b# u9 ]5 e9 j% w4 b% Z" _ i:=z_uniform(2,0,1);
8 i5 Y) O# ]" Q if i<0.67 then. Z; Z/ N+ f; z6 d1 H
from a:=1;: v8 z8 w: q8 e' ~5 Z+ x' @- ?
until a>6 loop5 v$ H+ t2 @$ `, X# u
.models.pan.create(.Models.Frame2.SingleProc);
$ _ N/ Q. P/ |# | a:=a+1;% g% o, l: l4 J. G
end;6 t' x# H8 n, s' S" a. P) C. g
else
$ `- @' q$ P5 I7 @# X* U) x from b:=1
* @6 p8 G4 l: @ Z until b>8 loop- t! X- i( B- |7 l8 I* k
.models.ban.create(.Models.Frame2.SingleProc);% m' |; b! @' i0 x+ B7 G
b:=b+1;: P1 B. j! ?4 I, L7 k: v
end;
" b& z" [6 _+ F0 E, _ end;
; p, a2 P% l8 b4 mend;
2 z& o1 e# I+ h3 j. N& {# }; { |