home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
modula2
/
compiler
/
fst_mod
/
source
/
moustest.mod
< prev
next >
Wrap
Text File
|
1992-07-10
|
892b
|
36 lines
MODULE MousTest;
FROM Mouse IMPORT CheckMouse, CursorOn, CursorOff, GetMouse, GetButton,
SetRange;
FROM Text IMPORT WriteCard, WriteLn, WriteString, SetCursor, Cls;
VAR buttons, x, y:CARDINAL;
left, mid, right:BOOLEAN;
BEGIN
Cls;
SetRange(10,10,100,100);
CheckMouse(buttons);
WriteCard(buttons,3);
WriteLn;
CursorOn;
GetMouse(x,y);
WriteCard(x,4);
WriteCard(y,4);
WriteLn;
REPEAT
GetButton(left, mid, right);
GetMouse(x,y);
SetCursor(10,5);
WriteCard(x,4);
WriteCard(y,4);
WriteLn;
UNTIL left OR mid OR right;
IF left THEN
WriteString('Left button was pressed');
ELSIF mid THEN
WriteString('Middle button was pressed');
ELSE
WriteString('Right button was pressed');
END; (* if *)
END MousTest.