; JoyZDir() example

While Not KeyHit(1)
Cls
Text 0,0,"Joy Z Direction: " + JoyZDir()
Wend