source: Include/system/enum.sbp@ 25

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
End Class