with Kernel;
procedure Bell is
   OS_Bell : constant := 16#107#;
   Regs    : aliased Kernel.swi_regs;
begin
   Kernel.swi ( OS_Bell, Regs'Access, Regs'Access );
end Bell;
