302 Приложение

SetWindow(XI,Y1,X2,Y2-1,EmptyBorder,Txt[k],False,False,False);

{Инициируем мышь} SetMouseItem(6,Items);

ShowMouse; {Показывав» указатель тшши} TextRatioY := с;

end; (BulldScreen} {—————} Procedure NewFile(var FName: String);

{Создает новый CHR-файл} var

Name: String;

HH: ShortInt;

H,k: Byte;

Y: String [1] ;

const

tl='Максимальная высота символов от базовой линии: ';

t2='Расстояние до нижней кромки символа: ';

13"'Максимальная ширина: ';

t4=" font VI.1 Jan 12, 1989';

t5=#13#10;

t6='Copyright (c) 1987,1988 Borland International';

begin

(Вводим в диалоге параметры шрифта} repeat

Write('Введите 4-буквенное имя шрифта: ':55);

ReadLn(Name);

while Length(Name)<4 do Name := Name+'0';

Name[0] := chr(4) ;

for k := 1 to 4 do

Name[k] := UpCase(Name[k]);

Write(tl:55) ;

ReadLn(H) ;

H :° H and 63;

Write (t2:55) ;

ReadLn(HH) ;

if HH>0 then HH :- -HH;

Write(t3:55) ;

ReadLn(MaxW) ;

MaxW := MaxW and 63;

MaxH := H-HH;

WriteLn;

WriteLn('Будет создан шрифт с именем '+

Name+' со следующими параметрами:');

WriteLn(tl:55,H);

WriteLn(t2:55,HH) ;

WriteLn(t3:55,MaxW) ;

Write('Согласны (Y/N, умлч.У)? ');

ReadLn(У) ;

until (Y<>") or (UpCase(Y[l])<>'N') ;

{Готовим заголовок} for k := 1 to 128 do

FontHead.B[k] := 0;

for k := 1 to 16 do

FontPara.H2[k] := 0;

FName :» Name+'.CHR';

with FontHead do

begin

FontFileID := Head;