汚いソース&見栄えが悪いですけどこんな感じですか?
後はこれに付け加えていけばいいと思います。
#define menu_bar_sizex 100
#define menu_bar_sizey 20
#define pull_downy 200
#define contents_max 3
buffer 2
color 200,200,200:boxf
buffer 3
color 240,240,240:boxf
buffer 4
repeat 2
pos cnt*menu_bar_sizex,0
gcopy cnt+2,0,0,menu_bar_sizex,menu_bar_sizey
mes "ファイル"
loop
buffer 5
repeat 2
pos cnt*menu_bar_sizex,0
gcopy cnt+2,0,0,menu_bar_sizex,menu_bar_sizey
mes "編集"
loop
buffer 6
repeat 2
pos cnt*menu_bar_sizex,0
gcopy cnt+2,0,0,menu_bar_sizex,menu_bar_sizey
mes "ヘルプ"
loop
buffer 7
gcopy 2,0,0,menu_bar_sizex,pull_downy
repeat 5
pos 0,cnt*20
mes "項目"+cnt
loop
gsel 0,1
repeat
redraw 0
color 255,255,255:boxf
repeat contents_max
pos cnt*menu_bar_sizex,0
if (mousex>=cnt*menu_bar_sizex)&(mousex<(cnt+1)*menu_bar_sizex)&(mousey>=0)&(mousey<=20){
gcopy cnt+4,menu_bar_sizex,0,menu_bar_sizex,menu_bar_sizey
pos cnt*menu_bar_sizex,20
gcopy 7,0,0,menu_bar_sizex,pull_downy
}else{
gcopy cnt+4,0,0,menu_bar_sizex,menu_bar_sizey
}
loop
await
redraw 1
loop