BlitzODE and Joystick

I think that I got the code working but steering is still tricky. I was able to create car body.

Function UpdateKeys()
	If JoyHit(13,1) Then gear=gear-1:If gear<-1 Then gear=-1
	If JoyHit(14,1) Then gear=gear+1:If gear>1 Then gear=1
	If gear=-1 Then gearstring="Reverse"
	If gear=0 Then gearstring="Neutral"
	If gear=1 Then gearstring="Drive"
	If JoyY(1) < -0.1
		If gear=1
	  		Speed=Speed+0.1
	  		If Speed>30 Then Speed=30
		End If
		If gear=-1
	  		Speed=Speed-0.1
      		If Speed<-10 Then Speed=-10
		EndIf
	End If
	If JoyY(1) > 0.1
		Speed=Speed-0.2
		If Speed<0 Then Speed=0
		If Speed>0 Then Speed=Speed*0.97
	End If
	If JoyY(1) > -0.1 And JoyY(1) < 0.1 Then Speed=Speed*0.99
	If JoyX(1) < -0.1
    	steer=-JoyX(1)
    	If Steer>0.5 Then Steer=0.5
	End If
	If JoyX(1) > 0.1
    	steer=-JoyX(1)
    	If Steer<-0.5 Then Steer=-0.5
	End If
	If JoyX(1) > -0.1 And JoyX(1) < 0.1 Then Steer=0
	If JoyHit(5,1)=1
		Speed=0
		dBodySetRotation(Car,0,0,0)
	End If
End Function