-----------------------------------

r.m_spy

Sat Apr 19, 2008 6:20 pm


Mouse beep test

-----------------------------------

setscreen("graphics:max,max")
setscreen("title:Mouse.BEEP.Text") 
var x,y,btn,l,di,exi,sc,s:int
l:=100
exi:=0
s:=0
sc:=1
di:=1
loop
delay(100)
cls
put"     put your mouse at start"
Mouse.Where(x,y,btn)
drawfillbox(0,0,10,maxy,black)
drawfillbox(maxx,0,maxx-10,maxy,black)
exit when x