Source file: /~heha/messtech/gen2.zip/SET16.INC

type    DAC_register =array[0..2] of byte;
        paltype      =array[0..15] of DAC_register;
const   newpal       :paltype
                     =(($00, $00, $00),($04, $04, $04),($08, $08, $08),
                       ($0b, $0b, $0b),($10, $10, $10),($14, $14, $14),
                       ($18, $18, $18),($1b, $1b, $1b),($20, $20, $20),
                       ($24, $24, $24),($28, $28, $28),($2b, $2b, $2b),
                       ($30, $30, $30),($34, $34, $34),($38, $38, $38),
                       ($3f, $3f, $3f));





procedure farbe;
var i : integer;

begin
 for i:= 0 to 15 do begin
  SetPalette(i,i);
  SetRGBPalette(i,newpal[i,0],newpal[i,1],newpal[i,2]);
 end;
end;