LD lisp - Help

Hi guys!!

How are you?

I need help to control the text size of my code.

Anybody Can help me out help?

(defun C:ld (/ osm pt prf suf)
 (vl-load-com)
 (defun *error* (msg)
   (if	osm
     (progn (setvar "osmode" osm) (setvar "cmdecho" 1))
   )
   (or	(wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
(princ (strcat "\n** Error: " msg " **"))
   )
   (princ)
 )
 (if (not num)
   (setq num 1)
 )
 (setq osm (getvar "osmode"))
 (setvar "osmode" 0)
 (setvar "cmdecho" 0)
 (if (and (/= (setq prf (getstring t "\n Type prefix : ")) "")
   (/= (setq suf (getstring t "\n Type suffix : ")) "")
   (setq num (cond ((getint (strcat "\n Enter an initial number < "
				    (itoa num)
				    " > : "
			    )
		    )
		   )
		   (t num)
	     )
   )
     )
   (while
     (setq
pt (getpoint
     "\nSpecify leader start point: (or hit ENTER to Exit) :"
   )
     )
      (command	"._leader" "_non"
	pt
	pause
	""
	(strcat prf " " (itoa num) " " suf)
	""
      )
      (setq num (1+ num))
   )
 )
 (setvar "cmdecho" 1)
 (setvar "osmode" osm)
 (princ)
)
(princ "\nStart command with LD")
(princ)

Regards

What about variable .

DIMTXT