question "漢字の旧字体・俗字体を新字体に一括変換します。よろしいですか？";
if (result == no ) {	endmacro;	}

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;


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

call replaceSUB $oldstr, $newstr;

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

call replaceSUB $oldstr, $newstr;

endmacro;


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