/Возвращает признак видимости курсора}

Procedure PutCursor(Page,X,Y: Byte);

{Устанавливает требуемое положение курсора. PAGE - номер страницы/ Х,У - координаты курсора (отсчет от 1,1)}

Procedure SetCursorLine(Page,Up,Down: Byte);

{Устанавливает размер курсора/

Подпрограммы управления текстовым выводом \

} Procedure Border (Page,Xl,Yl,X2,Y2,Bord: Byte);

{Обводит рамкой заданную прямоугольную область страницы PAGE: X1..Y2 - координаты окна; BORD - константа 0..2, указывающая тип рамки. Символы рамки выводятся с текущими атрибутами}

Procedure CopyChar (Page: Byte; Cr: Char; Attr: Byte; Count: Word);

{Записывает несколько копий символа, начиная с позиции, на которую указывает курсор: PAGE - номер 0..MaxPage страницы; CR - копируемый символ;

ATTR - его атрибуты; COUNT - количество копий символа. Символ записывается с указанными атрибутами, курсор не меняет своего положения)

Procedure GetChar (Page: Byte; var Cr: Char; var Attr: Byte);

(Читает символ и его атрибуты: PAGE - номер 0..ManPage страницы, откуда нужно прочитать символ; CR - прочитанный символ; ATTR - его атрибуты}

Procedure InitText;

{Переопределяет константы, зависящие от адаптера и режима его работы. Содержимое экрана не меняется}

Procedure MoveFromScreen (var Source, Destin; Count: Word);

{Читает данные из видеопамяти: SOURCE - адрес считываемой видеопамяти;

DESTIN - имя переменной, куда будут прочитаны данные;

COUNT - объем считываемой информации в байтах}

Procedure MoveToScreen (var Source, Destin; Count: Word);

{Записывает данные в видеопамять: SOURCE - переменная, содержащая записываемую информацию; DESTIN - адрес фрагмента видеопамяти; COUNT - объем записываемой информации}

Procedure PageWriteOn;

{Переназначает стандартный канал вывода на процедуру PAGEWRITE, поддерживающую вывод в любую страницу}

Procedure PageWriteOff;

{Восстанавливает стандартный канал вывода}

Procedure PutChar (Page: Byte; Cr: Char);

{Записывает символ на место, указываемое курсором: PAGE - номер 0..MaxPage страницы; CR - записываемый символ; Символ записывается с текущими атрибутами, курсор не меняет своего положения}

Procedure WriteChar (Page: Byte; Cr: Char);

{Выводит символ и сдвигает курсор. Используются текущие атрибуты} г ;(•________________—_*-____^__—.._«—-——--.•.--——•——*

¦Многостраничные варианты подпрограмм модуля CRT\ *_—————---—-——-—---——————————----*;

Procedure CIrEOL;