elsif($segment = 6) {                    # Draw the 6 sided segment(6)

##</code><code>##

sub GetValue{
    my $return = $wxGlobals{mValue};
}

##</code><code>##

sub GetValue{
    return $wxGlobals{mValue};
}

##</code><code>##

sub Decode {                            # Table lookup for character to
    my($char) = @_;                     # Segment translation
    my $return;
    if(defined($ctbl{$char})) {
        $return = $ctbl{$char};
    }
    else {
         $return = $ctbl{'='};          # Triple bar for undefined character
    }   
}

##</code><code>##

sub Decode                              # Table lookup for character to segment translation
{
    my ($char) = @_;

    if (defined $ctbl{$char})
    {
        return  $ctbl{$char};
    }

    return $ctbl{'='};                  # Triple bar for undefined character
}