SuperStrictGraphics 1024,768,1Local x:Int=50Local Y:Int=50Local Choise:Int=0RepeatDrawText "Choise 1",x,yDrawText "Choise 2",x,y+20DrawText "Choise 3",x,y+40DrawText "Quit",x,y+60DrawText "<==",x+70,Choise*20+50Flip;Cls If KeyHit(key_up) Then Choise=Choise-1If KeyHit(key_down) Then Choise = Choise +1If Choise = -1 Then Choise =3If Choise= 4 Then Choise =0If Choise = 0 And KeyHit(key_return) Then go_to_0()If Choise = 1 And KeyHit(key_return) Then go_to_1()If Choise = 2 And KeyHit(key_return) Then go_to_2()If Choise = 3 And KeyHit(key_return) Then EndForeverFunction go_to_0() Cls DrawText "Chosen number 1",50,200 Flip Delay(1000)End FunctionFunction go_to_1() Cls DrawText "Chosen number 2",50,200 Flip Delay(1000)End FunctionFunction go_to_2() Cls DrawText "Chosen number 3",50,200 Flip Delay(1000)End Function