{/************************************************************************/}
{/* Load palette registers from a table */}
{/* Which has BLACK and WHITE interchanged */}
{/************************************************************************/}
procedure invert_B_n_W;
const
table : array[0..15] of word = (15,0,2,3,4,5,6,0,8,9,10,11,12,13,14,0);
begin
write_palette(seg(table),ofs(table));
end;