(defun c:aseadmin ()
  (command "undefine" "ASEADMIN")
  (command "undefine" "ASEEXPORT")
  (command "undefine" "ASELINKS")
  (command "undefine" "ASEROWS")
  (command "undefine" "ASESELECT")
  (command "undefine" "ASESQLED")
  (defun c:aseexport ()
    (princ "\nASE has been disabled! ")
    (princ)
  )
  (defun c:aselinks ()
    (princ "\nASE has been disabled! ")
    (princ)
  )
  (defun c:aserows ()
    (princ "\nASE has been disabled! ")
    (princ)
  )
  (defun c:aseselect ()
    (princ "\nASE has been disabled! ")
    (princ)
  )
  (defun c:asesqled ()
    (princ "\nASE has been disabled! ")
    (princ)
  )
  (princ "\nASE has been disabled! ")
  (princ)
)