Option Strict Off
Option Explicit On
'------------------------------------ 2023/12/12 ------------------------------------
Module 三basKanaKanEtcText
    'CobKanaKanEtcText
    Function TextKanji2Byte(ByRef HedKey As String) As String
        Dim s As String = ""
        Select Case HedKey
            Case "all"
                gggbol = KanDataset("ア0", s) : gggbol = KanDataset("イ0", s) : gggbol = KanDataset("ウ0", s) : gggbol = KanDataset("エ0", s) : gggbol = KanDataset("オ0", s)
                gggbol = KanDataset("カ0", s) : gggbol = KanDataset("カ1", s) : gggbol = KanDataset("カ2", s) : gggbol = KanDataset("キ0", s) : gggbol = KanDataset("キ1", s) : gggbol = KanDataset("ク0", s) : gggbol = KanDataset("ケ0", s) : gggbol = KanDataset("ケ1", s) : gggbol = KanDataset("コ0", s) : gggbol = KanDataset("コ1", s)
                gggbol = KanDataset("サ0", s) : gggbol = KanDataset("サ1", s) : gggbol = KanDataset("シ0", s) : gggbol = KanDataset("シ1", s) : gggbol = KanDataset("シ2", s) : gggbol = KanDataset("シ3", s) : gggbol = KanDataset("シ4", s) : gggbol = KanDataset("ス0", s) : gggbol = KanDataset("セ0", s) : gggbol = KanDataset("セ1", s) : gggbol = KanDataset("ソ0", s)
                gggbol = KanDataset("タ0", s) : gggbol = KanDataset("タ1", s) : gggbol = KanDataset("チ0", s) : gggbol = KanDataset("ツ0", s) : gggbol = KanDataset("テ0", s) : gggbol = KanDataset("ト0", s) : gggbol = KanDataset("ト1", s)
                gggbol = KanDataset("ナ0", s) : gggbol = KanDataset("ニ0", s) : gggbol = KanDataset("ヌ0", s) : gggbol = KanDataset("ネ0", s) : gggbol = KanDataset("ノ0", s)
                gggbol = KanDataset("ハ0", s) : gggbol = KanDataset("ハ1", s) : gggbol = KanDataset("ヒ0", s) : gggbol = KanDataset("フ0", s) : gggbol = KanDataset("ヘ0", s) : gggbol = KanDataset("ホ0", s)
                gggbol = KanDataset("マ0", s) : gggbol = KanDataset("ミ0", s) : gggbol = KanDataset("ム0", s) : gggbol = KanDataset("メ0", s) : gggbol = KanDataset("モ0", s)
                gggbol = KanDataset("ヤ0", s) : gggbol = KanDataset("ユ0", s) : gggbol = KanDataset("ヨ0", s)
                gggbol = KanDataset("ラ0", s) : gggbol = KanDataset("リ0", s) : gggbol = KanDataset("ル0", s) : gggbol = KanDataset("レ0", s) : gggbol = KanDataset("ロ0", s)
                gggbol = KanDataset("ワ0", s)
            Case Else
                gggbol = KanDataset(HedKey, s)
        End Select
        Return s
    End Function
    Function KanDataset(ByVal Key As String, ByRef s As String) As Boolean
        Select Case Key
            Case "ア0" : s = s & "亜唖娃阿哀愛挨姶逢葵茜穐悪握渥旭葦芦鯵梓圧斡扱宛姐虻飴絢綾鮎或粟袷安庵按暗案闇鞍杏"
            Case "イ0" : s = s & "以伊位依偉囲夷委威尉惟意慰易椅為畏異移維緯胃萎衣謂違遺医井亥域育郁磯一壱溢逸稲茨芋鰯允印咽員因姻引飲淫胤蔭院陰隠韻吋"
            Case "ウ0" : s = s & "右宇烏羽迂雨卯鵜窺丑碓臼渦嘘唄欝蔚鰻姥厩浦瓜閏噂云運雲"
            Case "エ0" : s = s & "荏餌叡営嬰影映曳栄永泳洩瑛盈穎頴英衛詠鋭液疫益駅悦謁越閲榎厭円園堰奄宴延怨掩援沿演炎焔煙燕猿縁艶苑薗遠鉛鴛塩"
            Case "オ0" : s = s & "於汚甥凹央奥往応押旺横欧殴王翁襖鴬鴎黄岡沖荻億屋憶臆桶牡乙俺卸恩温穏音"
            Case "カ0" : s = s & "下化仮何伽価佳加可嘉夏嫁家寡科暇果架歌河火珂禍禾稼箇花苛茄荷華菓蝦課嘩貨迦過霞蚊俄峨我牙画臥芽蛾賀雅餓駕介会解回塊壊廻快怪悔恢懐戒拐改魁晦械海灰界皆絵芥蟹開階貝凱劾"
            Case "カ1" : s = s & "外咳害崖慨概涯碍蓋街該鎧骸浬馨蛙垣柿蛎鈎劃嚇各廓拡撹格核殻獲確穫覚角赫較郭閣隔革学岳楽額顎掛笠樫橿梶鰍潟割喝恰括活渇滑葛褐轄且鰹叶椛樺鞄株兜竃蒲釜鎌噛鴨栢茅萱粥刈苅瓦乾侃冠寒刊勘勧巻喚堪姦"
            Case "カ2" : s = s & "完官寛干幹患感慣憾換敢柑桓棺款歓汗漢澗潅環甘監看竿管簡緩缶翰肝艦莞観諌貫還鑑間閑関陥韓館舘丸含岸巌玩癌眼岩翫贋雁頑顔願"
            Case "キ0" : s = s & "企伎危喜器基奇嬉寄岐希幾忌揮机旗既期棋棄機帰毅気汽畿祈季稀紀徽規記貴起軌輝飢騎鬼亀偽儀妓宜戯技擬欺犠疑祇義蟻誼議掬菊鞠吉吃喫桔橘詰砧杵黍却客脚虐逆丘久仇休及吸宮弓急救朽求汲泣灸球究窮笈級糾給旧牛去居"
            Case "キ1" : s = s & "巨拒拠挙渠虚許距鋸漁禦魚亨享京供侠僑兇競共凶協匡卿叫喬境峡強彊怯恐恭挟教橋況狂狭矯胸脅興蕎郷鏡響饗驚仰凝尭暁業局曲極玉桐粁僅勤均巾錦斤欣欽琴禁禽筋緊芹菌衿襟謹近金吟銀"
            Case "ク0" : s = s & "九倶句区狗玖矩苦躯駆駈駒具愚虞喰空偶寓遇隅串櫛釧屑屈掘窟沓靴轡窪熊隈粂栗繰桑鍬勲君薫訓群軍郡"
            Case "ケ0" : s = s & "卦袈祁係傾刑兄啓圭珪型契形径恵慶慧憩掲携敬景桂渓畦稽系経継繋罫茎荊蛍計詣警軽頚鶏芸迎鯨劇戟撃激隙桁傑欠決潔穴結血訣月件"
            Case "ケ1" : s = s & "倹倦健兼券剣喧圏堅嫌建憲懸拳捲検権牽犬献研硯絹県肩見謙賢軒遣鍵険顕験鹸元原厳幻弦減源玄現絃舷言諺限"
            Case "コ0" : s = s & "乎個古呼固姑孤己庫弧戸故枯湖狐糊袴股胡菰虎誇跨鈷雇顧鼓五互伍午呉吾娯後御悟梧檎瑚碁語誤護醐乞鯉交佼侯候倖光公功効勾厚口向后喉坑垢好孔孝宏工巧巷幸広庚康弘恒慌抗拘控攻昂晃更杭校梗構江洪"
            Case "コ1" : s = s & "浩港溝甲皇硬稿糠紅紘絞綱耕考肯肱腔膏航荒行衡講貢購郊酵鉱砿鋼閤降項香高鴻剛劫号合壕拷濠豪轟麹克刻告国穀酷鵠黒獄漉腰甑忽惚骨狛込此頃今困坤墾婚恨懇昏昆根梱混痕紺艮魂"
            Case "サ0" : s = s & "些佐叉唆嵯左差査沙瑳砂詐鎖裟坐座挫債催再最哉塞妻宰彩才採栽歳済災采犀砕砦祭斎細菜裁載際剤在材罪財冴坂阪堺榊肴咲崎埼碕鷺作削"
            Case "サ1" : s = s & "咋搾昨朔柵窄策索錯桜鮭笹匙冊刷察拶撮擦札殺薩雑皐鯖捌錆鮫皿晒三傘参山惨撒散桟燦珊産算纂蚕讃賛酸餐斬暫残"
            Case "シ0" : s = s & "仕仔伺使刺司史嗣四士始姉姿子屍市師志思指支孜斯施旨枝止死氏獅祉私糸紙紫肢脂至視詞詩試誌諮資賜雌飼歯事似侍児字寺慈持時次滋治爾璽痔磁示而耳自蒔辞汐鹿式識鴫竺軸宍雫"
            Case "シ1" : s = s & "七叱執失嫉室悉湿漆疾質実蔀篠偲柴芝屡蕊縞舎写射捨赦斜煮社紗者謝車遮蛇邪借勺尺杓灼爵酌釈錫若寂弱惹主取守手朱殊狩珠種腫趣酒首儒受呪寿授樹綬需囚収周宗就州修愁拾洲秀"
            Case "シ2" : s = s & "秋終繍習臭舟蒐衆襲讐蹴輯週酋酬集醜什住充十従戎柔汁渋獣縦重銃叔夙辛淑祝縮粛塾熟出術述俊峻春瞬竣舜駿准循旬楯殉淳準潤盾純巡遵醇順処初所暑曙渚庶緒署書薯藷諸助叙女序"
            Case "シ3" : s = s & "徐恕鋤除傷償勝匠升召哨商唱嘗奨妾娼宵将小少尚庄床廠彰承抄招掌捷昇昌昭晶松梢樟樵沼消渉湘焼焦照症省硝礁祥称章笑粧紹肖菖蒋蕉衝裳訟証詔詳象賞醤鉦鍾鐘障鞘上丈丞乗冗剰"
            Case "シ4" : s = s & "城場壌嬢常情擾条杖浄状畳穣蒸譲醸錠嘱埴飾拭植殖燭織職色触食蝕辱尻伸信侵唇娠寝審心慎振新晋森榛浸深申疹真神秦紳臣芯薪親診身辛進針震人仁刃塵壬尋甚尽腎訊迅陣靭"
            Case "ス0" : s = s & "笥諏須酢図厨逗吹垂帥推水炊睡粋翠衰遂酔錐錘随瑞髄崇嵩数枢趨雛据杉椙菅頗雀裾澄摺寸"
            Case "セ0" : s = s & "世瀬畝是凄制勢姓征性成政整星晴棲栖正清牲生盛精聖声製西誠誓請逝醒青静斉税脆隻席惜戚斥昔析石積籍績脊責赤跡蹟碩"
            Case "セ1" : s = s & "切拙接摂折設窃節説雪絶舌蝉仙先千占宣専尖川戦扇撰栓栴泉浅洗染潜煎煽旋穿箭線繊羨腺舛船薦詮賎践選遷銭銑閃鮮前善漸然全禅繕膳糎"
            Case "ソ0" : s = s & "噌塑岨措曾曽楚狙疏疎礎祖租粗素組蘇訴阻遡鼠僧創双叢倉喪壮奏爽宋層匝惣想捜掃挿掻操早曹巣槍槽漕燥争痩相窓糟総綜聡草荘葬蒼藻装走送遭鎗霜騒像増憎臓蔵贈造促側則即息捉束測足速俗属賊族続卒袖其揃存孫尊損村遜"
            Case "タ0" : s = s & "他多太汰詑唾堕妥惰打柁舵楕陀駄騨体堆対耐岱帯待怠態戴替泰滞胎腿苔袋貸退逮隊黛鯛代台大第醍題鷹滝瀧卓啄"
            Case "タ1" : s = s & "宅托択拓沢濯琢託鐸濁諾茸凧蛸只叩但達辰奪脱巽竪辿棚谷狸鱈樽誰丹単嘆坦担探旦歎淡湛炭短端箪綻耽胆蛋誕鍛団壇弾断暖檀段男談"
            Case "チ0" : s = s & "値知地弛恥智池痴稚置致蜘遅馳築畜竹筑蓄逐秩窒茶嫡着中仲宙忠抽昼柱注虫衷註酎鋳駐樗瀦猪苧著貯丁兆凋喋寵帖帳庁弔張彫徴懲挑暢朝潮牒町眺聴脹腸蝶調諜超跳銚長頂鳥勅捗直朕沈珍賃鎮陳"
            Case "ツ0" : s = s & "津墜椎槌追鎚痛通塚栂掴槻佃漬柘辻蔦綴鍔椿潰坪壷嬬紬爪吊釣鶴"
            Case "テ0" : s = s & "亭低停偵剃貞呈堤定帝底庭廷弟悌抵挺提梯汀碇禎程締艇訂諦蹄逓邸鄭釘待泥摘擢敵滴的笛適鏑溺哲徹撤轍迭鉄典填天展店添纏甜貼転顛点伝殿澱田電"
            Case "ト0" : s = s & "兎吐堵塗妬屠徒斗杜渡登菟賭途都鍍砥砺努度土奴怒倒党冬凍刀唐塔塘套宕島嶋悼投搭東桃梼棟盗淘湯涛灯燈当痘祷等答筒糖統到董蕩藤討謄"
            Case "ト1" : s = s & "豆踏逃透鐙陶頭騰闘働動同堂導憧撞洞瞳童胴萄道銅峠鴇匿得徳涜特督禿篤毒独読栃橡凸突椴届鳶苫寅酉瀞噸屯惇敦沌豚遁頓呑曇鈍"
            Case "ナ0" : s = s & "奈那内乍凪薙謎灘捺鍋楢馴縄畷南楠軟難汝"
            Case "ニ0" : s = s & "二尼弐迩匂賑肉虹廿日乳入如尿韮任妊忍認"
            Case "ヌ0" : s = s & "濡"
            Case "ネ0" : s = s & "禰祢寧葱猫熱年念捻撚燃粘"
            Case "ノ0" : s = s & "乃廼之埜嚢悩濃納能脳膿農覗蚤"
            Case "ハ0" : s = s & "巴把播覇杷波派琶破婆罵芭馬俳廃拝排敗杯盃牌背肺輩配倍培媒梅楳煤狽買売賠陪這蝿秤矧萩伯剥博拍柏泊白箔粕舶薄迫曝漠爆縛莫駁麦"
            Case "ハ1" : s = s & "函箱硲箸肇筈櫨幡肌畑畠八鉢溌発醗髪伐罰抜筏閥鳩噺塙蛤隼伴判半反叛帆搬斑板氾汎版犯班畔繁般藩販範釆煩頒飯挽晩番盤磐蕃蛮"
            Case "ヒ0" : s = s & "匪卑否妃庇彼悲扉批披斐比泌疲皮碑秘緋罷肥被誹費避非飛樋簸備尾微枇毘琵眉美鼻柊稗匹疋髭彦膝菱肘弼必畢筆逼桧姫媛紐百謬俵彪標氷漂瓢票表評豹廟描病秒苗錨鋲蒜蛭鰭品彬斌浜瀕貧賓頻敏瓶"
            Case "フ0" : s = s & "不付埠夫婦富冨布府怖扶敷斧普浮父符腐膚芙譜負賦赴阜附侮撫武舞葡蕪部封楓風葺蕗伏副復幅服福腹複覆淵弗払沸仏物鮒分吻噴墳憤扮焚奮粉糞紛雰文聞"
            Case "ヘ0" : s = s & "丙併兵塀幣平弊柄並蔽閉陛米頁僻壁癖碧別瞥蔑箆偏変片篇編辺返遍便勉娩弁鞭"
            Case "ホ0" : s = s & "保舗鋪圃捕歩甫補輔穂募墓慕戊暮母簿菩倣俸包呆報奉宝峰峯崩庖抱捧放方朋法泡烹砲縫胞芳萌蓬蜂褒訪豊邦鋒飽鳳鵬乏亡傍剖坊妨帽忘忙房暴望某棒冒紡肪膨謀貌貿鉾防吠頬北僕卜墨撲朴牧睦穆釦勃没殆堀幌奔本翻凡盆"
            Case "マ0" : s = s & "摩磨魔麻埋妹昧枚毎哩槙幕膜枕鮪柾鱒桝亦俣又抹末沫迄侭繭麿万慢満漫蔓"
            Case "ミ0" : s = s & "味未魅巳箕岬密蜜湊蓑稔脈妙粍民眠"
            Case "ム0" : s = s & "務夢無牟矛霧鵡椋婿娘"
            Case "メ0" : s = s & "冥名命明盟迷銘鳴姪牝滅免棉綿緬面麺"
            Case "モ0" : s = s & "摸模茂妄孟毛猛盲網耗蒙儲木黙目杢勿餅尤戻籾貰問悶紋門匁"
            Case "ヤ0" : s = s & "也冶夜爺耶野弥矢厄役約薬訳躍靖柳薮鑓"
            Case "ユ0" : s = s & "愉愈油癒諭輸唯佑優勇友宥幽悠憂揖有柚湧涌猶猷由祐裕誘遊邑郵雄融夕"
            Case "ヨ0" : s = s & "予余与誉輿預傭幼妖容庸揚揺擁曜楊様洋溶熔用窯羊耀葉蓉要謡踊遥陽養慾抑欲沃浴翌翼淀"
            Case "ラ0" : s = s & "羅螺裸来莱頼雷洛絡落酪乱卵嵐欄濫藍蘭覧"
            Case "リ0" : s = s & "利吏履李梨理璃痢裏裡里離陸律率立葎掠略劉流溜琉留硫粒隆竜龍侶慮旅虜了亮僚両凌寮料梁涼猟療瞭稜糧良諒遼量陵領力緑倫厘林淋燐琳怜輪隣鱗麟"
            Case "ル0" : s = s & "瑠塁涙累類"
            Case "レ0" : s = s & "令伶例冷励嶺怜玲礼苓鈴隷零霊麗齢暦歴列劣烈裂廉恋憐漣煉簾練聯蓮連錬"
            Case "ロ0" : s = s & "呂魯櫓炉賂路露労婁廊弄朗楼榔浪漏牢狼篭老聾蝋郎六麓禄肋録論"
            Case "ワ0" : s = s & "倭和話歪賄脇惑枠鷲亙亘鰐詫藁蕨椀湾碗腕"
        End Select
        Return True
    End Function
