Anonymous

alias readCC2 {
  var %cc_string = $strip($$1-)
  var %i = 1
  while ( $pos([ %cc_string ],$chr(9),%i) != $null ) {
    if ( %i > 1 ) {
      echo $remove($left([ %cc_string ],$pos([ %cc_string ],$chr(9),%i)),[ %cc_temp ])
      set %cc_temp $left([ %cc_string ],$pos([ %cc_string ],$chr(9),%i))
    }
    else {
      echo $left([ %cc_string ],$pos([ %cc_string ],$chr(9),%i))
      set %cc_temp $left([ %cc_string ],$pos([ %cc_string ],$chr(9),%i))
    }
    inc %i
  }
}