#!/usr/bin/perl

@offsets = ("0262", "02A0", "02B8", "02BC", "0560", "0568", "0570", "0578", "057C", "0580", "07BC", "07C8", "07CC", "07D0", "07D4", "07DC", "07E2", "0810", "088C", "0924", "09BC", "0A54", "0BC8", "0BE8");

@offsets = @ARGV if (scalar(@ARGV) != 0);

open (FOFFSETS, "/mit/fustflum/Public/documents/fs2k2offsets") or
    die "Can't open ~/Public/documents/fs2k2offsets: $!\n";

while ($line = <FOFFSETS>) {
    foreach $offset (@offsets) {
	if ($line =~ /^$offset/) {
	    do {
		print $line;
		$line = <FOFFSETS>;
	    } until (($line =~ /^[0-9]/) and not ($line =~ /^$offset/));
	}
    }
}

close (FOFFSETS);