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