Select Code to Download

 80:  my ($lines, @masses, @names, @charges, @resnames, @respt, $symbo
+l);
 99:  for ($lines=$pointers{respt}[0]; $lines<=$pointers{respt}[1]; $l
+ines ++) {
...
109:    if ($n == ($respt[$r]-1)) {
110:      $r++;
111:    }