72 lines
904 B
Plaintext
72 lines
904 B
Plaintext
;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
|