' ------------------------------------------------------------------------------------------------
' Keyboard Input
' ------------------------------------------------------------------------------------------------
Function PollKeyBoardInput()

	If KeyHit(KEY_ESCAPE) Then End
	If KeyHit(KEY_V) Then FLAG.Switch("VSYNC")				' V = VSYNC Switch
	If KeyHit(KEY_TAB) Then FLAG.Switch("Wireframe")		' TAB = Wireframe Switch
	'If KeyHit(KEY_1) Then SetMusic("MUSIC_COSMOS", 1)		' 1 = Play Music
	'If KeyHit(KEY_2) Then StopMusic()						' 2 = Stop Music

	'If KeyHit(KEY_3) Then ReInit(1280, 720, 32, 1)			' 3 = Fullscreen 1280x800 
	'If KeyHit(KEY_4) Then ReInit(1024, 768, 32, 1)			' 4 = Fullscreen 1024x768
	'If KeyHit(KEY_5) Then ReInit(800, 600, 32, 1)			' 5 = Fullscreen 800x600
	'If KeyHit(KEY_6) Then ReInit(640, 480, 32, 1)			' 6 = Fullscreen 640x480

	'If KeyHit(KEY_7) Then ReInit(1024, 600, 32, 2)			' 7 = Window 1024x600
	'If KeyHit(KEY_8) Then ReInit(800, 600, 32, 2)			' 8 = Window 800x600
	'If KeyHit(KEY_9) Then ReInit(640, 480, 32, 2)			' 9 = Window 640x480
	
	'If KeyHit(KEY_F1) Then GAME_MODULE = "Starmap"
	'If KeyHit(KEY_F2) Then GAME_MODULE = "Planet"
		
End Function