;; | ---------------------------------------------------------------------------
;; | MI_hx+int
;; | ---------------------------------------------------------------------------
;; | Function : HX+INT accepts a hexadecimal string and an integer as arguments,
;; |            and returns their sum as a hexadecimal string
;; | Argument : 'str' - Hexadecimal String
;; | Return   : The hexadecimal string
;; | Update   : August 6, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun MI_hx+int (str num / lst)

  (setq lst (MI_hxlist str))                         ;get list of powers of 16
  (setq lst (append (list (+ num (car lst))) (cdr lst))) ;pull out 1's, add,
  (MI_listhx lst)                                    ;rebuild list and send to
)                                                 ;get a hex back