get col(A) -e numpoints; // get the number of the row
aa=1;
for(ii=1; ii<=numpoints; ii++)  
{
jj=ii+1;
if (Col(B)[ii]==0 && Col(B)[jj]==0)
{
wrcopy iw:=[book1]sheet1! r1:=aa r2:=ii ow:=<new>;
aa=jj;
}
page.active = 1;
}

get col(A) -e numpoints; // get number of the row in the dataset
aa=1;

//loop script with decision structures
for(ii=1; ii<=numpoints; ii++)  
{
jj=ii+1;
if (Col(B)[ii]==0 && Col(B)[jj]==0)
{
wrcopy iw:=[book1]sheet1! r1:=aa r2:=ii ow:=<new>;
csetvalue formula:="i" col:=1; //Fill the column 1 with row number
aa=jj;
}
page.active = 1;
}