my $buffer = Data::File::Open('all.bin'); 
my %Header = Data::Struct::Define::Header::Get($buffer);
my $objREF_wp = Data::Struct::Wp::wpData(substr($buffer, $Header{ws}{start},  $Header{ws}{offset})); 

$value = Data::Struct::Wp::n_1_1($objREF_wp);

##</code><code>##

sub wpData{
	my $buffer = shift;
	my $binString = unpack('b*', substr($buffer, 0));

	my @data;
	my %objREF;

	my $count = 0;

	open(F, "Waypoints.txt") or die $!;
	my @funct = <F>;
	close(F);

	foreach my $line (@funct) {
 
    		$line=~s/\r|\n//g;
    		my @element = split(/,/, $line);

    		my $value = substr($binString, $element[1], $element[2]);

		#### NO BYTES SWAPPING FOR THIS STRUCT

    		$data[$count] = $value;
    		$objREF{$element[0]} = \$data[$count];
    		$objREF{array} = \@data;
    		$count++;
    	
	}
	
	$objREF{static} = "yes";
	$objREF{instream} = "$binString";
	$objREF{size} = "81";
	$objREF{end} = substr($binString, (((81 * 8) - (length(join('', @data)))) - 1));

	return \%objREF;
}

sub n_1_1{
##### IN: [obj-ref,new value or nothing to return value]
	my $objREF = shift;
	
	if (@_){
		my $value = shift;
		my $bitstream = ${$objREF->{n_way}};
		
		substr($bitstream,0,1) = $value;	
		${$objREF->{n_way}} = $bitstream;
	}
	else{
		my $bitstream = ${$objREF->{n_way}};
		my $value = substr($bitstream, 0, 1);
		return $value;
	}
}