English to Japan Language Lesson 1

"Clause Pages","President Staff"
"Mind The Door","扉に注意"
"We Will Leave Company Inheritance Remain Staff","わたし達の決意は、会社の遺産継承を残る業務員に残すだろう"
"Contact Us","わたし達に接触してください"
"Allow","許し認めてください"
"I Want Believe","信じて欲しい"
"Hello,Nice To Meet To You","こんにちは、素晴らしいのと出会いをあなたに"
"No,I Did Not","いいえ、違います"
"What It is Really Now?","そのことは今本当"
"Truth and False","真と偽"
"He May Read Note Book at After Time","彼は、午後の時間ノートを読むかもしれない"
"Near Missing That It Now","それは今近くに消息を絶った"
"Regular Meal have a Taste Restaurant Now","定食を味わって食べている今飲食店"
"He is New Standard Business Take Method Advocacy","彼は、新しい標準の仕事を方法を提唱した"
"You,Get It Tea-pod Please","君、茶急須を取ってくれ"
"She Sick Heavy Degree,Now is in The Home Stay","彼女は、症状が重い程度今は家に居る"
"My Model Make Could Complete Yesterday This Work","自分が昨日模型製作を完成させた"
"She Did Death Yesterday,Regret To She This Thing","彼女が昨日死去したこのことを彼女を悔いる"
"Return Go Home","家に帰れ"
"You,You Feeling at Me,Send To You By Impression","あなた、あなたを私に感じる感想によってあなたに伝える"
"You,What Have a Interest Computer?","あなた、パソコンに興味は有りませんか"
"How Much Payed Charge,Get It Price Value Please You","幾らをどの様に請求して払い、価格を得てください。"
"How Do You?","あなたどうしたらいいですか"
"How Arrive Goin Your Hotels,Firstest Soon Location at Approach Guide","あなたの宿泊施設はどの方法で着く、直ぐに最も早い近づく教えて"
"This Hotel Map Paper Information Guide,Let's Go Goal Location","この宿泊地図情報案内、皆で行こう目的地"
"Ski Instructions Tour Enjoy Holiday","スキー教習旅行休日の楽しみ"
"You,That is Needless","あなた、それは必要ない"
"Which Who are You","どなたですか"
"Support Approach Me,Friend Depend on It Works","私に支援を近づけて、仕事を友達に頼る"
"This Home Leave is My Travel Trip Only Mine","この家庭を離れ、私の孤独な旅にでる"
"Promising You To I asked Only one Thing","約束をあなたから私に依頼する一つのみの事"
"Trace He Behind Root Ways","彼のいった道を追っている"
"You,That Structure Building Open The Doors in My Here Come on","あなた、建物の扉を開けてここへ来てくれ"
"Understand To You,That Thing on Talk is Listen to Me","あなたを理解する、その事を話して私が聞く"
"Now on The Fire Out This Place,We is Escape This Structure,Out in Building","ここは出火した、わたし達は、この建物を脱出して、施設を出た"
"Smart Phone Forget in Here,Standstill Me","携帯電話をここに忘れて、私に立ち往生した"
"If For You　Instance To　By Me is Did Not Will","もしあなたに例えば私がその様な事をしなかっただろう"
"All Right Okay","よし了解した"
"No Execute It,By Object is Be Enough","それを実行しない、対象物によって足りる"
"Happy Birth Day To You","あなたに誕生日おめでとう"
"This Present is For You","この贈り物はあなたの為に"
"Include Team in Me","集団に私を加えて"
"No Wake Shake in Building Destroyed,No Behinded Thing Promise Back Future","地震に入り、建物が壊れない、過去の事ではない過去を誓う"
"Your Kindness Me,Thank You","あなたの親切ありがとう"
"I am Teenager","私は１０代である"
"They go to Those Sloop long long a way","彼らはそれらの坂を長い道のりを行きなさい"
"That Had Mine,You No Get That,Return Mine That Object","それは私が持っている、あなたそれを取らないでくれ、その対象物を私に返してくれ"
"I Have Taste Meal Eat Now","今私が食事を食べて満喫している"
"Kind You","あなたは親切な方だ"
"Same Dress style to Me,You Good Favoｒite Feeling","私と同じ格好だ、あなたは良い好みの感じ"
"Tell Me","私に告げる"
"Just Twelve Hour a Moment Wait You","１２時丁度一時の期間あなたは待ってください"
"Justice And Freedom on Declaration","正義と自由宣言"
"Demand Definition Objection","要求定義異議"
"I Moving Location Equipment Mobile Phone on Now","私は位置を移動している携帯電話を今装備している"
"You,Eject SD Memory Card From My Computer,You Take Get That Give Me","あなた、SDカードを私のパソコンから取り出して、あなたが私に与えてください"
"Are You Investment My Capital on Trade to My","あなたは、私の証券に投資しましたか"
"Stock Index Investment Ex parent Take Paid on Market","証券市場指数を投資支払う"
"Good Bye,See You Again","さようなら，またもう一度会う日を"
"I'm Sorry","私は気の毒に思う"
"Excuse Me","私を許してください"
"Try Again","再挑戦してください"
"Take Order Check Receipt Account List","要する注文伝票受領会計覧"
"Remember to Me","私を忘れずに居る"
"Change Post on Staff","役を交代する職員"
"Now,Watch Time Is This","今何時ですか"
"Never Future So Thing Nothing","決して将来その様なこと無い"
"Dead and Alive","死と生"
"Fresh Food in Freeze Keep This","生鮮食品を凍結させ保存するこれ"
"Save Poor Restore Economy at People","貧困を救済する経済再編を民"
"Anyone,Each Al Ways Continue","だれか、それぞれ常に続く"
"Deep and Deep,Edge To End","端と端"
"I am Give Up With On This Works","わたしは、この作業を断念する"
"Do Not Worry","心配するな"
"He is Say Vacation Tomorrow","彼は、明日休暇を取る事を言う"
"Global Positioning System and Location System","世界的位置機構（衛生）と場所機構"
"Employ with wage to Me,How Job Staff Licence","私に雇用と賃金、どのような職と職員免許"
"Many Way Any Way","たくさんの道と、何かの道"
"Every Thing Such Thing","全てのこと何一つ無い"
"I am Hope in Now,Order First Account This Paying","私は、今注文の会計を先支払いを希望する"
"I Need You","私はあなたが必要だ"
"Why That Thing Know to You","何故その事をあなたに知っている"
"Are You Have Some Thing","あなたは、何かを持っていますか"
"Always Casual Thing Everyday","常に何気ない事いつもの日"
"They are Difficult Tell Thing is","彼らに告げること難しいであろう"
"Pay Charge Those Cash Card","それらの支払いカードに支払い充填する"
"Rental Charge After Day on Pay","借用料金の後日払い"
"You Hope Mean Sayed,I Do Not Mean,No I Have Response","君は言いたい意味を言ったが、私は理解できない、私は、返事を持っていけない"
"You Tell Me,I Understand You,I Have Your Means","あなたは私に告げた、あなたを私は理解する、私はあなたの意味を持つ"
"Are You Arrive Paying Post Office CaseBox and Shop Stock","あなたの郵便は着払いで、ダンボールの商店在庫ですか"
"Santa Mesa Day Soon by Approach Date,This is Hope Give Present to You","ミサの日にもう直ぐ、近づく日付、それを希望するあなたに贈呈を与える"
"You Send Mail From America,You is Other Country,I am Send Message to You","あなたにアメリカより手紙、あなたは外国、私は送る言葉をあなたに"
"My Greeting is Write Begin on How Do You,Hello They Are","私の挨拶は、書き始めに初めまして、やあ、彼らである"
"Very Good","大変良い"
"Earth Quake is Happen Thing,Destroy by Structure Shake It","偶然起こる地震のこと、建物が揺れに倒壊する"
"Why Such Thing For You","何故そんな事あなたの為に"
"When This Thing is For My Feel Imaging Still Now on Understand","その場合このことは私の感じる映像の為に今も尚理解する"
"Notice with Attention This Place is No Wrong Thing No Keeping","注目と注意は、この場所は悪事を保つ事を禁じる"
"I am a Student,This Laboratory Staff Members","私は一人の学生です　この研究室の一員の職員です"
"This Casual Times Traffic Confusion Now in This Road Way","この気軽な時間の交通混雑している今にこの道路の道に入る"
"Chase You on Lag","最後の一人があなたを追う"
"Hello You,Good Morning","やああなた良い今朝を"
"This Subject is My Theory and Learning on Revolution Target is Begin Now","この課題は私の学説と、学問革命を目標は今から"
"What is This.That is Cafe Cup","これは何ですか。それはコーヒーカップです"
"You,Large Many Your School Student.Yes,Very Much","あなた、あなたの学校は広範囲に多い学生ですね。はい、非常にずっと多いです"
"You Know.Really?","あなたは知っています。本当に"
"Ocure Frequency Terrorism in Together","同時多発テロ"
"Activation System","活性化構造"
"I am a Determination Not Compromise No Change Thing","私は、一つの決意を譲る事を否定し変ること無い"
"From You Send My Message","あなたから私の言葉を送ってください"
"That Thing is I Conscious Nothing Yet","その事について私は未だ自覚が無い"
"Are You Singer Song Writer ?.Yes,I do","あなたは作詞家ですか。はいそうです"
"Can You Struct Drawing.No I do.My Reason is Do Not Have No Platforms","あなたは、建築図面を描けますか。書けません。理由は私はその開発環境を持っていない"
"My Expression Think by I Drawing","私の表現を思う私の描画によって"
"Are You Previous Meeting","あなたは以前に会ったことが有りますか"
"You,No Accept But That","君、それについて許さない"
"Through Me","私を通り越して"
"This is Desk","これは学習デスクです"
"Teacher and Student","先生と学生"
"Fresh Man with Professor in Campus","新入生と、教授が、大学にて"
"You,I Have Design Then Al way Contents Material Used","君、私は設計するとき何時も内容素材を使う"
"This Buyer's Item is Sold Out Yet","この買い手項目は既に売り切れている"
"I Be live is She Reverence and Private Life This Thing","私は彼女の宗教と私生活の事を信じている"
"He is Region Servant,He Employ is Fire Fighting Group","彼は地方公務員だ、彼を雇うは、消防団です"
"But About is Trough","それについては答えない"
"This CopyRight is All Right Reserved","此の著作権は全部の権利は控えめです"
"That's Great","それらは素晴らしい"
"Good Luck","幸運を祈る"
"Real Estate Investment Trust","不動産投資信託"
"Accounting Check it Me","会計を調べていただけませんか"
"Take Challenge Me","私の要する挑戦"
"I am Will Any Kind of Unlost by Terrorism","私の意志はいかなるテロリストによって負けない"
"All in one Package","全部揃っている包装です"
"That is Bribery it,I Can not No Receipt It","それは受託収賄です。私は受け取る事が出来ません。"
"I Will Remain Inheritance CopyRight Made Computer Making","私の意志は、残った継承の著作権は情報処理加工過程にて作られています"
"Let It Me.No I Do Not","私を通してください。それは出来ません"
"She is Just a Wait Bus Stop","彼女は、丁度バス停留を待っています"
"The End of Finale of This Novels","この物語の終焉"
"You,The Get Table on The Vase with Flowers","君、そこの卓上にある花瓶と花を取ってくれ"
"I am Then Time Wake Up Now Out of Bed Hurry up","私はそのとき、の今目覚めた、ベットから出て急いだ"
"That is This Shell Box in This Tool Box","それはこのシェル箱の中にこの道具箱です"
"This Tools on This Table Have Been Put Away","この道具のテーブルの上はしまった"
"He is Away Be Come","彼は遠方から来ている"
"You,This Place is Market Rules in Shelf Service Sold Shopping Register by Consumer","君、ここの市場の決まりは消費者自身による売る会計なんだ"
"Objective in Consumer Market","指向は、消費者市場だ"
"Commission Shelf Washer Box in Dress Post in The Coin on Pay","手動による洗濯依頼をその箱の物の中に衣類を入れ、貨幣を支払う"
"Turst Me","私の依頼"
"This Car Road Way is Confusion Traffic Now","この自動車道は混雑の往来を今している"
"Shut up Please,Be Quiet","黙ってください、静かに"
"Stand Up Please,Good Every Morning","立って下さい、何時もの良い朝でです"
"Sit Down","座ってください"
"This Thing is I Was Wish","この事は私が望んだ事だった"
"Those is Bad","それらは悪い"
"You,Do not Hate Me","あなた、私を嫌わないで下さい"
"Did You Experience This Course","あなたはこの学科に経験がありますか"
"This Shop is Closed on This Time","この店は、この時間に閉まった"
"You Open The Door","あなた扉を開けてください"
"My Heart Close to You","私は、あなたに心を閉ざしている"
"Soon Arrive Christmas","もうじきクリスマスがやってきます"
"This Present to You","これをあなたに贈ります"
"Gift Season","歳暮季節"
"Yes,I Did Not","はい、私は違いました"
"Rainy and Sunshine on Today","雨と晴れの現在の今日"
"First Dinner with You","最初の晩餐をあなたと一緒に"
"Slow Turtle Vie Early Rabbit Result Turtle Winner","遅い亀と競った早い兎の結果は亀が勝者になった"
"Bank Account Pay Cashing on Delivery Me,Please It","銀行通帳現金支払いを受け渡しを私に置いて下さい"
"May I Help You","私はあなたを手伝うかもしれない"
"Friend With Me and Snap Shot on Photo Graph by Camera","友達と私を一緒に記念撮影を置く写真をカメラによる"
"Delete Dust in Photo Graph That Object Visual Reduction","その対象の目に見える規模を下げる写真の中の塵の削除"
"No Far Going,You is Late Follow with Me","遠くに歩行しないで遅れてあなたは私と一緒に着いて来て"
"Hey You","オイ！"
"Keep Out","出てください"
"Moving People City with You","あなたで動く民の都市です"
"I Do Not Mind You","私はあなたを注意しない"
"Thanks Your Letter on Send Message It","有難うあなたの手紙の上の伝言のそれ"
"Do You Have Favorite","あなたはどの様な好みを持ちますか"
"My Friend with I was go Travel so in Class Mate Group","私の友達と一緒に私は旅行に行きましたまたそのクラスメイトの組織です"
"For You","あなたの為に"
"From You","あなたから"
"Follow Send Root Way in Map","地図の中の通路の転送してください"
"Escort Guard To You","あなたを見張って護衛します"
"End of File","ファイルの終わり"
"In That Case Every Body,Stand Up Please,Hello,Good Afternoon Every Body,Sit Down Please","それでは皆さん席をお立ちください。こんにちは、座ってください"
"The Bus is By Soon Arrival on Time","そのバスはもう直ぐ到着による時間になる"
"Good Timing","丁度よい時期に"
"Reign Government Resistance Reaction,And too You","貴方は統治の支配に抵抗した反応をした、それとまたあなたです"
"Work Job and Retire Employment,His Desk Chairman Now","彼の副会長の今は作業の勤め先に引退した雇用"
"Hey What Do You","オイ！あなたは何をしている"
"I mine Money","私の物の金"
"Money Business by My Management have me　For Company","現金仕事を私の経営を以って会社の為に"
"From You Your Send Letter","あなたから宛てたあなたの手紙"
"This Travel Vacation is Richness","この旅行の休日は豊富だ"
"Just Me Friends","私にぴったりの友人"
"Dream Again","夢再び"
"Those Talk is Hot","その話題が熱い"
"This is Better","これが妥当です"
"May I Die Than Say","言うより死んだほうが良いですか"
"on This Time now","この時間の今"
"Draw is Me Future","描くは私の未来"
"Mine License is Food Responsibility MemberShip Reached","私のもの免許は食費責任者会員に就く"
"He is Reached Forward Chief Executive Office Responsibility on Post","彼は地位にこれから就く最高経営責任者"
"Can You My Emotion in Feel Thing To You","あなたは私の感情をあなたに感じる事ができますか"
"I am Busy,In Business For Best","私は忙しいです。仕事を最善の為に入ります"
"My Holiday","私の休暇"
"That is Good","それが良い"
"If You is Absence","もしあなたが居なかったら"
"He religion is Christian.","彼の宗教はキリスト教だ"
"I Was Enlighten My Architecture curriculum","私は建築課程教科を教えている"
"What is Address? . My Address (Make Sure-Confirm)? . No , Your Stay Address . My Send Address Page (Show Book)","アドレスは何ですか。自分の住所ですか（確認）。違います泊まる住所です。見せて此れが宿泊先の住所です。"
"This Finding Place,Ask Road Guidance. I See,Your Show Map. This Location is Any Where This Place.Gold Flower St.Right Side Face with Cross Road.Thank You See You.","この場所を探しています。道案内を尋ねます。私が見ますあなたの地図を見せてください。この位置は何処のこの場所ですか。金華通り交差点に右側に面した側です。有難うあなたと会った。"
"What Your Stay Formalities Be Over Confirm? No I Can Not.Find Now.Ask-Request.No Find.This Page Need-Necessity Please Write Your Information.","あなたの宿泊手続きは確認済みましたか？いいえ私は出来ません。今探します。頼みます。この項に必要なあなたの情報を書いて下さい。"
"I will Die Behind Say","私は言いたいことの後に死ぬだろう"
"I do not Say","その事は私は言わない"
"farms loves you more than farms loves you or less than farms loves you","あなたを愛していてあるいは農場よりも小さくあなたを愛している以上に，農場はあなたを愛しています"
"Every Discloser is Going Concern","全ての暴露する者は懸念になります"
"snow grows Island to night plane to me see","雪は，私への飛行機が見る島今夜を育てます（映画）"
"I'm kingdom insulation and strike crime","私は，王国絶縁，およびストライキ犯罪です（映画）"
"Do not end Heart in night this wall Storm side","夜このかべ嵐側でハートを終えません（映画）"
"Kind keep Heaven know of the to night","種類は，天国を今夜を知っていさせます（映画）"
"don't and mean see don't secret she , Be good is have to be , Don't and feat,Don't and Know, When and know.","しないでそして意味します秘密がしないかを見ます彼女，よいですそうですそうである必要があります，しますそして，技，しないでそして知っていて下さい，ときにそして，知っていて下さい（映画）"
"She to Don't fear,hiding have now, We'll I am in know","彼女への恐れないで下さい，隠れることは今持っています，我々がします私がそこにあります知っていて下さい（映画）"
"Cain holding now , Try is going done,I Do not Cain and Going to Say.","カインが今保持すると，試みは礼儀にかなっているようになります，私がします言う(べき)カイン，および歩行ではないです．（映画）"
"love storm enjoy,con never by any way","愛嵐は，楽しんで，決していくらかの(どんな)道ではありませんを騙します（映画）"
"To night door's is gone","もう扉は行きました（映画）"
"my lone caine,going to side","私の側に行く孤独な嫉妬（映画）"
"Love storm night Enjoyed","夜楽しまれた愛嵐（映画）"
"Con by me any way","私によってどのような道を騙してください（映画）"
"It is High Sand Distance make Saving in see small more","それは，高い砂距離が，もっと節約することを小さくするということです（映画）"
"Be's one trouble me got's me allow","そうです1(人)が，私を苦しめるということです得ます私です考慮に入れて下さい"
"Than to she why and can too take the true","よりもへの彼女なぜか(理由)，および出来るは，また真実であること(人)を連れていきます（映画）"
"Law of no rule Be I am Free","いかなるルールの法律が私が自由だということではありません（映画）"
"I want with me love Storm","私は，私と愛嵐が欲しいです（映画）"
"You Ready she in Crime","あなたが犯罪を用意します（映画）"
"In life State and In Life State","生活で州生活で州（映画）"
"Love Storm Great","荒れることがうまく大好きであって下さい（映画）"
"I'll Tower Power live storm and to smell a round","タワーは，ライブ嵐，および円の匂いをかぐことを強化します（映画）"
"So draw and I sky like closing factor so round","そのように作りますそして，とても丸い終わりの要因のような私は空（映画）"
"and one crystal and rising in night see like","そして，1つの水晶，および上昇は，夜で好きなのを見ます（映画）"
"I am gone Back Passing to the Tight","私は，きついこと(人)にとって過ぎ去っている後ろの通行です（映画）"
"Any Way rising Break and Done","いくらかの(どんな)道上昇中断そして，礼儀にかなっています（映画）"
"Like per me girl is gone In like is Day and lie and Day","私当りの，少女がぴったりはまられるように日および嘘，および日がそうかが好きであって下さい（映画）"
"Love Storm Enjoy","嵐が楽しむ愛（映画）"
"Gone by me any way","私によって過ぎ去っているのでいくらかの(どんな)道（映画）"
"Smile to White Twinkle White","白きらめき白への微笑み（エーデルワイス）"
"You want time to be free","あなたは時間に自由であってほしいです（エーデルワイス）"
"Find to star world be coude","世界に星印をつけることが雲であることを見つけて下さい（エーデルワイス）"
"Place my for ever","私を永遠におきます（エーデルワイス）"
"Every for plead me","全てを私に弁護してください（エーデルワイス）"
"Smile in Why,plead my find","何故かの微笑み、私を発見する弁護（エーデルワイス）"
"You want find be plead","あなたが発見がそうであることが欲しいですが弁論して下さい（エーデルワイス）"
"Find the stars you be cloud","雲であるたに星にあなたを見つけて下さい（エーデルワイス）"
"Thank you cloud for ever","有難うは永遠に曇ります（エーデルワイス）"
"Place for my hold for ever","永遠に私の手がかりのために置いて下さい（エーデルワイス）"
"I am here saying nothing","私はここに何も言いません（音楽）"
"Feeling you more close in my dream","私の夢であなたをより近いと感じること（音楽）"
"Can you hear my love is calling","私が愛を呼んでいる事を聞いてくれませんか（音楽）"
"I just wanna call you","私は丁度貴方に電話したいです（音楽）"
"I just call you","私は丁度あなたに電話します（音楽）"
"Be can't","そうですする事が出来ません（音楽）"
"I am here sayiing nothing","ここに私は何も言いません（音楽）"
"to great story side all specter","すばらしいストーリーに，すべての幽霊が，味方します(JustTheSame)"
"my kill are so to ground","地上に降りるために，私の殺しはそうです(JustTheSame)"
"wish wind green tight an PE tech to all are","すべてへのケチなPE技術がそうである望み風緑(JustTheSame)"
"can and tight","できますそして，きついです(JustTheSame)"
"when the and so cab to greeting","ときにそのおよびしたがって，挨拶へのタクシー(JustTheSame)"
"to everything and so to say","すべてへのそして，いわば(JustTheSame)"
"and so lie lone ground through face with legend","およびしたがって，伝説をもつ顔を通して孤独であって粉末になっている嘘(JustTheSame)"
"alone see shine and feel great","単独で輝きを見て，すばらしい感じがして下さい(JustTheSame)"
"he want gone and day waking fool tie and can stay of my chance will finding will fiiding Just Same","彼が，ただ同じfiidingがするかとわかって私のチャンスの滞在がする過ぎ去っているそして日目をさますことばか者結び，および缶が欲しいです(JustTheSame)"
"and through true danger night able night from answer in my country","そして，私の国で答えから夜できる真実の夜の危険を通して(JustTheSame)"
"trouble and refine false remember answer to go my heart","偽って心配して洗練されます私のハートになるために答えを思い出して下さい(JustTheSame)"
"along see shine tie fee rain along he my fine and night my name waking fool tie can stay of night chance are will finding finding Just Same","ずっと輝き結び料金がずっと雨が降るのを見ます彼私の有名な目をさましているばか者が発見がただ同じだったことがわかってチャンスがそうである夜の滞在がする缶を結ぶ私の罰金，および夜(JustTheSame)"
"under night you will feel and we star so tight in bright an feel and dad lone","夜の下に，あなたは感じるでしょう，そして，我々は，明るく孤独な感触，およびお父さんでとてもかたく主演します(JustTheSame)"
"will be find same and some and an want see shine and feel rain and feel your find and your night","発見同様およびいくらか(の人)になるでしょうおよびa欲しいです輝き，および感触が，あなたの発見およびあなたの夜を雨が降って感じるのを見て下さい(JustTheSame)"
"waking fool to night cast in my chance and your finding are your finding Just Same and your finding are your finding Just Same","私のチャンスおよびあなたの発見で投げたのはあなたがただの同様，およびあなたの発見があなたの発見だとわかることである夜のただの同様への目が覚めているばか者(JustTheSame)"
"what wrong is thing be","間違ってことがそうだということであるもの"
"but should be scold while should be praise need thing","しかし口やかましい人であるべきです間に称賛必要ことであるべきです"
"you praise she that point","あなたが誉め称えます彼女そのポイント"
"your love thing understanded","あなたの愛ことは理解されました"
"that is where I live","それは私が生きている場所です"
"what is this buy your take hand choice it,Both that,That is where account your counter","この買い物は何ですかあなた手選択にとってそれを要して下さい，共に，それ，それはどこでか(場所)だは，あなたのカウンターを思います"

