source: Include/system/enum.sbp@ 201

Class EnumBase
Protected
    m_Value As Long
Public
    Sub EnumBase(value As Long)
        m_Value=value
    End Sub
    
    Sub ~EnumBase()
    End Sub

    'Abstract Function ToString() As String

    Sub Copy(ByRef obj As EnumBase)
        m_Value=obj.m_Value
    End Sub
    
    Function Operator() As Long
        Return m_Value
    End Function

    Function Operator == (Value As Long) As Boolean
        If m_Value = Value Then
            Return True
        Else
            Return False
        End If
    End Function

    Function Operator or (ByRef value As EnumBase) As EnumBase
        Return New EnumBase(m_Value Or value.m_Value)
    End Function

    Function Operator and (ByRef value As EnumBase) As EnumBase
        Return New EnumBase(m_Value And value.m_Value)
    End Function

    Function Operator not (ByRef value As EnumBase) As EnumBase
        Return New EnumBase(Not m_Value)
    End Function

    Function Operator xor (ByRef value As EnumBase) As EnumBase
        Return New EnumBase(m_Value Xor value.m_Value)
    End Function
End Class