var i : array 0..1 of int
i(0) := white
i(1) := green % replace with different colour names
for decreasing y : maxy..0
    for x : 0..maxx
        drawdot(x,y,i(Rand.Int(0,1)))
    end for
end for

var oldPic : int
oldPic := Pic.New (0, 0, maxx, maxy)
var newPic : int
% Create the new picture by blurring the old picture
newPic := Pic.Blur (oldPic, 75)
% Free the old picture so we don't run out of memory
Pic.Free (oldPic)
Pic.Draw (newPic, 0, 0, picCopy)
delay (300)
oldPic := newPic