code:

---

setascii("on")
$a = 1
cls
while $a < 6       ;Change this value to get more or less numbers
   $y = 1
   while $y <= 80
      $z = 1
      while $z <= 20
         at($z,$y)  "$x " + chr($x)
         $z = $z + 1
         $x = $x + 1
      loop
      $y = $y + 10
   loop
   ? shell "%comspec% /c pause"
   $a = $a + 1
loop
exit

---

Don't know what you can do with it.