анимация в турбо паскале

Ответ от Gennady[гуру]
Доброго времени суток.
Какая анимация вас интересует? Вот программка квадратик гоняет. Подойдет?
program Animate;
uses
Crt, Graph;
const
PathToDriver = 'D:BPgi'; {путь к каталогу с файлами *.bgi подставьте свой, иначе не заработает}
var
Gd,Gm : Integer;
X,Y,dX,dY : Integer;
Key : Char;
begin
DetectGraph(Gd, Gm); {определим драйвер и режим}
InitGraph(Gd, Gm, PathToDriver); {проинициализируем графику}
if GraphResult <> grOk then Halt(1); {если ошибка, завершим работу}
SetViewPort(0,0,639,349,ClipOn); {установим область рисования}
ClearViewPort; {очистим область рисования}
{координаты центра экрана и величины приращений}
X := 320;
Y := 175;
dX := 10;
dY := 10;
Rectangle(X-dx, Y-dY, X+dx, Y+dY);
repeat
case Key of
'K' : begin {влево}
if dX > 0 then begin dX := dX - 1; dY := dY - 1; end;
end;
'M' : begin {вправо}
if dX < 170 then begin dX := dX + 1; dY := dY + 1; end;
end;
end;
ClearViewPort; {стерли старый прямоугольник}
Rectangle(X-dx, Y-dY, X+dx, Y+dY); {нарисовали новый}
Key := ReadKey; {проверяем клавиатуру}
if Key = #0 then Key := ReadKey; {обработка нажатия функциональных клавиш}
until Key =#27;
end.
Выход по Esc/
Удачи!