with Ada.Real_Time;
use Ada.Real_Time;

procedure RTdelay is
   Next : Time;
   Period : Time_Span := Milliseconds (100);
begin
   Next := Clock + Period;
   loop
      delay until Next;
      Next := Next + Period;
   end loop;
end RTdelay;