SEPARATE (Binary_Search_Trees_Generic)
PROCEDURE Traverse_LNR (T : Tree) IS
------------------------------------------------------------------------
--| Binary Search Tree Traverse Operation, subunit of 
--| Binary_Search_Trees_Generic
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: January 1996                                     
------------------------------------------------------------------------
BEGIN -- Traverse_LNR

  IF T = NULL THEN
    RETURN;
  ELSE
    Traverse_LNR (T.Left);
    Visit (T.Info);
    Traverse_LNR (T.Right);
  END IF;

END Traverse_LNR;