Отображение отметок

(DEFUN C:EDIT_Z_SEL ( / delta_z )
 (SETVAR "CMDECHO" 0)
 (PROMPT "\nВыбери изменяемые отметки:")
 (COMMAND "_SELECT" pause)
 (SETQ list_z (SSGET "_p"))
 (SETQ delta_z  (COMMA2POINT (GETSTRING "На какое значение изменить отметки: ")))
 (SETQ n (GETSTRING "Количество знаков после запятой: "))
; (SETQ list_z (SSGET "X" '((0 . "TEXT")(8 . "ОТМЕТКИ"))))
 (SETQ len (SSLENGTH list_z))
 (SETQ c 0)
 (IF (> len 0)
   (PROGN
     (WHILE (< c len)
       (SETQ ename (SSNAME list_z c))
       (SETQ name_z (ENTGET ename))
       (IF (= (cdr (ASSOC 0 name_z)) "TEXT")
          (SETQ old_z  (ASSOC 1 name_z)
                old (CDR old_z)
                new (+ (ATOF old) (ATOF delta_z))
                new_z  (CONS 1 (RTOS new 2 (ATOI n )) )
                name_z (SUBST new_z old_z name_z)
          )
       )
       (ENTMOD name_z)
       (SETQ c (1+ c))
     )
   )
 )
 (SETVAR "CMDECHO" 1)
 (PRIN1)
)