{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.

}
{$I windows.lib}
const
  Win1    : corners = (5,5,40,20);
  Win2    : corners = (45,3,75,18);
  MainWin : corners = (1,1,80,25);

var
  Win3 : corners;
  N    : byte;
begin
  DoFrame(Win1,'Í','º');
  DoFrame(Win2,'~','!');
  DoWindow(Win1);
  Write('Writing in window number one, framed in double lines.');
  Write('Press a key.');
  repeat until keypressed;
  DoWindow(Win2);
  Write('Now writing in window number two, framed in tildes and ');
  Write('exclamation points.');
  Write('Press a key.');
  repeat until keypressed;
  DoWindow(Win1);
  ClrScr;
  Write('Enter coordinates for yet another window.  ');
  DoWindow(Win2);
  ClrScr;
  WriteLn('If they are OK, that window will appear.');
  Write('Upper Left X: ');
  read(Win3[1]);
  WRiteLn;
  Write('Upper Left Y: ');
  read(Win3[2]);
  WRiteLn;  Write('Lower Right X: ');
  read(Win3[3]);
  WRiteLn;  Write('Lower Right Y: ');
  read(Win3[4]);
  IF (Win3[1] > 1) and (Win3[2] > 1) and (Win3[3] < 79) and (Win3[4] < 24)
    and (Win3[3] - Win3[1] > 2) and (Win3[4] - Win3[2] > 2) then
       begin
         DoFrame(Win3,#196,#179);
         DoWindow(Win3);
         ClrScr;
         repeat
           Write('....WINDOW!.....');
         until keypressed;
       end;
  DoWindow(MainWin);
end.