equal
deleted
inserted
replaced
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; |
|
750 |
|
751 procedure chAirMines(var s: shortstring); |
|
752 begin |
|
753 cAirMines:= 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) |