; JoyName example
Graphics 800,480,32,2
SetBuffer BackBuffer()
While Not KeyHit(1)
    Cls
    Text 20,20,"Connect a controller, then press a pad button. Esc exits."
    Text 20,60,"JoyName: "+JoyName$()
    Flip
Wend
End