[alcoSHoLiK]

Можно сделать так:

Global GameScreen = 0	; Текущий экран

; Загрузка меню
LoadMenuResources()

; Самый главный цикл
Repeat
	action = StartGame()
	if action = -1 Then Exit
Forever

UnloadMenuResources()

; ===================================
Function StartGame()
	Local switch
	; Показать меню
	switch = ShowMenu()	; Если в меню выбран Выход, возвращает -1
	If switch = -1 Then Return -1

	LoadGameResources()

	; Главный цикл
	Repeat
		Select GameScreen	; Проверка текущего экрана
		Case 0:		; Игровой экран
			; ...
			If KeyHit(1) Then GameScreen = 1

		Case 1:		; Игровое меню
			switch = ShowInGameMenu()	; Аналогично ShowMenu()
			; Возвращает -1, если нужно выйти в главное меню

			If switch = -1 Then
				UnloadGameResources()
				Return 0
			End If
			GameScreen = 0
		End Select
		Flip
	Forever
End Function