if(find(cname$,"@")<=0) lname$="1"; else lname$=token(cname$,2,'@')$;  //Active sheet#

getpts 3;

////////// Interactive Data Indexer from Dendrogram ///////////////////////
color_default=1;   //BLACK
color_highlight=2; //RED
maxpts=150;        //max# of points
if(exist(%H)!=3) {
  type -b Error: The active window is not a graph(dendrogram).;
  Return;
}
getN (Datasheet# in workbook) idatasheet;
type -b Double-click (or select and press ENTER) the 'foot' on X axis of each desired data point. When you finish selecting points (max:$(maxpts)), press "Refresh" tool button.;
cname$=%C;                   //Dataset of the active plot
if(find(cname$,"@")<=0) lname$="1"; else lname$=token(cname$,2,'@')$;  //Active sheet#
bname$=token(cname$,1,'_')$; //Active book
getpts maxpts;               //Collect data points interactively
Queue {
  dotool 0;                  //Return to arrow tool
  type -b You have selected $(getpts.count) points. Indexing process now starts!;
  range rp=[%(bname$)]%(lname$)!1, rx=[%(bname$)]%(lname$)!2, ry=[%(bname$)]%(lname$)!3;
  nc=getpts.count;    //Number of points
  window -a %(bname$);
  page.active=idatasheet;
  worksheet -a 1;     //Add one column
  ic=wks.ncols;       //Column# of index column
  range ri=wcol(ic);  //Range of index column
  range r1=col(1);
  nr=r1.getSize();    //Number of source data rows
  for(ii=1; ii<=nr; ii++) {      //Loop over source data
    for(jj=1; jj<=nc; jj++) {    //Loop over collected points
      if(rp[$(_xpos[jj])]==ii) {
        if(ry[$(_indx[jj])]!=0) 
          type -a Warning: You selected a point not on the X axis. (X,Y):($(rx[_indx[jj]],.3), $(ry[_indx[jj]],.3));
        else ri[ii]=color_highlight;  //Set the highlight color
        Break;
      }
      else ri[ii]=color_default;      //Set the default color
    }
  }
}
///////////////////////////////////////////////////////////////////

//////// Convert Masking to Indexing ////////////
color_default=4;   //BLUE
color_highlight=5; //CYAN
gn$=%H;             //Graph window name
range rd=%c;        //Range of active dataset
bn$=Token(%C, 1, '_')$; //Original workbook name
window -a %(bn$);   //Activate the source workbook
worksheet -a 1;     //Add one column
ic=wks.ncols;       //Column# of index column
range ri=wcol(ic);  //Range of index column
window -a %(gn$);   //Reactivate the graph
nr=rd.getSize();    //Number of rows
for(ii=1; ii<=nr; ii++) {
  if(rd<ii>==1) {  //If point is masked: 
    ri[ii]=color_highlight;  //Set the highlight color
    rd<ii>=0;                //Unmask the point
  }
  else ri[ii]=color_default; //Set the default color
}
set rd -csen ri;  //Make the plot symbol color indexed
//Note: If the plots are grouped, you have to ungroup or set them independent. 
///////////////////////////////////////////////////////