Issues with an attempted finite state machine

Blitz3D Forums/Blitz3D Beginners Area/Issues with an attempted finite state machine

switch=Rand(1,2)

While Not KeyHit(1)
Select switch

Case 1
ClsColor 255,0,0
Cls
switch = Rand(1,2)
Delay 200

Default
ClsColor 0,0,255
Cls
switch = Rand(1,2)
Delay 200

End Select 

Wend



When I run this code, it just selects one color and stays that color. What is preventing it from continuously reselecting colors and changing colors?