Newest Program with Learning English to Japanese Languages

Timer Set on Aram,Buzzer on Beep Loop Seting Times.
100 REM ---------------------
110 REM Aram Program by Dai Fukuoka 2018.05.09
120 REM (C)電脳組
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 A$=TIME$:FOR I=0 TO 1 STEP 0:IF TIME$="07:40:00" THEN I=1:BEEP:BEEP:BEEP:BEEP:BEEP:BEEP:END
160 NEXT

Suptport Attend Go to That Hospital's, Wake Up Beep Sound on Timming on Get Up And Stand by Attend.Command Line 140,Standard Setting at Source Coode
Command Line 150,Let Timmer Variable Value of A$ Let Times at Scond Process,Catch on Timmer in AM 7:40 Hour and Minute Set with Start Up Stand up Wake Timer and Buzzer of BEEP count 5 Aram Timer.That Timmer is Program at Wake up Aram Source Coode.Statement of End Command is Close Program at on Stand by "Beginner's All-purpose Symbolic Instruction Code" at Those Standard Command Prompt.
このプログラムは初期化と、起床時間のブザー音で知らせるタイマーを朝の７時４０分に出発準備をする例文のプログラムソフトです。単純な構造になっており、変数”Ａ＄”にタイマーをセットする事で、ＦＯＲによる無限ループによって、ビープ音で知らせて、ＥＮＤにて終了します。病院の通院の８時１０分発着発のバスを７時４０分から出発して待合します。







