alias conv_chr {
var %r = $remove($1-,$chr(32)), %n = $len(%r), %ni = 1, %fin
while (%ni <= %n) {
if ($asc($left(%r,%ni)) { %fin = $addtok(%fin,$!chr( $+ $ifmatch $+ ),44) | inc %ni | $iif(%ni > %n,return %fin,continue) }
var %t = 255, %i = 1
while (%i <= %t) {
if ($left(%r,%ni) == $chr(%i)) %fin = $addtok(%fin,$!chr( $+ %i $+ ),44)
inc %i
}
inc %ni | if (%ni > %n) return %fin
}
}