unit ECO_vid;
interface
uses
  unit_sup, unit_key,
  unit_scn, unit_fil,
  ECO_str,  ECO_ext

  ;


const
  bt_double    = 15;     bt_single    =   0;
  black        = 00;     blue         = 01;
  green        = 02;     cyan         = 03;
  red          = 04;     magenta      = 05;
  brown        = 06;     lightgray    = 07;
  darkgray     = 08;     lightblue    = 09;
  lightgreen   = 10;     lightcyan    = 11;
  lightred     = 12;     lightmagenta = 13;
  yellow       = 14;     white        = 15;
  blink        = 128;



  procedure __attrib(x1, y1, x2, y2, f, b: byte);
  procedure __bandwin(del: boolean; x1,y1,x2,y2,f,b,bt: byte);
  function  __barchoice(x,x1,y,f,b,h : byte; st: string): byte;
  procedure __betwscn(x1, x2, y, f, b: byte; st: string);
  procedure __clrscn(x1, y1, x2, y2, f, b: byte; c: char);
  procedure __cls;
  function  __copyfil(x1,x2,y,f,b: byte; fs: longint; src, targ: string): byte;
  procedure __copyscn(x1, y1, x2, y2, x, y: byte);
  procedure __ECO_message;
  procedure __hbetwscn(x1, x2, y, f, b, h: byte; st: string);
  procedure __hquikscn(x, y, f, b, h: byte; st: string);
  procedure __nocrt;
  procedure __panelwin(del: boolean; x1, y1, x2, y2, f, b, bt: byte);
  procedure __partscn(sc: pointer; x1, y1, x2, y2: byte; toscreen: boolean);
  procedure __ptd_message;
  procedure __qvertscn(x1, y1, f, b: byte;  st: string);
  procedure __repscn(f, b: byte; st: string);
  procedure __resscn(sc: _scnimageptr);
  procedure __savscn(sc: _scnimageptr);
  procedure __setblwin(blink: boolean);


var
  scn1, scn2, scn3, scn4: _scnimageptr;