View.Set ("graphics:max,max")
var mx, my, mb : int
var kolor:int

loop
    mousewhere (mx, my, mb)
    if mb = 1 then
        drawfillstar (mx - 10, my - 10, mx + 10, my + 10, Rand.Int(0,maxcolor))
    end if
end loop