NAME: GetPalette

     USE: Procedure to return the current palette and its size. This
          information is returned through the record type PaletteType.

                       Const
                          MaxColors = 15;
                       Type
                       PaletteType = Record;
                          Size   : Byte;
                          Colors : Array[1..MaxColors] of ShortInt;
                       end;

     DEPENDENCY:  Must first be in graphics mode.  The unit Graph
                  must also be placed in the uses section.

     SYNTAX: GetPalette(Var PaletteValue : PaletteType);