ion

Public Sub Seed(ByVal fSeed As Long)
   
   ' determine the index to write into
   Dim iNextIndex As Long
   If (m_iIndex = 1) Then
      iNextIndex = 0
   Else
      iNextIndex = 1
   End If

   ' write the bits:
   Dim lCentre As Long
   lCentre = m_lSize \ 2
   Dim i As Long
   Dim j As Long
   Dim pow As Long
   pow = 1
   j = lCentre - 16
   For i = 0 To 31
      If (j &gt;= 0) And (j &lt; m_lSize) Then
         m_cells(iNextIndex, j) = ((fSeed And pow) = pow)
      End If
      j = j + 1
      If