Движущиеся обьекты Опции

[Spinne]

Задали мне такую интересную задачку: нарисовать некий обьект, который двигается по экрану с помощью кнопок клавиатуры и еще одну прогу для движения обьекта мышкой. Если чесно, то мне в голову ничего не приходит. ООООчень надеюсь на помощь.

[Spinne]

Да, ReadKey помог, спасибо за подсказку. Програмку сделал, всё отлично работает. Ну а дальше решил замутить программу для движения обьекта мышей. Всёвроде нормально, но цикл работает слишком медленно, и при быстром движении мыши на екране остаются полосы. Можно-ли как-то увеличить скорость работы цикла ?

Код

program lab42;
uses mouse,graph;
var d,m,x,y:integer;
    c,f,e:boolean;
procedure nlo(x,y:integer);
begin
fillellipse(x,y,50,20);
Ellipse (x,y-4,190,357,50,20);
Line (x+10,y-12,x+20,y-40);
Line (x-10,y-12,x-20,y-40);
Circle (x+10,y-12,2);
Circle (x-10,y-12,2);
line(x-10,y+20,x-20,y+40);
line(x+10,y+20,x+20,y+40);
line(x-25,y+40,x-15,y+40);
line(x+15,y+40,x+25,y+40);
end;
begin
d:=0;
initgraph(d,m,'');
getmousexy(x,y,c,f,e);
setxrange(50,580);
setyrangle(40,430);
repeat
setcolor(0);
nlo(x,y);
getmousexy(x,y,c,f,e);
setcolor(7);
nlo(x,y);
until c=true
end.