(DEFUN S::STARTUP () (setvar "modemacro" (strcat "Snap $(getvar,snapunit) Griglia $(getvar,gridunit)" " ScalaTL $(getvar,ltscale)" " Limiti $(getvar,limmin) - $(getvar,limmax)" " $(getvar,textstyle)") ) )