with BitsAKD; use BitsAKD;
     with PortAKD; use PortAKD;
     with TTY;
     with SounAKD;

     procedure Buzz is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
       Byte_In  : constant Byte_Type := In_Byte ( 16#61# );
       Byte_On  : constant Byte_Type := Set_Bits   ( Byte_In, 2 );
       Byte_Off : constant Byte_Type := Clear_Bits ( Byte_In, 2 );
     begin
       loop
	 Out_Byte ( 16#61#, Byte_On );
	 Out_Byte ( 16#61#, Byte_Off );
	 exit when TTY.Char_Ready;
       end loop;
     end Buzz;