[EvilChaotic]

Graphics 800, 600,16,0

Global status% = 1
; типа делаю переменные цвета текста
Global  RedNew% = 100 
Global BlurNew% = 100
Global GreenNew% = 100

Global RedOpt% = 100
Global BlurOpt% = 100
Global GreenOpt% = 100

Global RedExit% = 100
Global BlurExit% = 100
Global GreenExit% = 100

; условия при которых меняется цвет

While Not KeyHit(1)
; при нажатии на клавишу статус меняется
If KeyHit(208) = 1
status% = status%  + 1
If status > 3 Then status = 1
EndIf

Select status%
	Case 1
		RedNew% = 250 
		 BlurNew% = 0 
		GreenNew% = 0 
		RedOpt% = 100 
		BlurOpt% = 100 
		GreenOpt% = 100 
		RedExit% = 100 
		BlurExit% = 100 
		GreenExit% = 100
	Case 2
		RedNew% = 100 
		BlurNew% = 100 
		GreenNew% = 100 
		RedOpt% = 250 
		BlurOpt% = 0 
		GreenOpt% = 0 
		RedExit% = 100 
		BlurExit% = 100 
		GreenExit% = 100
	Case 3
		RedNew% = 100 
		BlurNew% = 100 
		GreenNew% = 100 
		RedOpt% = 100 
		BlurOpt% = 100 
		GreenOpt% = 100 
		RedExit% = 250 
		BlurExit% = 0 
		GreenExit% = 0
         Default
		RedNew% = 100 
		BlurNew% = 100 
		GreenNew% = 100 
		RedOpt% = 100 
		BlurOpt% = 100 
		GreenOpt% = 100 
		RedExit% = 100 
		BlurExit% = 100 
		GreenExit% = 100 
End Select
; создаем сам текст
;SetFont ArialBlFNT

Color RedNew%,BlurNew%,GreenNew%
Text 350, 200, "New Game" 
Color RedOpt%,BlurOpt%,GreenOpt%
Text 355,250, "Options"
Color RedExit%,BlurExit%,GreenExit%
Text 365,300, "Exit"
;Tem 
Color 255,255,255
Text 20,20,"Status " + Status
 Flip 
Cls

Wend

Наверное секцию смены цвета тоже нужно было добавить в цикл = ))))))
А вообще это очень плохая реализация подцвета текста в меню. Нужно проверять координаты мыши в координатах позоции тексту, что-то типо невидимого ректа, который возвратит 1цу если пересеклась мышь с ним, а если возвратит 1цу можно и задать определенному тексту цвет = )