443     Inc(t);

   443     Inc(t);

   444     if t > 5 then

   444     if t > 5 then

   445         t:= 1;

   445         t:= 1;

   446     tb:= t mod 255;

   446     tb:= t mod 255;

   447     // Delegate the actual change to /timer

   447     // Delegate the actual change to /timer

   449     end;

   449     end;

   450 end;

   450 end;

   451 

   451 

   452 procedure chSlot(var s: shortstring);

   452 procedure chSlot(var s: shortstring);

   453 var slot: LongWord;

   453 var slot: LongWord;