[H@NON]

Первый вопрос: используй консрукцию Select...Case Нарпимер:
repeat

select gamescreen
Case menu
UpdateMenu()
Case game
UpdateGame()
end select

forever