awk '
{
n=length($0)
if (n >= 25 && substr($0,29,1) != " " ) {
   q = (substr($0,27,5) - 0.72 * substr($0,20,5)) + 0
   printf "%s %5.2f\n", substr($0,1,5), q }
} '