#!/usr/local/bin/perl
open( LOG, "mnvrlog2.94");
while ( $line = <LOG> )
	{	#	scan past header
	( $w1, $w2) = split( " ", $line);
	if ( $w1 eq 'YEAR' ) {last };
	}
while ( $line = <LOG> )
	{	# read body of log
	chop $Line;
	if ( ! $line ) {next};
	( $w1, $w2, $w3, $w4, $w5, $w6, $w7, $w8, $w9, @rest) = split( " ", $line );
	if ( $w1 =~ /^_____/) {next};
	if ( $w1 > 1900 ) 
		{	# we have a year
		$yr = $w1;	
		( $w0, $w1, $w2, $w3, $w4, $w5, $w6, $w7, $w8, $w9, @rest) = split( " ", $line );
		};
	$day = $w1;
	$day =~s/\D//g;
	if ( ! $day ) {next};
	print "###$line \n";
	$maneuver = $w2;
	$sequence = $w3;
	$time = $w4;
	( $hr1, $min1) 	= split( ':', $time);
	$to   = $w5;
	print " to  $to $time  $hr1 $min1 \n";
	$nohr1 = $hr1;
	$nomin1 = $min1;
	$nohr1 =~s/\d//g;
	$nomin1 =~s/\d//g;
	if (  $nohr1 ) {next};
	if ( $nomin1 ) {next};
	print "hr1 $hr1 min1 $min1 \n";
	if ( $to eq "to" ) 
		{ 	# next line will have endint time
		$line = <LOG>;
		$tl	= split( " ", $line);
		($hr2, $min2 ) = split( ':', $tl);
		print " tl $tl hr2 $hr2 min2 $min2 \n";
		}
	else
		{	# no ending time
		$tl	= "";
		$hr2	= $hr1;
		$min2	= $min1;
		print "NO TL\n";
		}
	print " $to hr1  $hr1 min1 $min1 - hr2 $hr2 min2 $min2 \n";
	print "X	$maneuver $yr $day $hr1 $min1";
	if ( $to eq 'to' )
		{
		print " $hr2 $min2\n";
		}
	else
		{
		print "\n";
		}
	}