Try to quit with Esc ... and after test and press Espace ...
Code: Select all
InitSprite()
InitKeyboard()
ExamineScreenModes()
While NextScreenMode()
Debug Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())+"x"+Str(ScreenModeDepth())+"@"+Str(ScreenModeRefreshRate())
Wend
If OpenScreen(1920, 1080, 32, "TEST", #PB_Screen_WaitSynchronization, 59)
Repeat
ClearScreen(0)
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Space)
StartDrawing(ScreenOutput())
DrawText(20,20,"ESPACE")
StopDrawing()
EndIf
FlipBuffers()
Delay(1)
Until KeyboardPushed(#PB_Key_Escape)
EndIf
