program example (input,output);

uses crt;

(***************************************************************************)
(** Procedure Create Windows                                              **)

procedure create_wind(x1,y1,x2,y2,winb:integer);

          var
             y9,x9:integer;

          begin
               textbackground(winb);
               textcolor(winb);
               for y9:=y1 to y2 do
                   begin
                        for x9:=x1 to x2-2 do
                            begin
                                 gotoxy(x9,y9);
                                 write(219);
                            end;
                   end;
          end;
begin {main program}
clrscr;
create_wind(20,5,60,19,1);   { (x1, y1, x2, y2, window color) }
end. {main program}