{$I VAR.INC}
{$I WINDMNGR.INC}
{$I GROWWIN.INC}
var ch:char;

Begin
     Grow_Window(5,5,40,20,11,0,2);
     repeat until keypressed;
     read(kbd,ch);
     Grow_Window(20,2,50,20,12,0,3);
     repeat until keypressed;
     read(kbd,ch);
     grow_window(10,10,50,23,2,0,3);
     repeat until keypressed;
     read(kbd,ch);
     remove(1);
     repeat until keypressed;
     read(kbd,ch);
     remove(1);
     repeat until keypressed;
     read(kbd,ch);
     remove(1);
end.