Turbo Pascal (Borland Pascal) 7.0. Руководство пользователя
вверх за границы окна, изменить
Repeat {цикл: повторять, пока не нажата любая клавиша}
PutImage(x, y, sauser^, XorPut); {изображаем объект}
Delay (Pause);{ задержка}
PutImage(x, y, sauser^, XorPut); {после паузы стираем объект}
{перемещаем объект}
If (x xm) Or (y+Height +1> ym) Then
begin {если объект смещается влево- вверх за границы окна, изменить координаты так, чтобы он оставался в окне}
If (x- Dx< xmin) then x:= xmin else x := x- Dx;
If (y- Dy< ymin) then y:= ymin else y := y- Dy;
Dx:= GetmaxX div 10 -
