(defun string_reverse (string / string0 cur tmp_str num)
(setq cur ""
string0 string
)
(while (/= (strlen string0) (strlen cur))
(progn
(setq tmp_str (substr string (strlen string)))
(if (> (ascii tmp_str) 159)
(progn
(setq tmp_str (substr string (- (strlen string) 1)))
(setq num 2)
)
(setq num 1)
)
(setq cur (strcat cur tmp_str))
(setq string (substr string 1 (- (strlen string) num)))
)
)
cur
)