numRows=8
numCols=8
side=30 'width, height of a block
numBlocks=4 'number of blocks in the pattern
GraphicsWindow.Width=numCols*numBlocks*side
GraphicsWindow.height=numRows*numBlocks*side
GraphicsWindow.BackgroundColor="black"
GraphicsWindow.canresize="false"
x=0
y=0
color1=graphicswindow.GetRandomColor()
color2=graphicswindow.GetRandomColor()
color3=graphicswindow.GetRandomColor()
For down=1 to numRows
For across=1 to numCols
pattern()
x=x+side
y=y-side*(numBlocks-1)
Program.Delay(200)
endfor
y=y+side*numBlocks
x=0
endfor