C 
C 
C 
      SUBROUTINE DSTROY(OBJECT)
C 
C  PERMANENTLY ELIMINATE "OBJECT" BY MOVING TO A NON-EXISTENT LOCATION.
C 
      IMPLICIT INTEGER*4 (A-Z)
C 
      CALL MOVE(OBJECT,0)
      RETURN
      END
