IncludeFile "xors3d.pbi" xGraphics3D(800, 600, 32, 0, #False) While Not Quit=1 If xKeyup(14)=1 Debug "ss" EndIf Wend End