pragma Task_Dispatching_Policy(FIFO_Within_Priorities);

with Ada.Real_Time;
use Ada.Real_Time;
--  with Rtl_Pt1;
--  use Rtl_Pt1;


procedure Prior1task is
   task T1 is
      pragma Priority(1);
   end T1;

  task body T1 is
      Next : Time;
      Period : Time_Span := Milliseconds (5);
      Time1 : Time;
      Time2 : Time;
   begin
      Next := Clock + Period;
      loop
         Time1 := Clock;
         Time2 := Clock + Milliseconds(2);
         while Time1<Time2
         loop
            Time1:=Clock;
         end loop;

         delay until Next;
         Next := Next + Period;
      end loop;
   end T1;

   --  Res : Integer;
begin
   --  Res := Integer (Rtl_Ktrace_Start);
   delay 0.1;
   --  Res := Integer (Rtl_Ktrace_Stop);
end Prior1task;