Example:
Code: Select all
Procedure Check_Keyboard()
ExamineKeyboard()
Select KeyboardPushed()
Case #PB_Key_W
;other code here
Case #PB_Key_A
;other code here
Case #PB_Key_S
;other code here
Case #PB_Key_D
;other code here
Case #PB_Key_Space
;other code here
EndSelect
Select KeyboardReleased()
Case #PB_Key_Escape
;other code here
EndSelect
EndProcedure

Regards,
Ash.