unit ECO_mou;
interface
uses
  dos

  ;


const
  mdd = $33;                { interrupt for mouse device driver }
  hardware = 1;                                  { cursor types }
  software = 0;
  left     = 0;                                 { mouse buttons }
  right    = 1;
  middle   = 2;

type
  resetrec = record        { initialized by mouse function 0 }
    exists   : boolean;           { true if mouse is present }
    nbuttons : integer;                 { # buttons on mouse }
  end;

  locrec = record    { initialized by mouse fcns 3, 5, and 6 }
    buttonstatus,    { bits 0-2 on if corresp button is down }
    opcount,               { # times button has been clicked }
                             { opcount not returned by fcn 3 }
    column,                                       { position }
    row      : integer;
  end;

  moverec = record             { initialized by mouse fcn 11 }
    hcount,                        { net horizontal movement }
    vcount : integer;                { net vertical movement }
  end;

var
  reg : registers;


  {$F+}
  procedure mreset (var mouse : resetrec);       { function  0 }
  procedure mshow;                               { function  1 }
  procedure mhide;                               { function  2 }
  procedure mpos (var mouse : locrec);           { function  3 }
  procedure mmoveto (col, row : integer);        { function  4 }
  procedure mpressed (button : integer;
                      var mouse : locrec);       { function  5 }
  procedure mreleased (button : integer;
                      var mouse : locrec);       { function  6 }
  procedure mcolrange (min, max : integer);      { function  7 }
  procedure mrowrange (min, max : integer);      { function  8 }
  procedure mgraphcursor (hhot, vhot : integer;
                     maskseg, maskofs : word);   { function  9 }
  procedure mtextcursor (ctype, p1, p2 : word);  { function 10 }
  procedure mmotion (var moved : moverec);       { function 11 }
  procedure minsttask (mask,
                       taskseg, taskofs : word); { function 12 }
  procedure mlpenon;                             { function 13 }
  procedure mlpenoff;                            { function 14 }
  procedure mratio (horiz, vert : integer);      { function 15 }
  {$F-}