100 REM ---------------------
110 REM SearchAscii Program by Dai Fukuoka 2018.07.15
120 REM (C)電脳組
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 DIM STRAIGHT$(390000):DIM HITCOUNT(390000):DIM CASEFILE$(2,99999)
160 INPUT "Open Sequential File Type of CSV Data Base Files : (FileName) ",A$
170 REM ON ERROR GOTO *ERRORSTOP:GOTO *SKIP1
180 REM *ERRORSTOP PRINT "No File Name Error";ERR:END
190 *SKIP1
200 OPEN A$ FOR INPUT AS #1:COUNT=1:WHILE EOF(1)=0:INPUT #1,STRAIGHT$(COUNT)
210 COUNT=COUNT+1:WEND
220 ENDCOUNT=COUNT:COUNT=1:PRINT "This DataBase Catch Out Conut of";ENDCOUNT-1
230 INPUT "Definition Type Sarch Words (2Byte):",B$:WLENGTH=LEN(B$):PRINT "Condition :";B$
240 FOR I=1 TO ENDCOUNT-1:FOR T=1 TO LEN(STRAIGHT$(I))
250 IF MID$(STRAIGHT$(I),T,WLENGTH)=B$ THEN HITCOUNT(I)=HITCOUNT(I)+1
260 NEXT T,I
270 FOR I=1 TO ENDCOUNT-1:IF HITCOUNT(I)=0 THEN ELSE PRINT I;"Result";HITCOUNT(I);",";
280 NEXT:PRINT
290 COUNT=1:FOR I=1 TO ENDCOUNT-1:IF NOT HITCOUNT(I)=0 THEN PRINT COUNT;STRAIGHT$(COUNT);:I=ENDCOUNT
300 NEXT
310 INPUT"Are You Hope All Data Base File Up List(Condition Print)(Y:0/N:1)",A:IF A=1 THEN *SKIP3
320 FOR D=1 TO ENDCOUNT-1
330 IF HITCOUNT(D)=0 THEN ELSE CASEFILE$(2,D)=STRAIGHT$(D):PRINT CASEFILE$(2,D)+" ";
340 NEXT D
350 *SKIP3
360 OPEN "SA18.txt" AS #2:CLOSE #2
370 OPEN "SA18.txt" FOR OUTPUT AS #2
380 FOR I=1 TO ENDCOUNT-1:IF HITCOUNT(I)=0 THEN ELSE WRITE #2,CASEFILE$(2,I);
390 NEXT I:CLOSE #2
Saerch Words and Data Base Read in Common is Count and Count After Type and Type Looking InvestiGate.User is Input Typing Any Clause.User Hope Farvorite Word Quick Search This Program.Analyse Result Data Base Contents.Seach ITEM's Conteiner SA18.txt File is Write with Reference txt.

