1. with Hashed_Strings;                    use Hashed_Strings; 
  2.  
  3. package Impulses is 
  4.  
  5.     Move_Down_Start  : constant Hashed_String := To_Hashed_String( "Move_Down_Start" ); 
  6.     Move_Left_Start  : constant Hashed_String := To_Hashed_String( "Move_Left_Start" ); 
  7.     Move_Right_Start : constant Hashed_String := To_Hashed_String( "Move_Right_Start" ); 
  8.     Move_Up_Start    : constant Hashed_String := To_Hashed_String( "Move_Up_Start" ); 
  9.  
  10.     Move_Down_Stop   : constant Hashed_String := To_Hashed_String( "Move_Down_Stop" ); 
  11.     Move_Left_Stop   : constant Hashed_String := To_Hashed_String( "Move_Left_Stop" ); 
  12.     Move_Right_Stop  : constant Hashed_String := To_Hashed_String( "Move_Right_Stop" ); 
  13.     Move_Up_Stop     : constant Hashed_String := To_Hashed_String( "Move_Up_Stop" ); 
  14.  
  15.     Jump_Start       : constant Hashed_String := To_Hashed_String( "Jump_Start" ); 
  16.     Jump_Stop        : constant Hashed_String := To_Hashed_String( "Jump_Stop" ); 
  17.  
  18.     Toggle_Pogo      : constant Hashed_String := To_Hashed_String( "Toggle_Pogo" ); 
  19.  
  20.     Shoot            : constant Hashed_String := To_Hashed_String( "Shoot" ); 
  21.  
  22.     Activate         : constant Hashed_String := To_Hashed_String( "Activate" ); 
  23.  
  24. end Impulses;