public CBGR24 gr_palette_amicus[COLORS_NUM] = {
0x0, 0x1A4883, 0x8D2E75, 0xFFA995, 0xA10000, 0xFFC0FF, 0x8B5858, 0xB2B6AF, 0x555753, 0xE4D2, 0x82BC49, 0x8AE0C0, 0xDF2100, 0xB800B2, 0xFFFFFF, 0x969696
};
public U0 PaletteSetAmicus(Bool persistent=TRUE)
{
    GrPaletteSet(gr_palette_amicus);
    LFBFlush;
    if (persistent)
        fp_set_std_palette = &PaletteSetAmicus;
}