Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 111 стр.

Модуль Crt позволяет создавать окна на экране монитора. При записи в такое окно оно
ведет себя точно также, как целый экран. При этом остальная часть экрана остается
нетронутой. Внутри окна можно удалять и добавлять строки, при этом курсор возвращается
к правому краю и при достижении курсором нижней строки текст продвигается вверх.
По умолчанию окном считается весь экран.
С каждым окном связаны координаты:
                                    Полный экран имеет       координаты:
   (1,1)                  (1,1)
                            (80,1)  1 <= X <= 80; 1 <= Y <= 25.


 (1,25)                    (80,25)
                                     Определить окно можно с помощью процедуры
Window.
Синтаксис:
      Window(X1,Y1, X2,Y2 : word).
Параметры X1, Y1 - координаты верхнего левого угла окна;
           X2, Y2 - координаты нижнего правого угла окна.
Если параметры заданы некорректно, то вызов Window игнорируется.
Когда определено окно, то все координаты экрана, используемые в процедурах, становятся
относительными координатами этого окна.
С каждым окном связаны две переменные, объявленные в CRT:
      WindMin, WindMax : Word.
Переменная WindMin определяет левый верхний угол экрана, а переменная WindMax -
правый нижний. В младшем байте хранится координата X, а в старшем - координата Y.
Чтобы извлечь значения этих координат, нужно использовать функции Lo и Hi.
Например, Lo(WindMin) - дает координату X левого края, а Hi(WindMax) - дает координату
Y нижнего края.
С координатами связаны процедуры GotoXY, WhereX, WhereY.
Процедура GotoXY - установка курсора в указанные координаты.
Синтаксис:
      GotoXY(X, Y : byte);
Верхний левый угол задается координатами (1, 1). Если X, Y заданы неверно, то переход не
выполняется.
Например:
      Window(1,10, 60,20);
      GotoXY(1, 1);
В результате выполнения этих предложений произойдет перемещение курсора в верхний
левый угол созданного окна.
WhereX, WhereY - возвращают соответственно координату X или Y текущей позиции
курсора относительно текущего окна.
Например:
Uses Crt;
begin
      Writeln('Курсор находится в позиции ', '(' ,WhereX,' , ',WhereY,' )' );
end.

Пример для Window.
Uses Crt;
Var
      x, y: Byte;
Begin
      TextBackground(Black);          { Установка черного фона }

                                                                                    111