var x, y, x1, y1, button, button1 : int %variables to hold values picked up from the mouse
var ovalColor : int
var counter : int := 0
setscreen ("graphics:640, 400")
loop
loop %check the mouse over and over
delay (1)
mousewhere (x, y, button)
if button = 1 then
mousewhere (x, y, button)
exit
end if
end loop
loop %check the mouse over and over
delay (10)
mousewhere (x1, y1, button1)
if button = 1 then
mousewhere (x1, y1, button1)
exit
end if
end loop
drawbox (x, y, x1, y1, red)
end loop
|