Ask and you shall receive...

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)
SELECT
CASE $COL <= 29
COLOR r+/n
CASE $COL > 30 AND $COL <= 47
COLOR y+/n
CASE $COL > 47
COLOR g+/n
ENDSELECT
CHR(2)

$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 r+/n
AT(11,65) CHR(15)

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

EXIT


(now we're just getting goofy! )

Roneil