Visual Basic

Dim exemptPrintItems = New List(Of String) From {
    "delivery",
    "dhl",
    "freight",
    "shipping",
    "ups"
}

'Filter out the excluded print items
invoiceItems = invoiceItems.FindAll(Function(x) Not excludePrintItems.Contains(x.FITEMNO)).ToList()

static int BcdToInt(byte bcd)
{
    int retVal = (bcd & 0xF) + ((bcd >> 4) * 10);
    return retVal;
}

Private Shared Function bcdToInt(bcd As Byte)
    Dim retVal As Integer = (bcd And &HF) + ((bcd >> 4) * 10)
    Return retVal
End Function

static byte IntToBcd(int v)
{
    var retVal =(byte)( (v % 10) | (v / 10) << 0x4);
    return retVal;
}

Private Shared Function intToBcd(v As Integer)
     Dim retVal As Byte = (v Mod 10) Or ((v / 10) << 4)
     Return retVal
End Function