uses
crt;
var
x,y,x1,x2,y1,y2: word;
procedure print_simbol(const x,y: word; c: char);
begin
gotoxy(x,y);
write(c);
delay(100);
end;
begin
x1:=1+($00FF)and(windmin);
x2:=1+($00FF)and(windmax);
y1:=1+($00FF)and(windmin shr $08);
y2:=1+($00FF)and(windmax shr $08);
x:=x2;
y:=y2;
while (x1<x2)and(y1<y2) do
begin
if y=(1+($00FF)and(windmax shr $08)) then dec(y);
for y:=y2 downto y1 do print_simbol(x,y,'*');
dec(y2);
for x:=x2 downto x1 do print_simbol(x,y,'*');
dec(x2);
for y:=y1 to y2 do print_simbol(x,y,'*');
inc(y1);
for x:=x1 to x2 do print_simbol(x,y,'*');
inc(x1);
end;
gotoxy(1+($00FF)and(windmin),1+($00FF)and(windmax shr $08));
readln;
end.
|
