procedure changepicture (x1, y1, x2, y2, c, p : int)
    var ii := 0
    randint (ii, 1, 255)
    for xx : x1 .. x2
        for yy : y1 .. y2
            if whatdotcolor (xx, yy) not= c then
                case p of
                    label 1 :
                        drawdot (xx, yy, ii)
                    label 2 :
                        if whatdotcolor (xx, yy) > 26 then
                            drawdot (xx, yy, (whatdotcolor (xx, yy) mod 16) + 16)
                            locate (1, 1)
                            put "jazz"
                        elsif whatdotcolor (xx, yy) < 16 then
                            drawdot (xx, yy, (whatdotcolor (xx, yy) mod 16) + 16)
                            locate (2, 1)
                            put "jazz"
                        end if

                    label 3 :
                        var i := 0
                        randint (i, 1, 255)
                        drawdot (xx, yy, i)
                    label 4 :
                        var i := 0
                        randint (i, 16, 28)
                        drawdot (xx, yy, i)
                    label :
                end case
            end if
        end for
    end for
end changepicture


var i := 0
View.Set ("offscreenonly")
loop
    i += 10
    drawfillarc (320, 200, 50, 50, i, i + 90, 9)
    changepicture (270, 150, 320, 200, white, 1)
    changepicture (270, 200, 320, 250, white, 3)
    changepicture (320, 200, 370, 250, white, 4)
    drawbox (270, 150, 370, 250, black)
    View.Update
    cls
end loop