I would like to know if anyone has some code to demonstrate how to code for Status line updates similiar to this coding:
(DEFUN-Q S::STARTUP (/ str1 str2 str5 str6)
(setq str1 "DScale= $(getvar, dimscale) / "
str2 "LtScale= $(getvar, ltscale) / "
str6 "PSLTscale= $(getvar, psltscale) / "
str5 "TabLayout = $(getvar, users5) "
)
(setvar "modemacro" (strcat str1 str2 str6 str5))
(PRINC)
)