SuperStrict Graphics 640,480,0 AddHook EmitEventHook, KeyHook Repeat Flip Cls Until KeyHit(KEY_ESCAPE) Or AppTerminate() End Function KeyHook:Object( id:Int, data:Object, context:Object) Local ev:TEvent = TEvent(data) If Not ev Return data Select ev.id Case EVENT_KEYDOWN If (ev.Mods & MODIFIER_CONTROL) <> 0 And (ev.Data = KEY_SPACE) Then Print "CTRL+SPACE" EndIf EndSelect EndFunction