DEFINITION MODULE souris;

IMPORT SYSTEM,Lib;
FROM monasm IMPORT and;


PROCEDURE InitMouse(VAR status:INTEGER;
                    VAR bouton:INTEGER);


PROCEDURE PopSouris;

PROCEDURE PushSouris;

PROCEDURE EtatSouris( VAR gauche:BOOLEAN;
                      VAR droite:BOOLEAN;
                      VAR milieu:BOOLEAN;
                      VAR x     :INTEGER;
                      VAR y     :INTEGER);

PROCEDURE DeplaceSouris(x,y:INTEGER);

PROCEDURE PresseSouris(
                       bouton:INTEGER;
                       VAR gauche,droite,milieu:BOOLEAN;
                       VAR compte,x,y   : INTEGER);

PROCEDURE RelacheSouris(
                       bouton:INTEGER;
                       VAR gauche,droite,milieu:BOOLEAN;
                       VAR compte,x,y   : INTEGER);

PROCEDURE Plage(x,xx,y,yy:INTEGER);

PROCEDURE CurseurTexteSouris( SoftHard      : INTEGER;
                              MasqueEcran   : INTEGER;
                              MasqueCurseur : INTEGER);

PROCEDURE CompteurSouris ( VAR nx,ny : INTEGER);

PROCEDURE Evenement;

PROCEDURE LightPenSouris(oui:BOOLEAN);

PROCEDURE SensibiliteSouris( ex,ey:INTEGER);

PROCEDURE MasqueZoneSouris(x,y,xx,yy:INTEGER);

PROCEDURE SeuilDoubleVitesse( seuil : INTEGER);

PROCEDURE XYCurseur( XSouris,YSouris:INTEGER;
                     VAR XCurseur,YCurseur:INTEGER);

PROCEDURE XYSouris( XCurseur,YCurseur:INTEGER;
                    VAR XSouris,YSouris:INTEGER);


END souris.