Here is the same thing converted by Rogiers PostPrep :

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
   ? shell "%comspec% /c pause"
   $a = $a + 1
loop
exit


will try to ammend mine as needed
_________________________