1. with Allegro.Truecolor;                 use Allegro.Truecolor; 
  2.  
  3. package Palette_16 is 
  4.  
  5.     -- This is the standard 16-color palette used by Commander Keen 
  6.  
  7.     function Black         return Color_Type; 
  8.     function Blue          return Color_Type; 
  9.     function Green         return Color_Type; 
  10.     function Cyan          return Color_Type; 
  11.     function Red           return Color_Type; 
  12.     function Magenta       return Color_Type; 
  13.     function Brown         return Color_Type; 
  14.     function Grey          return Color_Type; 
  15.     function Dark_Grey     return Color_Type; 
  16.     function Light_Blue    return Color_Type; 
  17.     function Light_Green   return Color_Type; 
  18.     function Light_Cyan    return Color_Type; 
  19.     function Light_Red     return Color_Type; 
  20.     function Light_Magenta return Color_Type; 
  21.     function Yellow        return Color_Type; 
  22.     function White         return Color_Type; 
  23.  
  24. end Palette_16;