If someone could reply ASAP I would be VERY grateful.

Thanks

  Simultaneously?  Nope.  Not without a write for each file...

Bob
--
O.J. Verdict - The best innocence money can buy

As you already have figured out, you can use two writelns. Why not make a
PROCEDURE do that for you.

PROCEDURE WriteBoth(InStr : STRING);
 BEGIN
   WriteLn(InStr);            {Output on screen}
   WriteLn(YourFile, InStr);  {Output in file}  
 END;

Should works, haven't tried.

CU

  Martin

type
  TOutputFunc = function (var F: TextRec): Integer;

var
  OldOutFunc: TOutputFunc;
  Redirect: Text;

OldOutFunc := TOutputFunc(TextRec(F).InOutFunc);
TextRec(F).InOutFunc := @MyOutFunc;

function MyOutFunc(var F: TextRec): Integer; far;
var
  Tmp: String;
begin
  Move(F.BufPtr^[B.BufPos], Tmp, F.BufEnd - F.BufPos);
  Tmp[0] := Chr(F.BufEnd - F.BufPos);
  Write(Redirect, Tmp);
  MyOutFunc := OldOutFunc(F);
end;

That's it. Out redefined output procedure first writes the contents of
the I/O buffer to the other file, and calls the original output
function.
I'm not sure in the way buffer is used. So this piece of code may be
wrong, but you can figure it yourself. (By looking at the variables:
BufPtr^, BufPos and BufEnd).

Hope this will be useful.

                                 Balazs Scheidler

procedure Emit(S: string);
begin
   write(S);
end;

procedure EmitLn(S: string);
begin
   Emit(S + #13 +#10);
end;

This merely writes to the screen, and it looks clumsy, but oddly it saves
a little code space if you have many lines that emit.  But, the point of
it is that you can easily change where your output is going by changing
only the Emit procedure.  For your purpose, you'd use:

procedure Emit(S: string);
begin
   write(S);
   write(Fil,S);
end;

Fil, of course, must be an open text file variable.  You can write
complicated conditions for sending the data here or there and you can
use other ways to send data than the write procedure, but this'll get
you off to a start.