🚀 go-pugleaf

This is a multi-part message in MIME format.

--------------28C725411FCA
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 7bit

> hey,
>   anyone have any good mouse units or code or help to give me. My
> teacher wont tell me and i know nobody else that could tell me.
> All help is appreciated.
 

HI, I'v created the simple unit (mouse.pas) wich could help you
to use MSMouse. 
					John

--------------28C725411FCA
Content-Type: text/plain; charset=koi8-r; name="mouse.pas"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="mouse.pas"

unit mouse;
interface
function mInit:boolean;
procedure mVisible;
procedure mUnvisible;
procedure mGetstat(var stat:word;var x,y:word);
procedure mSetpos(x,y:word);
procedure mSetVisualBox(x1,y1,x2,y2:word);
implementation
function mInit:boolean;assembler;
asm
 mov ax,0
 int 33h
end;
procedure mVisible;assembler;
asm
 mov ax,1
 int 33h
end;
procedure mUnvisible;assembler;
asm
 mov ax,2
 int 33h
end;
procedure mGetstat(var stat:word;var x,y:word);
var sta,xx,yy:word;
begin
 asm
  mov ax,3
  int 33h
  mov sta,bx
  mov xx,cx
  mov yy,dx
 end;
 stat:=sta;x:=xx;y:=yy
end;
procedure mSetpos(x,y:word);assembler;
asm
 mov ax,4
 mov cx,x
 mov dx,y
 int 33h
end;
procedure mSetVisualBox(x1,y1,x2,y2:word);
var mx,my:word;
begin
 mx:=(x1+x2) shr 1;my:=(y1+y2) shr 1;
 asm
  mov ax,7
  mov cx,x1
  mov dx,x2
  int 33h
  mov ax,8
  mov cx,y1
  mov dx,y2
  int 33h
 end;
 mSetpos(mx,my)
end;
begin
end.
--------------28C725411FCA--