Start implement the sound thingy

src/Events.pbi

@@ -38,7 +38,7 @@ Procedure HandleEventMenu()
 EndProcedure
 
 Procedure HandleEventRunningGame()
-  If KeyboardReleased(#PB_Key_Escape)
+  If KeyboardReleased(#PB_Key_F10)
     CurrentState = "MAIN_MENU"
     *ActiveMenu.GameMenu = Menus(CurrentState)
   EndIf

src/Globals.pbi

@@ -1,4 +1,6 @@
 
+Global DataPath.s = "../data/"
+
 ; Global variables
 Global Fullscreen = 0
 Global Title.s = "ESCape - Build " + Str(#PB_Editor_BuildCount)
@@ -23,3 +25,8 @@ Enumeration 500
 	#Tile05
 	#Tile06
 EndEnumeration
+
+; Sounds
+Global Dim Sounds.s(2)
+Sounds(0) = DataPath + "sound/menu_change.wav"
+Sounds(1) = DataPath + "sound/menu_select.wav"

src/Main.pb

@@ -5,7 +5,7 @@
 EnableExplicit
 
 ; Initialize subsystems
-If InitSprite() = 0 Or InitKeyboard() = 0
+If InitSprite() = 0 Or InitKeyboard() = 0 Or InitSound() = 0
   MessageRequester("Error", "Sorry, can't keep up.", 0)
   End
 EndIf