108

C.1. Описание модуля UniCRT

procedure ClrEol;

Действие: Стирает все символы (замещая их пробелами) с текущей позиции курсора до

конца строки без перемещения курсора.

procedure ClrEos;

Действие: Стирает все символы с текущей позиции курсора до конца экрана без

перемещения курсора.

procedure ClrScr;

Действие: Очищает экран и устанавливает курсор в его верхнем левом углу.

procedure Delay(ms: cardinal);

Действие: Выжидает прохождения указанного времени, определенного параметром в

миллисекундах.

function GetColor: ShortCard;

Действие: Результатом этой функции является текущий атрибут цветности вывода

символов на экран. Он имеет тот же самый смысл, как и для процедуры Set-

Color.

procedure GotoXY(X, Y: ShortCard);

Действие: Перемещение курсора экрана в позицию (X, Y). иевый верхний угол экрана

имеет координаты (1, 1), при том координата X увеличивается слева направо, а

координата Y сверху вниз.

function KeyPressed: boolean;

Действие: В качестве результата возвращает TRUE, если с момента последнего чтения с

клавиатуры до момента ее активизации была нажата клавиша. Другими

словами, проверяется есть ли что-то в буфере клавиатуры.

procedure PassCrsr(size: ShortCard);

Действие: Переключает пассивный курсор (тот, который появляется, когда не ожидается

ввод с клавиатуры, т.е. во время работы программы) в одном из возможных

размеров: значение 0 - курсор не виден; значения 1, 2, 3, 4 обозначают,

соответственно, что курсор имеет размер в 

1

/

4

, 

2

/

4

, 

3

/

4

 и 

4

/

4

 из своего

максимального размера. По умолчанию пассивный курсор не виден (0).

procedure PlayMelody(var Melody);

Действие: Воспроизведение мелодии. Мелодия составлена из последовательности нот (см.

описание PlayNote). Каждым элементом последовательности является либо нота

(занимающая 3 байта), либо команда для изменения тембра, либо конец (один

байт). Если элементом является нота, то ее первый байт носит информацию об

ее номере, второй - об ее длительности, а третий - о длительности паузы за

нотой. Изменение тембра (от 1 до 7) задается содержимым (от $F8 до $FE)

одного байта. Конец мелодии задается содержимым $FF одного байта.

procedure PlayNote(Note, Tembr: ShortCard; length: cardinal);

Действие: Воспроизводит звучание ноты. Note - номер ноты от 0 до 72. Номеру 0

соответствует пауза, номерам от 1 до 72 соответствуют номера нот, при том

номеру 29 соответствует нота иА первой октавы. Tembr принимает значения от

1 до 7 и интерпретируется как тембр. Length - длительность звучания ноты в

единицах по 1.536 миллисекундам.