Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,66,"Load Game")
Button(40,50,"Save Game")
If Button(20,175,"Exit")=1 then End

loop

New_Game:
instructiunea_1
instructiunea_2
instructiunea_3
.....................
instructiunea_n

function Button(x1,y1,WORDS$)
      Pressed=0
      x2=Text Width(WORDS$)
      y2=Text Height(WORDS$)
      if mousex()>x1 and mousex()<x1+x2
             if mousey()>y1-y2 and mousey()<y1+y2
                   Pressed=1
             endif
      endif
      if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
      if pressed=1
             pressed=Mouseclick()
      else
             pressed = 0
     endif
     text x1,y1,WORDS$
endfunction pressed