PROCEDURE Swap_Generic(Value1, Value2: IN OUT ValueType) IS
------------------------------------------------------------------
--| Body of generic exchange procedure
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: September 1995                                     
------------------------------------------------------------------

  TempValue: ValueType;

BEGIN -- Swap_Generic

  TempValue := Value1;
  Value1    := Value2;
  Value2    := TempValue;

END Swap_Generic;