View.Set ("graphics:max,max")
var mx, my, mb : int  % mouse
var sprayx, sprayy : int
var col : int := 0
var maxdist : int := 0
var distance : int
% sqrt ((x2-x1)**2 + (y2-y1)**2)
function dist (mx, sprayx, my, sprayy : int) : int
    result round (sqrt ((mx - sprayx) ** 2 + (my - sprayy) ** 2))
end dist

loop
    mousewhere (mx, my, mb)
    randint (sprayx, mx - 25, mx + 25)
    randint (sprayy, my - 25, my + 25)
    randint (col, 1, maxcolour)

    if mb = 1 and dist (mx, sprayx, my, sprayy) < 20 then
             drawdot (sprayx, sprayy, col)
    end if
    exit when hasch
end loop