View.Set ("graphics:max,max")

var mx, my, mb : int
loop
    mousewhere (mx, my, mb)
    if mb = 1 then
        drawfillstar (mx - 10, my - 10, mx + 10, my + 10, 4)
    end if
    exit when hasch
end loop