Code:
on *:sockread:oref:{
  if ($sockerr) { return }
  if !$sock($sockname).mark {
    var %a | sockread %a 
    if %a == $null { sockmark $sockname 1 }
  }  
  elseif $sock($sockname).mark == 1 {
    sockread &a 
    var %i 1 | while $bvar(&a,%i) != $null {
      var %h %h $base($bvar(&a,$calc(%i + 1)),10,16,2) $+ $base($v1,10,16,2) 
      inc %i 2
    }  
    var %i 1 | while $gettok(%h,%i,32) {
      var %t %t $+ $replace($chr($base($v1,16,10)),$chr(32),space)
      inc %i
    }
    echo -ag $replace(%t,space,$chr(32))
  }
}