GetPalette procedure

 DECALARATION:  GetPalette(var Palette : PaletteType);

      PURPOSE:  Returns the current palette and its size

         UNIT:  Graph

      REMARKS:  The type PaletteType is defined as follows:

                Const
                   MaxColors = 15;

                Type
                   PaletteType = Record;
                                    Size   : Byte;
                                    Colors : Array[0..MaxColors] of ShortInt;
                                 End;

                The Size field reports the number of colors in the palette
                for the current driver and mode.  Colors contains the actual
                colors 0..Size-1.

 RESTRICTIONS:  Must first be in graphics mode.