You could try something along the lines of...
Graphics 800,600,0,2 global selectedBird=1 ; this is the variable you feed your case statement with global startTime%=MilliSecs() While Not Keydown(1) ; just a loop to test Cls If MilliSecs()>startTime+30000 then ; check for 30 second since we last changed. selectedBird=selectedBird+1 if selectedBird>6 then selectedBird=1 ; loop back to 1 if we have reach the last bird endif Text 10,10,"Current Bird Is "+selectedBird Flip Wend