{ undiff.txt -- Algorithm #9: Differential Decompression by Tom Swan }

procedure Decompress(var W, P: String);
var
  I: Integer;  { String index }
begin
  Set I to value of W[1];
  Delete W[1] from W;
  while (I >= 1) do
  begin
    Append P[I] to head of W;
    I <- I - 1;
  end;
  Set P equal to W;
end;


(*
// --------------------------------------------------------------
// Copyright (c) 1993 by Tom Swan. All rights reserved
// Revision 1.00    Date: 04/07/1993   Time: 08:39 am
*)
