program new;
begin
repeat
while(isfkeydown(8))do
begin
sendkeys('x'+chr(13));
wait(10);
end;
while(isfkeydown(9))do
begin
sendkeys('x'+chr(13));
wait(10);
end;
wait(100);
until(false);
end.

