boxf 0,240,640,0 :bs=1<<3:repeat:redraw 0:repeat 480/bs:y=cnt*bs:repeat 640/bs:x=cnt*bs:pos x,y:rnd rx,640:rnd ry,480:gcopy 0,rx,ry,bs,bs:loop:loop:redraw 1:await 0:loop
意図的にインデント無くして見ました。
コピペで動かすべし＜・∀・＞