count=1;
dotool 2;			// set cursor to screen reader

def quittoolbox          // this is the main loop where all code subsequtent
{                        // to accepting points needs to be placed
   if( 2 != count )	    //first check if user has successfully selected two points
   return;

   type Point1: ($(xpos1),$(ypos1));	// report x,y and differences
   type Point2: ($(xpos2),$(ypos2));
   type Distance in x: $(xpos2-xpos1);
   type Distance in y: $(ypos2-ypos1);
   type  ;
}

def pointproc 		// this routine gets the points		
{					// and store them
   xpos$(count)=x;
   ypos$(count)=y;
   if( count >= 2 )
      dotool 0;		// set cursor back to pointer
      count+=1;
}