try this:

Code:
/chr_to_bin {
  var %dec = $asc($1)

  var %p = 128
  while (%p > 0) {
    if (%dec >= %p) var %bin = %bin $+ 1, %dec = %dec - %p
    else var %bin = %bin $+ 0
    var %p = $int($calc(%p / 2))
  }

  return %bin
}


you can either use $replacecs, or loop through each letter..

Code:
var %l = 1
while ($mid($1-, %l, 1)) {
  var %result = %result $chr_to_bin($ifmatch)
  /inc %l
}


abc = 01100001 01100010 01100011

-KingTomato