if (rectselecting == 1) {
	$msgBody = "矩形範囲選択では使用できません。";
	message $msgBody;
	goto Quit;
}

if (selecting == 0) {
	$msgBody = "全ての行頭に連番を追加しますか？";
	question $msgBody;
	if (result == 0) {
		goto Quit;
	}
	else {
		selectall;
	}
}

$srBuf = searchbuffer;
#srOpt = searchoption;

#ssX = seltopx;
#ssY = seltopy;
#seX = selendx;
#seY = selendy;

moveto #ssX, #ssY;
#slNo = lineno;
moveto #seX, #seY;
#elNo = lineno;
#clNo = #slNo;

$msgBody = "連番開始番号を指定してください。";
$ssNum = input($msgBody, "");
if ($ssNum == "") {
	goto Quit;
}
#sNum = val($ssNum);

escape;

while (#clNo < #elNo) {
	movetolineno 1, #clNo;
	insert str(#sNum);
	#sNum = #sNum + 1;
	#clNo = #clNo + 1;
}

movetolineno 1, #slNo;
setsearch $srBuf, #srOpt;
goto Quit;

Quit:
	endmacro;