#!/usr/bin/perl -w
#
# split up BABYL files, keeping main format.

use strict;

my $k = 0;
my $file = sprintf ("%4.4d", $k);
print "$file\n";

open (F, "> $file") || die "$file: $!\n";
while (<>)
{
    last if /^\037\f\n/;
    print F;
}
close (F);

#
# Read until first message, store as file 000.
#

$k++;
$file = sprintf ("%4.4d", $k);
print "$file\n";
open (F, "> $file") || die "$file: $!\n";
print F;

while (<>)
{
    if (/^\037\f\n/)
    {
        $k++;
        close (F);
        $file = sprintf ("%4.4d", $k);
	print "$file\n";
        open (F, "> $file") || die "$file: $!\n";
    }
    print F;
}

close (F);
exit (0);