映画プラス１

仕事でちょっと必要になったので書いた。(1)、(2)、(3)のようなカッコ数字を行の先頭に挿入する。$spaceをOKにすると、改行だけの行にも番号を打つ。

$space="NG";
gofiletop;
#cnt=linecount2;
#num=1;
while(#cnt>0){
golinetop;
if(linelen2==0 && $space=="NG"){
	golineend2;
	down;
	#cnt=#cnt-1;
	}else{
	$num=str(#num);
	insert "(" + $num + ") ";
	#cnt=#cnt-1;
	#num=#num+1;
	golineend2;
	down;
	}
}
endmacro;