unit ECO_emou;
interface
uses
  dos

  ;


const
  leftbutton   = 1;                                    {what the buttons are}
  rightbutton  = 2;
  centerbutton = 4;

  standard     = 1;                              {graphic cursor definitions}
  uparrow      = 2;
  downarrow    = 3;
  leftarrow    = 4;
  rightarrow   = 5;
  checkmark    = 6;
  uphand       = 7;
  downhand     = 8;
  lefthand     = 9;
  righthand    = 10;
  stophand     = 11;
  hourglass    = 12;
  diagcross    = 13;
  rectcross    = 14;
  rectbox      = 15;
  targetcross  = 16;
  targetcircle = 17;
  targetbox    = 18;
  questionmark = 19;

  maxmousecursorshape = 19;

{---------------------------------------------------------------------------}
{externally accessable variables}

var

  mouse_installed    : boolean;   {initmouse - true if mouse is operable}
  mouse_error        : integer;   {initmouse - error code}
  mouse_type         : integer;   {initmouse - mouse type}

  mouse_clicked      : boolean;   {readmouse - true if button was clicked}
  mouse_buttons      : word;      {readmouse - current mouse button status}
  mouse_click_button : word;      {readmouse - click button status}
  mousex             : word;      {readmouse - mouse text x position}
  mousey             : word;      {readmouse - mouse text y position}
  click_mousex       : word;      {readmouse - text x click position}
  click_mousey       : word;      {readmouse - text y click position}
  real_mousex        : word;      {readmouse - real mouse x position}
  real_mousey        : word;      {readmouse - real mouse y position}

  mousetextwidth     : word;      {size of text on screen for mouse}
  mousetextheight    : word;

{---------------------------------------------------------------------------}
type
  masktype = record                      {mouse graphic cursor definition}
    def: array [0..1, 0..15] of word;     {graphics cursor def}
    hotx, hoty: integer;                       { hot spot x,y }
  end;

procedure initmouse;
procedure showmouse;
procedure hidemouse;
procedure readmouse;
procedure setmouseposition(x, y : word);
procedure setmousepoint(x, y : word);
function mousepress(
  button: word;
  var count, lastx, lasty: word
): word;
function mouserelease(
  button: word;
  var count, lastx, lasty: word
): word;
procedure setmousearea(x1,y1,x2,y2: word);
procedure setmouseboxarea(var r);
procedure mousegraphiccursor(shape: integer);
procedure setmousegraphiccursor(var mask:masktype);
procedure mousetextcursor(select, start, stop: word);
procedure readmickey(var x, y: word);
procedure setmouseisr(mask:word; var address);
procedure lightpen(flag: boolean);
procedure setpixeltomickey(x, y: word);
procedure hidemousearea(x1,y1,x2,y2: word);
procedure hidemouseboxarea(var r);
procedure mousethreshold(threshold:word);
procedure swapmouseisr(var mask:word; var address);
procedure setmousepage(page: word);
function getmousepage: word;
function mousein(x1,y1,x2,y2: word):boolean;
function mouseinbox(var r): boolean;
function mouseclick: boolean;
function mouseclickin(x1,y1,x2,y2: word): boolean;
function mouseclickinbox(var r): boolean;
function pushmouse: boolean;
function popmouse: boolean;
procedure zapmousestack;