1. with Hashed_Strings;                    use Hashed_Strings; 
  2.  
  3. package Keen_Directives is 
  4.  
  5.     UP    : constant Hashed_String := To_Hashed_String( "up" ); 
  6.     DOWN  : constant Hashed_String := To_Hashed_String( "down" ); 
  7.     LEFT  : constant Hashed_String := To_Hashed_String( "left" ); 
  8.     RIGHT : constant Hashed_String := To_Hashed_String( "right" ); 
  9.  
  10.     JUMP  : constant Hashed_String := To_Hashed_String( "jump" ); 
  11.     SHOOT : constant Hashed_String := To_Hashed_String( "shoot" ); 
  12.     POGO  : constant Hashed_String := To_Hashed_String( "pogo" ); 
  13.  
  14.     FINISH_TELEPORT : constant Hashed_String := To_Hashed_String( "finish_teleport" ); 
  15.  
  16.     FACE_UP    : constant Hashed_String := To_Hashed_String( "face_up" ); 
  17.     FACE_DOWN  : constant Hashed_String := To_Hashed_String( "face_down" ); 
  18.     FACE_LEFT  : constant Hashed_String := To_Hashed_String( "face_left" ); 
  19.     FACE_RIGHT : constant Hashed_String := To_Hashed_String( "face_right" ); 
  20.  
  21. end Keen_Directives;