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


[ 11. December 2002, 15:00: Message edited by: jpols ]
_________________________