(DEFUN C:LS0 () ;Layer Set 0 (Zero)
  (COMMAND ".LAYER" "S" 0 "")
  (PRINC)
)