SingleBorder =• 1; {Рамка из одинарных линий) DoubleBorder ==2; /Рамка из двойных линий} I

Следующий массив определяет символы псевдографики для вычерчивания рамок (альтернативная кодировка) } const

BorderChar: array [0..2,1..6] of Char = ((#32, #32, #32, #32, #32, #32), (#218, #196, #191, #179, #192, #217), (#201, #205, #187, »18б, #200, #188));

Procedure CIrScr;

{Очищает текстовое окно или экран)

Procedure Colors(Text,Back: Byte);

(Устанавливает цвета для текстового вывода}

Function GetMaxChar: Byte;

{Возвращает максимальное количество символов на строке}

Function GetMaxLine: Byte;

{Возвращает максимальное количество строк на экране}

Procedure GetWindGraphCoo(var X1,Y1,X2,Y2: Integer) ;

(Возвращает графические координаты текстового окна)

Procedure GotoXY(X,Y: Byte);

{Перемещает курсор в заданную позицию}

Function GraphCooX(X: Byte): Integer;

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

Function GraphCooY(Y: Byte): Integer;

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

Procedure GraphWriteOn;

{Переназначает стандартные каналы ввода/вывода на процедуры Graph Write и GraphRead}

Procedure GraphWriteOff;

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

Procedure SetFontfFnt: Pointer; X,Y: Byte);

{Устанавливает текущий шрифт для текстового ввода/вывода}

Procedure Scrolling(N: Integer);

{Осуществляет сдвиг содержимого окна вверх или вниз:

N - количество строк, на которые сдвигается окно (N < 0 - сдвиг вниз)}

Procedure TextBackGround(Color: Byte);

{Устанавливает цвет фона для символов}

Procedure TextColor(Color: Byte);

{Устанавливает цвет символов}

Function TextCooXfX: Integer): Byte;