unit ECO_ext;
interface
uses
  unit_key, unit_mnu,
  unit_sup, unit_fil,
  unit_scn, unit_str,
  unit_mou,
  ECO_time, dos

  ;


const
  bioskeybuffer= $f;
  only         =$40;     notnone      = $80;

  _period      = $342e;  _colon       = $273a;  _c_2= $0300;
  _slash       = $352f;  _padslash    = $e02f;  _c_6= $071e;
                                                _c_minus = $0c1f;
  _left        = $4be0;  _padleft     = $4b00;
  _cleft       = $73e0;  _cpadleft    = $7300;
  _right       = $4de0;  _padright    = $4d00;
  _cright      = $74e0;  _cpadright   = $7400;
  _up          = $48e0;  _padup       = $4800;
  _down        = $50e0;  _paddown     = $5000;
  _pgup        = $49e0;  _padpgup     = $4900;
  _pgdn        = $51e0;  _padpgdn     = $5100;
  _home        = $47e0;  _padhome     = $4700;
  _chome       = $7700;  _end         = $4fe0;
  _padend      = $4f00;  _cend        = $7500;
  _ins         = $52e0;  _padins      = $5200;
  _del         = $53e0;  _paddel      = $5300;
  _spaddel     = $532e;  _backspace   = $0e08;
  _minus       = $0c2d;  _padminus    = $4a2d;
  _plus        = $0d2b;  _padplus     = $4e2b;
  _star        = $092a;  _padstar     = $372a;
  _enter       = $1c0d;  _newline     = $1c0a;
  _padenter    = $e00d;

  _tab         = $0f09;  _s_tab       = $0f00;
  _esc         = $011b;  _space       = $3920;

  _a    = $1e61;  _b     = $3062;  _s_a  = $1e41;  _s_b   = $3042;
  _c    = $2e63;  _d     = $2064;  _s_c  = $2e43;  _s_d   = $2044;
  _e    = $1265;  _f     = $2166;  _s_e  = $1245;  _s_f   = $2146;
  _g    = $2267;  _h     = $2368;  _s_g  = $2247;  _s_h   = $2348;
  _i    = $1769;  _j     = $246a;  _s_i  = $1749;  _s_j   = $244a;
  _k    = $256b;  _l     = $266c;  _s_k  = $254b;  _s_l   = $264c;
  _m    = $326d;  _n     = $316e;  _s_m  = $324d;  _s_n   = $314e;
  _o    = $186f;  _p     = $1970;  _s_o  = $184f;  _s_p   = $1950;
  _q    = $1071;  _r     = $1372;  _s_q  = $1051;  _s_r   = $1352;
  _s    = $1f73;  _t     = $1474;  _s_s  = $1f53;  _s_t   = $1454;
  _u    = $1675;  _v     = $2f76;  _s_u  = $1655;  _s_v   = $2f56;
  _w    = $1177;  _x     = $2d78;  _s_w  = $1157;  _s_x   = $2d58;
  _y    = $1579;  _z     = $2c7a;  _s_y  = $1559;  _s_z   = $2c5a;

  _c_a  = $1e01;  _c_b   = $3002;  _a_a  = $1e00;  _a_b   = $3000;
  _c_c  = $2e03;  _c_d   = $2004;  _a_c  = $2e00;  _a_d   = $2000;
  _c_e  = $1205;  _c_f   = $2106;  _a_e  = $1200;  _a_f   = $2100;
  _c_g  = $2207;  _c_h   = $2308;  _a_g  = $2200;  _a_h   = $2300;
  _c_i  = $1709;  _c_j   = $240a;  _a_i  = $1700;  _a_j   = $2400;
  _c_k  = $250b;  _c_l   = $260c;  _a_k  = $2500;  _a_l   = $2600;
  _c_m  = $320d;  _c_n   = $310e;  _a_m  = $3200;  _a_n   = $3100;
  _c_o  = $180f;  _c_p   = $1910;  _a_o  = $1800;  _a_p   = $1900;
  _c_q  = $1011;  _c_r   = $1312;  _a_q  = $1000;  _a_r   = $1300;
  _c_s  = $1f13;  _c_t   = $1414;  _a_s  = $1f00;  _a_t   = $1400;
  _c_u  = $1615;  _c_v   = $2f16;  _a_u  = $1600;  _a_v   = $2f00;
  _c_w  = $1117;  _c_x   = $2d18;  _a_w  = $1100;  _a_x   = $2d00;
  _c_y  = $1519;  _c_z   = $2c1a;  _a_y  = $1500;  _a_z   = $2c00;

  _f1   = $3b00;  _f2    = $3c00;  _f3   = $3d00;  _f4    = $3e00;
  _f5   = $3f00;  _f6    = $4000;  _f7   = $4100;  _f8    = $4200;
  _f9   = $4300;  _f10   = $4400;

  _s_f1 = $5400;  _s_f2  = $5500;  _s_f3 = $5600;  _s_f4  = $5700;
  _s_f5 = $5800;  _s_f6  = $5900;  _s_f7 = $5a00;  _s_f8  = $5b00;
  _s_f9 = $5c00;  _s_f10 = $5d00;

  _c_f1 = $5e00;  _c_f2  = $5f00;  _c_f3 = $6000;  _c_f4  = $6100;
  _c_f5 = $6200;  _c_f6  = $6300;  _c_f7 = $6400;  _c_f8  = $6500;
  _c_f9 = $6600;  _c_f10 = $6700;

  _a_f1 = $6800;  _a_f2  = $6900;  _a_f3 = $6a00;  _a_f4  = $6b00;
  _a_f5 = $6c00;  _a_f6  = $6d00;  _a_f7 = $6e00;  _a_f8  = $6f00;
  _a_f9 = $7000;  _a_f10 = $7100;


type
  mouseaction = (mleft, mmiddle, mright, mboth, mmove, mnoaction);
  filestr = string[12];
  str3    =  string[3];

  reflowinfo = record { for powertools menus }
    off, hioff:    byte;
    key       :   _keys;
    prot      : boolean;
  end;


const
  viewer : string[12]  = ' l.com ';


var
  { mouse }
  keypoller      : pointer;
  moldx, moldy   :    word;

  { keyboard }
  lastkey        :    char;
  lastscan       :    byte;


  { extended supplement }
  function  __attr(f, b: byte): byte;
  procedure __coordmou(var x: word; var y: word);
  procedure __delay(w: word);
  procedure __delaykey(w:word);
  procedure __fastkey;
  function  __funcmou(var b: word; var x: word; var y: word): mouseaction;
  function  __isboxmou(x1, y1, x2, y2, cx, cy: word): boolean;
  function  __keypressed: boolean;
  function  __keyword(k: _keys): word;
  function  __main(b: longint; w: word): longint;
  function  __max(v1, v2: longint): longint;
  function  __min(v1, v2: longint): longint;
  function  __power(x,y: integer): longint;
  function  __readkey: char;
  function  __retdow(y, m, d: word): word;
  function  __retkey: word;
  function  __str(st: string): integer;
  function  __today: byte;
  function  __val(st: string): longint;