I found a nifty tutorial on here that takes you through 13 steps of making an RPG, one of the steps is a menu,
if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
If Button(20,135,"Exit")=1 then End
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
The 3 'if' statements at the top basically say the 'x' and 'y' co-ords and the 'text' to have. The function gets where the mouse is and where its clicked, and if clicked with the co-ords of a 'button' it returns a value of '1', which then takes you to anothe subroutine. hope it helped