Code : Tout sélectionner
If InitSprite () = 0
MessageRequester ("Erreur", "Impossible d'initialiser directx", #PB_MessageRequester_Ok)
End
EndIf
If OpenWindowedScreen(0, 100, 100, 64, 48, 1, 0, 0) = 0
MessageRequester ("Erreur", "Impossible d'ouvrir l'écran", #PB_MessageRequester_Ok)
End
EndIf
Repeat
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
End