730 end;

   730 end;

   731 

   731 

   732 procedure chZoomReset(var s: shortstring);

   732 procedure chZoomReset(var s: shortstring);

   733 begin

   733 begin

   734     s:= s; // avoid compiler hint

   734     s:= s; // avoid compiler hint

   736 end;

   739 end;

   737 

   740 

   738 procedure chMapGen(var s: shortstring);

   741 procedure chMapGen(var s: shortstring);

   739 begin

   742 begin

   740 cMapGen:= TMapGen(StrToInt(s))

   743 cMapGen:= TMapGen(StrToInt(s))