void DecodePal(short *palGBA, long *palPC, int numpals, char palpos)
{

   int             R, g, b, i, ii, s = 0;
   long            index = 0;

   for (ii = 0; ii < numpals; ii++)
   {
      index = 0x10 * ii;

      for (i = 0; i < 16; i++)
      {

         R = ((palGBA[index + i] & 0x1F) << 3);
         g = ((palGBA[index + i] >> 5) & 0x1F) << 3;
         b = (((palGBA[index + i] >> 10) & 0x1f) << 3);
         palPC[index + i] = RGB(R, g, b);
      }
   }

}