dim a(0)
dim x(0)
dim y(0)
DoThis()
end
 
Function DoThis()
	a(0) = a(0) + 1
	text x(0)*24,y(0)*10,str$(a(0))
	x(0) = x(0) + 1
	if x(0) > 9 then x(0) = 0 : y(0) = y(0) + 1
	if a(0) < 100 then DoThis()
EndFunction