dim a(20, 20)

for i = 0 to 19
	for j = 0 to 19
		a[i, j] = int(rand * 20) + 1
	next j
next i

for i = 0 to 19
	for j = 0 to 19
		print a[i, j];" ";
		if a[i, j] = 20 then end
	next j
next i

end