Да я сам уже путаю. Панаписал. Вообще у меня весь код в порядке, и откоментирован. Мне влом было его полностью выкладывать. поэтому напишу его заного с поправками
;Инициализация графики
Graphics 800,600,32,2
SetBuffer BackBuffer()
; Создание нескольких екранов
Global game=1
;цикл
Repeat
Select game
Case 1
; А вот это меню.
Cls()
; Шрифт
font=LoadFont("Arial Cyr",30,1)
;цикл
Repeat
Cls()
; Если нажать на мыш, то case 2
If MouseDown(1) Then game=2
;Текст
SetFont font:Color 0,170,255:Text 399,219,"НАжми на мыщ. Окно 1",1,1
Flip()
Until game=3;??????????
;---------------------------
; Окно самой игры
Case 2
; А вот это меню.
Cls()
; Шрифт
font=LoadFont("Arial Cyr",30,1)
;цикл
Repeat
Cls()
; Если нажать на мыш, то case 3
If MouseDown(1) Then game=3
;Текст
SetFont font:Color 0,170,255:Text 399,219,"НАжми на мыщ. Окно 2",1,1
Flip()
Until game=1;??????????
-----------------------
; Окно самой игры
Case 3
; А вот это меню.
Cls()
; Шрифт
font=LoadFont("Arial Cyr",30,1)
;цикл
Repeat
Cls()
;; Если нажать на мыш, то case 1
If MouseDown(1) Then game=1
;Текст
SetFont font:Color 0,170,255:Text 399,219,"НАжми на мыщ. Окно 3",1,1
Flip()
Until game=2;??????????
-----------------------
End Select
Forever
А он всё равно работать не хочет.