task Power_Failure is
---------------------------------------------------------------------------
entry Fail;
for Fail use at 16#00030#
---------------------------------------------------------------------------
end Power_Failure;

task body Power_Failure is
begin
  loop
    accept Fail;
    DC_Scrn.PutL ( "Tag!" );
  end loop;
end Power_Failure;