{$if not def DEVICES_GAMEPORT_H}
Const
 DEVICES_GAMEPORT_H=0;
{$if not def EXEC_IO_H;incl"exec/io.h";endif}
Const
 GPD_READEVENT=CMD_NONSTD;
 GPD_ASKCTYPE=10;
 GPD_SETCTYPE=11;
 GPD_ASKTRIGGER=12;
 GPD_SETTRIGGER=13;
 GPTB_DOWNKEYS=0;
 GPTF_DOWNKEYS=%1;
 GPTB_UPKEYS=1;
 GPTF_UPKEYS=%10;
Type
p_GamePortTrigger=^GamePortTrigger;
GamePortTrigger=Record
 gpt_Keys,gpt_Timeout,gpt_XDelta,gpt_YDelta:Word
End;
Const
 GPCT_ALLOCATED=-1;
 GPCT_NOCONTROLLER=0;
 GPCT_MOUSE=1;
 GPCT_RELJOYSTICK=2;
 GPCT_ABSJOYSTICK=3;
 GPDERR_SETCTYPE=1;
{$endif}