探している文と、データーベースを読み込む共通の数と数、その後の文と文を見て調べる。使用者は入力して幾つかの箇条使用者は希望する好きな文をすばやく調べるこのソフトです。解析する結果のデーターベースの内容。探した項目は、ＳＡ１８．ｔｘｔのファイルに書いて一緒に参照するｔｘｔ





100 REM ---------------------
110 REM GuestArragement by Dai Fukuoka 2018.08.30-09.08
120 REM (C)電脳組
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 DIM CSV$(27000):DIM SORTNUM$(255):DIM NEWCSV$(27000):DIM LETSORT$(255):DIM ALPHABET$(255):DIM NUM(27000):DIM TOP(27000):DIM NEWNUM(27000):DIM TWO$(27000,2)
160 INPUT "CSVデーターベースのファイル名を拡張子付きで書いてください",FLN$
170 OPEN FLN$ FOR INPUT AS #1
180 FOR I=1 TO 27000:IF EOF(1)=0 THEN INPUT #1,CSV$(I)
190 IF EOF(1)=-1 THEN ENDPERIOD=I:I=27000
200 NEXT:CLOSE #1
210 IF ENDPERIOD=1 AND CSV$(1)="" THEN PRINT "ファイルが空です"
220 DATA "あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをん"
230 READ B$:FOR I=1 TO 46:LETSORT$(I)=MID$(B$,I*2-1,2):NEXT
240 DATA "アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲン"
250 READ A$:FOR I=1 TO 46:LETSORT$(I+46)=MID$(A$,I*2-1,2):NEXT
260 DATA "AIUEOKaKiKuKeKoSaSiSuSeSoTaTiTuTeToNaNiNuNeNoHaHiHuHeHoMaMiMuMeMoYaYuYoRaRiRuReRoWaWoNn"
270 READ C$:FOR I=1 TO 5:ALPHABET$(I)=MID$(C$,I,1):NEXT
280 FOR I=1 TO 42:ALPHABET$(I+5)=MID$(C$,(I*2)+4,2):NEXT
290 FOR I=1 TO ENDPERIOD
300 FOR T=1 TO 5:IF NUM(I)=0 AND MID$(CSV$(I),1,1)=ALPHABET$(T) THEN NUM(I)=92+T
310 NEXT
320 FOR T=1 TO 42:IF NUM(I)=0 AND MID$(CSV$(I),1,2)=ALPHABET$(T+5) THEN NUM(I)=97+T
330 NEXT
340 FOR T=1 TO 92:IF NUM(I)=0 AND MID$(CSV$(I),1,2)=LETSORT$(T) THEN NUM(I)=T
350 NEXT
360 NEXT
370 LET R=1:FOR I=1 TO 139:FOR T=1 TO ENDPERIOD
380 IF NUM(T)=I THEN NEWCSV$(R)=CSV$(T):R=R+1
390 NEXT:NEXT
400 OPEN "sortExport.txt" AS #1
410 IF NOT EOF(1)=0 THEN ENDOFFILE=1
420 CLOSE
430 OPEN "sortExport.txt" FOR OUTPUT AS #1
440 FOR I=1 TO ENDPERIOD:WRITE #1,NEWCSV$(I):NEXT
450 CLOSE #1
460 FOR I=1 TO ENDPERIOD:PRINT NEWCSV$(I);:NEXT
470 PRINT "Result of Sort."
480 INPUT "on Enter Restart.",A$
490 RUN


This is Naming List Book at Japanese is Case of Hiragana,Kana,Roman Order Arragement Reference Firstest Hiragana Second Kana Next Roman Legal Rule.This is Examination Empty File ,And Too Stop on Case with Restarting,If Empty Case is Have File Name True That Touch Type File Name is No Error and Can ReStart.Command Line : 220 is Sort Arragement DataBase Reading Start,That File Put Exchange Word Number is Result 1 to 139 Arragement Changing Top Word Name at Nubmber.ReUse and Change Cycle Alphabet Arragement Remake If Can Your Technique and ABC Sort Arragement ReChange.Result is Display with Export Txt File,This is Note Pad Examination and Change Arragement Result See You Result on Note Pad Applette to "sortExport.txt".

このソフトは日本人名簿を並び替えます。並び替えを日本語でひらがな、カタカナ、ローマ字に並び替えるソフトです。Ｒｅａｄで順次、ソート項目を読み込み、ＤＡＴＡから文字配列を抽出します。応用すれば、ＡＢＣ順に並び替える事もできます。結果は、表示され、新しくソートエクスポートと言うＣＳＶデータ型でＴＸＴ形式のメモパッドで読み込み可能です。主に日本語の名前の並び替えに有効な使い道があります。

Soft ware Development on English Language of Learner

4 Season Stock
**************************
100 REM ---------------------
110 REM Program by Dai Fukuoka 2016.08.01-08.05
120 REM (C)電脳組
130 REM --------------------- 140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 DIM SUM(99):DIM AGREE(20)
160 *START
170 *Q1 PRINT "What many Mounth at Start Incoming"
180 PRINT "何月から収入の始めですか:";:INPUT "",MOUNTH
190 IF MOUNTH>0 AND MOUNTH<13 THEN ELSE *Q1
200 *Q2 PRINT "Is Society Insurance Contract EXPONENT for much"
210 PRINT "社会保険の契約指数はいくつですか:";:INPUT "",SI
220 IF SI>-1 AND SI<11 THEN ELSE *Q2
230 *Q3 PRINT "Is many at Stock Holder's Fine"
240 PRINT "証券罰金料の指数はいくつですか";:INPUT "",SHF
250 IF SHF="0" AND SI="0" THEN *Q2
260 IF SHF>-1 AND SHF<10000 THEN ELSE *Q2
270 *Q4 PRINT "Select is Money Rate for (0)Euro(1)Yen(2)UsaDoll"
280 PRINT "通貨のレーティングを選択してください(0)Euro(1)Yen(2)UsaDoll";:INPUT "",RATE
290 IF RATE=0 THEN RATING=180 ELSE IF RATE=1 THEN RATING=1 ELSE IF RATE=2 THEN RATING=133 ELSE *Q4
300 *Q5 PRINT "What is Incoming for Payed Type Account(0)Cooprate Tax and Allotment Plus(1)Cooprate Tax Only(2)Allotment Only(3)Full Income"
310 PRINT "収入の支払形式は何ですか(0)法人税と配当(1)法人税のみ(2)配当金のみ(3)全部の収入";:INPUT "",PAY
320 IF PAY>-1 AND PAY<4 THEN ELSE *Q5
330 *Q6 PRINT "Is many EXPONENT of Stock Market Investment Payed Plan for Plan Total"
340 PRINT "合算は、支払い計画にて幾つの証券指数にしますか";:INPUT "",TOTAL
350 IF TOTAL<0 THEN TOTAL="ABS(TOTAL)" ELSE IF TOTAL="0" THEN *Q6
360 *Q7 PRINT "Stock Market Holder do not Mine(0)Yes(1)No"
370 PRINT "自分が保有しない株ですか(0)はい(1)いいえ";:INPUT "",MINE
380 IF MINE="0" OR MINE="1" THEN ELSE *Q7
390 *Q8 PRINT "Is Year Range of Stock Market Holder for many (0)1Year(1)2Year(2)4Year"
400 PRINT "証券期間を幾つのためにしますか:";:INPUT "",SR
410 IF SR>-1 AND SR<3 THEN ELSE *Q8
420 AGREE(1)=MOUNTH:AGREE(2)=SI:AGREE(3)=SHF:AGREE(4)=RATE:AGREE(5)=PAY
430 AGREE(6)=TOTAL:AGREE(7)=MINE:AGREE(8)=SR
440 IF SR="0" THEN SR2=1 ELSE IF SR="1" THEN SR2=2 ELSE IF SR="2" THEN SR2=4
450 FOR T="1" TO SR2:FOR I="MOUNTH" TO 12:COUNT=COUNT+1
460 INCOME1=SI*30000:INCOME2=SHF*30000:INCOME=INT(INCOME1+INCOME2)/RATING
470 IF PAY="0" THEN INCOME="INCOME/3" ELSE IF PAY="1" OR PAY="2" THEN INCOME="INCOME/3*2
480" SUM="INT(SUM+INCOME)
490" REM
500 SUM(I)=SUM
510 IF I="1" THEN PRINT "First Winter Season Count 1";SUM(I);INT(INCOME)
520 IF I="2" THEN PRINT "First Winter Season Count 2";SUM(I);INT(INCOME)
530 IF I="3" THEN PRINT "First Winter Season Count 3";SUM(I);INT(INCOME)
540 IF I="4" THEN PRINT "Splinter Season Count 1";SUM(I);INT(INCOME)
550 IF I="5" THEN PRINT "Splinter Season Count 2";SUM(I);INT(INCOME)
560 IF I="6" THEN PRINT "Splinter Season Count 3";SUM(I);INT(INCOME)
570 IF I="7" THEN PRINT "Summer Season Count 1";SUM(I);INT(INCOME)
580 IF I="8" THEN PRINT "Summer Season Count 2";SUM(I);INT(INCOME)
590 IF I="9" THEN PRINT "Summer Season Count 3";SUM(I);INT(INCOME)
600 IF I="10" THEN PRINT "Last Fall Season Count 1";SUM(I);INT(INCOME)
610 IF I="11" THEN PRINT "Last Fall Season Count 2";SUM(I);INT(INCOME)
620 IF I="12" THEN PRINT "Last Fall Season Count 3";SUM(I);INT(INCOME)
630 NEXT:MOUNTH=1:INPUT "",PASS:NEXT
640 IF INCOME1+INCOME2>TOTAL THEN PER=(INCOME1+INCOME2)*COUNT*100/(TOTAL*1000000)/RATING
650 IF INCOME1+INCOME2 660 PRINT "share of";PER:PRINT
700 GOTO *START

