(defun c:PurgeDGN+200 ()
  (if (<= 20 (atoi (getvar 'acadver)))
    (progn
      (princ "\Bereinige DGN-Linientypdefinitionen. Das kann dauern...\n")
      (command "_-purge" "_o")
      (repeat 200
	(command "_-purge" "_all" "*" "_n")
      )
      (princ "\nFertig.")
    )
    (princ "\nNicht für diese Version geeignet!")
  )
  (princ)
)