BEGIN { add_patterns=".@" LIMIT="`" } /^\.tC/ { next } $3 ~ /^[^@ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]/ { printf(" ") } { ind=" " } /^\.dX/ { ind="d" } /^\.iX/ { ind="i" } /^\.eX/ { ind="x" } ind!=" " { for (j=3;;) { if ($j=="") break else printf($j" ") j++ } printf(LIMIT "%010s%s\n",$2,ind) for(i=length(add_patterns);i>0;i=i-1) if (length($3)>1 && substr($3,1,1)==substr(add_patterns,i,1)) { printf(substr($3,2,length($3)-1)" ") for (j=4;;) { if ($j=="") break else printf($j" ") j++ } printf(LIMIT "%010s%s\n",$2,ind) } } #{{{}}}