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
}