{==================================================}
{=== MOUSE.TPU Written By Franz-Josef Ayestaran ===}
{==================================================}


{ *** Public Variables *** }
{ ************************ }

Var

{ 'MouseButton' variable Returns - Left:1 Right:3 Middle:2 }
{ 'Mouse_Type_No.' variable Returns - 1:Bus 2:Serial 3:Inport 4:PS/2 5:HP }
{ 'Mouse_Type' variable Returns above strings 1 - 4 }
{ 'Display_Cords’ variable requires a ‘TRUE’ or ‘FALSE‘, if true the current mouse co-ordanates are displayed }
{ 'Mode’ variable should be set ‘TRUE’ for displaying co-ordinates in text mode or  ‘FALSE’ for graphics mode }

MouseX, MouseY, MouseButton : word;
Mouse_Major_Version, Mouse_Minor_Version, Mouse_Type_No, XYChanged : byte;
Mouse_Type:string;

{ ************************ }

{ *** Public Procedures / Functions *** }
{ ************************************* }

 Function Init_Mouse:Boolean;
Procedure Set_Pointer_Limits(Xmin,Ymin,Xmax,Ymax:word);
Procedure Set_Pointer_Location(Xpos,Ypos:word);
Procedure Get_Pointer_Location(display_cords:boolean;x,y:byte;mode0:boolean);
Procedure Show_Mouse_Cords(x,y:integer;Mode0:boolean);
Procedure Get_Mouse_Type;
Procedure Show_Pointer;
Procedure Hide_Pointer;

{ ************************************* }