Тексты программ_______________________________ _______279

Adapter := 0; {Другие типы или нет AppHandle} with F do

if (Mode=fm0utput) and (BufPos>0) then begin

for k := 0 to BufPos-1 do case BufPtr'^k] of

#7: with Reg do

begin {Звук}

ah := $E;

al := 7;

Intr($10,Reg) end;

#8: if k>BufEnd then

begin (Забой слева от курсора}

WriteChar(Xt-2,Yg,32) ;

GotoXY(WhereX-l,WhereY) end;

#10: if Yt+1 in [Ylt..Y2t] then /Перевод строки} GotoXY(WhereX,WhereY+l) ;

#13: {Возврат каретки} GotoXY(l,WhereY) ;

else begin

WriteChar(Xt-l,Yg,ord(BufPtrA(lt])) ;

if Xt+1 in [Xlt..X2t] then

GotoXX(WhereX+l,WhereY) else if Yt+1 in [Ylt..Y2t] then

GotoXY(l,WhereY+l) end end;

BufPos :•= 0 end;

GraphWrite := 0 end; {Graphfirite} ^———————————————;

Function Zerofvar F: TextRec): Integer; Far;

{Заглушка для функций Open/Close} begin

Zero := 0 end; {Zero} _•————————————————;

Function Mush (var F: TextRec): Integer; Far;

(Обнуляет буфер ввода} begin

with F do begin

BufPos := 0;

BufEnd := 0 end;

Flush := 0 end;

/————————————————;

Procedure CIrScr;

(Очищает текстовое окно или экран} var

FillInfo: FillSettingsType;

begin

if FontoMIL then begin