@global = 1;
	dataset dsIndex;
	dotool 3;
	count = 1;  // Initial point
	type "Click to select point, then press Enter";
	type "Press Esc or click on Pointer tool to stop";
	def pointproc
	{
		dsIndex[count] = index;
		count++;
		if(count==5)
		{
			dotool 0;
		}
		else
		{
			type -a Select next point;
		}
		
	}
	
	def quittoolbox
	{
		if(count<5)
		{
			%o = "PICK POINTS";
			type -b %o;
		}
		else
		{
		   for(int ii=1; ii<=count; ii++)
		   {
				type -a $(dsIndex[ii]);
		   }
		}
	}