$0==\"\" { next }\n"
$1==\"T00\" { next }\n"
substr($1,1,5)==\"%s\" && $2==\"\" { next }\n","'"$1"'"
/DOC%s/ { next }\n","'"$1"'"
{ wh=\"\" }\n"
substr($1,1,5)==\"%s\" && index($0,ret) >0 {\n","'"$1"'"
printf \"%%s\",$0\n"
        while (wh==\"\")\n"
        {\n"
                if (getline <= 0) wh=1\n"
                if(substr($1,1,5)==\"%s\") \n","'"$1"'"
                if (index($0,ret)==0)  { printf \"\n%%s\n\",$0;wh=1 }\n"
                else printf \"%%s\",$0\n"
                else  printf \"%%s\",$0\n"
        }\n"
}\n"
wh==\"\" && $2!=\"\" && $1!=\"T00\" ' $T > $T1

