Like this ....
(defun c:test (/ ss)
(if (setq ss (getint "\n Enter Number (ascii) :"))
(print (chr ss))
)
(princ)
)
Thanks coder,but "enter number"requires an integer between -32768 and 32767.My version is 04 CAD
Not certain to understand the task, but this works with the example.
(foo "165478952") returns ("A" "/" "Y" "4")
(defun foo (str / num char lst)
(if (numberp (setq num (read str)))
(while (< 9 (setq char (rem num 100)))
(setq num (/ num 100)
lst (cons (chr char) lst)
)
)
)
)
thanks,gile,When the input number is 11, when an error。
thanks,LEE,As your programs and gile error
I may be the expression of this program is not clear, I mean that when I enter the number as 11, when, for example: 16738883211, rounding first need to form a list ("67" "38" "88" "32" "11"), the group then identified the corresponding code in general is to enter the figures are rounded down first, and then behind the two figures as a whole, the basic input of the number of digits is 9 or 11, Thank you for your help, hope that help me look,