AutoCAD 2004. Как настроить кодировку в скрипте?

;|=============================================================================
*    Обработка однострочных и многострочных текстов в выборе. Не обрабатываются
* вхождения в блоки и значения атрибутов. Заменяемые слова регистрозависимы.
*    Параметры вызова:
*    eng-word    заменяемое слово
*    rus-word    слово, которое ставится
*    Примеры вызова:
(ch-eng-to-rus "Date" "Дата")    ; замена вхождений слова "Date" на "Дата". Слова
                ; "date", "dAte" и т.п. не заменяются
=============================================================================|;
(defun ch-eng-to-rus (eng-word rus-word / selset item)
  (vl-load-com)
  (if (not *kpblc-activedoc*)
    (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of if
  (vla-startundomark *kpblc-activedoc*)
  (setq selset (ssget '((0 . "TEXT,MTEXT"))))
  (while (and selset
          (> (sslength selset 0))
          ) ;_ end of and
    (setq item (ssname selset 0))
    (ssdel item selset)
    (setq item (vlax-ename->vla-object item))
    (if    (vlax-property-available-p item 'textstring t)
      (vla-put-textstring
    item
    (vl-string-subst rus-word eng-word (vla-get-textstring item))
    ) ;_ end of vla-put-TextString
      ) ;_ end of if
    ) ;_ end of while
  (vla-endundomark *kpblc-activedoc*)
  ) ;_ end of defun

(defun c:chw (/ rus eng)
  (setq eng (getstring t "\nВведите слово, которое надо поменять <Отмена> : "))
  (if eng
    (progn
      (setq
    rus (getstring
          t
          (strcat "\nУкажите слово, на которое надо менять " eng " : ")
          ) ;_ end of getstring
    ) ;_ end of setq
      (if rus
    (progn
      (ch-eng-to-rus eng rus)
      ) ;_ end of progn
    ) ;_ end of if
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

(defun c:cchw (/ rus eng)
  (while (setq
       eng (getstring t "\nВведите слово, которое надо поменять <Отмена> : ")
       ) ;_ end of setq
    (setq rus (getstring
        t
        (strcat "\nУкажите слово, на которое надо менять " eng " : ")
        ) ;_ end of getstring
      ) ;_ end of setq
    (if    rus
      (progn
    (ch-eng-to-rus eng rus)
    ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of while
  ) ;_ end of defun