{Settxtbf.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the SetTextBuf procedure.}

  var
    F: Text;
    Ch: Char;
    Buf: array[1..4095] of Char;  { 4K buffer }
  begin
    { Get file to read from command line }
    Assign(F, ParamStr(1));
    { Bigger buffer for faster reads }
    SetTextBuf(F, Buf);
    Reset(F);
    { Dump text file onto screen }
    while not Eof(f) do
    begin
      Read(F, Ch);
      Write(Ch);
    end;
  end.