if Text then {Инициируем графику} begin

d := Detect;

InitGraph(d,r,'') ;

if GraphResultOgrOk then

Exit;

{Выбираем шрифт в зависимости от разрешения экрана} case GetMaxY of

349: h := 14; {EGA 8х14}

479: h := 19; {VGA 8х19} else

h := 8 {Прочие 8х8} end;

{Загружаем шрифт из файла BxH.fnt} Str (h,Name) ;

Name := '8x'+Name+'.fnt';

Assign(F,Name) ;

{$!-} Reset(F,1),•

{$!+} if IOResult<>0 then Exit;

FontSize := FileSize(F);

GetMem(Font,FontSize) ;

BlockReadtFyFont",FontSize,r) ;

Close(F) ;

if rOFontSize then begin

FreeMem(Font,FontSize) ;

Exit end;

{Регистрируем шрифт и переназначаем ввод/вывод} SetFont(Font,8,h) ;

GraphWriteOn;

Text := False end;

{Указываем нужные для графического режима процедуры]-GotoXY := F_GrText.GotoXY;

Colors := F_GrText.Colors;

SetWindow := F_GrText.SetWindow;

ChangeCursor := ChangeGraphCursor;

{Задаем коэффициент пересчета вертикального положения указателя мыши в текстовый размер: он равен высоте шрифта} TextRatioY := h;

{Создаем графический экран}

SetScreen end; {SetGraphScreen}