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 SettingsPush
//Alternatively, use 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;

  //SettingsPop() restores original palette
  SettingsPop;
}

PaletteDemo;