const

TonBeg = 400;

TonEnd = 800;

Pause = 5;

N = 20;

var

k,X,xxl,yyl,xx2,yy2,dx,dy: Byte;

dt: Integer;

begin

if (FontOMIL) and (XI in [1. .MaxChar]) and (Yl in [1..MaxLine]) and (X2 in [1..MaxChar1) and (Y2 in [1..MaxLine]) and (X2>=X1) and (Y2>=Y1) then begin

if Build and ((X2-X1>"4) or (X2-X1>-4)) tben begin

X := (X2-X1) div 2;

if X>1 then begin

xxl :» Xl+X-l;

xx2 := Xl+X+1 end else begin

xxl :" XI;

xx2 := X2 end;

X := (Y2-Y1) div 2;

i.? X>1 then begin

yyl := У1+Х-1;

yy2 := У1+Х+1 end else begin

yyl :- Yl;

yy2 := У2 end;

dx := (X2-X1) dULv N;

if dx=0 then dx := 1;

dy := (Y2-Y1) div Ы;

i? dy=0 then dy := 1;

dt := (TonEnd-TonBeg) div N;

for k :» 0 to N-1 do begin

if Play then

Sound(TonBeg+k*dt) ;

Window (x-xl, yyl, xx2, yy2) ;

CIrScr;

if xxl>xi then dec (xxl,dx) ;

if xx2<X2 then inc (xx2,dx) ;

if уу1>У1 then dec(yyl,dy) ;

if yy2<Y2 then inc(yy2,dy) ;

end;