End Module

'
'    s = ""
'    s = s + "亜唖娃阿哀愛挨姶逢葵"
'    s = s + "茜穐悪握渥旭葦芦鯵梓"
'    s = s + "圧斡扱宛姐虻飴絢綾鮎"
'    s = s + "或粟袷安庵按暗案闇鞍"
'    s = s + "杏"
'    Call DataIn("ア0", s, 1, "+")
'    s = ""
'    s = s + "以伊位依偉囲夷委威尉"
'    s = s + "惟意慰易椅為畏異移維"
'    s = s + "緯胃萎衣謂違遺医井亥"
'    s = s + "域育郁磯一壱溢逸稲茨"
'    s = s + "芋鰯允印咽員因姻引飲"
'    s = s + "淫胤蔭院陰隠韻吋"
'    Call DataIn("イ0", s, 1, "+")
'    s = ""
'    s = s + "右宇烏羽迂雨卯鵜窺丑"
'    s = s + "碓臼渦嘘唄欝蔚鰻姥厩"
'    s = s + "浦瓜閏噂云運雲"
'    Call DataIn("ウ0", s, 1, "+")
'    s = ""
'    s = s + "荏餌叡営嬰影映曳栄永"
'    s = s + "泳洩瑛盈穎頴英衛詠鋭"
'    s = s + "液疫益駅悦謁越閲榎厭"
'    s = s + "円園堰奄宴延怨掩援沿"
'    s = s + "演炎焔煙燕猿縁艶苑薗"
'    s = s + "遠鉛鴛塩"
'    Call DataIn("エ0", s, 1, "+")
'    s = ""
'    s = s + "於汚甥凹央奥往応押旺"
'    s = s + "横欧殴王翁襖鴬鴎黄岡"
'    s = s + "沖荻億屋憶臆桶牡乙俺"
'    s = s + "卸恩温穏音"
'    Call DataIn("オ0", s, 1, "+")
'    s = ""
'    s = s + "下化仮何伽価佳加可嘉"
'    s = s + "夏嫁家寡科暇果架歌河"
'    s = s + "火珂禍禾稼箇花苛茄荷"
'    s = s + "華菓蝦課嘩貨迦過霞蚊"
'    s = s + "俄峨我牙画臥芽蛾賀雅"
'    s = s + "餓駕介会解回塊壊廻快"
'    s = s + "怪悔恢懐戒拐改魁晦械"
'    s = s + "海灰界皆絵芥蟹開階貝"
'    s = s + "凱劾"
'    Call DataIn("カ0", s, 1, "+")
'    s = ""
'    s = s + "外咳害崖慨概涯碍蓋街"
'    s = s + "該鎧骸浬馨蛙垣柿蛎鈎"
'    s = s + "劃嚇各廓拡撹格核殻獲"
'    s = s + "確穫覚角赫較郭閣隔革"
'    s = s + "学岳楽額顎掛笠樫橿梶"
'    s = s + "鰍潟割喝恰括活渇滑葛"
'    s = s + "褐轄且鰹叶椛樺鞄株兜"
'    s = s + "竃蒲釜鎌噛鴨栢茅萱粥"
'    s = s + "刈苅瓦乾侃冠寒刊勘勧"
'    s = s + "巻喚堪姦"
'    Call DataIn("カ1", s, 1, "+")
'    s = ""
'    s = s + "完官寛干幹患感慣憾換"
'    s = s + "敢柑桓棺款歓汗漢澗潅"
'    s = s + "環甘監看竿管簡緩缶翰"
'    s = s + "肝艦莞観諌貫還鑑間閑"
'    s = s + "関陥韓館舘丸含岸巌玩"
'    s = s + "癌眼岩翫贋雁頑顔願"
'    Call DataIn("カ2", s, 1, "+")
'    s = ""
'    s = s + "企伎危喜器基奇嬉寄岐"
'    s = s + "希幾忌揮机旗既期棋棄"
'    s = s + "機帰毅気汽畿祈季稀紀"
'    s = s + "徽規記貴起軌輝飢騎鬼"
'    s = s + "亀偽儀妓宜戯技擬欺犠"
'    s = s + "疑祇義蟻誼議掬菊鞠吉"
'    s = s + "吃喫桔橘詰砧杵黍却客"
'    s = s + "脚虐逆丘久仇休及吸宮"
'    s = s + "弓急救朽求汲泣灸球究"
'    s = s + "窮笈級糾給旧牛去居"
'    Call DataIn("キ0", s, 1, "+")
'    s = ""
'    s = s + "巨拒拠挙渠虚許距鋸漁"
'    s = s + "禦魚亨享京供侠僑兇競"
'    s = s + "共凶協匡卿叫喬境峡強"
'    s = s + "彊怯恐恭挟教橋況狂狭"
'    s = s + "矯胸脅興蕎郷鏡響饗驚"
'    s = s + "仰凝尭暁業局曲極玉桐"
'    s = s + "粁僅勤均巾錦斤欣欽琴"
'    s = s + "禁禽筋緊芹菌衿襟謹近"
'    s = s + "金吟銀"
'    Call DataIn("キ1", s, 1, "+")
'    s = ""
'    s = s + "九倶句区狗玖矩苦躯駆"
'    s = s + "駈駒具愚虞喰空偶寓遇"
'    s = s + "隅串櫛釧屑屈掘窟沓靴"
'    s = s + "轡窪熊隈粂栗繰桑鍬勲"
'    s = s + "君薫訓群軍郡"
'    Call DataIn("ク0", s, 1, "+")
'    s = ""
'    s = s + "卦袈祁係傾刑兄啓圭珪"
'    s = s + "型契形径恵慶慧憩掲携"
'    s = s + "敬景桂渓畦稽系経継繋"
'    s = s + "罫茎荊蛍計詣警軽頚鶏"
'    s = s + "芸迎鯨劇戟撃激隙桁傑"
'    s = s + "欠決潔穴結血訣月件"
'    Call DataIn("ケ0", s, 1, "+")
'    s = ""
'    s = s + "倹倦健兼券剣喧圏堅嫌"
'    s = s + "建憲懸拳捲検権牽犬献"
'    s = s + "研硯絹県肩見謙賢軒遣"
'    s = s + "鍵険顕験鹸元原厳幻弦"
'    s = s + "減源玄現絃舷言諺限"
'    Call DataIn("ケ1", s, 1, "+")
'    s = ""
'    s = s + "乎個古呼固姑孤己庫弧"
'    s = s + "戸故枯湖狐糊袴股胡菰"
'    s = s + "虎誇跨鈷雇顧鼓五互伍"
'    s = s + "午呉吾娯後御悟梧檎瑚"
'    s = s + "碁語誤護醐乞鯉交佼侯"
'    s = s + "候倖光公功効勾厚口向"
'    s = s + "后喉坑垢好孔孝宏工巧"
'    s = s + "巷幸広庚康弘恒慌抗拘"
'    s = s + "控攻昂晃更杭校梗構江"
'    s = s + "洪"
'    Call DataIn("コ0", s, 1, "+")
'    s = ""
'    s = s + "浩港溝甲皇硬稿糠紅紘"
'    s = s + "絞綱耕考肯肱腔膏航荒"
'    s = s + "行衡講貢購郊酵鉱砿鋼"
'    s = s + "閤降項香高鴻剛劫号合"
'    s = s + "壕拷濠豪轟麹克刻告国"
'    s = s + "穀酷鵠黒獄漉腰甑忽惚"
'    s = s + "骨狛込此頃今困坤墾婚"
'    s = s + "恨懇昏昆根梱混痕紺艮"
'    s = s + "魂"
'    Call DataIn("コ1", s, 1, "+")
'    s = ""
'    s = s + "些佐叉唆嵯左差査沙瑳"
'    s = s + "砂詐鎖裟坐座挫債催再"
'    s = s + "最哉塞妻宰彩才採栽歳"
'    s = s + "済災采犀砕砦祭斎細菜"
'    s = s + "裁載際剤在材罪財冴坂"
'    s = s + "阪堺榊肴咲崎埼碕鷺作"
'    s = s + "削"
'    Call DataIn("サ0", s, 1, "+")
'    s = ""
'    s = s + "咋搾昨朔柵窄策索錯桜"
'    s = s + "鮭笹匙冊刷察拶撮擦札"
'    s = s + "殺薩雑皐鯖捌錆鮫皿晒"
'    s = s + "三傘参山惨撒散桟燦珊"
'    s = s + "産算纂蚕讃賛酸餐斬暫"
'    s = s + "残"
'    Call DataIn("サ1", s, 1, "+")
'    s = ""
'    s = s + "仕仔伺使刺司史嗣四士"
'    s = s + "始姉姿子屍市師志思指"
'    s = s + "支孜斯施旨枝止死氏獅"
'    s = s + "祉私糸紙紫肢脂至視詞"
'    s = s + "詩試誌諮資賜雌飼歯事"
'    s = s + "似侍児字寺慈持時次滋"
'    s = s + "治爾璽痔磁示而耳自蒔"
'    s = s + "辞汐鹿式識鴫竺軸宍雫"
'    Call DataIn("シ0", s, 1, "+")
'    s = ""
'    s = s + "七叱執失嫉室悉湿漆疾"
'    s = s + "質実蔀篠偲柴芝屡蕊縞"
'    s = s + "舎写射捨赦斜煮社紗者"
'    s = s + "謝車遮蛇邪借勺尺杓灼"
'    s = s + "爵酌釈錫若寂弱惹主取"
'    s = s + "守手朱殊狩珠種腫趣酒"
'    s = s + "首儒受呪寿授樹綬需囚"
'    s = s + "収周宗就州修愁拾洲秀"
'    Call DataIn("シ1", s, 1, "+")
'    s = ""
'    s = s + "秋終繍習臭舟蒐衆襲讐"
'    s = s + "蹴輯週酋酬集醜什住充"
'    s = s + "十従戎柔汁渋獣縦重銃"
'    s = s + "叔夙辛淑祝縮粛塾熟出"
'    s = s + "術述俊峻春瞬竣舜駿准"
'    s = s + "循旬楯殉淳準潤盾純巡"
'    s = s + "遵醇順処初所暑曙渚庶"
'    s = s + "緒署書薯藷諸助叙女序"
'    Call DataIn("シ2", s, 1, "+")
'    s = ""
'    s = s + "徐恕鋤除傷償勝匠升召"
'    s = s + "哨商唱嘗奨妾娼宵将小"
'    s = s + "少尚庄床廠彰承抄招掌"
'    s = s + "捷昇昌昭晶松梢樟樵沼"
'    s = s + "消渉湘焼焦照症省硝礁"
'    s = s + "祥称章笑粧紹肖菖蒋蕉"
'    s = s + "衝裳訟証詔詳象賞醤鉦"
'    s = s + "鍾鐘障鞘上丈丞乗冗剰"
'    Call DataIn("シ3", s, 1, "+")
'    s = ""
'    s = s + "城場壌嬢常情擾条杖浄"
'    s = s + "状畳穣蒸譲醸錠嘱埴飾"
'    s = s + "拭植殖燭織職色触食蝕"
'    s = s + "辱尻伸信侵唇娠寝審心"
'    s = s + "慎振新晋森榛浸深申疹"
'    s = s + "真神秦紳臣芯薪親診身"
'    s = s + "辛進針震人仁刃塵壬尋"
'    s = s + "甚尽腎訊迅陣靭"
'    Call DataIn("シ4", s, 1, "+")
'    s = ""
'    s = s + "笥諏須酢図厨逗吹垂帥"
'    s = s + "推水炊睡粋翠衰遂酔錐"
'    s = s + "錘随瑞髄崇嵩数枢趨雛"
'    s = s + "据杉椙菅頗雀裾澄摺寸"
'    Call DataIn("ス0", s, 1, "+")
'    s = ""
'    s = s + "世瀬畝是凄制勢姓征性"
'    s = s + "成政整星晴棲栖正清牲"
'    s = s + "生盛精聖声製西誠誓請"
'    s = s + "逝醒青静斉税脆隻席惜"
'    s = s + "戚斥昔析石積籍績脊責"
'    s = s + "赤跡蹟碩"
'    Call DataIn("セ0", s, 1, "+")
'    s = ""
'    s = s + "切拙接摂折設窃節説雪"
'    s = s + "絶舌蝉仙先千占宣専尖"
'    s = s + "川戦扇撰栓栴泉浅洗染"
'    s = s + "潜煎煽旋穿箭線繊羨腺"
'    s = s + "舛船薦詮賎践選遷銭銑"
'    s = s + "閃鮮前善漸然全禅繕膳"
'    s = s + "糎"
'    Call DataIn("セ1", s, 1, "+")
'    s = ""
'    s = s + "噌塑岨措曾曽楚狙疏疎"
'    s = s + "礎祖租粗素組蘇訴阻遡"
'    s = s + "鼠僧創双叢倉喪壮奏爽"
'    s = s + "宋層匝惣想捜掃挿掻操"
'    s = s + "早曹巣槍槽漕燥争痩相"
'    s = s + "窓糟総綜聡草荘葬蒼藻"
'    s = s + "装走送遭鎗霜騒像増憎"
'    s = s + "臓蔵贈造促側則即息捉"
'    s = s + "束測足速俗属賊族続卒"
'    s = s + "袖其揃存孫尊損村遜"
'    Call DataIn("ソ0", s, 1, "+")
'    s = ""
'    s = s + "他多太汰詑唾堕妥惰打"
'    s = s + "柁舵楕陀駄騨体堆対耐"
'    s = s + "岱帯待怠態戴替泰滞胎"
'    s = s + "腿苔袋貸退逮隊黛鯛代"
'    s = s + "台大第醍題鷹滝瀧卓啄"
'    Call DataIn("タ0", s, 1, "+")
'    s = ""
'    s = s + "宅托択拓沢濯琢託鐸濁"
'    s = s + "諾茸凧蛸只叩但達辰奪"
'    s = s + "脱巽竪辿棚谷狸鱈樽誰"
'    s = s + "丹単嘆坦担探旦歎淡湛"
'    s = s + "炭短端箪綻耽胆蛋誕鍛"
'    s = s + "団壇弾断暖檀段男談"
'    Call DataIn("タ1", s, 1, "+")
'    s = ""
'    s = s + "値知地弛恥智池痴稚置"
'    s = s + "致蜘遅馳築畜竹筑蓄逐"
'    s = s + "秩窒茶嫡着中仲宙忠抽"
'    s = s + "昼柱注虫衷註酎鋳駐樗"
'    s = s + "瀦猪苧著貯丁兆凋喋寵"
'    s = s + "帖帳庁弔張彫徴懲挑暢"
'    s = s + "朝潮牒町眺聴脹腸蝶調"
'    s = s + "諜超跳銚長頂鳥勅捗直"
'    s = s + "朕沈珍賃鎮陳"
'    Call DataIn("チ0", s, 1, "+")
'    s = ""
'    s = s + "津墜椎槌追鎚痛通塚栂"
'    s = s + "掴槻佃漬柘辻蔦綴鍔椿"
'    s = s + "潰坪壷嬬紬爪吊釣鶴"
'    Call DataIn("ツ0", s, 1, "+")
'    s = ""
'    s = s + "亭低停偵剃貞呈堤定帝"
'    s = s + "底庭廷弟悌抵挺提梯汀"
'    s = s + "碇禎程締艇訂諦蹄逓邸"
'    s = s + "鄭釘待泥摘擢敵滴的笛"
'    s = s + "適鏑溺哲徹撤轍迭鉄典"
'    s = s + "填天展店添纏甜貼転顛"
'    s = s + "点伝殿澱田電"
'    Call DataIn("テ0", s, 1, "+")
'    s = ""
'    s = s + "兎吐堵塗妬屠徒斗杜渡"
'    s = s + "登菟賭途都鍍砥砺努度"
'    s = s + "土奴怒倒党冬凍刀唐塔"
'    s = s + "塘套宕島嶋悼投搭東桃"
'    s = s + "梼棟盗淘湯涛灯燈当痘"
'    s = s + "祷等答筒糖統到董蕩藤"
'    s = s + "討謄"
'    Call DataIn("ト0", s, 1, "+")
'    s = ""
'    s = s + "豆踏逃透鐙陶頭騰闘働"
'    s = s + "動同堂導憧撞洞瞳童胴"
'    s = s + "萄道銅峠鴇匿得徳涜特"
'    s = s + "督禿篤毒独読栃橡凸突"
'    s = s + "椴届鳶苫寅酉瀞噸屯惇"
'    s = s + "敦沌豚遁頓呑曇鈍"
'    Call DataIn("ト1", s, 1, "+")
'    s = ""
'    s = s + "奈那内乍凪薙謎灘捺鍋"
'    s = s + "楢馴縄畷南楠軟難汝"
'    Call DataIn("ナ0", s, 1, "+")
'    s = ""
'    s = s + "二尼弐迩匂賑肉虹廿日"
'    s = s + "乳入如尿韮任妊忍認"
'    Call DataIn("ニ0", s, 1, "+")
'    s = ""
'    s = s + "濡"
'    Call DataIn("ヌ0", s, 1, "+")
'    s = ""
'    s = s + "禰祢寧葱猫熱年念捻撚"
'    s = s + "燃粘"
'    Call DataIn("ネ0", s, 1, "+")
'    s = ""
'    s = s + "乃廼之埜嚢悩濃納能脳"
'    s = s + "膿農覗蚤"
'    Call DataIn("ノ0", s, 1, "+")
'    s = ""
'    s = s + "巴把播覇杷波派琶破婆"
'    s = s + "罵芭馬俳廃拝排敗杯盃"
'    s = s + "牌背肺輩配倍培媒梅楳"
'    s = s + "煤狽買売賠陪這蝿秤矧"
'    s = s + "萩伯剥博拍柏泊白箔粕"
'    s = s + "舶薄迫曝漠爆縛莫駁麦"
'    Call DataIn("ハ0", s, 1, "+")
'    s = ""
'    s = s + "函箱硲箸肇筈櫨幡肌畑"
'    s = s + "畠八鉢溌発醗髪伐罰抜"
'    s = s + "筏閥鳩噺塙蛤隼伴判半"
'    s = s + "反叛帆搬斑板氾汎版犯"
'    s = s + "班畔繁般藩販範釆煩頒"
'    s = s + "飯挽晩番盤磐蕃蛮"
'    Call DataIn("ハ1", s, 1, "+")
'    s = ""
'    s = s + "匪卑否妃庇彼悲扉批披"
'    s = s + "斐比泌疲皮碑秘緋罷肥"
'    s = s + "被誹費避非飛樋簸備尾"
'    s = s + "微枇毘琵眉美鼻柊稗匹"
'    s = s + "疋髭彦膝菱肘弼必畢筆"
'    s = s + "逼桧姫媛紐百謬俵彪標"
'    s = s + "氷漂瓢票表評豹廟描病"
'    s = s + "秒苗錨鋲蒜蛭鰭品彬斌"
'    s = s + "浜瀕貧賓頻敏瓶"
'    Call DataIn("ヒ0", s, 1, "+")
'    s = ""
'    s = s + "不付埠夫婦富冨布府怖"
'    s = s + "扶敷斧普浮父符腐膚芙"
'    s = s + "譜負賦赴阜附侮撫武舞"
'    s = s + "葡蕪部封楓風葺蕗伏副"
'    s = s + "復幅服福腹複覆淵弗払"
'    s = s + "沸仏物鮒分吻噴墳憤扮"
'    s = s + "焚奮粉糞紛雰文聞"
'    Call DataIn("フ0", s, 1, "+")
'    s = ""
'    s = s + "丙併兵塀幣平弊柄並蔽"
'    s = s + "閉陛米頁僻壁癖碧別瞥"
'    s = s + "蔑箆偏変片篇編辺返遍"
'    s = s + "便勉娩弁鞭"
'    Call DataIn("ヘ0", s, 1, "+")
'    s = ""
'    s = s + "保舗鋪圃捕歩甫補輔穂"
'    s = s + "募墓慕戊暮母簿菩倣俸"
'    s = s + "包呆報奉宝峰峯崩庖抱"
'    s = s + "捧放方朋法泡烹砲縫胞"
'    s = s + "芳萌蓬蜂褒訪豊邦鋒飽"
'    s = s + "鳳鵬乏亡傍剖坊妨帽忘"
'    s = s + "忙房暴望某棒冒紡肪膨"
'    s = s + "謀貌貿鉾防吠頬北僕卜"
'    s = s + "墨撲朴牧睦穆釦勃没殆"
'    s = s + "堀幌奔本翻凡盆"
'    Call DataIn("ホ0", s, 1, "+")
'    s = ""
'    s = s + "摩磨魔麻埋妹昧枚毎哩"
'    s = s + "槙幕膜枕鮪柾鱒桝亦俣"
'    s = s + "又抹末沫迄侭繭麿万慢"
'    s = s + "満漫蔓"
'    Call DataIn("マ0", s, 1, "+")
'    s = ""
'    s = s + "味未魅巳箕岬密蜜湊蓑"
'    s = s + "稔脈妙粍民眠"
'    Call DataIn("ミ0", s, 1, "+")
'    s = ""
'    s = s + "務夢無牟矛霧鵡椋婿娘"
'    Call DataIn("ム0", s, 1, "+")
'    s = ""
'    s = s + "冥名命明盟迷銘鳴姪牝"
'    s = s + "滅免棉綿緬面麺"
'    Call DataIn("メ0", s, 1, "+")
'    s = ""
'    s = s + "摸模茂妄孟毛猛盲網耗"
'    s = s + "蒙儲木黙目杢勿餅尤戻"
'    s = s + "籾貰問悶紋門匁"
'    Call DataIn("モ0", s, 1, "+")
'    s = ""
'    s = s + "也冶夜爺耶野弥矢厄役"
'    s = s + "約薬訳躍靖柳薮鑓"
'    Call DataIn("ヤ0", s, 1, "+")
'    s = ""
'    s = s + "愉愈油癒諭輸唯佑優勇"
'    s = s + "友宥幽悠憂揖有柚湧涌"
'    s = s + "猶猷由祐裕誘遊邑郵雄"
'    s = s + "融夕"
'    Call DataIn("ユ0", s, 1, "+")
'    s = ""
'    s = s + "予余与誉輿預傭幼妖容"
'    s = s + "庸揚揺擁曜楊様洋溶熔"
'    s = s + "用窯羊耀葉蓉要謡踊遥"
'    s = s + "陽養慾抑欲沃浴翌翼淀"
'    Call DataIn("ヨ0", s, 1, "+")
'    s = ""
'    s = s + "羅螺裸来莱頼雷洛絡落"
'    s = s + "酪乱卵嵐欄濫藍蘭覧"
'    Call DataIn("ラ0", s, 1, "+")
'    s = ""
'    s = s + "利吏履李梨理璃痢裏裡"
'    s = s + "里離陸律率立葎掠略劉"
'    s = s + "流溜琉留硫粒隆竜龍侶"
'    s = s + "慮旅虜了亮僚両凌寮料"
'    s = s + "梁涼猟療瞭稜糧良諒遼"
'    s = s + "量陵領力緑倫厘林淋燐"
'    s = s + "琳怜輪隣鱗麟"
'    Call DataIn("リ0", s, 1, "+")
'    s = ""
'    s = s + "瑠塁涙累類"
'    Call DataIn("ル0", s, 1, "+")
'    s = ""
'    s = s + "令伶例冷励嶺怜玲礼苓"
'    s = s + "鈴隷零霊麗齢暦歴列劣"
'    s = s + "烈裂廉恋憐漣煉簾練聯"
'    s = s + "蓮連錬"
'    Call DataIn("レ0", s, 1, "+")
'    s = ""
'    s = s + "呂魯櫓炉賂路露労婁廊"
'    s = s + "弄朗楼榔浪漏牢狼篭老"
'    s = s + "聾蝋郎六麓禄肋録論"
'    Call DataIn("ロ0", s, 1, "+")
'    s = ""
'    s = s + "倭和話歪賄脇惑枠鷲亙"
'    s = s + "亘鰐詫藁蕨椀湾碗腕"
'    Call DataIn("ワ0", s, 1, "+")
