if (getAsyncKeyState(VK_NUMPAD2)<>0) then
begin
  PInteger(PDword(USERDATA)^-$3744)^:= PInteger(PDword(USERDATA)^-$3744)^-4000;
end;
if (getAsyncKeyState(VK_NUMPAD8)<>0) then
begin     
  PInteger(PDword(USERDATA)^-$3744)^:= PInteger(PDword(USERDATA)^-$3744)^+4000;
end;
if (getAsyncKeyState(VK_NUMPAD3)<>0) then
begin
  PInteger(PDword(USERDATA)^-$3740)^:= PInteger(PDword(USERDATA)^-$3740)^-4000;
end;   
if (getAsyncKeyState(VK_NUMPAD9)<>0) then
begin     
  PInteger(PDword(USERDATA)^-$3740)^:= PInteger(PDword(USERDATA)^-$3740)^+4000;
end;
if (getAsyncKeyState(VK_NUMPAD4)<>0) then
begin
  PInteger(PDword(USERDATA)^-$373C)^:= PInteger(PDword(USERDATA)^-$373C)^-4000;
end;
if (getAsyncKeyState(VK_NUMPAD6)<>0) then
begin       
  PInteger(PDword(USERDATA)^-$373C)^:= PInteger(PDword(USERDATA)^-$373C)^+4000;
end;