Array help...

SuperStrict

Graphics 640 , 480 , 0 , 0

Global array:Int[][]
array = array[..5]
array[0] = [0,0,0,0,0]
array[1] = [0,0,0,0,0]
array[2] = [0,0,0,0,0]
array[3] = [0,0,2,0,0]
array[4] = [3,2,4,2,2]


While Not KeyDown(KEY_ESCAPE)
	
	DrawArray()	
	DrawText "Press a key" , 0 , 200
	
	Flip
	Cls

	WaitKey()
	shift()

Wend
End

Function DrawArray()
	For Local y:Int = 0 To 4
		For Local x:Int = 0 To 4
			DrawText(array[y][x], x*10, y*10)
		Next
	Next
End Function

Function shift()
	For Local y:Int = 0 To 3
		array[y] = array[y+1]
	Next
	array[4] = [1,1,1,1,1]
End Function

Cleaner still.