(defun analisis-list-keys-by-code (code list-keys / flag key key-code max-n n name-blok)
  (setq n 0)
  (setq max-n (1-(length list-keys)))
  (while (not flag)
    (setq key (nth n list-keys))
    (setq key-code (car key))
    
    (if (eq (substr code 1 (strlen key-code)) key-code)
      (progn
	(setq flag T)
	(setq name-blok (car(cdr key)))
	)
      )
    (setq n (1+ n))
    (if (> n max-n) (setq flag T))
    )
  name-blok
  )