Вывод специальных символов CRT
При подключенном модуле 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.
Статьи по теме:
Полиграфия без типографии? Это возможноКанадский опыт построения информационной магистралиЖесткие дискиОпределение ЭВМ как объекта конструированияСокращение занимаемого Windows XP дискового пространства СОЗДАНИЕ ДОКУМЕНТАКонвертПодсистема вывода,способы логического выводаМышьСетевой аудит в NetWare 4.xНеправомерный доступ к компьютерной информации (ст. 272 УК)Программа 1С Бухгалтерия Предприятия 8Новые возможности поиска софтаЭффективность микропроцессоровСофт (Программы) Для Counter - StrikeСистемный блокРасположение и размер корневого каталогаПрограммная совместимость ЕС ЭВМСпособы краж в банковских информационно-вычислительных системахOболочка GopherСистема адресов X.400Глобальный уровеньУстройство и общие принципы работы компьютерного томографаПростые меры защитыУход За Домашним КомпьютеромСоздание и использование сводных таблиц EXCELУстройство Netping Cooler Board Поступило На Склад Компании Зао «Лайт Коммуникейшн»Виды пластиковых карточекРабочий стол Microsoft Windows XPЭкспертные СистемыЭВМ И ИНТЕЛЛЕКТСети NETGEARЭВМ в магазинах самообслуживанияЗащита Информации. Пароли На Rar АрхивыСТРУЙНЫЕ ПЛОТТЕРЫ (СП, INK-JET PLOTTER)Автоматизация ДелопроизводстваЛинукс привелось в действие приборы: Теперь в рынкеРабота Internet: организация, структура, методы Алее Софтвер Создает Электронный Каталог Для СзагсПринципы организацииУничтожение компьютерной информации Управление расположением значков Microsoft Windows XPКомпьютер и инвалидыСтоимость CompactPCI-модуляНЕМНОГО О ЛИЧНОСТНЫХ ОСОБЕННОСТЯХ КОМПЬЮТЕРНЫХ ПРЕСТУПНИКОВ Глобальная настройка параметров печати Загрузочная записьТИПЫ ЛКСВласть и информационное общество в УкраинеНекоторые типовые конфигурацииКоманды консоли восстановления Бесплатный Софт, Быть Или Не БытьРемонт & обслуживание регистратуры WindowsЯзыки программирования высокого уровняГоризонтальная подсистема