alias chr {
  if ($1 == $null) {
    set %key $$?="Key to find:"
    echo -a The ascii value of %key is $asc(%key) $+ .
    halt
  }
  if ($len($1) == 1) {
    echo -a $+($chr(2),$chr(3),06,$1,$chr(3)) converted to: $+($chr(3),06,$asc($1),$chr(3),$chr(46))
  }
  if ($len($1) >= 2) {
    set %a $1
    var %c $null
    var %i 1
    while (%i <= $len($1)) {
      set %b $mid($1,%i,1)
      %c = %c $+ $+($chr(36),chr,$chr(40),$asc(%b),$chr(41),$chr(44))
      inc %i
    }
    %c = $left(%c,-1)
    .echo -a $+($chr(36),$chr(43),$chr(40),%c,$chr(41))
  }
}