window.pas

 {Window.PAS}
 
 { Пример программы для процедуры Window }
 
 Uses Crt;
 
 Var X, Y : Byte;
 
 Begin
  TextBackground(Black);   { Очищаем экран }
  ClrScr;
  Repeat
   X:=Succ(Random(80));   { Рисуем произвольные окна }
   Y:=Succ(Random(25));
   Window(X, Y, X + Random(10), Y + Random(8));
   TextBackground(Random(16));   { Произвольными цветами }
   ClrScr;
  Until KeyPressed;
 End.