Работа с экраном в текстовом режиме

Первоначально при запуске программы на экране остается информация от предыдущих действий, для очистки экрана используется процедура

ClrScr;

При этом курсор помещается в верхний левый угол. Операторы Write и Writeln начинают вывод информации с текущей позиции курсора. Поэтому, если управлять положением курсора, то нет необходимости несколько раз использовать оператор Writeln или заключать в апострофы строки пробелов. Для установки курсора в точку с координатами X, Y используется процедура

GoToXY (X,Y:byte);

Для того чтобы узнать, где в текущий момент находится курсор, используются функции

WhereX: byte;

WhereY: byte;

Например:

Var A,B:byte;

Begin

... ...

A:=WhereX;

B:=WhereY;

Write('Курсор находится в столбце ',А,

' и строке ',B);

... ...

Чтобы установить цвет символов и фона, соответственно используются процедуры

TextColor (Color:byte);

TextBackGround (Color:byte);

Они изменяют дальнейший выводимый цвет символов и полей знакомест.

Первоначально ОС сама устанавливает цвета, обычно черный фон и светло-серые символы, но их можно изменить этими процедурами. Если сделать фон и символы одинакового цвета, то они становятся невидимыми. Для закраски всего экрана одним цветом после установки цвета очищается экран:

TextColor (White);

TextBackGround (Blue);

ClrScr;

GoToXY (35,13);

Write ('Середина экрана');

В модуле Crt существуют и другие способы и процедуры для работы с режимами, цветами и курсором на экране.