#!/usr/bin/awk -f
/^RESI TIP3/{while (getline) if ($1~"^PATCH") break; getline; getline}
/^MASS +[0-9]+ /{sub("^MASS +[0-9]+ ",sprintf("MASS %5i ",$2+200))}
{print}
