I couldn't help doing a little evolution myself. Below is Shawn's code for the progress bar, except that I added a percentage indicator beneath the bar.

P.S. Thanx for the code for the ASCII characters Jochen!

code:

BREAK ON

CLS

AT(9,30) "Starting Windows..."

BOX(10,10,12,65,"single")

$COL = 12

WHILE $COL < 64

AT(11,$COL) CHR(166)

$COL = $COL + 1

$Y = 100 * ($COL - 12) / 52

IF ($COL & RND() ) = 0 ; simulate activiity

SLEEP 1

ENDIF

AT(13,37) "$Y %"

LOOP

AT(15,0) "Hit any key to continue..." get $k

EXIT