code:

---

break on cls
$x = 0
setascii("on")
$a = 1
cls
while $a < 5 ;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
     ? ? "Hit any key to continue" get $k
     $a = $a + 1
loop
exit

---