Прерывание мыши

...
uses
   Dos;
...
var
   Regs: Registers;
...
procedure onmouse(var ok:boolean;var but:byte;);
begin
   regs.ax:=$00;
   intr($33,regs);
   ok:=odd(regs.ax);
   but:=regs.bx;
end;
procedure getstatus(var but:byte;var x,y:word);
begin
   regs.ax:=$03;
   intr($33,regs);
   x:=regs.cx;
   y:=regs.dx;
   but:=regs.bl;
end;
procedure cursor;
begin
   regs.ax:=$01;
   intr($33,regs);
end;
procedure nocursor;
begin
   regs.ax:=$02;
   intr($33,regs);
end;