Sub BitTesting
Dim SequenceField As BigInteger
Dim i As Int
Dim BitIs As Boolean
SequenceField.Initialize(0)
For i = 0 To 12
BitIs=SequenceField.TestBit(i)
Msgbox("SequenceField for bit " & i & " is " & BitIs & " " & SequenceField.ToStringBase(2) & " " & SequenceField,"SequenceField State")
SequenceField.SetBit(i)
BitIs=SequenceField.TestBit(i)
If BitIs=True Then
Msgbox("SequenceField after bit " & i & " Set -> " & SequenceField.ToStringBase(2) & " " & SequenceField ,"SequenceField Set")
End If
SequenceField.ClearBit(i)
BitIs=SequenceField.TestBit(i)
If BitIs=False Then
Msgbox("SequenceField after bit " & i & " cleared -> " & SequenceField.ToStringBase(2) & " " & SequenceField ,"SequenceField Clear")
Else
Msgbox("SequenceField after bit " & i & " was not cleared -> " & SequenceField.ToStringBase(2) & " " & SequenceField ,"SequenceField Not Cleared")
End If
Next
End Sub