if (l0 == 0 and b == 137) then {
  l0 := 1;
};

if (l0 == 0 and (daysleft == 1 and not a == 899)) then {
  color := deg;
  l0 := 1;
};

if (l0 == 0 and not a == 899) then { 
  a := 899; 
  b := deg * 6000 + rnd(2777);
  color := nr;
  l0 := 1; 
};

if (l0 == 0 and (b == maxb or b > maxb)) then {
  color := 0;
  b := 137;
  l0 := 2;
};

if (l0 == 2 and not Eceq(color)) then {
  l0 := 1;
};

if l0 == 2 then {
  color := color + 1;
};

if (l0 == 0 and daysleft == 1) then {
  color := deg;
  l0 := 2;
};