alias ascii {
  var %string $1-
  while (%string) {
    var %string_out %string_out $+ $!chr( $+ $asc($left(%string,1)) $+ ) $+ $iif($len(%string) != 1,$chr(44))
    var %string $mid(%string,2,$len(%string))
  }
  echo -ag $!+( $+ %string_out $+ )
}