744 end;

   744 end;

   745 

   745 

   746 procedure chLandMines(var s: shortstring);

   746 procedure chLandMines(var s: shortstring);

   747 begin

   747 begin

   748 cLandMines:= StrToInt(s)

   748 cLandMines:= StrToInt(s)

   749 end;

   754 end;

   750 

   755 

   751 procedure chExplosives(var s: shortstring);

   756 procedure chExplosives(var s: shortstring);

   752 begin

   757 begin

   753 cExplosives:= StrToInt(s)

   758 cExplosives:= StrToInt(s)