DEFINE Bereinigen
  INQ_ENV 8
  LET I (INQ 5)
  WHILE (I>0)
    TRAP_ERROR
    EDIT_PART ('~'+(STR I))
    IF (NOT CHECK_ERROR)
      CLEAN_DRAWING CLEAN_DUPLICATE_GEOMETRY 0 CONFIRM
    END_IF
    LET I (I - 1)
  END_WHILE
  END
END_DEFINE