 ; Mac - put a status line on the screen.
 ; Copyright 1999, 2002, 2005, 2016 by Rocket Software Ltd.
 ; Not a big routine...
 (DEFUN C:MAC ()
  (if (/= 4 (logand 4 (getvar "cmdactive"))) ; inactivate during a script
      (setvar "modemacro" (strcat "$(if,$(=,$(getvar,snapmode),1),\"Snap\",\"\")"
                                  "$(if,$(=,$(getvar,orthomode),1),\"  Ortho\",\"\")"
                                  "$(if,$(<,$(getvar,osmode),16384),\"  Osnap\",\"\")"
                                  "     Lay: $(getvar,clayer)"
                                  "  Sc: $(getvar,dimscale)"
                                  "$(if,$(eq,$(getvar,cecolor),BYLAYER),\"\",\"  Col: $(getvar,cecolor)\")"
                                  "$(if,$(eq,$(getvar,celtype),BYLAYER),\"\",\"  Lt: $(getvar,celtype)\")"
                                  "    Snap: $(getvar,snapunit)")))
 (princ))