(defun C:LLS (/ EN) ;Does a Simple List without a FLIPSCREEN
   (setq EN (entget (car (entsel "\nSelect Object to List: "))))
      (cond
         ((= (cdr (assoc 0 EN)) "ARC") (prompt (strcat "ARC: ON LAYER <" (cdr (assoc 8 EN)) ">")))           
         ((= (cdr (assoc 0 EN)) "ATTDEF") (prompt (strcat "ATTRIBUTE: ON LAYER <" (cdr (assoc 8 EN)) ">" )))
         ((= (cdr (assoc 0 EN)) "CIRCLE") (prompt (strcat "CIRCLE: ON LAYER <" (cdr (assoc 8 EN)) ">" )))
         ((= (cdr (assoc 0 EN)) "DIMENSION") (prompt (strcat "DIMENSION: ON LAYER <" (cdr (assoc 8 EN)) ">" )))
         ((= (cdr (assoc 0 EN)) "INSERT") (prompt (strcat "BLOCK INSERT: ON LAYER <" (cdr (assoc 8 EN)) ">" )))
         ((= (cdr (assoc 0 EN)) "LINE") (prompt (strcat "LINE: ON LAYER <" (cdr (assoc 8 EN)) ">" )))
         ((= (cdr (assoc 0 EN)) "POINT") (prompt (strcat "POINT: ON LAYER <" (cdr (assoc 8 EN)) ">" )))
         ((= (cdr (assoc 0 EN)) "POLYLINE") (prompt (strcat "POLYLINE: ON LAYER <" (cdr (assoc 8 EN)) ">" )))
         ((= (cdr (assoc 0 EN)) "SOLID") (prompt (strcat "SOLID: ON LAYER <" (cdr (assoc 8 EN)) ">" )))
         ((= (cdr (assoc 0 EN)) "TEXT") (prompt (strcat "TEXT: ON LAYER <" (cdr (assoc 8 EN)) ">" )))
      )
  (PRINC)
)