======== code_mul.def ========
;	by KAMIMURA, A.
*M
85 ^K\ "Code Convert"
	?.
:P	&m("Input Code")
	!01 (r<0)?>Q
	(r)>?{ &01 &02 &03 &04 &05 &06 &07 &08 &09 &10 &11 } ;Re-write here! ex. .....&10 &11 &12 }
	hh=aa,
	&m("Output Code")
	!01 (r<0)?>P
	(r)>?{ &01 &02 &03 &04 &05 &06 &07 &08 &09 &10 &11 } ;Re-write here! ex. .....&10 &11 &12 }
	gg=aa,fa-,
:S	&m("Code Converting!") &s #41 #92
	mi[+,
:L	(cd==$0a)?>E			;End of File
	&f(cd,hh) (r<0)?{#d >L}
	&?("%c",gg.r)>L
:E	mi], #41 #92 &d (fa)?>Q
:U	&m("Undo ?(y/n)")
	&k (r==0)?>U
	(r==$59||r==$79)?{tt=hh,hh=gg,gg=tt,fa+,>S}
:Q	&m("").

1: aa="���������������������������������������������������������������������", . ;moslast
2: aa="����������������������������������������������������������������������", . ;ncc_vga
3: aa="�����Ũ��������Ϊ����ӯ��������������������������������������������", . ;choijil ttf font
4: aa="����������������򏐑���������������������񦧨������������������������", . ;rus_ega
5: aa="����������������������������������������������������������������������", . ;mkey
6: aa="����������������������������������������������������������������������", . ;doubkey
7: aa="����������������~������������������������������������������������", . ;jis hankaku
8: aa="GD>U:_CRPNA{LBYKF$"JVMEOQHWXI+}S<T?Zgd.u;-crpna[lbykf'jvmeoqhwxi=]s,t/z", . ;mongol ttf
9: aa="����������������������������������������������������������������������", . ;mon tim ttf
10: aa="���������������������V����������������������������*�����v������������", . ;YAMAHA
11: aa="�����Ũ�ǽȯ�������������������������������������������������������",. ;mon times2
;12: aa="ABCD.....abcd......",.;Add a new coding string here!

* Pop up menu
1	"",11,11 ; Re-write here! ex. ' "",11,12  '
	"1 moslast"
	"2 ncc_vga"
	"3 ch_win"
	"4 rus_ega"
	"5 mkey"
	"6 doubkey"
	"7 muc_jp"
	"8 mongol"
	"9 mon tim"
	"A YAMAHA"
	"B mon_tm2"
;	"C Coding Name" Add a new coding name here!
*
====== END OF MACRO ===