%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%

function distance (x1, y1, x2, y2 : real) : real
    result round (sqrt ((x2 - x1) ** 2 + (y2 - y1) ** 2))
end distance

var midx : int := maxx div 2
var midy : int := maxy div 2
var mx, my, mb : int

for i : 1 .. 5
    drawoval (midx, midy, i * 20, i * 20, 84)
end for

loop
    mousewhere (mx,my,mb)
    if mb = 1 and distance (mx, my, midx, midy) < 3 then
        locate (1, 1)
        put "1000 pts."
    end if
    end loop
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%