6ドル !~ /^ack/ && 5ドル !~ /[SFR]/ {
 # given a tcpdump ftp trace, output one line for each send
 # in the form
 # <send time> <seq no>
 # where <send time> is the time packet was sent (in seconds with
 # zero at time of first packet) and <seq no> is the tcp sequence
 # number of the packet divided by 1024 (i.e., Kbytes sent).
 #
 # convert time to seconds
 n = split (1,ドルt,":")
 tim = t[1]*3600 + t[2]*60 + t[3]
 if (! tzero) {
 tzero = tim
 OFS = "\t"
 }
 # get packet sequence number
 i = index(6,ドル":")
 printf "%7.2f\t%g\n", tim-tzero, substr(6,1,ドルi-1)/1024
 }
BEGIN{
 buffer = "";
}
/015円*$/ {
 gsub(/015円*$/, "");
}
/^%%S NL/ {
 print "";
 next;
}
/^%%S/ {
 gsub (/^%%S/, "%%" );
 print;
 next;
}
/^\\Syntax/ {
 printing = 1;
 indentation = 0;
 next;
}
// {
 if (buffer != "") {
 gsub(/^ */, "");
 0ドル = buffer 0ドル;
 }
 buffer = "";
}
/\|\|/ {
 gsub(/\|\|/, "-");
}
/^ */{
 gsub(/^ */, indspaces);
}
/\\Something/ {
 0ドル = gensub(/\\Something *{([^}]*)}/, "<\1円>", "g");
}
/\\Literal/ {
 0ドル = gensub(/\\Literal *{([^}]*)}/, "\1円", "g");
}
/\\Tex/ {
 0ドル = gensub(/\\Tex *{([^}]*)}/, "\1円", "g");
}
/\\Optional/ {
 0ドル = gensub(/\\Optional *{([^}]*)}/, "[\1円]", "g");
}
/\\Means/ {
 gsub(/\\Means/, "-->");
 indentation = match(0,ドル /-->/);
 indspaces = " ";
 for(i=0; i < indentation; i++)
 indspaces = indspaces " ";
}
/\\Lbrace/ {
 gsub(/\\Lbrace/, "{");
}
/\\Rbrace/ {
 gsub(/\\Rbrace/, "}");
}
/\\Or/ {
 gsub(/\\Or/, "|");
}
/\\Next/ {
 gsub(/\\Next /, "");
}
/\\Whatever/ {
 whatind = 57;
 whatpos = match(0,ドル /\\Whatever/);
 b = substr(0,ドル 0, whatpos - 1)
 c = substr(0,ドル whatpos)
 c = gensub(/\\Whatever *{([^}]*)}/, "(\1円)", "g", c);
 0ドル = b;
 for(i = whatpos; i < whatind; i++)
 0ドル = 0ドル " ";
 0ドル = 0ドル c;
}
/^}/ {printing = 0;}
/% *$/ {
 gsub(/% *$/, "");
 buffer = 0ドル;
 next;
}
/^ *$/ {
 0ドル = "================= ERROR";
}
/ *$/ {
 gsub(/ *$/, "");
}
{ if (printing) print; }