$a = gettext(x,y,x+2,y);

question "'" + $a + "' の新字体の旧字・古字・俗字等を表示します。よろしいですか？";
if (result == no ) {	endmacro;	}

$a = gettext(x,y,x+2,y);

$newstr = "亜悪圧囲為医彝壱鴬羽栄営衛駅塩円応横桜欧殴奥隠穏飲叡艶";
$oldstr = "亞惡壓圍爲醫彜壹鶯�寵ﾄ營衞驛鹽圓應��櫻歐毆奧隱穩飮睿艷";
//                     俗                                    古

call replaceSUB  $newstr, $oldstr;

$newstr = "価仮廈嘩回回会絵壊懐届拡画画殻学学覚寛岳刊巻陥観勧歓函間関嫺嫻巌顔";
$oldstr = "價假厦譁廻囘會繪壞懷屆擴畫劃殼學斈覺�ｪ嶽刋卷陷觀勸歡凾�韋菅f嫺巖顏";
//             俗本代古              代    俗                  俗    別別

call replaceSUB  $newstr, $oldstr;

$newstr = "器奇帰帰気飢亀偽犠戯却旧厩廐挙挙京教凶郷峡峡尭暁強区駆薫勲";
$oldstr = "噐竒歸皈氣饑龜僞犧戲卻舊廏廏擧舉亰�ﾍ兇�ｸ峽陜堯曉彊區驅�棘ｬ";
//         俗俗  俗  代        本  俗俗  俗俗  代    本

call replaceSUB  $newstr, $oldstr;

$newstr = "恵渓径茎経軽継蛍芸傑欠圏券倹剣剣剣剣剣険験献権賢顕県厳";
$oldstr = "惠溪徑莖經輕繼螢藝杰缺圈劵儉劍劒劔剱釼險驗獻灌�ｯ顯縣嚴";
//                           俗        旧本俗俗俗

call replaceSUB  $newstr, $oldstr;

$newstr = "亘恒寇広絋効高号劫剋国黒";
$oldstr = "亙恆冦廣�\效��號刧尅國�K";
//         代              俗俗

call replaceSUB  $newstr, $oldstr;

$newstr = "砕済剤冊雑参賛蚕残糸歯厠事尓飼児辞湿虱実渋渋";
$oldstr = "碎濟劑册雜參贊蠶殘絲齒廁亊爾��兒辭濕蝨實澁澀";
//                               俗

call replaceSUB  $newstr, $oldstr;

$newstr = "写写舎釈寿呪収秋秋従従縦獣粛";
$oldstr = "寫冩舍釋壽咒收穐龝從从縱獸肅";
//           俗      俗        本

call replaceSUB  $newstr, $oldstr;

$newstr = "処叙叙称焼将奨奨縄嘗壌嬢穣醸乗剰場触神晋寝刃仞尽侭";
$oldstr = "處敍敘稱燒將奬獎繩甞壤孃穰釀乘剩塲觸�~晉寢刄仭盡儘";
//                       本  別            俗          俗

call replaceSUB  $newstr, $oldstr;

$newstr = "図垂酔粋随髄枢数斉青清精静声婿婿聟聟窃摂専浅践潜潜戦繊繊剪善禅";
$oldstr = "圖埀醉粹隨髓樞數齊���C�芽ﾎ聲聟壻婿壻竊攝專淺踐潛濳戰纎纖翦譱禪";
//           俗                        別別別別                    俗古

call replaceSUB  $newstr, $oldstr;

$newstr = "俎双争壮荘装挿増総聡蔵臓続属卒倅";
$oldstr = "爼雙爭壯莊裝插�昴`聰藏臟續屬卆伜";
//         俗                          俗俗

call replaceSUB  $newstr, $oldstr;

$newstr = "多堕体体体帯滞台迺沢択畳畳単胆断弾厨昼疇虫聴猪庁庁腸勅";
$oldstr = "夛墮體軆躰帶滯臺廼澤擇疊疂單膽斷彈廚晝畴蟲聽豬廳廰膓敕";
//         俗    古俗                        本            俗俗

call replaceSUB  $newstr, $oldstr;

$newstr = "対塚点転伝当党盗灯稲闘同徳読独壜罎";
$oldstr = "對�懋y轉傳當黨盜燈稻鬪仝�ｺ讀獨罎壜";
//                               古      別別

call replaceSUB  $newstr, $oldstr;

$newstr = "二祢妊悩脳";
$oldstr = "弍禰姙惱腦";
//         古  別

call replaceSUB  $newstr, $oldstr;

$newstr = "坡廃拝売博麦発抜髪飯蛮浜浜麸仏払";
$oldstr = "陂廢拜賣愽麥發拔髮��蠻濱�M麩佛拂";
//                 俗

call replaceSUB  $newstr, $oldstr;

$newstr = "並変辺辺弁弁弁弁穂舗舗褒宝宝豊萌卯貌没翻";
$oldstr = "竝變邊邉辧辨辯瓣穗舖鋪襃寶寳豐萠夘貎沒飜";
//                 略略略略    本          俗

call replaceSUB  $newstr, $oldstr;
$newstr = "万満弥脈夢綿黙野薬予与余誉様揺謡瑶遥蠅";
$oldstr = "萬滿彌脉梦緜默埜藥豫與餘譽樣搖謠瑤遙蝿";
//                 俗    古                    俗

call replaceSUB  $newstr, $oldstr;

$newstr = "来来頼楽埒乱覧隆両輌緑吝凛塁礼励齢霊恋匳労朗朗禄湾、";
$oldstr = "來徠�ｮ樂埓亂覽�髯_輛�骨･凜壘禮勵齡靈戀奩勞�燼L祿灣，";
//           古    俗            俗

call replaceSUB  $newstr, $oldstr;


insert "≪" + $listoldc + "≫";
endmacro;


replaceSUB:
    #a = 0;
    #last =strlen($$1);
    while(#a < #last ){
	$newc = midstr($$1, #a, 2);
	if ($newc == $a ) $listoldc = $listoldc + midstr($$2, #a, 2);
	#a =#a +2;
    }
    return;