	if cmdline="":end
	filename=cmdline
	;instr x,filename,"\\",0
	;if x=-1 :filename=curdir+"\\"+filename
	;mes filename:stop
	sdim buf,32000			; テキストのバッファを確保
	buf=""				; バッファをクリア
	flg=1				; 0=編集不可/1=編集可能
	bload filename,buf		; テキストファイル読み込み
*replace
	sdim work,32000
	sdim work2,32000
	sdim work3,32000
	notesel buf
	notemax x
	repeat x
	id=cnt
	noteget work,id
	strlen cl,work
	instr cb,work,"@16"
	ca=0
	repeat cl
	peek c,work,cnt
	if ((c!=20)&(c!=9)) :ca=cnt:break
	loop
	if cb>ca {
	strmid work2,work,ca,cb+3-ca
	strmid work3,work,cb+3,cl-cb-3
	work="        "
	work=work+"_" + work2 + "=" + work2 + work3
	noteadd work,id,1
	}	
	loop
	sdim work2,32
	sdim work3,32
	sdim work,32
*file_save
	strlen a,buf			; テキストの長さを調べる
	bsave filename,buf,a		; テキストファイルをセーブ

	end