360 procedure chSetSeed(var s: shortstring);

   360 procedure chSetSeed(var s: shortstring);

   361 begin

   361 begin

   362 if isDeveloperMode then

   362 if isDeveloperMode then

   363    begin

   363    begin

   364    SetRandomParams(s, rndfillstr);

   364    SetRandomParams(s, rndfillstr);

   365    InitStepsFlags:= InitStepsFlags or cifRandomize

   366    InitStepsFlags:= InitStepsFlags or cifRandomize

   366    end

   367    end

   367 end;

   368 end;

   368 

   369