sync on
 
Number = 1
 
gosub myPrint
 
 
 
myPrint:
 
	n = n + 1
	if n > 10 then n = 1
	x = number/10 * 18 : y = n * 20
	text x,y,str$(Number)
	Number = Number + 1
	if number > 100 then end
	gosub myPrint
 
return