(defun C:XX ()  
  (command "PURGE" "A" "" "N" "PURGE" "A" "" "N" "AUDIT" "Y") 
  (command "GRID" "OFF" "ZOOM" "E" "QSAVE")
  (princ)
)