Jochen;

Just for your kids from all the guys at the fourm:

code:
BREAK ON
CLS
COLOR w+/n
AT(9,30) "Starting Update..."
COLOR b+/n
BOX(10,10,12,65,"single")
$COL = 12
SETASCII("on")
WHILE $COL < 64
      COLOR b+/n
      select
         case $col < 32
              color r+/n
              $sign = chr(1) ; chr(176) for block bar "/"
         case $col < 48
              color y+/n
              $sign = chr(2) ; chr(178) for block bar "\"
         case $col < 64
              color g+/n
              $sign = chr(3) ; chr(177) for block bar "H"
      endselect
      AT(11,$COL) $sign 
      $COL = $COL + 1
      $Y = 100 * ($COL - 12) / 52
      IF ($COL & RND() ) = 0 ; simulate activiity
         SLEEP 1
      ENDIF
      COLOR w+/n
      AT(13,37) "$Y %"
LOOP
COLOR w/n
AT(15,0) "Hit any key to continue..." get $k
SETASCII("off")
EXIT

This code will give you the complete ASCII table:

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


------------------
BoxKite
FACTA NON VERBA

_________________________
Box
FACTA NON VERBA