Local akeys:Short = 0
		If KeyDown(KEY_UP) Then
			akeys = akeys + 1
		EndIf
		If KeyDown(KEY_DOWN) Then
			akeys = akeys + 2
		EndIf
		If KeyDown(KEY_LEFT) Then
			akeys = akeys + 4
		EndIf
		If KeyDown(KEY_RIGHT) Then
			akeys = akeys + 8
		EndIf
		If akeys <> p.keys Then
			p.keys = akeys
			TNet.MNew(MSG_UPDATE) 
			TNet.MShort(p.keys) 
			TNet.MClientSendTCP() 
			TNet.MClear() 
		End If




		If keys & 1 Then
			speed = 0.0002
		End If
		If keys & 2 Then
			speed = -0.0002
		EndIf
		If keys & 4 Then
			dir = dir + 0.01 * Delta.Time
		EndIf
		If keys & 8 Then
			dir = dir - 0.01 * Delta.Time
		EndIf
		If keys = 0 Then
			speed = 0
		End If