Shell Programming and Scripting

awk '{ print (NF<6 ? $1" "$2" "$3" "$2-$4" "$4" "$5 : $0)}' file

awk '
        {CNF = (length()-4)/8
         printf "%3s", substr ($0, 1, 3)
         for (i=0; i<=CNF; i++) T[i+2] = substr ($0, 4+i*8, 8)
         T[25] = (T[25]+0)?T[25]:T[24]
         T[24] = T[2] - T[25]
         for (i=2; i<=CNF+2; i++) printf "%8s", T[i]
         printf RS
        }
' file

awk '
        {CNF = (length()-4)/8                                   # as NF doesn't count fields correctly, create a "corrected" NF from line length
         printf "%3s", substr ($0, 1, 3)                        # the first field can be printed independently, and must be as it deviates in format
         for (i=0; i<=CNF; i++) T[i+2] = substr ($0, 4+i*8, 8)  # fill in the T array with respective fields 8 chars long.
         T[25] = (T[25]+0)?T[25]:T[24]                          # do the requested field shifting
         T[24] = T[2] - T[25]                                   # do the requested arithmetics
         for (i=2; i<=CNF+2; i++) printf "%8s", T[i]            # formatted print of the residual fields
         printf RS                                              # print line feed
        }
' file