FOR BY=0 TO BMY-1 FOR BX=0 TO BMX-1 BGPUT 0,BX,BY,RND(3)+105 NEXT NEXT