alias asciiform {
  set %stuffsies $$1-
  while ($len(%stuffsies) > 0) {
    set %character $left(%stuffsies,1)
    set %finalresult %finalresult $+ $chr( $+ $asc(%character) $+ ),
    set %stuffsies $right(%stuffsies,-1)
  }
  set %finalresult $remove(%finalresult,)
  set %finalresult $left(%finalresult,-1)
  echo -a %finalresult
  unset %finalresult
}
----
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))
  }
  msg $active $!+( $+ %string_out $+ )
}