61 begin

    61 begin

    62     leftKey:= false;

    62     leftKey:= false;

    63     rightKey:= false;

    63     rightKey:= false;

    64     upKey:= false;

    64     upKey:= false;

    65     downKey:= false;

    65     downKey:= false;

    66 end;

    67 end;

    67 

    68 

    68 procedure HW_otherKeysUp; cdecl; export;

    69 procedure HW_otherKeysUp; cdecl; export;

    69 begin

    70 begin

    70     spaceKey:= false;

    71     spaceKey:= false;

    84 end;

    85 end;

    85 

    86 

    86 procedure HW_walkRight; cdecl; export;

    87 procedure HW_walkRight; cdecl; export;

    87 begin

    88 begin

    88     rightKey:= true;

    89     rightKey:= true;

    89 end;

    95 end;

    90 

    96 

    91 procedure HW_aimUp; cdecl; export;

    97 procedure HW_aimUp; cdecl; export;

    92 begin

    98 begin

    93     upKey:= true;

    99     upKey:= true;