+
+;; ITEM No --> Character
+(defun menudiag-item-num-to-char (num)
+ (let ((char))
+ (cond ((<= num 9)
+ (setq char (+ ?0 num)))
+ (t
+ (setq char (+ ?a (- num 10))))
+ )
+ char))
+
+;; Character --> ITEM No
+(defun menudiag-char-to-item-num (char)
+ (let ((num))
+ (cond ((and (<= ?0 ch) (<= ch ?9))
+ (setq num (- ch ?0)))
+ ((and (<= ?a ch) (<= ch ?z))
+ (setq num (+ 10 (- ch ?a))))
+ ((and (<= ?A ch) (<= ch ?Z))
+ (setq num (+ 10 (- ch ?A))))
+ (t (setq num 1000)))
+ num))
+
+