Check out yet another variation of the progress bar with a different bar thingy going across.

code:

BREAK ON
CLS
COLOR w+/n
AT(9,30) "Starting Windows..."
COLOR b+/n
BOX(10,10,12,65,"single")
$COL = 12
WHILE $COL < 64
 COLOR b+/n
 AT(11,$COL) CHR(45) CHR(62)
 $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
EXIT