{Удаляет остаток строки справа от курсора в активной странице}

Procedure CIrScr;

{Очищает текущее окно (страницу)}

Procedure DelLine;

{Удаляет строку в активной странице}

Procedure GotoXY(X,Y: Byte);

{Устанавливает курсор в активной странице}

Procedure InsLine;

{Вставляет пустую строку в активной странице}

Procedure TextBackGround(Color: Byte);

{Устанавливает цвет фона а активной странице}

Procedure TextColor(Color: Byte);

(Устанавливает цвет символов в активной странице}

Function WhereX: Byte;

/'Возвращает- горизонтальную координату курсора в активной странице}

Function WhereY: Byte;

{Возвращает вертикальную координату курсора в активной странице}

Procedure Window(XI,Y1,X2,Y2: Byte);

{Устанавливает окно в активной странице} _'*_________________—--_____-„_-____-_--__------*

I Подпрограммы управления страницами \ *——————————————_-_-.——__——————————^

Function GetActivePage: Byte;

{Возвращает номер активной текстовой страницы}

Procedure GetPage (Page: Byte; var Destin);

{Копирует текстовую страницу в оперативную память: PAGE - номер копируемой страницы; DESTIN - переменная, куда будет копироваться страница}

Procedure SwapPage (Source, Destin: Byte);

{Копирует одну текстовую страницу в другую: SOURCE - номер страницы-источника информации; DESTIN - номер страницы-приемника}

Function PageSaveSize: Word;

{Возвращает размер буфера, необходимый для сохранения текущего состояния видеостраницы}

Procedure PutPage (var Source; Page: Byte);

{Пересылает копию текстовой страницы из оперативной памяти в видеопамять:

SOURCE - имя переменной, хранящей копию страницы;

PAGE - номер страницы-приемника информации}

Procedure RestorePage(Page: Byte; var Buf);

{Восстанавливает текущее состояние страницы PAGE по содержимому буфера BUF}

Procedure SetActivePage(Page: Byte);

{Устанавливает активной, заданную текстовую страницу. PAGE - номер страницы}

Procedure SavePage(Page: Byte; var Buf);