При подключенном модуле CRT можно выводить на дисплей строки и символы, содержащие в себе управляющие коды (коды 0…31). При этом они не будут оказывать управляющие воздействия, а будут изображаться на дисплее, согласно таблице изображений символов по их ASCII-коду.
Исключение составляют лишь четыре кода:
Код Управляющее воздействие Название кода
7
($07) Вызывает один короткий звук динамика Bell
8
($08) Сдвигает текущую позицию курсора влево на один символ, если есть куда сдвинуться в пределах строки; в противном случае не имеет эффекта BackSpace
(BS)
10
($OA) Переводит текущее положение курсора на строку ниже, не меняя текущего столбца Line Feed
(LF)
13
($OD) Переводит текущее положение курсора в начало строки Carriage Return
(CR)
Системные переменные модуля CRT.
При подключении модуля CRT инициализируется ряд его системных констант и переменных. Константы используются как параметры в процедурах модуля CRT. Системные же переменные играют роль переключателей режимов работы механизмов ввода-вывода, реализованных в CRT.
И константы, и переменные становятся глобальными и доступными программе, использующей модуль CRT, и их не надо описывать среди прочих идентификаторов. Так, например, в модуле CRT определена переменная DirectVideo типа Boolean, и ее стартовое значение равно True. Если надо сменить определяемый ею режим работы устройства CRT, то необходимо вставить в программу строку
USES CRT; { модуль CRT подключен }
. . . { раздел прочих описаний }
BEGIN
DirectVideo: = False ; { <- - смена режима CRT }
. . . { собственно программа }
END.
Но если определить в программе такую же переменную, то доступ к оригиналу из CRT будет заблокирован. Теперь, чтобы все-таки сменить значение системной переменной, надо указывать ее принадлежность в виде определяющего поля:
USES CRT; { Модуль CRT подключен. }
VAR
DirectVideo : Boolean ; { Переопледеление системной }
{переменной. Тип может быть и любым другим }
BEGIN
DirectVideo : = False ; { не влияет на работу СRT }
CRT. DirectVideo : = False; { Режим работы CRT меняется. }
. . .
END.
