indexing description: "Error in precursor construct."; date: "$Date$"; revision: "$Revision $" class VUPR1 inherit VUPR redefine subcode end feature -- Properties subcode: INTEGER is 1 end -- class VUPR1