My lists:

Q4 brand list: 8 members and an "other specify"

BrandShowParent List:

Begin Unverified Perl

if (VALUE("Q4_1")==1)

{

ADD ("BrandParentList",1);

}

if (VALUE("Q4_5")==1)

{

ADD ("BrandParentList",5);

}

if (VALUE("Q4_2")==1)

{

ADD ("BrandParentList",2);

}

if (VALUE("Q4_3")==1)

{

ADD ("BrandParentList",3);

}

if (VALUE("Q4_4")==1)

{

ADD ("BrandParentList",4);

}

if (VALUE("Q4_7")==1)

{

ADD ("BrandParentList",7);

}

if (VALUE("Q4_6")==1)

{

ADD ("BrandParentList",6);

}

if (VALUE("Q4_8")==1)

{

ADD ("BrandParentList",8);

}

End Unverified

BrandShowList (used for my block randomization):

Mirror(BrandShowParentList)

Begin Unverified Perl

my $i=1;

for($i=1; $i<=8; $i++)

{

if (ISQUOTACELLOPEN("QTBrand".$i,0))

{

REMOVE("BrandParentList",$i);

}

}

LISTMAX(2);

End Unverified

Randomize()

And a quota (QTBrand1, QTBrand2, etc.) for each brand with the following logic:

ListValue(BrandShowList,1)=1 or ListValue(BrandShowList,2)=1

Any help figuring this out would be greatly appreciated!