行番号１００，１１０，１２０，１３０は、このプログラムが、福岡 大の製作したソフトである事が書かれています。また、開発環境を電脳組であると明記しています。
Command Line 100,110,120,130, This Program is Programming By Dai Fukuoka Maked with Development "Dennougumi" Coopration Limited Sign Signal .
行番号１４０は、配列変数の格納個数を”ＳＵＭ”９９個”ＡＧＲＥＥ”２０個定義します。
Command Line 140 , Arrangement Valiable Container Kind of "SUM" 99 Unit and "AGREE" 20 Unit Formatted it .
行番号１７０と１８０は現在の月を入力します。年末決算までの収入を計算します。
Command Line 170,180 , User Must Just Now Mounth Typing After Incoming Close The Year Sales on Start Line Now .
行番号１９０は、意志表示の関数を実行します。０より大きく、１３より小さい場合は何もしません、その代わり例外が起こった時に、ラベル”Ｑ１”に戻りますから、１から１２までしか、変数に格納できません。 Command Line 190 , This Function is Statement Execution 0 More Than 13 Less Than Case in Not Execute , Exception Case is Return Go to "Q1" Label .
行番号２００と２１０は社会保険の指数を入力を必要とします。社会保険がない場合は投資売上を計算する事ができません。
Command Line 200,210, Society Insurance EXPONENT is Must Need Typing , IF Society Insurance Case Nothing is No Total .
行番号２２０は、－１より大きく１１より小さい場合は何もしません、例外はラベル”Ｑ２”に一段階戻ります。
Command Line 220 , Type Result -1 More Than and 11 Less Than Case is Nothing Else Exception Jump to "Q2" Label Back One Step Type Work .
行番号２３０と２４０は、証券罰金の金額を指数で入力します、株から投資の還元が出来ない、ファイナンシャルプランに対して付くファイナンシャルです。”ＳＨＦ”変数に格納されます。 Command Line 230,240 , Stock Market Fine Must Type EXPONENT , No Capital Incoming Case is Financial Plan Use It , This In Puted Information is Variable "SHF" Conteiner In . 行番号２５０と２６０は、社会保険指数を入力した”ＳＩ"と、証券罰金の指数の”ＳＨＦ”ｎｏ両方が空で有れば、社会保険の質問の”Ｑ２"ラベルに移動します。
Command Line 250,260 , Typed "SI" and "SHF" Variable with In Puted EXPONENT Society Insurance and Stock Market Fine , IF Case is Both Nothing Answer Question Label "Q2" Jump . 行番号２７０と２８０は、変数”ＲＡＴＥ”に通貨換算値を入力します。
Command Line 270,280 , User Must Typing Variable "RATE" In put Money Exchange Rating Value .
行番号２９０は、前回の入力に０は、１８０分の１、１は等倍、２は、１３３分の１とユーロ、円、米ドルに対応します。実際のＦＸは、もっと日本の通貨が高い数値で取引されていますが、ストックマーケットはこの値です。
Command Line 290 , RearWard Typed Method Exchange Value Case "0" 180 Divide, Case "1" Equivalent ,Case "2" Divide 133 Support Change Value 3 Type ,Reality Fx A Mount Japan Yen Height Rating Exchange ,Else Exist Stock Market Standard Value .
行番号３００と３１０は、収入方式を、支払責任を設定します。”０”法人税と配当金を社会保険、罰金に払う、給料は決済される（１）法人税のみ、投資責任を証券会社のみに任せる（２）配当金のみ、投資家責任を負う（３）全部の資本責任を自分で負う。
Command Line 300,310,Setting Incoming Type Payed Responsibility Type In put Valiable "PAY" Value of "(0) Cooperate Tax with Allotment Society Insurance and Fine , Payed Incoming ,(1) Only Cooperate Tax Pay Security with Stock Market (2) Only Allotment Responsibility Investor (3) All Incoming Responsibility" 行番号３２０は、変数”ＰＡＹ”がー１より大きく、４より小さい場合に何もしません、その他の実在されるのは、ラベル”Ｑ５”行番号３００にある所に移動する。
Command Line 320 Valiable "PAY" More Than -1 Less Than 4 Case Nothing ,Else Exist Jump Label "Q5" Command Line 300 .
行番号３３０と３４０は、入力を必要とし、通り越すことができません、社会保険と、証券罰金の合算について聞いています。それを上回る場合は、株と解釈されます。
Command Line 330,340 , User Need Type with on No Skip , hear Society Insurance Addition Fine Total , Case Over is Addit Chapital Understand .
行番号３５０は、合算の結果が０より小さい場合、ＡＢＳ関数で符号を反転します。
Command Line 350 , Result Case Valiable "TOTAL" Value Less Than "0" is Reverse Sign ABS Function .
行番号３６０と３７０は、署名について自分自身の管轄であるか、預かっているのかを聞きます。
Command Line 360,370 , This Since About User Proxy or My Found Else Undecided hear It , Valiable "MINE" Value Type In Put True (0) Did User No Have Use It , False (1) DId User Have Use It . 行番号３８０は、変数”ＭＩＮＥ”が”０”か”１”であれば何もしません、その他の実在は、元の質問のラベル”Ｑ７”に戻ります。
Command Line 380 , Valiable "MINE" Value is Case "0" or Case "1" Than Nothing ,Else Exist Return Answer Jump Label "Q7" .
行番号３９０と４００は、証券を運用する年数を聞いています、変数”ＳＲ”に格納されます、（０）１年（１）２年（２）４年。
Command Line 390,400 , Practical Use Term Year Type Count Valiable "SR" In Put , Tarm is Next (0)1 Year Between (1) 2 Year Between (2) 4 Year Between .
行番号４１０は、－１より大きく３より小さい場合は何もしません、その他の実在はラベル”Ｑ８"に戻ります。
Command Line 410 , More Than "-1" Less Than "3" Case Nathing , Else Exist Go to Label "Q8" .
行番号４２０と４３０は、配列”ＡＧＲＥＥ”に対して各変数を代入していきます。
Command Line 420,430 , Arrangement Valiable "AGREE" Target EquiValent Case "(1):Mounth", Case "(2):SI", Case "(3):SHF" , Case "(4):RATE" , Case "(5):PAY" , Case "(6):TOTAL" , Case "(7):MINE" , Case (8):SR" Input Many Value Equivalent . 行番号４４０は、”ＳＲ”を期間の年数に変換します。”ＳＲ２”に代入されます。
Command Line 440 , Valiable "SR" Change Tram "SR2" Min 1Year Max 4 Year Type In put Loop Count Valiable .
行番号４５０は、関数”ＦＯＲ”は変数”Ｔ”に”１”の開始を定義して、変数”ＳＲ２”に終了します。、また、その間“ＦＯＲ”関数は、変数”Ｉ”に対して開始月を変数”ＭＯUＮＴＨ”から始まり、１２月に統計を終了します。年が繰り越されたら、月は冬の”１月”にもどります。
Command Line 450 , Statement Function "FOR" is Valiable "T" in "1" to "SR2"(SR2 Tarm Season Monthly) and End of "SR2" , Through Also Between Statement Function "FOR" is Valiable "I" in Start Mounth with Valiable "Mounth" to December 31 Close Year ,Over Take Year is Start Mounth Change Junylary 1 Turn And Loop with "SR2" Year End Year with Season .
行番号４６０は収入変数”ＩＮＣＯＭＥ１”に社会保険料変数”ＳＩ”に３０千に掛け算します。収入変数”ＩＮＣＯＭＥ２”には、証券罰金を３０千で掛け算します、収入変数”ＩＮＣＯＭＥ”は、”ＩＮＣＯＭＥ１”と”ＩＮＣＯＭＥ２”を合算し通貨換算値で割ります。日本通貨を通常と想定しているので、日本円は、換算値で割りません。
Command Line 460, Receive Payed Valiable "INCOME1" in Society Insurance Valiable "SI" Method Multiply 30Thousand Resolution EXPONENT ,With Recieve Pauyed Valiable "INCOME2" in Stock Market Fine Method Multiply 30 Thousand With Method "INCOME1" Addition "INCOME2" Equivalent "INCOME" TOTAL Divition Contry Money Rating Exchange ,Japan Yen Money is Standard Accounting with Default .
行番号４７０は、条件関数にて変数”ＰＡＹ１”が”０”の場合、”１”の場合、そして”２”の時、３で割り算するのか、３で割って１０分の１を求めて２で掛け、２０ＰｅｒＭｏｎｅｙを計算します。雇用計画の二つになる。
Command Line 470, Derision Statement Function "IF" by 2 Type Brunch Case "0" by Method "INCOME" Division 3,Reduce 10 Per Money ,Case "1" by Method "INCOME" Division 3 with Multiply 2 of 20Per Incoming Money Payed Employee Plan 3 Type .
行番号４８０は、変数”ＳＵＭ"に小数点を切り捨てる関数”ＩＮＴ”を使用して、”ＳＵＭ”に対して”ＩＮＣOMＥ”を加算します。
Command Line 480, Valiable "SUM" into "SUM" Addition with "INCOME" and Filter Function "INT" Execute Matrix .
行番号５００は、配列変数”ＳＵＭ(Ｃｏｕｎｔ）”に、ＳＵＭを等価にします。
Command Line 500, Arrangement Valiable "SUM()" with Now Count Equivalent Valiable "SUM" .
行番号５２０から６２０は、関数”ＩＦ”にて、現在の変数”Ｉ”を１２段階で分岐し、冬から秋にかけて現在の”ＩＮＣＯＭＥ”と、”ＳＵＭ（数）”を表示します。６２０番まで途中で加算する式はありません。行番号６３０は、１２月ごと変数”Ｐａｓｓ”にて、ユーザーの入力を待ちます。関数”ＮＥＸＴ”で、４４０行番号から、６３０の区間を繰り返します。 Command Line First 520 to Last 620, Statement Function "IF" by Now Valiable "I" is Case Count 12 Type to Show Display Valiable "SUM(I)" with Valiable Now "I" and Season List Wait User Typing Passager Valiable "Pass" ,Command Line 630 is Statement Function "NEXT" is 440 to 630 Section Looping Count and Count . 行番号６４０は、変数”ＴＯＴＡＬ”（合算）が収入変数”ＩＮＣＯＭＥ１”と”ＩＮＣＯＭＥ２”より小さい場合、”ＰＥＲ”変数に、合算を格納します。
Command Line 640 ,Valiable "TOTAL" less than Valiable "INCOME1" Addition "INCOME2" Case Valiable "PER" In put Container Method "INCOME1" Addition with "INCOME2" Multiply Valiable "Count" Multiply 100 Division Valiable "TOTAL" Multiply 1Milion Division Valiable "RATING" . 行番号６５０は、変数”ＩＮＣＯＭＥ１”と変数”ＩＮＣＯＭＥ２”を加算した同じ値より、変数”ＴＯＴＡＬ”が上回る場合、変数”ＰＥＲ”に対して”ＩＮＣＯＭＥ１”と”ＩＮＣＯＭＥ２”の合算を格納します。 Command Line 650 ,Valiable "INCOME1" Addition "INCOME2" Equivalent More Than Valiable "TOTAL" Case is Valiable Container "TOTAL" Method Valiable "INCOME1" Plus Valiable "INCOME" Total Valiable "TOTAL" . 行番号６６０は、占有率と変数”ＰＥＲ”を表示します。
Command Line 660 ,Share of Valiable "PER" to Show Display Counting .行番号７００は、ラベル”ＳＴＡＲＴ”に移動します。行番号１６０に移動します。
Command Line 700 ,Go to Label "START" and Command Line 160 Jump

*****************
deditor

100 REM --------------------
110 REM copyright Module by DaiFukuoka 2016.6.20-7.21
120 REM (c)電脳組
130 REM --------------------
140 CONSOLE 0,24,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,7,2:CLS 3
150 DIM CSV$(9999,11)
160 IF POINT(639,479)=POINT(639,399) THEN LINEMODE=-1:GOTO *L2 ELSE LINEMODE=1:GOTO *L1
170 *L1
180 LINE (0,0)-(639,18),4,BF:LINE(0,32)-(639,48),4,BF
190 LINE(0,96)-(639,112),5,BF:LINE(0,176)-(639,192),5,BF
200 LINE(0,256)-(639,272),6,BF:GOTO *O1
210 *L2
220 LINE (0,0)-(639,18),4,BF:LINE(0,36)-(639,54),4,BF
230 LINE(0,110)-(639,130),5,BF:LINE(0,187)-(639,204),5,BF
240 LINE(0,263)-(639,282),6,BF
250 *O1
260 LOCATE 0,0:PRINT "Load File Name : ";:INPUT "",LFN$:IF LFN$="" THEN *START
270 OPEN LFN$ AS 1:LEOF=EOF(1):CLOSE 1:IF LEOF=-1 THEN *MAKEFILE
280 OPEN LFN$ FOR INPUT AS #2:
290 FOR I=1 TO 9999:INPUT #2,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(1,4),CSV$(1,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(I,11):NEXT:CLOSE #2
300 LOCATE 0,0:PRINT SPC(78);:GOTO *START
310 OPEN LFN$ FOR OUTPUT AS #1
320 FOR I=1 TO 9999:WRITE #1,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(I,4),CSV$(I,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(1,11):NEXT:CLOSE #1
330 LOCATE 0,0:PRINT SPC(78);:GOTO *START
340 *START
350 LOCATE 0,0:PRINT SPC(78);
360 IF CSV$(PAGE,ARTICLE)="" THEN CSV$(PAGE,ARTICLE)=" "
370 IF CSV$(PAGE,1)="" THEN CSV$(PAGE,1)=" "
380 IF FLAG=0 THEN PAGE=1:LOCATE 0,0:PRINT "Tittle / Page :";:INPUT "",PAGE:LOCATE 0,1:PRINT CSV$(PAGE,1):LOCATE 0,2:PRINT "Article Preview :";:INPUT "",ARTICLE:LOCATE 0,3:PRINT CSV$(PAGE,ARTICLE)
390 IF FLAG=-1 THEN FLAG=0:LOCATE 0,0:PRINT "Tittle / Page :";PAGE;SPC(200);:LOCATE 0,1:PRINT CSV$(PAGE,1):LOCATE 0,2:PRINT "Article Preview :";ARTICLE;SPC(200);:LOCATE 0,3:PRINT CSV$(PAGE,ARTICLE)
400 LOCATE 0,6:PRINT "Edit Artice";ARTICLE;" Page";SPC(200);PAGE;:LOCATE 0,7:INPUT "",WROTE$
410 IF WROTE$="" OR WROTE$=" " THEN ELSE CSV$(PAGE,ARTICLE)=WROTE$
420 *LOOP1
430 LOCATE 0,10:PRINT "Select Article and Pages";
440 LOCATE 0,11:PRINT "0: NoMove , 1:Add+ , 2: Dec-";:INPUT "",REQUEST
450 IF REQUEST=0 THEN *ACCEPT
460 LOCATE 0,12:PRINT "0:[1]/1:[10]/2:[100]/3:[1000]";:INPUT "",MANY
470 *ACCEPT
480 LOCATE 0,13:PRINT "Okay? 0:Yes / 1:No ";:INPUT "",ACCEPT:IF ACCEPT=1 THEN *LOOP1
490 IF MANY=0 THEN COUNT=1
500 IF MANY=1 THEN COUNT=10
510 IF MANY=2 THEN COUNT=100
520 IF MANY=3 THEN COUNT=1000
530 IF COUNT+PAGE>9999 THEN *LOOP1
540 IF COUNT+PAGE<1 THEN *LOOP1
550 IF REQUEST="0" THEN PAGE="PAGE
560" IF REQUEST="1" THEN PAGE="PAGE+COUNT:FLAG=-1
570" IF REQUEST="2" THEN PAGE="PAGE-COUNT:FLAG=-1
580" LOCATE 0,14:PRINT "For Number of Article : (1-11) : ";:INPUT "",ARTICLE
590 IF ARTICLE<1 OR ARTICLE>11 THEN ARTICLE=1
600 LOCATE 0,15:PRINT "0:Saving Sequence 1:No Think : ";:INPUT "",FILESAVE
610 IF FILESAVE=1 THEN *START ELSE IF FILESAVE=0 GOTO *SFN
620 *SFN
630 LOCATE 0,16:PRINT "Save File Name : ";:INPUT "",SFN$
640 CLS:IF SFN$="" THEN *LOOP1
650 OPEN SFN$ AS 1:CLOSE 1:OPEN SFN$ FOR OUTPUT AS #1
660 FOR I=1 TO 9999:WRITE #1,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(1,4),CSV$(1,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(I,11):NEXT:CLOSE #1
670 GOTO *START
680 *IFEND GOTO *START:END IF:END



行番号１００，１１０、１２０，１３０、これは、モジュールを作った著者の福岡 大は、控めな申請です。開発環境は、有限会社電脳組です。
Command Line 100,110,120,130 , This is Make Moduler Dai Fukuoka All Right Reserved(Copy right) and Platform Cooperation Limited Dennougumi .
行番号１４０は、文字の大きさと、スクリーン画面の設定と合わせて、色彩と、背景色です。
Command Line 140 , Setting is Screen Character size with Color mode and Background Color .
行番号１５０は、配列変数ＣＳＶ形式の文字列を、１万回と、１１段に分けた設定します。
Command Line 150 , Setting is CSV Type Data of Arrangement Strings Words with Count and 10Thousand withon 11 Category .
行番号１６０は、背景色が、６４０と、４８０数の位置と、６４０と４００の数の位置の色情報を実際に採取して、それをＩＦステートメントで判定を分けます、４８０ラインと同じで有れば－１と*Ｌ２ラベル、４００ラインで有れば、黒色が地点に返されて、＋１のラインモードの変数に格納します。ラベル*Ｌ１に移動します。
Command Line 160 , Case and Case IF Decision Case Ture Screen Line Mode Max 480 , Less than case False Screen Line Mode Min 400 , Decision Large or Small , Program Must Standard Screen Setting and Execute Setting ForWard Label Large *L2 or Small *L1 withon Target Root in *O1 .
行番号１７０、１８０．１９０、２００、図形機能Ｌｉｎｅ関数を使って四角形を端から端まで描いて、画面を編集します、色覚を文字列に密接します。
Command Line 170,180,190,200 , Draw Rect Deep and Deep Screen Side , Edit Screen Color Background Color with Fit String Text .
行番号２２０，２３０，２４０、規格高さで整列した四角い領域を４００ラインモードで描画します。
Command Line 220,230,240 , Arrangement Rect Square Angle of Standard Height 400 Line Screen Mode at Draw .
行番号２６０は、必要なければ、名前を指定する必要ありません、記録したファイル名データを読み込みます。
Command Line 260 , Recording Wrote CSV Sequenceal Load File Name , File Name is Need Less Appointment .
行番号２７０は、ファイルの終端をＬＥＯＦ変数に判定を納めます、ＬＦＮが行番号２６０にて指定されたファイルを開きます。
Command Line 270 , RearWard One Step with Variable Value Decision Put in "LEOF" Variable Value , Appointment File Name "LFN" Open .
行番号２８０、２９０は、指定したファイル名を開き、書き込み設定で１１列のＣＳＶと、終端までの高さを定数９９９９行まで記録ファイルから読み取ります
Command Line 280,290 , Appointment File Name Open with Trough Writing 11 Count Arrangement withon 9999 Count Height Column Record File to Read and End of File .
行番号３００、３３０は、文字列の在った０，０座標に78文字半角で空白を埋め、ラベル　＊Ｓｔａrｔへ飛び越します。
Command Line 300 , Skip out Label "Start" Jump with String Text Coordinate 0,0 Point Harf 78 Count Type Spacing .
病番号３１０、３２０は、キャッシュから書き込んで失った変数値を”ＯＵＴＰＵＴ”設定で書き込んだ情報から読み込みます。
Command Line 310,320 , Wrote Information at Cash Memory loss Variable Value After Read Setting "OUTPUT" Mode at Variable Full Fill a Hole Record .
行番号３６０、３７０は、ＣＳＶ形式に空の情報に対して空白を詰めていきます。ＣＳＶの先頭配列と参照配列に空白を詰めます。
Reference Pick upping Empty Changing Space Fill a Hole and Top Word Change Space .
行番号３８０は、変数”ＦＬＡG”が０の結果の時、開始準備を設定し、”ＰＡＧE”変数が１から始まります。整数で使用者が入力する必要があります。
Command Line 380 , Decision Result Variable Value of 0 Count For Start up Setting Page Variable Start one Trough , User is Need Typing Information .
　 行番号３９０は、変数値”ＦＬＡＧ”が-1の時"ＦＬＡＧ”をオフセット（０）にします。現在位置の変数値”ＰＡＧＥ”と、”ＡＲＴＩＣＬＥ”の値を表示したあと２００文字空白で埋めます。1行目と３行目です、また空白を詰めたあと、現在位置の”ＣＳＶ”形式の現在位置の内容を表示します。
Command Line 390 , Decision Result Variable "FLAG" Value if "-1" Case For Ward Set "0" off Set , String Text Clear Setting Space Mode , Show Display "CSV" onTime "Page" and "Article" Variable Value to Location 0 with 2 and Show String Text Contents .
行番号４００は、７、８行目の６と７に、今編集中の”ＡＲＴＩＣＬＥ”と”ＰＡＧＥ”を表示し、変数値”ＷＲＯＴＥ”に格納します。空の場合は、１文字の空白が詰められます。
Command Line 400 , Column 7,8 Value 6,7 onTime Editing Text "ARTICLE" and "Page" Enter "CSV" Type Arrangement Variable , Show Display "Page" and "Article" Count .
行番号４１０は、入力で何も入力しなかった場合や空白が詰められている場合　なにもしなく、また他は”ＣＳＶ”配列変数に対して文書を格納します。
Command Line 410 , This is Type Nothing Skip,User Must Typing , if No Nothing Case In Put Arrangement Variable Value Type Text Information .
行番号４３０、４４０、４５０、４６０、４８０は、”ＭＡＮＹ”と、”ＲＥＱＵＥＳＴ”を入力し、その案内を表示します。そのままエンターキーを押すとラベル”ＡＣＣEＰＴ”に移動して回答を伺う、否定した場合に変数”ＡＣＣＥＰＴ”を”１”とする、普通にエンターキーを押して、数値が”０”で有れば、同意し次へ進みます。
Command Line 430,440,450,460,480 , User Type Page Change Program For Input of "MANY" , "REQUEST" After Sign In Next , Request Ask Type Method withon Addition or Decrease Type Result , Move Page is "1","10","100","1000" Plus Minous to Decision Value Pages,Accept Type Support Enter and Default Value to Skip Request Standard Settings .
行番号４９０，５００，５１０，５２０は、変数"ＭＡＮＹ”で入力した数値に対して表記結果を条件によって数値が変わります。
Command Line 490,500,510,520, Decision Variable "MANY" Value IF Case is Need Type And Result Method Column , Default Setting Value Skip "Enter" Accept Automation Result Type Value,Change Page Count it .
行番号５３０，５４０は項の数値が９９９９以下１以上になるように例外を除外します。
Command Line 530,540, This Function is Exist Variable Value of 10000 under with 0 Over,Other Run Back .
行番号５５０、５６０、５７０は、回答した項の増減を中立なのか、増えるのか、減るのか変数”ＰＡＧE”に対して先ほど入力した”ＭＡＮＹ”から作られた”ＣＯＵＮＴ”を増減します。
Command Line 550,560,570, RearWard This Function Ask reQuest Page Count Warehouse Neutral or Addition or Decrease,This is Make Variable "MANY" to "COUNT" IF Case Neutral is NoFlag Else Other Decision is Flag "-1"
行番号５８０は、５９０、ＣＳＶ規格に準拠し、２５６文字以内、１２項目以下です。質問と答え、”ＡＲＴＩＣＬＥ”にＣＳＶの項目値を入力します。正しくない値は除外されます。
Command Line 580, This Soft Ware Standard Basic/98 with MicroSoft N88Basic(86) with TYPE DATA CSV, This Function Information "ARTICLE" Type Input "ARTICLE" at Value And Arrangement, Request and Answer "CSV" Standard Type Variable Input Values, Exist No "256" Word Over with No "11" Arrangement Over .
行番号６００は、書いた情報を今保存するのか、結構なのか回答を必要とします。任意のエンターキーでは通常は保存します。変数値”ＦＩＬＥＳＡＶＥ”に結果を保持します。
Command Line 600, Now Savings Information Wrote or No think Need Type Answer,User Type Result Nothing is Accept Wrote Planning Keep Result .
行番号６１０は、先程の説明に０と１以外の不正な値が格納されないように判定します。
Decision Bad Value Type Input "FILESAVE" Case Exist it , This Variable is Keep Container Data .
行番号６３０と６４０は、”ＳＡＶＥ ＦＩＬE ＮＡＭＥ”保存する名前を”ＳＦＮ”変数に入力します。次の行で、”ＳＦＮ”変数が空で有ればラベル”ＬＯＯＰ１”に移動します。”ＬＯＯＰ１”は、４２０行番号にあります。データを保持することにファイル名を入力しなければならないそれと、通り越し禁止に一緒に
Command Line 630,640 , Show Answer "SAVE FILE NAME" After Stand by Typing and ReName Variable Container "SFN" In Put Typing Information , IF Case Variable Value Nothing with Go to Label "Loop1" Jump Command Line 420 .Keep Data is Must Typing FileName withIn NoSkip .
行番号６５０と６６０は、変数”ＳＦＮ"にあらかじめ空のファイルを＃なしで作成しておき、後から作られたように、シーケンシャルファイル番号＃１番にエクスポートの”ＯＵＴＰＵＴ"モードに変えます。また次の行でっは、ループ（繰り返し処理）を使って、実際に一行づつ９９９９回まで書き込みます、書きこまれる内容の全てが、”ＣＳＶ”配列変数でなければなりません、Ｎｅｘｔで折り返しＦｏｒに戻り、抜けると＃１のファイルを閉じます。
Command Line 650,660 , Starting by Empty Data File , Make "SFN" Variable New File Name For Write , Maked ForWard Sequence #1 Open Number Export "OutPut" Mode Change Open File Mode , This Function with Variable is Loop 1 to 9999 Count Jump Start on Count , This All Contents is Standard "CSV" Type Variable Arrangement , IF Loop out is Sequence Number #1 Close Open File with File Name Close .
行番号６７０は、初期化作業のみを除いた位置にラベル”ＳＴＡＲＴ”に戻ります。行番号３４０にあります。
Command Line 670 , System Work is Full Setting Go to Jump Label "START" Return Locate on Command Line 340 .

*************
dissue

100 REM ---------------------
110 REM rating Program by Dai Fukuoka 2016.07.26-2016.07.29
120 REM (C)電脳組
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 *START
160 PRINT "Property account Type Account Capital of Hieghest :"
170 INPUT "資産料（一番大きい株郡）を入力してください：",CAPITAL
180 PRINT "Audit Delay Dispit Issue Reduce 2 Account Member Count is :"
190 INPUT "監査会（猶予の回数人数）の審査の回数を乗算で求めます",DELAY
200 LET ISSUE=CAPITAL : LET COUNT=0
210 IF CAPITAL<1 THEN *START
220 FOR I="0" TO DELAY STEP 1
230 ISSUE="ISSUE*2:COUNT=COUNT+1
240" NEXT
250 PRINT ISSUE:
260 IF ISSUE>10000 THEN PRINT "万：man/d5-tenThousand"
270 IF ISSUE>100000000 THEN PRINT "億：oku/d9-oneHandletMilion"
280 IF ISSUE>1000000000000 THEN PRINT "兆：chou/d13-oneThousandBilion"
290 IF ISSUE>1D+017 THEN PRINT "京：kyou/d17-oneHandletTousandTrilion"
300 IF ISSUE>1D+021 THEN PRINT "亥：gai/d21-oneBilionTrilion"
310 IF ISSUE>1D+025 THEN PRINT "序：jo/d25-tenThousandBilionTrilion"
320 IF ISSUE>1D+029 THEN PRINT "襄:jou/d29-oneHandletMilionBilionTrilion"
330 IF ISSUE>1D+036 THEN PRINT "溝:kou/d36-TenHandletThousandMillionBilionTrilion"
340 IF ISSUE>1D+040 THEN PRINT "間:kan/d40"
350 IF ISSUE>1D+044 THEN PRINT "正:sei/d44"
360 IF ISSUE>1D+048 THEN PRINT "載:sai/d48"
370 IF ISSUE>1D+052 THEN PRINT "極:goku/d52"
380 IF ISSUE>1D+056 THEN PRINT "黄河沙:kougasya/d56"
390 IF ISSUE>1D+060 THEN PRINT "阿僧紙:asousi/d60"
400 IF ISSUE>1D+064 THEN PRINT "那由他:nayuta/d64"
410 IF ISSUE>1D+068 THEN PRINT "不可思議：fukasigi/d68"
420 IF ISSUE>1D+072 THEN PRINT "無量大数：muryoutaisuu/d72"
430 GOTO *START

行番号１００，１１０，１２０，１３０は、キャプション"レーティングプログラム”に著者の名前、福岡 大と日付を記入しています、また、法人団体を、有限会社電脳組は、漢字で記載されています。
Command Line 100,110,120,130 , Cooperation Limited , Dennougumi Wrote "KANJI" Top Title with This Caption is Copyright Program by Dai Fukuoka and Sign Term First and Last and Between Development Day .
行番号１４０は、初期化関数を実行しています、しかし、スクリーンラインモードは、セットアッププログラムに分けられており、無視されます。スクリーンは、変更を加えることができません。
Command Line 140 , Setting Format Function Executive , Though But Screen Line Mode is No Addition Modify withon Use Setup Program .
行番号１６０，１７０は、２ヶ国語です、いまから漢数字をローマ字読みします。残り残高が最も大きいものが有効です。例えば、剰余金と、資本額を比較して剰余金の方が多きれば剰余金を用います。ＣＡＰＩＴＡＬ変数に等しい値を代入します。
Command Line 160,170 , Double Language , Now Starting "KAN SUJI" Show Change Roman , Compare More than Surplus or Capital , Equivalent Variable "CAPITAL" Type Value Count , Take Over Count IF Over Case is Surplus Issue Use It .
行番号１８０、１９０は、監査委員の定員を回答を入力します、一人につき、２倍に資産額は、発行され、監査員は、資本金を払わないで会計出来る資本空間を作ります。
Command Line 190,190 , Audit Member on Key Broad Type Ask and Answer Member Count , Property of Means 2 Multiply on One Member Example , This Example Member In Put Variable "DELAY" Type Count 2 Member is 4 Multiply Method Value , Audit Member is Self Account and Issue Space Use It .
行番号２００は、新規変数”ＩＳＳＵＥ”に”ＣＡＰＩＴＡＬ”から代入式を行います、”ＣＯＵＮＴ”は”０”にセットされます。
Command Line 200 , New Variable "Issue" Equivalent "capital" Method with "count" Equivalent "0" Settings .
行番号２１０の関数は、変数”ＣＡＰＩＴＡＬ”が１よりも下回る場合、ラベル”ＳＴＡＲＴ”に戻ります。”ＳＴＡＲＴ”は１５０行にあります。
Command Line 210 , This Function is 1 Less Than Case Turn Go To "Start" Label Jump in , More Than 1 Case Next Step . "Start" is Command Line 150 Location .
行番号２２０，２３０，２４０は、監査委員の数の回答を予め入力したので。それを使って、その人数の回数だけ、更に、予め回答を入力した、資産額を一人につき２にかけるのを繰り返します。
Command Line 220,230,240 , Just Advance Notice is Audit Member Count And Property of Means Count Step of Audit Count Loop with Decision Property of Means 2 Multiply Many Count on Audit Member Count , Loop Out Dcision is Over "DELAY" and Between Looping Less Than "DELAY" and Start Count of Zero After Plus and Plus .
行番号２５０は、演算の結果を表示します。
Command Line 250 , Result Show Process and Method "ISSUE" .
行番号２６０から４２０は、４カラムごとに、漢数字のローマ字が繰り上がります。
Command Line First 250 to Last 420 , 4column Every Match Carry Over ForWard "KAN" Mathematics Roman .
行番号４３０は、初期化が済んだラベル”ＳＴＡＲＴ”に移動します。行番号１５０にあります。使用者は初めに戻れます。
Command Line 430 , Label is Formatted "START" Move to Label Looping , Command Line 150 Go on , User Can ReStart it Again .

遺伝子、体、性、血の創成 繁、誠、匡 日進市 福岡大

福岡だい
2020.4.25(Sat)
幻聴で思った事その４
繁君に続いて次から次へとコンプリアンスをする様に成った。最初は酒井猛君が遣ったと言っていたが、繁君が追い山田誠君に追い詰められて、全ての魔法を失った。そして大が届けた後だったコンプリアンス魔法だけが残っていた。コンプリアンスで臨死を行い、コンプリアンスで原子核だけの質量０の水素から陽イオンを陰イオンから誘引して水素が８電荷でヘリュウムに変わり、水素が２電荷もてるが中性子の数は質量１である。そしてイオンが８電荷になったとき、水素と、ヘリュウムが結合しリチュウムにはならなかったがメタンになった。福岡繁君がメタンになったあと、熱エネルギーが発生して他の元素になりやすくなった。先ず、途中の基礎はわからないが、アルミニュウムになった後鉄になり、鉄からニッケルになって亜鉛になったのだというが、その後、大がランチャーで争いの領域から静かな遠くで届けたが月、血液型、タロットLV３、７章までを届けたが、福岡繁君は６章の２番ユニオン（連邦）にするといっている。そして、身体まで確定させ誕生日も１月２８日から４件追加した。大が、イオンで核分裂によって原子質量を取引させ炭素と水素として分離する事で質量を適正に保ち、パラジュウムや、プラチナ、水銀、金、銀などが出来るようにした。銅の原理はわからないのでそのままの元のデータで届けた。繁君は８Pdと成ったので８パラジュウムにした。山田誠が炭素の繁だろと虚仮脅ししたが内容が異なる。福岡繁君は、A型水銀鉄、B型銀鉄、O型銅鉄、AB型チタン鉄とした。血液型、性別の決定は出来なかった。福岡繁君は全部が山田誠君ではなかった。その後発達障害の精神病をもつ岩田匡君が始め、アルカリ金属であれば血液に代替できるアドバイスで遣った。岩田匡君はコンプリアンスで、髪の毛の長い、胸の狭小で、腹の出ている酒井猛君に脅かされかねないデブになってそして、女裁判員のデブ女裁判員にする。そして家庭を性別で分け、岩田匡は、女と男を別家にして、男を岩田匡を基礎遺伝にして、女を新しい遺伝にする。特に人相は穏やかだと言う。最初にメタンを作った後、リチュウムになり、ナトリュウムになった後、アルミになり、鉄になったが、ニッケルにはならなかった。その間炭素なども出来ている。遺伝は炭素にしたら熱エネルギー量が増えて太ったのか。血液は、リチュウム炭素、リチュウムカルシュウム、リチュウムアルミ、２鉄などである。山田誠君は、佐野誠が北斗の拳士郎の羅王の様な極悪人の人相の男に生まれるといっているが、１８炭素予定どうりコンプリアンスで追え、次の世代は一銅となったが、誠の基礎を継承できない。山田誠君は自分自身評価が甘く、発達障害より甘えが見られ、この様なマイナス志向者は、ネガティブでポジティブになれないので、自己肯定できないとしか言わざる得なかった。山田誠君は最大の質量の中性子２９個の電荷イオン１８の銅までにはなれた。しかし、人の足元を見る下目使いの条件が２世代先まで変わらなくて、山田誠君と言う遺伝その者も死んでいるのだと言う。