This is a simple menu with menu shadowing.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REM Project: menu
REM Created: 2004.09.12. 10:45:47
REM Edited by: B3nc3
REM ***** Main Source File *****
REM From: Hungary

red as DWORD
blue as DWORD
white as DWORD
black as DWORD

red=rgb(255,0,0)
blue=rgb(0,0,255)
white=rgb(255,255,255)
black=rgb(0,0,0)

rem default text color
ink rgb(255,255,255),0

rem menu background
box 20,20,620,460,black,black,black,red

rem game title
center text 320,100,"GaMe TiTlE"
ink rgb(100,100,100),0
text 105,205,"New game"
text 105,235,"Load game"
text 105,265,"Configure"
text 105,295,"Exit"

menu:
repeat
if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220))) then ink red,0 :text 100,200,"New game"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 199) or (mousey() >= 219))) then ink rgb(255,255,255),0 :text 100,200,"New game"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=200) and (mousey() <=220) and (mouseclick()=1)))) then end

if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250))) then ink red,0 :text 100,230,"Load game"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 229) or (mousey() >= 249))) then ink rgb(255,255,255),0 :text 100,230,"Load game"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=230) and (mousey() <=250) and (mouseclick()=1)))) then end

if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280))) then ink red,0 :text 100,260,"Configure"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 259) or (mousey() >= 279))) then ink rgb(255,255,255),0 :text 100,260,"Configure"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=260) and (mousey() <=280) and (mouseclick()=1)))) then end

if (((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=290) and (mousey() <=310))) then ink red,0 :text 100,290,"Exit"
if (((mousex() <= 99) or (mousex() >= 169)) or ((mousey() <= 289) or (mousey() >= 309))) then ink rgb(255,255,255),0 :text 100,290,"Exit"
if ((((mousex() >= 100) and (mousex() <= 170)) and ((mousey() >=290) and (mousey() <=310) and (mouseclick()=1)))) then end
until false