dataset dsx, dsy;  // Create two datasets to hold the X and Y values
dotool 2;          // Start the screen reader tool
// Define the macro that runs for each point selection
def pointproc {
    count++;         // Increment count
    dsx[count] = x;  // Get the X coordinate
    dsy[count] = %c(x);  // Get the Y value of active curve using interpolation
}
 
// Define a macro that runs if user presses Esc key, 
// or clicks the Pointer Tool:
def quittoolbox {
   count=;
   for(int ii=1; ii<=count; ii++)
   {
      type $(ii), $(dsx[ii]), $(dsy[ii]);
   }
}
count = 0;  // Initial point
type "Click to select point, then press Enter";
type "Press Esc or click on Pointer tool to stop";