f offset
	if result &gt; 0 filewrite fp buff
	offset = offset + 1
loop while result = 2

fileclose fp

;reset selection
callmenu 50270

end
</pre>


<pre class="macro-example">
; 漢字コードを選択する。TTX Kanji Menuのインストールが必要。
;callmenu 54010  ; [KanjiCode] Recv: Shift_JIS
;callmenu 54110  ; [KanjiCode] Send: Shift_JIS
;callmenu 54011  ; [KanjiCode] Recv: EUC-JP
;callmenu 54111  ; [KanjiCode] Send: EUC-JP
;callmenu 54012  ; [KanjiCode] Recv: JIS
;callmen