function select(wbs,rows,all,cdf,cache,want,    rmax,tmp,con,err,i,val,row,col) {
	con="CO1" round(CO1());
	err="EP1" round(EP1());
	if (Risk) print round(CO1()),round(EP1())>> Risk;
	rmax=rows[0];
	for(r=1;r<=rmax;r++) {
		row=rows[r];
		addits(wbs,row,want);
		if ((wbs["wbs",row,con] ~ /X/) || (wbs["wbs",row,err] ~ /X/))	
			want[row]=row
		culls(wbs,row,con,err,want)
	}
}
function addits(wbs,row,want) {
	if ( (wbs["wbs",row,"factor"] ~ /\*/)  && (value("RA3") > 1) ) 
		want[row] = row;
}
function culls(wbs,row,con,err,want) {
	if ((value("HS2") < 1) && \
        (row in want)      &&  \
		(wbs["wbs",row,con] ~ /\^/) || (wbs["wbs",row,err] ~ /\^/))
		delete want[row];
}