cat tmp/D1 | ./splash |awk -F= ' BEGIN { ret=sprintf("%c",13) }
$0=="" { next }
$1=="T00" { next }
substr($1,1,5)=="wrkor" && $2=="" { next }
/DOCwrkor/ { next }
{ wh="" }
substr($1,1,5)=="wrkor" && index($0,ret) >0 {
printf "%s",$0
        while (wh=="")
        {
                if (getline <= 0) wh=1
                if(substr($1,1,5)=="wrkor") print ""
                if (index($0,ret)==0)  { printf "\n%s\n",$0;wh=1 }
                else printf "%s",$0
        }
}
wh=="" && $2!="" && $1!="T00" ' $T 
