program animacja 4

program anim4;
uses crt;

procedure one;
var x:integer;
begin
for x:=0 to 5 do
begin
clrscr;
window (37+x,x,38+x,x);
write ('*');
delay (100);
end;
end;

procedure two;
var x:integer;
begin
for x:=1 to 5 do
begin
clrscr;
window (42-x,5+x,43-x,5+x);
write ('*');
delay (100);
end;
end;

procedure three;
var x:integer;
begin
for x:=1 to 5 do
begin
clrscr;
window (37+x,10+x,38+x,10+x);
write ('*');
delay (100);
end;
end;

procedure four;
var x:integer;
begin
for x:=1 to 5 do
begin
clrscr;
window (43-x,15+x,44-x,15+x);
write ('*');
delay (100);
end;
end;

procedure five;
var x:integer;
begin
for x:=1 to 5 do
begin
clrscr;
window (38+x,20+x,39+x,20+x);
write ('*');
delay (100);
end;
end;

begin
repeat
one; two; three; four; five;
until readkey='q';
end.