short B doKSBox

macro doKSBox (
	getnumpts;
	if (> $NUMPTS 1) then (
		box;
		select + enclosed;
		return;
	);
	SetCursor 27;saveMouse;
	setMouse point (.doKSBox;finBox);
	pushinterrupt finBox;
)


macro .doKSBox (locals xmin ymin xmax ymax new) (
	getnumpts;
	set new false;
	if (== 0 $NUMPTS) (scr2sheet !x !y;auto;addpt;set new true);
	GetPixXY;
	vset (xmin ymin xmax ymax) `(track-box $XPIX $YPIX);
	pushpt xmin ymin;scr2sheet;
	pushpt xmax ymax;scr2sheet;
	pushpt xmax ymin;scr2sheet;
	pushpt xmin ymax;scr2sheet;
	pushcurpt;
	farthest -a;
	auto;addpt;box;
	pushcurseg;set x `(sheet2model `(get-length));mvcur 1;
	pushcurseg;set y `(sheet2model `(get-length));mvcur -1;
	select + enclosed)