Тексты программ__________ _____________ _____ ___________295

ParPrefix : Char; {Символ "+"}

CharsCount: Word; {Количество символов а шрифте}

Reservl : Byte; (He используется)

firstChar : Byte; {Код первого символа}

DataOffset: Word; {Смещение до векторных команд первого -символа}

FillFlag : Byte; (Флаг заливки}

UpperMargin: Byte; {Высота, символов}

Reserv2 : Byte; {He используется}

LowerMargin: Shortint; {Нижняя кромка}

Reserv3 : array [1..5] of Byte?);

1:(H2: array [1..16] of Byte) end;

TOffst = array [0..255] of Word; {Смещения} TWidth = array [0..255] of Byte; {Ширины} TChars = array [0..255] of Pointer; (Данные} TLengD = array [0..255] of Word; {Длина} AW = array [1..255] of Word;

TCooE " record (Векторы рабочего поля}

X1,Y1,X2,X2: Integer;

end;

TMouseMask = array [0..1,0..151 of Word;

var

FontHead TFontHead; {Заголовок файла} HeaderSize: Word; (Смещение блока параметров} FontPara TFontPara; {Параметры шрифта} FileSize Word; {Длина загружаемой части файла} AFileSize: Byte; {Положение FileSize} Offsets TOffst; {Таблица смещений} Widths TWidth; (Таблица ширин} Chars TChars; (Указатели на данные} LengD TLengD; (Длина данных в байтах} F File; {CHR-файл} FName String; {Имя файла} MaxW Byte; {Максимальная ширина символа} MaxH Byte; (Полная высота символа} {——————— рабочее поле ———————}

ХЕ Integer; {Левый верхний угол f/S.} IS Integer;

ХЕ2 Integer; (Правый нижний угод WE) YE2 Integer;

YB Integer; {Ордината базовой линии} WidthX Integer; (Правая граница символа} DXE Integer; {Ширина клетки WE} DYE Integer; {Высота, клетки WE} NVecE Word; {Количество векторов в ИЕ} VecE: array [1..250] of TCooE; {Векторы в ИЕ} (———————— Окно повтора ————————}

XR,YR: Integer; {Координаты окна повтора} HR: Pointer; {Образ пустого окна повтора} {---------- Таблица символов ------------}

XT : Integer; {Левый верхний угол таблица символов} YT : Integer;

DXT : Integer; {Ширина клетки таблицы символов} DYT : Integer; {Высота клетки} {—————————— Мышь -——————————}

dXm,dYm : Integer; {Границы мыши в рабочем поле} CurM: TMouseMask; (Стандартная маска указателя} CurE: TMouseMask; (Маска в рабочем поле} HouseF : Boolean; {Флаг формы указателя мыши}