BMX=25 BMX=640 BGSCREEN 0,BMX,BMY FOR BY=0 TO BMY-1 FOR BX=0 TO BMX-1 BGPUT 0,BX,BY,RND(3)+105 NEXT NEXT BGANIM 0,"XY",1,0,BMY*16,-BMY*16,0,0,0