unit ECO_vga;
interface
uses
  dos, crt,
  unit_scn

  ;


const
  colors = 256;
  delayamt   : byte    =   50;
  steps      : byte    =   30;
  vgapresent : boolean = true;


type
  paltype = array [0..colors-1] of record
    r, g, b: byte;
  end;

var
  origpal : paltype;


  procedure __palget(var origpal: paltype);
  procedure __palfade(origpal: paltype; fadeout: boolean);
  procedure __palblack(origpal: paltype);
  procedure __palput(origpal: paltype);