#define winX 640
#define winY 480
#define page 20
randomize
repeat page
buffer cnt+2,winX,winY
gosub*create_dot
loop
screen 0,winX,winY
repeat
i=int((cnt+2)\page)
tmp=limit(i,2,page+2)
redraw 2
gcopy tmp,0,0,winX,winY
redraw 1
await 20
loop
*create_dot
repeat winY
y=cnt
repeat winX
if rnd(3) : pset cnt,y
loop
loop
return