#posX = x;
#posY = y;
$srBuf = searchbuffer;
#srOpt = searchoption;

escape;

SearchBL:
	movetolineno 1, 1;
	searchdown "\n\n", regular;
	if (result == 1) {
		replaceallfast "\n\n", "\n", regular
		goto SearchBL;
	}
	else {
		goto Quit;
	}

Quit:
	moveto #posX, #posY;
	setsearch $srBuf, #srOpt;
	endmacro;