Mouse position: Difference between revisions

=={{header|Pebble}}==

<syntaxhighlight lang="basic">;mouse demonstration

;compile with Pebble

;for textmode x86 DOS

;requires mouse driver

program examples\mouse

use mouse.inc

data

int mousex[0]

int mousey[0]

int mouseb[0]

int speed[0]

int i[0]

begin

echo "Enter 1-200 for slow/DOS/emulated machines."

echo "Enter 500-20000 for faster/Windows machines."

input [speed]

cls

call showmouse

label mainloop

;clear mouse coordinates

cursor 0, 0

echo " "

echo " "

;get and display mouse coordinates

call readmouse

cursor 0, 0

echo [mousey]

crlf

echo [mousex]

;display exit button

cursor 76, 0

echo "[X]"

;check if exit button has been clicked

if [mouseb] = 1 & [mousex] >= 76 & [mousex] <= 79 & [mousey] = 0 then

kill

endif

;loop 100 times since some machines do not support the WAIT command

[i] = 0

label delay

+1 [i]

wait 1

if [i] < [speed] then delay

goto mainloop

end</syntaxhighlight>