LOGICAL FUNCTION TREASURE(OBJECT)
      USE ALLCOM
      INTEGER OBJECT
      TREASURE=BTEST(OBJCON(OBJECT),14)
      END