{$I Var.Inc}
{$I Windmngr.Inc}
{$I DemoDefs.Inc}
{$I Growwin.Inc}

var ch:char;
    i:integer;

begin
     Initialize;
     i:=0;
     Select_window(1);
     Select_Window(2);
     Select_Window(3);
     repeat
           Select_Window(1);
           Write('Window number 1 ');
           Select_window(2);
           write('Window number 2 ');
           Select_window(3);
           write('Window number 3 ');
           i:=i+1;
           if i=40 then
                begin
                      Grow_window(22,7,58,22,14,0,2);
                      textcolor(2);
                      for i:=1 to 100 do
                          begin
                               write(' Growing Window ');
                               delay(10)
                          end;
                      delay(1000);
                      remove(1);
                      i:=0
                end
     Until keypressed
end.