# Birth of young animal
WHENEVER (Stage = 7) AND (Index <= NUMBER(MilkCows)) DO
Index^:= Index + 1;
MilkCows:Animal[Index].Age^:=MilkCows:Animal[Index].Age + 1;
Dung^:= Dung + 20;
IF MilkCows:Animal[Index].Weight < 600 DO
MilkCows:Animal[Index].Weight^:= MilkCows:Animal[Index].Weight + ves_3;
END
MilkCows:Animal[Index].Stelnost^:=
MilkCows:Animal[Index].Stelnost + 1;
IF MilkCows:Animal[Index].Stelnost > (275 + Norm_raspr(5,1))
AND (MilkCows:Animal[Index].Status = TRUE) DO
MilkCows:Animal[Index].Status^:= FALSE;
MilkCows:Animal[Index].Kol_voOtelov^:=
MilkCows:Animal[Index].Kol_voOtelov + 1;
IF Rand < 0.7 DO
Heifers^: ADD 1 NEW Animal
CHANGING
Weight^:= ves_1;
Age^:= 1;
END
END
ELSE DO
Calves^: ADD 1 NEW Animal
CHANGING
Weight^:= ves_1;
Age^:= 1;
END
END
END