[Nord]

Atomikc
В 11 посте не все --------- закоментировал. Неужели так сложно поставить ; ? Так все работает, не понимаю твою проблему.

Graphics 800,600,32,2
SetBuffer BackBuffer() 
Global game=1

Repeat 
Select game
;-----------------------
Case 1
Cls()
font=LoadFont("Arial Cyr",30,1) 

  Repeat
    Cls()
    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()
    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()
    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