cls
printNumbers(1, 100)
wait key
 
 
function printNumbers(n, cap)
   if n > cap then exitfunction
   x = int((n-1)/20)
   y = (n - x*20)*16
   text x*50, y, str$(n)
   printNumbers(n+1, cap)
endfunction