l6e

program l6evmex1;
uses crt;
const
 F : string[10] = 'L6E\\F.txt';
 G:string[10]='L6E\\G.txt';

var
 Rv:string;
 Fv,Fv1:text;
 i,n,mode: byte;

procedure Frame (x1,y1,x2,y2,txt_col:Integer);
const
 a=#186; b=#187;
 c=#188; d=#200;
 e=#201; f=#205;

var
 i:Integer;

begin
 window(1,1,80,25);
 textColor(txt_col);
 gotoXY(x1,y1);
 Write(e);
 for i:=x1+1 to x2-1 do
  Write(f);
 Write(b);
 for i:=y1+1 to y2-1 do
 begin
  gotoXY(x1,i);
  write(a);
  gotoXY(x2,i);
  Write(a);
 end;
 gotoXY(x1,y2);
 Write(d);
 for i:=x1+1 to x2-1 do
  Write(f);
 Write(c);
 window(x1+1,y1+1,x2-1,y2-1);
 textColor(txt_col);
 clrscr;
end;

procedure create;
begin
 Assign(Fv,f);
 Rewrite(Fv);
 while true do
 begin
   clrscr;
   Write('Enter words (end of input ++)-->');
   Readln(rv);
   if rv='++' then begin Close(fv); Exit; end;
   Writeln(Fv,Rv);
 end;
end;

procedure output;

begin
 clrscr;

 Assign(Fv,f);
 Reset(Fv);
 while not EOF(Fv) do
 begin
  Readln(Fv,Rv);
  Writeln(rv);
 end;
 Close(Fv);
 repeat until KeyPressed;
end;

procedure process;

begin
 Assign(Fv,f);
 assign(fv1,g);
 Reset(Fv);
 rewrite (fv1);

 while not EOF(Fv) do
 begin
 write(fv1,'*');
 write('*');
 Readln(Fv,Rv);
 writeln(fv1,rv);
writeln(rv);

end;
close(fv);
close(fv1);


repeat until KeyPressed;
end;

procedure add;
begin
 Assign(Fv,f); append(Fv);
while true do

 begin
 clrscr;
 Write('Enter words (end of input ++)-->');
 Readln(rv);
 if rv='++' then begin Close(fv); Exit; end;

 Writeln(Fv,Rv);
 end;
end;



Begin
  clrscr;
  while true do
  begin
    window(1,1,80,27);
    frame(35,14,70,24,14);
    writeln('The program creates text file F and copy it in text file G with''*'' at the beginning of each line.');
    frame(1,1,30,12,14);
    WriteLn('Menu:');
    WriteLn('1 - Create file');
    WriteLn('2 - Expand file ');
    WriteLn('3 - Process file');
    WriteLn('4 - Output file');
    WriteLn('5 - Exit');
    Write('Choose mode->'); ReadLn(mode);
    window (1,1,80,27);
    case mode of

    1: begin
 Frame(35,1,70,10,14); create;
end;
 2: begin
 Frame(35,1,70,10,14);
  add;
end;
 3: begin
 Frame(1,14,30,24,14);
 WriteLn('File''s processing'); process;
 end;

 4: begin
 Frame(35,1,70,10,14);WriteLn('Original file'); output;
 end;
 5: Exit
end;
end;
end.