;砂嵐
#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
tmp=(cnt\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