Everything works fine, but when i press enter, it doesnt do anything.

Please Help.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem ***** Included Source File *****
REM Main Menu
Sync on : sync rate 40
disable escapekey

gosub mnuVars

Do

    if selectedItem <> 0
       Ink white, white
       center text screen width()/2, 200, mnuItems$(0)
    Else
       ink red, red
       center text screen width()/2, 200, mnuItems$(0)
    endif
    
    if selectedItem <> 1
       Ink white, white
       center text screen width()/2, 220, mnuItems$(1)
    Else
       ink red, red
       center text screen width()/2, 220, mnuItems$(1)
    endif
    if selectedItem <> 2
       Ink white, white
       center text screen width()/2, 240, mnuItems$(2)
    Else
       ink red, red
       center text screen width()/2, 240, mnuItems$(2)
    endif
    if selectedItem <> 3
       Ink white, white
       center text screen width()/2, 260, mnuItems$(3)
    Else
       ink red, red
       center text screen width()/2, 260, mnuItems$(3)
    endif
    if selectedItem <> 4
       Ink white, white
       center text screen width()/2, 280, mnuItems$(4)
    Else
       ink red, red
       center text screen width()/2, 280, mnuItems$(4)
    endif
    
    if upkey()=0 and up = 1
       up = 0
    endif
    
    if upkey() = 1 and up = 0
       selectedItem = selectedItem - 1
       up = 1
    endif
    
    if downkey() = 0 and down = 1
       down = 0
    endif
    
    if downkey() = 1 and down = 0
       selectedItem = selectedItem + 1
       down = 1
    endif
    
    if selectedItem < 0
       selectedItem = 4
    endif
    
    if selectedItem > 4
       selectedItem = 0
    endif
    
    REM EXIT
    if selectedItem = 4 and returnkey() =1
       end
    endif
    
    REM STARTGAME
    if selectedItem = 0 and returnkey() =1
       end
    endif
    
   Sync
loop

REM VARIABLES

mnuVars:
   Dim mnuItems$(5)
   mnuItems$(0)= "New Game"
   mnuItems$(1)= "Load Game"
   mnuItems$(2)= "Save Game"
   mnuItems$(3)= "Options"
   mnuItems$(4)= "Quit"
   
   selectedItem = 0
   up = 0 
   down = 0
   
   red = RGB(255, 0, 0)
   white = RGB(255, 255, 255)
return

Generate:
cls