Приложение C. Описание стандартных модулей

109

function ReadKey: char;

Действие: Ожидает нажатия клавиши и возвращает ее код. Коды клавишей описаны в

Приложении D.

function ScrXsize: byte;

Действие: В качестве результата возвращает горизонтальний размер экрана, т.е.

допустимое число символов строк.

function ScrYsize: byte;

Действие: В качестве результата возвращает вертикальный размер экрана, т.е.

допустимое число строк на экране.

procedure SetColor(Attribute: ShortCard);

Действие: Устанавливает новый цвет выводимых на экран символов. На Пылдине 601

выполнение процедуры не имеет последствий. Ее действие проявляется только

на Пылдине 601А/601М и только, если установлено цветное изображение.

Цвета, которые можно использовать, описываются константами. Основное

правило, которое нужно соблюдать - это то, что цвет для символов может быть

только из первых 8 цветов, а цвет для фона может быть из всех 15 цветов.

Атрибут цвета задается формулой 16 * цвет букв + цвет фона. Если

необходимо получить мерцающее изображение, добавьте к так полученному

атрибуту константу Blink.

procedure TextMode(Mode: ShortCard);

Действие: Переключает экран в одном из следующих режимов: черно-белое

изображение с 40-символьными строками; черно-белое изображение с 80-

символьными строками; цветное изображение с 40-символьными строками. В

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

экспортированных констант:

BW40 = 0;  { черно-белое 40x25 }

BW80 = 4;  { черно-белое 80x25 }

CO40 = 5;

 { цветное 40x25 }

function WhereX: ShortCard;

Действие: В качестве результата возвращает текущее положение X курсора, т.е. номер

столбца, в котором он находится.

function WhereY: ShortCard;

Действие: В качестве результата возвращает текущее положение Y курсора, т.е. номер

строки, в которой он находится.

C.2. Описание модуля UniDOS

Модуль UniDOS предоставляет пользователю средства для удобного

использования возможностей операционной системы для работы с файлами.

Модулем экспортируются следующие константы, представляющие собою маски

для обработки файловых атрибутов:

*

ReadOnly =

$01;

файл только для чтения;

*

Hidden =

$02;

скрытый файл;

*

SysFile =

$04;

системный файл;

*

VolumeId =

$08;

идентификатор диска;