Assign(ft,s) ;

Reset(ft) ;

{Создаем объект TEMSText}

WriteLn('Создаем объект TEMSText');

Тех.Init(Sz*Lpage) ;

if EMSErrorFlag then

Halt;

{Читаем файл и записываем его в TEMSText} WriteLn('Помещаем в него файл '+S);

while not (EOF(ft) or EMSErrorFlag) do

begin

ReadLn(ft,s); (Читаем строку} Тех.Setltem(s) {Помещаем ее в EMS}

end;

if EMSErrorFlag then

Goto L2;

{Проверяем записанное}

Reset(ft); {Начало файла} Tex.Pos := 0; {Начало текста в EMS} for k := 1 to 16 do

WriteLn; {Готовим место для окон} Colors(Yellow/Blue); {Цвет вывода} SetWindowd, 10, 80,23,1, 1 Исходный файл: '+

#196#196#196#196#196#196#196#196#196#196#196#196#196+

#196#196#196' Текст в EMS: ',True,False,False);

while not EOF(ft) do begin

ReadLn(ft,s);

ss := Tex.GetItem;

if Length(s)>38 then s[0] := #38;

While Length(s)<39 do s := s+' ';

s := s+ss;

if Length(s)>77 then s[0] := #77;

WriteLn(s) end;

Тех.Done;

Colors(LightGray,Black);

Window(1,1,80,25) ;

GotoXY(l,25) ;

L2:

{Проверка объекта TEMSScreen} Write('Сохраняем копию текстового экрана. ');

Scr.Init;

if not EMSErrorFlag then

Scr.PutScreen; {Сохраняем копию в EMS}