U0 PaletteDemo()
{
  I64 i,j;
  CBGR48 bgr;
  for (i=0;i<COLORS_NUM;i++)
    "$$BLACK$$$$BG,%d$$__%-8Z__$$FG$$$$BG$$\n",i,i,"ST_COLORS";

  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
//Alternatively, use $LK,"GrPaletteSet",A="MN:GrPaletteSet"$(gr_palette_gray);
  for (i=0;i<COLORS_NUM;i++) {
    j=0xFFFF*i/(COLORS_NUM-1);
    bgr.b=j;
    bgr.g=j;
    bgr.r=j;
    GrPaletteColorSet(i,bgr);
  }
  PressAKey;

  //You can do it this way, too.
  GrPaletteColorSet(WHITE,0xFFFFFFFF0000);
  PressAKey;

  //$LK,"SettingsPop",A="MN:SettingsPop"$() restores original palette
  SettingsPop;
}

PaletteDemo;