Begin Unverified Perl

if(GETVALUE("S6_r4_c1")==1){

ADD("S6RowList",4)

}

if(GETVALUE("S6_r5_c1")==1){

ADD("S6RowList",5)

}

if(GETVALUE("S6_r6_c1")==1){

ADD("S6RowList",6)

}

if(GETVALUE("S6_r7_c1")==1){

ADD("S6RowList",7)

}

if(GETVALUE("S6_r8_c1")==1){

ADD("S6RowList",8)

}

if(GETVALUE("S6_r9_c1")==1){

ADD("S6RowList",9)

}

if(GETVALUE("S6_r10_c1")==1){

ADD("S6RowList",10)

}

if(GETVALUE("S6_r11_c1")==1){

ADD("S6RowList",11)

}

if(GETVALUE("S6_r12_c1")==1){

ADD("S6RowList",12)

}

if(GETVALUE("S6_r14_c1")==1){ADD("S6RowList",14)

}

if(GETVALUE("S6_r15_c1")==1){ADD("S6RowList",15)

}

if(GETVALUE("S6_r16_c1")==1){ADD("S6RowList",16)

}

End Unverified