character writer

[Cult]

;if u want to use it! type /chr something goes in here!

alias chr { 
var %chr1 = 1 
var %ct = $len($1-) 
 var %tt = $1- 
 var %output = 4R14esult: 
 while (%chr1 <= %ct) { 
if (%chr1 == %ct) { 
%output = %output $ $+ chr $+ ( $+ $asc($mid(%tt,%chr1,1)) $+ ) 
 break 
} 
 var %output = %output $ $+ chr $+ ( $+ $asc($mid(%tt,%chr1,1)) $+ ) $ $+ + 
 inc %chr1 
} 
 if ($isid == $true) return %output 
 else echo -a %output 
}