dstext {
  var %text = $$3-
  var %bc = $$1
  var %fc = $$2
  var %i = 1
  var %newtext = 
  var %alt = 0

  while (%i <= $len(%text)) {
    if (%alt == 0) {
      var %newtext = %newtext $+  $+ $1 $+ , $+ $2
      %alt = 1
    }
    else {
      var %newtext = %newtext $+  $+ $2 $+ , $+ $1
      %alt = 0
    }

    var %newtext = %newtext $+ $replace($mid(%text, %i, 1), $chr(32), $chr(160))
    inc %i
  }

  msg $active %newtext $+ 
}