simple 2d movement ...

Here... best I can do ...

While Not KeyHit(1)

	kx = KeyDown( 205 ) - KeyDown( 203 )
	ky = KeyDown( 200 ) - KeyDown( 208 )

	If Ky <> 0 
		If Ky > 0 pldo$ = "u"
		If ky < 0 pldo$ = "d"
		If kx = 0 pldo$ = pldo$ + pldo$
		If kx > 0 pldo$ = pldo$ + "r"
		If kx < 0 pldo$ = pldo$ + "l"
	Else
		If kx > 0 pldo$ = "rr"
		If kx < 0 pldo$ = "ll"
	EndIf
	DebugLog pldo$

Wend

Hope it helps.