[ StartTimer obj timer i;
   for (i=0:i<active_timers:i++)
       if (the_timers-->i==obj) rfalse;
   for (i=0:i<active_timers:i++)
       if (the_timers-->i==0) jump FoundTSlot;
   i=active_timers++;
   if (i >= MAX_TIMERS) { RunTimeError(4); return; }
   .FoundTSlot;
   if (obj.&time_left==0) { RunTimeError(5,obj); return; }
   the_timers-->i=obj; obj.time_left=timer;
];