unit ECO_pal;
interface
uses
  crt,     unit_scn,
  ECO_vid, ECO_ext

  ;

type
  attributes = record
    fore, back: byte;
  end;

  function getcolor(
    x_pos, y_pos, winf, winb, wintype: byte;
    var fore, back: byte;
    msg: string
  ): byte;