mask[0] = 0b11110000;
    mask[1] = 0b01111000;
    mask[2] = 0b00111100;
    mask[3] = 0b00011110;
    mask[4] = 0b00001111;

##</code><code>##

    seabits[0] = 0b10100000;
    seabits[1] = 0b01010000;
    seabits[2] = 0b00101000;
    seabits[3] = 0b00010100;
    seabits[4] = 0b00001010;

##</code><code>##

    for (chunkcol = 0; chunkcol < (BitBufferLength / CHUNKSIZE); chunkcol++)
    {
         foreach $masknum (@mask)
         {
              if ( ( BitBuffer[chunkcol] & mask[$masknum] ) == $seabits[$masknum])
              {
                   return ( ( chunkcol * CHUNKSIZE) + $masknum );     # FIXME:  Check for fenceposting error(s)
              }
         }
    }
    
    return ($RET_NOTFOUND);