You ment this ?

Code
__________________________________________________________________________________________

BREAK ON
CLS
;$kleur1 = Color c+/c
AT(9,22) "Starting Windows in progress..."
BOX(10,10,12,65,"single")
$COL = 12
WHILE $COL < 64
Select
Case $Y < 33
Color r+/r
Case $y > 33 And $Y < 66
Color y+/y
Case $y > 66
Color g+/g
endselect
;Color c+/c
AT(11,$COL) 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
AT(15,0) "Hit any key to continue..." get $k
EXIT
__________________________________________________________________________________________

Jos