with
  DC_Errr,
  DC_Intr,
  DC_Scrn,
  Errors,
  Memory,
  Program_Control,
  System;

procedure TSR_Test is
---------------------------------------------------------------------------
---------------------------------------------------------------------------
Error:  Errors.Extended_Errors;

task Print_Screen_Task is
---------------------------------------------------------------------------
  entry Print_Screen;
  for Print_Screen use at DC_Intr.Int_Print_Screen;
end Print_Screen_Task;

task body Print_Screen_Task is
---------------------------------------------------------------------------
  Print_Count: integer := 0;
begin
  loop
    accept Print_Screen do
      Print_Count := Print_Count + 1;
    end Print_Screen;
    exit when Print_Count = 3;
  end loop;
end Print_Screen_Task;

---------------------------------------------------------------------------
---------------------------------------------------------------------------
begin
  DC_Scrn.PutL ( "TSR_Test loaded." );
  Error := Program_Control.Resident_Quit ( 0, Memory.Used );
exception
  when others => DC_Errr.Notify ( "TSR_Test" );
		 raise;
end TSR_Test;