var x, y, button, x2, y2, button2 : int
loop
    drawbox (300, 400, 536, 56, 7)
    drawfilloval (140, 312, 12, 12, 34)
    %drawfillbox (128, 300, 152, 325, 7)
    mousewhere (x, y, button)
    if x > 128 and x < 152 and y > 300 and y < 325 and button = 1 then
        cls
        exit
    end if
end loop
loop
    drawbox (300, 400, 536, 56, 7)
    mousewhere (x2, y2, button2)
    drawfilloval (x2, y2, 12, 12, 34)
    delay (30)
    drawfilloval (x2, y2, 12, 12, 0)
    if buttonmoved ("up") then
        exit
    end if
end loop
drawfilloval (x2, y2, 12, 12, 34)
if x2 >= 300 and x2 <= 536 and y2 > 56 and y2 < 400 then
 put "good"
end if