with Lego;
use Lego;

procedure Testsound is 
   Value : Integer;  

begin
   Clear_timer(Timer_2);
   loop
      Value := Get_Timer(Timer_2);
      Display_Value(Value,3);
      Play_Sound(Double_Beep);
   end loop;
end Testsound;