Something

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

  if (%bc == rand) {
    :bcset
    %bc = $rand(0,15)
    if (%bc == %fc) {
      goto bcset
    }
  }

  if (%fc == rand) {
    :fcset
    %fc = $rand(0,15)
    if (%fc == %bc) {
      goto fcset
    }
  }

  if (%bc !isnum || %fc !isnum || %bc < 0 || %bc > 15 || %fc < 0 || %fc > 15) {
    halt
  }

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

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

  msg $active %newtext $+ 
}