{ PAL Script created on 03.01.2005 20:14:22 }
 {==================================================}
 var DSL : Integer;
 var Modem : Integer;
 var I : Integer;
 var Fmt : String;
 var S : TSongInfo;
 var tm : String;
 var sStart : String;
 var sDay : String;
 var stt : String;
 
 DSL := 0;
 tm := '+00:00:02';
 repeat
  PAL.WaitForTime(tm);
  if Encoders[DSL].Status = 'Error' then Encoders[DSL].stop;
  PAL.WaitForTime('+00:00:02');
  if not Encoders[DSL].started then Encoders[DSL].start;
  tm := '+00:00:02';
 until Encoders[DSL].status = 'Encoding';
  begin
   DeckA.Eject;
   DeckB.Eject;
   S := Queue.NextInqueue;
   DeckA.Queuesong(S);
   DeckA.Play;
  end;