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

Function TextCooY(Y: Integer): Byte;

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

Function WhereX: Byte;

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

Function WhereY: Byte;

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

Procedure Window(Xl,Yl,X2,Y2: Byte);

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

Procedure SetWindow(Xl,Yl,X2,Y2,BordeJ:: Byte;

Header: String; Clip,Build,Play: Boolean);

{Устанавливает окно, очищает его и обводит рамкой}

Function RegisterCHRFile(S: String): Integer;

{Регистрирует векторный шрифт, содержащийся в файле с именем S, и возвращает порядковый номер шрифта)

Function RegisterCHRFont(Font: Pointer): Integer;

{Регистрирует векторный шрифт, загруженный в память по адресу Font, и возвращает порядковый номер шрифта}

Procedure OutString(S: String; Font: Integer; Angle: Integer; MX,MY: Real) {Выводит с помощью векторного шрифта Font строку S с поворотом на угол Angle и с масштабными коэффициентами MX,MY}

^_—————————————————————————————;

IMPLEMENTATION

^———————————————————..——————————;

type

aob = array [O.-MaxInt] of Byte;

const

ChangeWR: Boolean -e False; (Признак замены драйвера вывода} Font: лaoЬ = NIL; {Адрес массива шрифта} TCol: Byte = LightGray; {Цвет символов} BCol: Byte - Black; {Цвет фона}

var

OldOut, OldInp: Text;

Xt: Byte; (Горизонтальная координата курсора} Xg: Integer;

Yt: Byte; {Вертикальная координата курсора} Yg: Integer;

Xlt,Ylt,X2t,Y2t: Byte; {Координаты активного окна} Xlg,Ylg,X2g,Y2g: Integer;

MaxChar: Byte; {Длина текстовой строки экрана} MaxLine: Byte; {Количество строк на экране} XF: Byte; {Ширина символа в пикселах} YF: Byte; (Высота символа в пикселах} Adapter: Byte; (Признак аппаратуры адаптера}

Procedure WriteChar(X,Y: Integer; Ch: Byte);

{Выводит символ с кодом Ch в позицию X,У} var