岩田匡を宅建士が咎める 福岡大

福岡だい
2019.3.22（Fri)
幻聴で思ったことその４
今、岩田匡君は、弁護をしてはいけないと宅建士に咎められたそうです。岩田匡君は、スシローに、訴えの相談を聞いて欲しいと言ったが、忙しくて聞けないと答えていたと言っている。岩田匡君を食品衛生責任者と、行政書士は訴えていないらしいが、岩田匡君があららしい事をはじめるにあたって、他の人がやっている場合、訴えるといってくるみたいなので、自分の責任でかくまうことに、皿洗いと、生ゴミ捨て場管理と言ったり、白衣から、接客にキャリアアップすることを求めることなどを規定しました。また、インテリアコーディネーターを始めるには、まずフリーランス（自由業）になる事が必要であり、その職をフリーターとも言う。また、岩田匡君が、謙譲と、名誉の精神を以って、人に頼らない社会形成につき、接客のインテリアより先に行政書士が必要であるが、行政書士は弁護士とまでは岩魚いくても、十分な法律教育を受けられ、行政書士でも十分満足いく充実感を体験できる。また、最終的に弁護士に成るのを８０歳までのプランにすることで、岩田匡君でも就いていけるようにしたが、宅建士が立場を主張して、弁護士を認めないものとしているので、大の、食品衛責任者と、インテリアコーディネーターと、行政書士と、弁護士につき、岩田匡君は、どれも付いて行くことができない。また、岩田匡君は、商工会通常会員に認められ、親のガス業を日進に残すまた、岩田匡君は、以前より優しくなったと感じる。岩田匡君は、地方自治議会に上がったのであれば、次は、裁判員に成るかもしれないが、行政について、更に消防団も護るには政府の地位が要る政府になってしまえば、裁判員に成れなくなる。岩田匡君が、消防団の責任を取るのか分からないが、このまま行けば、少なくとも、自分が、６０歳までに司法本資格を取る者とした弁護士事務所の開業についても家宅を３階建てに改装して一階を事務所とする。その金は、６０歳までに用意すればよい。また宅建士を取る事で、所有区分法によるマンション分譲する事で、資本金資産を確保する。住宅ローンに極力頼らない。社宅として建てる一戸建てにするほか、自動車の購入も資本金の経費で払う。健康保険も、私立榮不動産合資会社が経費で負担する。宅建士が、６％を下回る分譲所得しか出来ない法律にあり、その場合、利益は、資本金に計上されるので、資本金を主体にする。また、岩田匡君に、殺人の被害者が誰がこの様な社会にしたんや！といったことについて、負けた、並大抵ついていけないと岩田匡君が言いましたが、宅建士に実務に戻るように命令されて、岩田匡君に、弁護をしないように咎めました。これから、何が岩田匡君に待ち受けていても、山田誠君が勘違いである事を確認した限りは、山田誠君が、岩田匡君を排除を始めたのは、岩田匡の人材を取得する事が誤解だと気付いた事です。山田誠君に、青年部部長を降任をと投票すると岩田匡が歯向かったので、山田誠君の怒りを買いました。山田誠君が和解して、商工会が譲られたのではない。岩田匡君は、この先何が待ち受けていても進んでいく。今の支持数は、政府と、裁判員は互角である。今現時点でリバースを工作したところ、議会と、裁判員に残るみたいです。弁護は出来ませんが、判決が出来ます。判決についても宅建士に特に禁じられていても、山田誠との絆を結ばせる事で、岩田匡君の身元を山田誠君に預けますから、新潮に乗った山田誠君に宅建士として最後までついて行かせます。また、衛生に対して、事務に成るように怖気づいたのかと、岩田匡君が後ろ指を指されるようになりました。岩田匡君が、衛生や、販売業が出来ないと言った事は許されませんが、岩田匡君は、アパート、貸家賃貸をします。それを、愛知県知事免許にて、民法１７７条で不動産物件の変動を禁止する法律にて、岩田匡君は、愛知県知事免許を持ってしか不動産物件を売却仲介できないし、賃貸も出来ません。此の権について、岩田匡君には民法は関係が有りますが、裁判をしないように宅建士の規律を強く縛るよう言われています。岩匡君に例え宅建士が相応しくないとしても、岩田匡君には、裁判員までの限度は認めさせて生かせますから、弁護士と、裁判員両方をやると言いましたが、弁護士の資格を持つものも裁判員になれないので両立しません。岩田匡君に、裁判員を宅建は反対必至ですが、岩田匡君は、これから山田誠君と運命を共にしますどの様な逆行があっても乗り越えて行かせます。岩田匡君は、皿洗いと生ゴミ処分に志望しませんでしたから、もう大に認めません。岩田匡君は、憲法２２条１項の職業の選択の自由がありません。岩田匡君は第三者が管理して初めて職につける立場です。もちろん、岩田匡君が、インテリアコーディネーターと、食品衛生責任者になりたいといった事は許されませんが、裁判所は訴えていません。岩田匡君が、大に成りたいと言った気持ちを汲み取る事が出来ないわけではありませんが、今の山田誠君のほうが安全です。岩田匡君が、いかに裁判に興味があっても、宅建士は許しません。そのようなことをしていては、宅建も出来ないとしていて、岩田匡君に高い規律を護るよう請求しました。此の件で岩田匡君は集団が決議した宅建士に成っていきます。しかしその道のりも簡単ではありません。落ちこぼれの岩田匡君の事では、岩田匡君は、宅建士を合格する可能性は低いですが、それでも、不動産事務所は一人でも宅建士が必要であり、岩田匡君本人が宅建をとても、岩田匡君達一人が宅建士をとっても関係ありません。岩田匡君は、テレビなどで報じられている事件が興味在るかもしれませんが、ここは諦めていただくことに決まりました事をお伝えいたします。

製本訴訟 無賠償確定 勝訴 福岡大 ’１９．３．２０

福岡だい
2019.3.21（Thu)
幻聴で思ったことその４
３．１９日の口頭弁論終結後の、和解終結に於いて、柳沢慎吾は、１千点以上の作品データーベースをＮＴＴがハッカーで差し押さえており、それを全部売れば２００万円になるとして賠償金を申し立てていた。また、版権の価格は、専売特許として、一点１億円、２億円で取引されると書いたところ、柳沢慎吾は、７０億円の賠償請求を名古屋簡易裁判所に申し立てた。名古屋簡易裁判所は、この様なものは認めないとして、７０億円を退けた。また、これは、酒井猛君が申立てた、簡易裁判所の終結の再開を請求した異議の請求によって、簡易裁判所が再開廷した。また、柳沢慎吾は、大の作品を根こそぎ売り払い、柳沢慎吾が、全額領収するとした。この事件は、柳沢慎吾が、写真と、コンピュータグラフィックスと、情報技術と、民法を訴えた訴訟である。酒井猛君は、即時不服である者として、異議ありとした。酒井猛君は、司法書士や、マンション管理士から立てた民法では難しすぎてできないとしている。酒井猛君が、記述式に頼る理由は難易度の低さに在る。また、１９日の夕方までに、酒井猛君達は、柳沢慎吾を叩きのめしたとしている。大は、再審の必要性が在るものとして、上訴の合意をして、名古屋地方裁判所で争う事にしたが、柳沢慎吾の原告審理を二審陳述にて西川出版社長並びに、九州西川印刷側の説明により、十分納得のいくだけの説明が受けられた。また、１９日、異議は一人もいないとして、全会満了で閉廷する者とした。西川出版社長は作品を、２７点から２９点の間の作品であり、全面的な差し押さえないし、また、刑事訴訟法などに見られる物件証拠（物証）の差押などに類するものではなく、西川出版は、現状から著作権利用料を徴収し、今年は、２００万円、手数料は５０％西川出版に、残りは、１０年払いで、大の株式会社西川印刷になる１０００万円の投資信託の契約料を払いうけた。ほか西川印刷は、アフィリエイト公告契約を行い、大を検索したものに、福岡大学を宣伝する事で、大の検索が見つからないように整理する他、福岡大学を宣伝する事で、西川印刷が宣伝契約で、収入するものとしたが、Ｇｏｏｇｌｅは、ＳＮＳであるから、収益分を支払うと、１９日の午後に伝えられている。１０件近くの取材と、広告掲載について、主材料も含め売り上げは蛍によると２２５万円の売り上げをＧｏｏｇｌｅは営業実績を上げているが、西川印刷を広める為に出した公告である。蛍によると、西川印刷は、３０％の広告料を受領する権利が在るものとしている。また、西川出版は、専売特許の版権を得喪する意思は無く全部を著作権使用料で徴収する者とした。よって、一点の絵画を版権売却で初期資金を確保して賃貸するとした柳沢慎吾を否定している。また、柳沢慎吾の求めた、作品データーベースの差し押さえはできておらず、Ｇｏｏブログについても、Ｇｏｏｇｌｅと、西川出版との間に交わされた者であり、名古屋地方裁判所は、柳沢慎吾は、裁判所法３３条の一項の一号にて、１４０万円以上の賠償を簡易裁判所に禁止するとした憲法によって、違法とされる。また、名古屋地方裁判所は、投資信託で１０００万円払いうけるのは、大であり、それを証券会社に委任して、株の原価維持を証券会社に任せ、その資産権は、所有権移転にあたらないので、簡易裁判所判決でも十分可能であることを名古屋地方裁判所は示唆している。投資信託によって、西川印刷が全ての株式料の社債を受けて、１０年以上先に、株式会社西川印刷になる事になった。また、著作権使用料の対象となる作品は、未完成のＰＳＥＴエディッタというベーシックアーカイブという、ＣＢＩ環境で開発しているビジュアルプログラミングと、２４点の桜のカラーリバーサルフィルムの写真が在る。他絵画は語呂で２３番が指定され、岬に向かい帽子を下し、右に顔を向ける女性を描いた主要作品外の作品が指定されたので、本当は、桜の写真は使えそうであったが、此の権で西川印刷社長に譲歩する事で、出版権を、全部で２７点に認め、作品の身売り売却による版権売買の得喪をしてもよいものとして認めているが、持分を処分する意思が無い。また、自分が、その作品を使わない事で、特別に製本の出版権を許してもらえたのは、柳沢慎吾に勝訴に値する。また、此の背景は、ポニーキャニオンと、マイクロソフトが、データーの受付と、出版を拒否したことで、正規職員の地位がつけなかったことで、作品を得喪出来なくなった。また、自分は、その作品の得喪について、出版社に譲る事が出来なかったのであって、西川出版は、コーシン印刷と同じなので、印刷会社が開いている小さい出版社なので、著作権使用料が取れたに過ぎず、出版社連合として７０億円の落とし前賠償を請求した柳沢慎吾など違う。また、出版社そのものは、大の作品の印刷を認めておらず、また西川出版についても、刑事訴訟法の物証の差押などに類する、また民事保全法の損害を補償する差押競売にも当たらず、さらに差し押さえていた事実は、西川出版は否定している。Ｇｏｏｇｌｅと、西川出版間に交わされたライセンス契約であり、差し押さえているのは、Ｇｏｏｇｌｅであり、差し押さえているのは西川出版ではない。

専門販売講座 福岡大

私立榮不動産合資会社－福岡大 / Interior Unit's Sale Glossary

"CLAUSE_PAG","PRESIDENT_","NATION_ATT","COMPANY","DATE_DAYS","ARTICLE1","ARTICLE2","ARTICLE3","ARTICLE4","ARTICLE5","CHAPTER","ADDRESS"
"InteriorFAQ","President Staff","Nation Attribute","Company","Date","１条","２条","３条","４条","５条","３章","愛知県日進市折戸町笠寺山７９"
"販売（１）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/08/28","FaceSheet：世論調査にて性別年齢職業などを記す調査票。Protfolio：金融業会では資産の一覧表、一般的には特定のデーターを纏めたファイルの事建築家や、芸術家の作品集のことを指す。Guidance：案内、手引き、説明会。","Proposal：案、企画、提案。ConceptMaking：ある計画の基本理念に当たるコンセプトを決定する。スケッチパース：ドラフターやパソコンなどで描く本格的なパース（透視図）ではなく、顧客と打ち合わせしながらその場で書き下ろすパース図のこと。","エレメントパース：家具、照明のインテリアエレメントの透視図。水彩パース：水彩絵の具で着色した透視図。Profile：分析結果においてデータの集合を言う、人物像、性格付けという意味で使われる者はプロフィールと表される。","プレゼンテーションボード：図面、エレメントの写真やサンプルなどを合成（コラージュ）して顧客に提案するボード。カラースキーム：色彩計画、仕上げ材の質感も含めて全体の色彩計画を纏めるサンプルを添付したボード。エスキース：絵画に於いて習作する。","チェッカーボード：市松模様のボード、チェッカーの対局に用いられる。","３章","愛知県日進市"
"販売（２）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/08/29","遮光カーテン：遮光機能を持つカーテン。多重高密度織りとした。ポリウレタン樹脂をラミネート加工し、金属蒸着、アルミニュウム混入のアクリル樹脂によるコーティング等による","オパールプリント（オパール加工）：ファブリックスの加工の一つ。薬剤に溶ける繊維を部分使用織りにし、後に溶かしてレース状の透かし模様を造るものシアカーテン等に用いられている","プレーンシェード：ローマンジェードのプレーンタイプの事。プレーン：紐で両側と中央を引き上げ、裾に微妙なウエーブが出来ている。シャープ：バーが入っていてくっきりとした横ラインが出来る。バルーン：裾が風船状にカーブを描いて上がる。","オーストリアン：豊かな波が出来る。ムース：中央の一本の紐で引き上げる。ピーコック：下部が朱雀のような半円形を描く。プレーリー：漣の様な微妙な起伏がつく。","メラトニン：動物ホルモンの一種で睡眠に関係する。血中濃度は人間では昼に低い、夜に高い。ウレタンフォーム：ポリウレタンの樹脂を主成分とし材料を発泡させる。軟質のものがクッション材、硬質のものは椅子のシェル材に使われる。","３章","愛知県日進市"
"販売（３）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/08/29","ポートフォリオ：営業受注段階において顧客の相談を受けコーディネートの日程、範囲予算などからポートフォリオや企画書のアプローチを行う","コンセプトボード：企画提案段階ではコーディネーションの条件の聞き取り（ヒアリング）からコンセプトボードなどを作成し提案する","概算予算配分書：基本計画段階ではデザインの基本や概算予算を検討しイメージボードなどで具体化する。診断結果の報告書の一般名称とされ品確法の住宅性能評価書を示している","完成予想パース：プレゼンテーション最終段階では、各種図面、模型でトータルコーディネートを確認する。インテリア業務の様々な段階でパース図は用いられている。","完成予想パース２：が、最終段階では完成予想パースや、ＣＧを用いた現実的な画像で顧客に仕上がりを確認して貰う場合がある。顧客プロファイルは顧客の個人情報を集めたもの。仕様書：図面一式","３章","愛知県日進市"
"販売（４）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/09/05","Acre：ヤード、ポンド法の面積単位。一エーカーは4047^2。記号は「ac」。Micron：メートルの長さの単位。一ミクロンは千分の一メートル。国際単位「ＳＩ」では１マイクロメートル。呼号はミュール","Feat：ヤード、ポンド法の長さ単位。一フィートは３０．４８ｃｍ（三分の一メートル）。曲尺（かねじゃく）：大工が用いる直角に折れ曲がった金属の物差し。１尺は３０．３ｃｍ。尺貫（しゃっかん）法の長さの単位にあたる","鯨尺（くじらじゃく）：反物（たんもの）の採寸などに用いられる物差し。１尺は曲尺の１尺２寸５分（３８ｃｍ）であるとされている。竹尺：竹製の物差し。１尺（３０．３０４ｃｍ）として用いられた","文尺（もんじゃく）：足袋、その他の履物の単位として用いられていた。１尺は曲尺の０．８尺（２４ｃｍ）とされている。間：尺貫法の長さ単位。一間は６尺（１．８２m）土地を測る時は６尺５寸（１．９７m）畳寸法で６尺３寸（１．９1m)を一間とする。","定尺（ていしゃく）：標準寸法か基準となる寸法の事","３章","愛知県日進市"
"販売（５）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/09/05","ジャロジー窓：水平に重なり合ったガラス板のルーパーが窓枠の中で一緒に回転する窓、高所の場合配管ケーブルにて操作ハンドルをどの位置にも取り付けることが出来、開ける時にハンドル操作にてガラスルーパーを調節できる。浴室、便所、居室に使用する","オーニング窓：オーニングは窓の日よけ、庇（ひさし）などの意味である。ハンドル操作で可動する多段張り出し窓をオーニングと呼ぶ。キャスター：椅子や小型キャビネット類の下部に取り付ける車輪","滑り鋲（すべりびょう）：グライド、ドメスと同じ。プラスチック製の物をプラパートと言う事もある。家具の支持金物であり、床保護、滑り移動の目的で使われる。上げ下げ窓：２枚以上の戸を窓枠の縦溝に沿って上下させる建具。分銅、バランス、スプリング","ダイノックシート：硬質塩化ビニール樹脂系の化粧用フィルム名称。一般名称でタックシートと呼ばれる。粘着タイプのシートで、木や石等様々なテクスチャー、柄が存在し、壁面他、家具、ドアに広く使われる。是は住友3M社の商標","アジャスター：家具などの底部に取り付けている支持金物の中で、上下の高さ調節が可能な物。システムキッチンのフロアキャビネットなどに使用する。開き角度を調節して停止する金物である。","３章","愛知県日進市"
"販売（６）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/09/05","カッティングシート：粘着性塩化ビニール製のカラーシート。文字やロゴの形にカットして台紙に貼り、転写用のシートで保護した商品。中川ケミカルの登録商標とされている","メラミン化粧板：フェノール樹脂板と、メラミン樹脂包浸紙を圧着し製板した物。硬質で耐熱性を持つ。結晶化ガラス：再溶融や熱処理によって、微結晶を発生させ結晶化されたガラス。ガラスと陶磁器の中間のように不透明かつ性質を持つ","テンパライト：強化ガラスの商品名。普通のガラスの３から５倍の強度を持ち破損しても破片が粒状になるガラス。合わせガラス：２枚板のガラスで中間膜（ポリビニールチラール樹脂等）を挟み加熱圧着した。衝撃破損でも中間膜から守られ破片が飛散しない安全","強化ガラス：必要寸法に切断加工した板ガラスを６００℃に加熱し、空気を両面均一に吹き付けて急冷させ、表面を応力を与えて強化した。普通の板ガラスの３から５倍の強度がある。","－","３章","愛知県日進市"
"販売（７）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/09/05","第三角法：対象物を側面、平面、正面に置き投影面に正投影する製図方式。パースペクティブ：透視図、透視投影図、描く視点と対象にスクリーンを置き対象が映る其の侭描く技法。対象図が平面積に其の侭投影されると平行して走る線が一点に集中し消失点を作る。","パースペクティブ②：第一点／平行図、第二点／有角透視図、第三点／斜透視図に分かれる。スタディモデル：建築やインテリアのプレゼンテーションなどに用いる簡易な模型","監理：建築やインテリアの施工において。”監理”と言う字を用いる時は”工事監理”を指し、建築設計士、インテリアコーディネーター等が設計図書の作成者が図面どおり工事が行われるように管理することを言う。","監理：建築やインテリアの施工において”監理”と言う言葉が使われる時、”工事監理”をこの場合指し、建築設計士、インテリアコーディネーターなど設計図書の作成者が図面どおりに工事が行われるよう管理する事を言う。","監理２：工務店、住宅会社など請負業者が工事の管理をすることを”施工監理”と言い、”監理”の言葉を使う。","３章","愛知県日進市"
"販売（８）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/09/10","注文請書：受注した者が発注者である顧客に渡す注文の確認書。ハニカムコア：心材としてクラフト紙などの紙を用いたペーパーコアの合板の中でも蜂の巣状に六角形に組んだ物","ランバーコア：心材に狂いが少ない挽き材の厚板を用いて、添え心材で押さえ裏表面を張った特殊合板。挽き材芯合板、コアボードと呼ばれる。用途は家具等甲板やドア、間仕切りに使用されている。床材としては使用できない。","優良住宅部品認定制度：ベターリビング協会が認定した住宅部品にBLマークが貼り付けされる。保証と賠償の保険がついている。手摺、給湯器、キッチンユニット、バスユニットを扱う。差尺：机の高さ-椅子の高さの事。０．５５倍x１分の３を目安し2，3cm低くする","皮革の手入れ：普段柔らかい布で乾き拭きをする、手垢など汚れが目立つ場合は水性タイプの専用クリーナーで磨く、シンナーやベンジンは変色するので使用しない。スエード革はブラシをかけをする。","逆性石鹸：普通の石鹸が水に溶かすと陰イオンとなる界面活性剤であるのに対し、陽イオンとなる界面活性剤である。普通の石鹸ほど洗浄力は無いが微生物に対する殺菌作用があるため消毒用として広く使われる。","３章","愛知県日進市"
"販売（９）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/09/10","なめし革：腐ったり硬くなることを防ぐ為に薬品などを使った加工を施した物。加工法は重クロム酸カリュウムや塩基性硫酸クロムを使ったクロムなめし革や、植物性タンニン液に侵液する植物性タンニンなめし革がある","安楽椅子：休憩用の一人用の肘掛椅子の事背に傾斜をつけたり、幅広な座面を確保するパーソナルチェア、イージーチェアなどを呼ばれる。ローズウッド：広葉樹”紫檀（したん）”とも呼ばれており、黒紫の縞目（しまめ）を持ち高級家具に用いられる。","成形合板：木材を薄い板にして積層し曲面に接着、成形した曲面合板。三次曲面成形も可能で、家具にも多く利用される。USB:パソコンとキーボード、マウス、其の他の周辺機器を結ぶデータ転送路の規格の一つ","WEB：ワールドワイルドウエブの略。インターネットで用いられるシステムでこれを使って公開される文書をウエブページと呼ぶ。バーチャルリアリティ：CGなど人工的に作る仮想環境から受ける様々な感覚の疑似体験","フロタージュ：木や石など凹凸のあるものの上に紙を乗せ上から鉛筆で擦る事によりより創造を紙面に写し取る技法。シュールアリズム（超現実主義）の技法として考案されたもの","３章","愛知県日進市"
"販売（１０）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/09/10","プロポーサル：提案書の事で公共建築の設計などの計画プロジェクトで技術力や経験、方針を盛り込まれた提案書から設計者を決定する事をプロポーサル方式と呼ぶ。プロファイル：分析などに用いる必要な情報を整理した資料","尺角サンプル：約３０センチ角に切った試供を言うが、実際の大きさはＡ４やＢ５サイズなどメーカーや商品によって違いがある。三面図：正投法によって描かれた３方向からの透視図が一組となった図家具の設計に用いられるが、平面図、正面図、側面図がある","矩形図：軒先（のきさき）を含む外壁部部を梁間方向に切断した垂直団面図。天井高、階高、床高などの長さの寸法や内外装の仕上げが表されている。","塗装見本：木部塗装は木材の種類及び使用塗料や膜厚等で光沢や色の出方が異なる。実際に現場で用いる材と同じ物で見本を製作しなければ意味が無く、時間も費用も掛かり敬遠されやすいが、クレームを起こさないためにも作成した方がよいとされる","ＦＦ＆Ｅ：Furniture=家具、Fixture=什器、Equipment=装備を略したもの宿泊ホテル等で必要になる償却資産のことそれぞれ宿泊施設がテーマを持ち基本コンセプトにあったものを揃えていく能力がインテリアコーディネーターに要求される","３章","愛知県日進市"
"販売（１１）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/09/19","設計図書：建築、製品等を施工製造する為に必要な図面類をまとめた物。図書類の総称。室内パース：室内を描いたパース（透視図）。顧客にインテリアの空間のイメージを把握してもらう為に描く。","ライフプラン：計画の方向性を定める為に立てる大まかなプランの事。施工単価：ある工事費やされた単価当り平方メートル、個数などの材料費、労働費の事。利益率：売り上げに対する利益に対する対比。","ライフサイクルコスト：建物、設備等で建築、購入から維持管理、解体、廃棄までに掛かる総費用。人件費：労働に対して支払われる対価。建築工事では人工（にんく）一日当りの手間賃金×日数と言った計算法がとられることが多い。","材料費：材料に掛かる費用。材料単価×数量という計算法で求められる。現場経費：工事管理等で必要とされる間接的費用。労働管理費、交通費、保険料金など。実施設計：施工者に工事を実施させる為に必要な設計図書を用意する業務の事。","工事契約：工事の請負契約。注文者に施工者（請負人とする）の間で取り交わされる契約。","３章","愛知県日進市"
"販売（１２）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/09/19","入札見積もり：入札用の見積もりの事。入札は複数契約希望者に金額などを文書で表示させて、最も有利な（安い）内容で提示した者と契約する。相見積もり：複数の会社から見積もりを取る。手間：仕事量のこと。総工費：建築工事に掛かる総額。","材料費：材料と工費（人件費）を含んで提出されせる見積価格。一式：見積書である工事の家具工事などに掛かる総額を示す単位。人工：見積書で施工者一人一日の作業量、手間賃を表す権利。特命見積もり：特定の業者に見積もりを提出させる事。","歩留まり（ぶどまり）：使用材料に対する完成品の出来高（総量）の比率。材料の無駄が多かった場合歩留まりが悪い。ネゴ：ネゴシエーション（Negotiation）交渉の略。建築工事では見積もりを予算に合わせる交渉事をネゴという。","ＶＥ（Value Engineering）：価値工学。消費者の要求した機能を満たした製品を最小の費用で提供するための分析的手法。ＯＥＭ（Original Equipment Manufacturing）：相手先商標製品の提供。一種の委託生産で他社の製品ブランドで販売生産提供する。","ＣＭ（Construction Management)：建設工事の受注方式の一種。依頼主から委託されたコンストラクションマネージャーが中立的に設計者や施工者を調整して計画を進める方式の事。","３章","愛知県日進市"
"販売（１３）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/09/20","ひだ倍率：カーテンの使用布地を求める為にひだの取り方やドレーブ性に応じて仕上がり寸法倍率の事。ひだの種類として２つ山ひだ１．５～２倍、３つ山ひだ２．５倍～３倍、ギャザープリーツ３～４倍程度目安としている。","ドレーブ性：ドレーブカーテンを作るとそのひだの立体感の事。立体感が大きいカーテンはドレーブが豊か、高いなどと表現し、より豪華な印象を与える。使用生地が多くなり高くなる。","遮光カーテンの等級：一般財団法人日本インテリアファブリックス協会により規定される。１級：遮光率９９．９９％以上、２級：遮光率９９．８０％以上、３級：遮光率９９．４０％以上。遮光無し：遮光率９９．３９％以下。","分離発注：工事を種類別、工事種類別等に分けて、専門工事業者にそれぞれ発注する方式。一括発注：工事一式を単一の業者に発注する方式。カラースキーム：色彩計画。初期段階から必要とされるが、カラースキームと言った場合最終的な色決めする。","仕様書：工事に対する設計指示の内、図面で表す事が出来ない点を文章、数値などで表現する。品質と成分と性能と精度と製造と施工の方法、部品や材料のメーカー、施工業者が指定する物。","３章","愛知県日進市"
"販売（１４）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/09/20","見積もり：建築工事を行う前に工事費の予測をすること。見積もりは見積もり原価、材料費と施工費と直接経費に期待利益を加えたもので計算される。見積価格は施工者側の発注価格と言う。","仮設工事：建築工事のための一時的な設備に関わる工事、作業。測量、縄張り、水盛り、遣り方、仮囲い、墨出し、養生、材料置き場など仮設建物、照明、電気設備、足場設置、後片付け、清掃、残材処分等が含まれる。養生：作業箇所の周辺や仕上げ部分の保護。","残材処分費：材料の未処分、梱包材の処分に係る費用。解体による廃棄物ではないので、解体費が含まれず仮設費に含む。後片付け清掃の一環である。撤去費を計上できる。コンパネ：コンクリート型枠用合板の略称、合板一般を言う。","工事費：建築工事に要する材料費、労務費、経費の総額。工事費＝材料費（ロスを含む）＋諸経費＋工賃。墨出し：建築の部材に加工や設置位置を直接書き込む事。","－","３章","愛知県日進市"
"販売（１５）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/10/05","定尺張り：材料の標準寸法を言い、継ぎ手を一定間隔に揃える事が出来る。乱尺張り：長さが一定せず不揃いの物、ボードが乱尺の場合は根太の上に直接張れない、下地にモルタル（セメントの一種）塗り、根太の場合は合板等捨て張りが必要になる。","複合フローリング：３層以上のフローリング、一種は合板のみを基材とした物、二種は集成材、単板積層材等、三種はその他を基材にした物。団子張り：タイルの裏にモルタルを団子状（球体）にして下地に押し付け軽く叩きながらタイルを張る、石膏ボードはＧＬ。","圧着張り：タイル張り工法の一つ、混和剤を混入した圧着用モルタルを塗りその上にタイルを押し付ける。ネット貼りザイクタイル等ユニット単位で台紙に張り込み、台紙につけたまま壁面に貼り台紙を剥がす、ユニット、モザイク貼りとも言う。","布壁紙：柔らかい感触と風合い高級感があり、汚れが落ちにくく退色しやすい、綺麗に施工するには高い技術、手間を要す。パテ：隙間や窪みを埋めて平らにする、下地調整に用いる充填材の総称。","接着工法：床に絨毯を接着剤で張り付ける工法、一般的にアンダーレイを使用しない工法を直張り工法と言う、オフィス向けのタイル絨毯は必要に応じて取り外しの出来るフリーアクセス性を求めそれを容易に剥がせるピール張り工法という接着工法が普及している。","３章","愛知県日進市"
"販売（１６）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/10/06","オーバーロック加工：部分敷きや置き敷き絨毯の四周の切り口を工場出荷時にミシンでかがる事、現場切り口加工必要なし。グリッパー工法：細長い板状の木に細い釘を多く打ち込み逆にし部屋に固定し張った状態で引っ掛け固定する、痛みにくく敷き替えのし易い。","現場経費：工事原価の内労務管理費、各種保険料、補償費等を現場の管理に要する費用。仮設工事：建築工事の為の一時的な設備に関わる工事、作業、測量、縄張り、水盛り、遣り方、仮囲い、墨だし、養生、倉庫、仮設建物、照明、電機、足場、片付け、残材処分。","公定価格：政府が定めた商品やサービスの料金。下代価格：流通業に於いて、販売店の仕入れ価格。上代価格：流通業に於いて、消費者に対する希望小売価格。掛け率：上代と下代価格の割合を言う、上代１２０￥、下代１００￥の掛け率は８３％＝１００÷１．２。","設計価格：建築設計に於いて、設計図に基づき積算の結果得られた価格、建築工事に掛かる原価。オープン価格：メーカーが商品に標準小売価格を定めず、小売店が決める価格。在庫：販売目的で保管される商品。仕入れ価格：下代価格。","メンテナンス：建物や製品の維持管理費。リサイクル費：再生商品費。引き取り処分費：廃棄物、不用品を処分する費用。開梱設置費：商品の梱包を解き所定の場所に設置する費用。購入者が自分で設置できず業者に依頼し費用が必要。デリバリー：製品の配達配送。","３章","愛知県日進市"
"販売（１７）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/10/06","データーベース：顧客データなどを収集、整理し、検索、分析、更新が容易なファイルである。フォローアップ(Follow-Up)：英語で追跡、追いかける意味、自国では販売店が商品を購入した客が、十分使いこなせるよう、後々まで面倒を見たりアドバイスする。","マーチャントダイジングは市場調査を参考にした商品の企画、品揃え、陳列などの一連の商品計画であり、市場調査などの科学的手法の元に消費者のニーズに適う商品を適切な数量価格、時期で提供する為の活動。","マスマーティングとは、市場全体に対して単一、大量なマーケティング活動を展開する。マーケットセグメンテーションは、市場細分化と訳され、顧客の特性を細かく分類した上でニーズに答えて行く。","ニッチャーとは在る特定の市場に於いては業界トップクラス企業も超える地位を持つ専門企業。フォロワーとは市場シェアが小さく独自性も無い企業で上位企業の模倣戦略を主とする。","市場占有率のトップ企業はリーダーと呼ばれるが、チャレンジャーは差別化戦略を用い、トップを目指す企業。","３章","愛知県日進市"
"販売（１８）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/11/03","ボランタリーとは、独立した小売店が共同化することにより、大量仕入れのコストダウンする。レギュラーチェーンとは一企業の統制下にある小売店舗の集合体。","フランチャイズチェーンとは、経営的に独立している加盟店に対し、本部が販売権と、商標権を与えて利益を得る形式。専門品とは、消費者がその商品に特別の愛着を持ち、販売店が近くに無い場合でも労力を惜しまず買う。","買い回り品とは、幾つかの店舗を比較的に検討した上で購入する商品。プライベートブランドとは、流通業者が設定するブランドで、ナショナルブランドに対して反対側の対義語であり、商品を小売り、卸業者が企画し、独自の商標で販売するもの。","スーパーマーケットのブランドで良く知れれるプライベートブランドである。電子発注システムの略であるElectronic Ordering System(EOS)が小売り卸メーカー間を繋ぎ仕入れ受注をインターネットで監理できる情報システム。","OEMとは相手先商標製品の略であり、自社で企画した商品を他社に委託し、自社の商標をつけて販売するものを言う、開発費の削減や、品質の向上を目的とした者。","３章","愛知県日進市"
"販売（１９）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/11/03","QRコードとは、カメラつき携帯電話の普及に伴って様々な用途に広く利用されるようになった２次元コード、高速で読み取りが出来るに成った２次元コーであり、一次元のバーコードに比べ多量の情報をコード化出きるようにしたもの。","SPコードとは、専用の読取装置を用い音声情報を得る事ができる、２００９年度に”視覚障害者用活字読み上げ装置”として活用される。インターネット検索エンジンを通じ、自社のサイトへ訪問者を増やすSEM対策検索結果を頁上位にサイトを表示する検索最適化。","メーカーや販売元が生産出荷段階でPOS用のバーコードを印刷する行いは、POSはPoint of Sales の頭文字をとったもので、販売時点情報管理機構と訳される。商品の売り上げ情報を販売時点で単品ごとに集計、登録、蓄積、分析する。","インストアマーティングとは、ソースマーケッティングに対し、小売り売店側のバーコードを貼り付けることをいう。プリペイドカードとは、代金を前払いし、その金額内であれば、商品サービ繰り返し引き換えができるもの。","デビットカードとは、支払い時に杞憂期間に預けた金額から代金が引き落とされるカード。商品券とは一般に一度しか利用できない有価証券のこと。","３章","愛知県日進市"
"販売（２０）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/11/03","掛け率とは、メーカーの希望小売価格に対する仕入れ価格の割合。利益率とは希望販売価格に対する利益額（希望販売価格－仕入れ価格）の割合。値引率とは、希望販売価格に対する値引率の割合。","登録商標とは商品に対する知的財産権（工業的所有権）の内登録から１０年の存続期間で更新が可能なもの。特許権は出願から２０年間。意匠権は登録から２０年間の存続期間が定められている。","手付金とは、契約する時に渡される一部金、買い手が放棄し、売り手は倍額（違約金）を払う事で契約を解除できるもの。内金とは購入代金を何回かに分けて支払う際に代金の一部を前払いする事で相手側に契約に違反する事情が無い限り契約を解除できない。","収入印紙とは契約書、注文清書、請負代金受領などに貼る物、契約の時に印紙税法により印紙を貼るが例え印紙がなくても契約そのものは無効にならない。","事実確認とはまず顧客への迅速な対応が必要であり対応には第一に顧客に直接会って事実を確かめる必要があるそして議論にならないように顧客の言い分を誠意をもって聞く姿勢が必要であるその場凌ぎの謝罪は避け原因の究明解決策を検討クレーム情報共有。","３章","愛知県日進市"
"販売（２１）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/11/04","インテリアコーディネーターの職責は顧客要望やライフスタイルをヒアリングする事が重要であり、当情報を聞き出すためには専門的な言葉を用いない日常言葉で説明するのが良い、顧客の初回来店に、顧客に信頼感と安心感を与え、一方的な販売話を避ける。","情報収集が十分に行えると次にインテリアプランニング（家材計画）に入るが顧客の要望が矛盾して両方を叶えられなかったり、技術的にできない事も在る、その点も確認して進み、２００５年から施行した個人情報保護法や顧客個人情報の取り扱いを監理する。","ライフスタイルとは、人の生活、行動、思考などの様式、顧客の生活様式は、インテリアコーディネートの計画に直結する。ライフラインとは、電気、ガス、水道など日常的に不可欠なものを扱う施設や設備の事。ライフスパンは人の生から死までの時間、寿命の事。","専門的な用語の多用を避け、顧客と創造を共有することを第一に考え、できるだけ顧客の耳に傾ける。より良いインテリア計画には顧客から十分に情報が聞きだすことが必要になる、そのため信頼感を与える雰囲気も必要である。","プランニングは計画、プレゼンテーションはその計画を伝える行為、手法。個人情報保護法（行政法参照）は主に消費者契約の申し込みや承諾の意思表示の取り消し、契約条項の無効を定めたもの。","３章","愛知県日進市"
"販売（２２）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/11/04","プレゼンテーションは顧客の理解を援助するメディアである、それを円滑に行う為に多く用いられるのは平面図、カッとサンプル、カタログの切り抜き等スクラップを貼り付けたプレゼンテーションボードであり、顧客に創造を視覚的に捉えて貰う。","平面図や、展開図で表現しきれない空間の雰囲気を表現したい時にはパース設計図を用いる見本が小さい場合は実際の面積で見るより低彩度に見える傾向があるため印象の変化をアドバイスする、できれば実際の状況に合致した照明のもとで色見本を見せ確認する。","言葉や文面だけでの説明より正確に相手と創造図を共有るる為の手法を用いて、情報の伝達を図るとともにその一般をプレゼンテーションと言う。プレゼンテーションボードは、ある限られた面積の板等に情報を解りやすくレイアウト（配置）したもの。","平面図やカッとサンプル等は一般的に平面的なもので在る為立体的は不適切、立体的な表現を用いて創造を伝えやすい場合はパースや、スケッチ、コンピューターグラフィックス等を作成する。","面積の大小により彩度が異なって見えることを色の面積効果という、特に壁紙やカーテン等は使用する面積が大きいため、照明も含め、出きるだけ施工後に近い状況で確認すると良い。","３章","愛知県日進市"
"販売（２３）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/11/04","積算見積もりは①施行方法の決定②必要事項の拾い出し③整理集計と言った順序で行われるが、積算の中心作業は必要事項の拾い出しである。拾い出し作業とは、各項目の材料や手間代などの数量を算出し間違いや洩れが在ると見積もり金額が大きく変わってくる。","新築建築工事の場合家具工事は建築本体工事とは別に別途工事として計上される事が多い。造作家具工事以外はカーテン、外溝、冷暖房などと共に別途工事として計上される事が多い。","片面取りタイルや幅木の塗装などの見積もりはメートルあたりの単位になる。一列だけの片面取りのタイルや、細長い枠や幅木などはメートルあたりの単位となる。","仮設費に含まれる物には、現場養生費、足場の設置、家具の移動、機械や器具の貸し借り費用などがある。発生材の処分費用と取り壊し費用は解体撤去費に含まれ、何れも仮設費とは別に計上する。雑工事は床下収納、手摺、稼動間仕切り、点検口、タオル掛け、棚。","一般的に雑工事に含まれる物は、カーテンや、ブラインドの取りつけの様に、工事内訳説明書の項目に分類できないそのほかの工事を指す事が多い。アフターメンテナンスは、竣工引渡後の建物の維持、管理の事で見積書内でない。クリーニングは仮設費に含む。","３章","愛知県日進市"
"販売（２４）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/11/05","仕事を獲得する為に依頼者（クライアント）に提出する見積書を営業用見積もりと言う。契約見積もりは注文が確定した眼科医で提出される見積もり。実行用見積もりは受注した見積もり金額に原価を割り出す見積もり。","別途工事に計上される事が多いカーテン工事は本体工事とは別に予算化しておく必要がある。カーテンを工事を始めとする施工後に行う作業の費用は雑工事費と呼ばれ、事前に厳密な積算が出来ない為、本体工事費とは別に予算化する必要がある。","一式や、組み合わせとして表示される事が多い設備機器工事費は同じ生産者、同じ仕様のものであっても工事会社毎に異なる。設備工事費は、システムキッチン、浴槽、便器等の設備機器の工事費、工事会社の掛け率によって金額はそれぞれ異なる。","タイル工事や塗装工事は平方メートルやメートルで表す。積算見積もりを算出する際に使われる坪単位は、建築工事費を延べ床面積で割り、１坪あたりの単位で表したもの。施工業者によっては延べ床面積ではなく施工床面積を使う事がある。","一般に床材の施工浪費は１～５％程度とされるが、材や接続方法、また柄あわせ等によって違ってくる。フローリング材を斜めに突き合わせるヘリンボーン張り等は施工浪費が大きく１５％を上回る。","３章","愛知県日進市"
"販売（２５）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/11/05","加齢に伴う視覚機能の低下により、青と緑、黄や白などで混同が置きやすいので室内の色彩計画には注意が必要であり、加齢に伴い、視界が黄味がかって見えるようになると、青が緑白が黄に近づいて見えるため混同しやすい。","高齢者等に配慮して便所の扉は緊急時にも対応しやすい外開きとするのが望ましい。便所など狭い個室で倒れた場合、内開きの扉は要救助者の体が開閉の妨げになる畏れがある為、緊急時に配慮して外開きとするのが望ましい。","浴室に下枠の段差がない建具を設置する場合排水溝のグレーチングの溝を開口面に対して平行に取り付けると隣接する洗面脱衣室等へ水が入りにくい。","冬場ではヒートショックの対策として、脱衣室、浴室、便所など常に使っていない部屋と寝室が温度差が大きくならないようにする。ヒートブリッジとは熱橋と訳され、熱伝導に関する用語である。部分的に熱伝導が大きく熱を伝えやすい部位を指す。","引き戸は開閉操作に伴う身体的負担が少なく、開閉に必要な空間も小さいなどの利点があるが、気密性や、遮音性には引き戸に劣る。引き戸は開閉に必要な動作も少ない為、車椅子利用者にとっても利便性が高い。","３章","愛知県日進市"
"販売（２６）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/11/05","住宅の新築や改築の後目がちかちかする、喉が痛くなる、頭痛がするなどの症状が出る現象、所謂シックハウス症候群が問題に成る事が在る。この原因は建材や内装材等から発生する揮発性の高い化学物質とされる。特に人体に有害な化学物質として具体的には","合板や壁紙などの接着剤に含まれているホルムアルデヒド、塗料や接着剤の溶剤として使われるキシレンやトルエン等が挙げられる。これらの化学物質は厚生労働省によって安全対策の為の室内濃度の指針値が設定されておりホルムアルデヒドの場合0.08ppmである。","キシレンやトルエンは揮発性有機化合物（VOC）と総称されている。フロンは炭素とフッ素を含んだ化合物の総称で、エアコンや冷蔵庫の冷媒、スプレーの噴霧剤に使用されている。クロルビリホスは防蟻剤に含まれるVOC。","ホルムアルデヒドを含む合板や壁紙に代わって自然素材の内装材が使われるようになった。JAS（日本農林規格）やJIS（日本工業規格）では木質材料におけるホルムアルデヒドの放射量の基準が設定されている。","ホルムアルデヒドの場合、一般に室内濃度が0.08ppmで臭いを感じ、0.5ppmで喉が痛くなり、約5.0ppmで嘔吐や発疹の症状がでるとされている。","３章","愛知県日進市"
"販売（２７）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/11/05","概算見積もりは初期に使用者に対して工事費の大枠を提出するものであり、企画設計の段階で提出されるのが普通。マンションなどの改装（リフォーム）では戸別に電気容量を増やす事が出来ない場合がある。新しい電気器具に要注意であり監理規約を確認する。","マンションの改装については管理規約や協定と言った形でマンションごとにルールが決められており、共用部分の改装は所有区分法にて集会によりて所有区分者及び決議権の各４分の３以上の多数で決議可決する。管理組合の理事の承認で改装が許されるのではない。","工事中の追加、変更による工事費の増減はその都度、発注者に報告して了承が得る事が必要。改装工事に於いては隠れた部分が現れる事で工事に追加、変更が生じやすいので設計図書や契約書にも変更の可能性がある事を触れておく必要がある。","事前に変更の可能性について説明し、実際に変更が発生した時には発注者に報告し、増減見積もりを提出する。","－","３章","愛知県日進市"
"販売（２８）","福岡大","マスターカードＵＳＡ","私立榮不動産合資会社","18/11/05","上代価格が設定されていない商品の価格はオープンプライスである。上代価格とは希望価格と同義であり、商品の製造者や輸入者が販売参考小売り価格。オープンプライスとは製造元などが希望の価格を設定しておらず流通業者自らの判断で自由に価格設定する。","スキミングプライスとは新商品販売直後は高値で販売して早期に粗利益を確保し、売り上げの低下に伴い徐々に価格を下げる価格戦略を指している。ぺネトレイティングプライスとは逆に初期段階から低価格で販売し、商品の浸透を優先させる方法。","正しい敬語はノンバーバールコミニケーションに影響しない。ノンバーバルは非言語を意味する。アメリカの心理学者アルバート・メラピアンは非言語によるメッセージはコミニュケーションに於いて重要な要素であると説いた。","個人情報のうち、本籍地はセンシティブ情報に含まれる。個人情報の中でも特に取り扱いに注意するべき情報であり、人種、宗教、犯罪歴、医療に関わる情報などが該当する。Ｅ．Ｊ．マッカーシーの４Ｐはプロダクト、プレース、プロモーション、プラスの略。","販売促進、販売場所・経路、販売促進、価格を４Ｐとする。情報ネットワークに何時でも何処でも誰でも何処からでも接触できる環境や技術をユビキタスという。ラテン語であらゆるところでと言う意味で元々は神が時間や空間を超越してあらゆる所に存在する概念。","３章","愛知県日進市"

システムアドミニストレーター１２ 初めてのC講座

********************

Ｃを翻訳するにあたって、注意点や、互換点をＢａｓｉｃに比較します。Ｂａｓｉｃは、ＣｏｍｍｏｎＧａｔｅＷａｙＩｎｔｅｒｆａｃｅほど難しいプログラミングですが、初心者向けに作られているべーシックは、頭文字の意味は、ビギナーのＢであり、まず初めにプログラミングを教習するのに、学校などの支援もあり、捕捉されます。Ｃからは、本格的なアプリケーションプログラミングインターフェイスをもち、専門学校以上で教習できます。
Translate of C hit Tips with Point Decision After Compare Basic, Basic Difference of Common Gate Way Interface(CGI NetWork Programming) Equivalent Level It,Make on Biginner's Edition Basic is Prefix of B mean is by Easy with Biginner's,First Plan Learn Program Starter Support School Use Target It,C Bigin Expart have API with Professional School Over Learn C .

一方向の評価
C
if(D==0){D=1;}
Basic
IF D=0 Then D=1
表記の注意点は、Ｃは、等価評価することに、＝＝と２文字使うほか、ステートメントにあたるｉｆに条件枠を数括弧”（）”つかい、中括弧”｛｝”の中には、条件が成立した場合、書かれたコードを実行します。ここでは、変数”Ｄ”が”０”と等価の場合、変数”Ｄ”に”１”を代入しています。最後の区切りは、Ｃは何時も”；”セミコロンを使い、セミコロンで区切ってあれば、２行を１行にセミコロン２つを１行で表記できます。
This wrote Statement Funcion Appointment is C is Equivalent by "==" Dublue Equal Symbol use else hit Statement "if" at Terms Trim Border of "()" use After Middle Class Border "{}" to Contein Complate Terms in Case,Wrote Program Code on Execute, This Section "D" Variable by Equivalent "0" in Case "D" Variable In put "1", Last Divition is C by SemiCoron "" Carrige and 1 Line Addition Program Code Can Wrote It .



二方向の評価
C
if(D==1){D=0;} else {D=1;}
Basic
IF D=1 Then D=0 ELSE D=1
これは、２巡すれば、変数”Ｄ”は、”０”になります。この構文は、変数”Ｄ”が”１”の時、変数”Ｄ”を”０”に初期化します。二方向評価するにあたり、このコードは、１以下１以上で変数”Ｄ”を”１”とします。構文をセミコロンで区切ります。
This is 2 come round by "D" Variable Equivalent Value is "0" Result, This Word is "D" Variable is Then "D" Variable Bigin Setting of "0", Hit 2 Way Decision less than with more than by "D" Variable "1" Value,This String word is Shut SemiCoron .

多方向の評価
C
if(D==0){D=1} else if(D==1){D=0;} else {D=1;}
Basic
IF D=0 Then D=1 Else IF D=1 THen D=0 Else D=1
３段階の評価は、値”０”と”１”だけです。値が”０”の時、変数”Ｄ”を”１”とし、”Ｄ”が”１”であれば”０”に反転します、もし、値”０”と”１”以外が代入に値したときは、”０”と”１”以外の場合、変数”Ｄ”を”１”に設定後、２巡から、２方向の評価となります。
3 Way Decision is Value "0" and Value "1" Only, Then Value by "0" to "D" Variable Reply "1" Vakye,Then Value by "1" to "0" Reversed,IF Case is Out Of Value with not "0" or "1" to "D" Variable Set Value "1" After Repeat Count 1 ForWard Run 2 Count After 2 Way Decision .


繰り返し
C
int D=9;while (D>=0){D--;}
Basic
LET D=9:WHILE(D>=0):D=D-1:WEND
関数のｉｎｔとＬＥＴの違いに注目してください。Ｃは、プロトタイプ宣言を必要としており、明確なキャストで有っても、型変換はできません。よって、数字型のｉｎｔに数字変数”Ｄ”に”９”から始まり、関数”ｗｈｉｌｅ”と”ＷＨＩＬＥ”の大文字と小文字は区別されるケースセンシティブを採用しています。”ｗｈｉｌｅ”関数により、”Ｄ”が”０”と等価かそれ以上の時繰り返し、ベーシックは、同じ様に見えても、違う点は、コロンとセミコロンの使い方に注意してください。ベーシックは、必ず、”ＷＥＮＤ”で折り返し点を確認していますが、Ｃは、関数”ＷＥＮＤ”がありませんが、”｛｝”によって中身を実行すると、Ｄをデクリメントするにあたり、ここもベーシックと表記の違いを注意してください。Ｃは、”Ｄ－－”と、することで、べーシックの表記では、”Ｄ＝Ｄ－１”としなければなりません。
This Compare Function "int" and "LET" Defficult Pointment Attention,C by Declaration Need It,Exactness have by Cast No Exchange,Therefore Number Value of "int" Bigin "D" Variable Start"9" Repeat "-1" Value Morethan Between Statement Function "while" by Capital Letter size Compare Reverse Capital Letter size Each Difference Adoption "CaseSencitive",Basic is Look at Something by Diffierence "coron" and "SemiCoron" Attention use It,Basic must Repeat End at Need Carrige "WEND" System Check Compare C Nothing "WEND" Function by Turn Point,Middle Quart "{}" in Execute After "D" Variable Value Hit Decrement,This Location by Attention Compare Basic and C Difference,C is "D--" Equivalent Basic must "D=D-1" .

繰り返し２
C
for(int D=9;D>=0;D--){TextOut(hdc,D*16,0,D,1);D--;}
Basic
FOR D=9 TO 0 Step -1:LOCATION 0,0:PRINT D:NEXT
今度は、少し高度なＣの繰り返しに挑戦してみました。”ｉｎｔ”を”ｆｏｒ”の内部で宣言され、変数"Ｄ”が”０”以上の間、変数”Ｄ”は、一づつ数を減らし”０”の値の後止まります。”｛｝”の中のコードは、Ｃの”ＴｅｘｔＯｕｔ”は、ベーシックの”ＰＲＩＮＴ”に相当するものです、”ＴｅｘｔＯｕｔ”にて、Ｄの値をカウントダウンします。ベーシックで、デクリメントを行うにあたり、”ＳＴＥＰ"パラメーターを”－１”は、１づつ設定しなければなりません。
This Round is Any High Repeat by C Challenged,Declaration Private Internal Satement Function from "for" in "int" Function Declaration "D" Variable,"D" Variable MoreThan "0" Between by CountDown Result is LessThan "O" Stop, Middle Quate "{}" InSide Programming Code is Development Language "C" by "TextOut" Function is Equivalent Basic Language "PRINT" Function Value, Basic Declement Execute "Step" Parameter "-1" is must Each Setting .

繰り返し３
C
int D;do{TextOut(hdc,D*16,0,D,sizeof(D));D++;}while(D<10);
Basic
LET D:WHILE(D<10):LOCATION 0,0:PRINT D:D=D+1:WEND

こんどは、Ｃによる”ｄｏ”に開始し、テキストアウト関数にて、ハンドル”ｈｄｃ”と、変数”Ｄ”のバイト数を”ｓｉｚｅｏｆ”関数でデータ容量を量り、文字数と同じ文字の長さを指定しています。ベーシックは、”ＬＯＣＡＴＩＯＮ”関数で”ＰＲＩＮＴ”の位置が動きません。今度は、Ｃが”ｗｈｉｌｅ”で閉じている事が、”ＷＥＮD”との違いです、変数”Ｄ”のインクリメントは必ず必要です。加算しないと、”ｆｏｒ”関数と違い、無限ループに陥ります。
This Stage is Development Language by C and Begin "do" Start ForWard "TextOut" Function by with "hdc" HANDLE and Variable "D" Value Count of Byte by "sizeof" System Call Code,String Text Length SomeOne,Basic is "LOCATION" Function Show "PRINT" Function No Move It,This Round C is Close of "while" Function,This Thing Compare "WEND" Difference, "D" Variable Need Inclinement, This "do" Difficlut "for" Statement Function and No Count Addition Value is Endless Loop .

配列と文字列
C
int IdNum[10] ; char Names[25] ; float Coordinate[100][11] ; char Comeon[30]="Yes Go" ;
Basic
DIM IDNUM(10):DIM NAMES$(25):DIM COORDINATE(100,11):DIM COMEON$(30):LET COMEON$(1)="Y":LET COMEON$(2)="e":LET COMEON$(3)="s":LET COMEON$(4)=" ":LET COMEON$(5)="G":LET COMEON$(6)="o"
Ｃとベーシックの違いは”ｃｈａｒ”が１字づつのカウントを”３０”回数えるほか、合わせるためには、煩雑です。”ＣＯＭＥＯＮ＄（１）＝”Ｙ”　”と出来るほか、ベーシックの配列変数は、文字数に制限がないので、”ＣＯＭＥＯＮ＄（１）＝”Ｙｅｓ　Ｇｏ””とすることもできます。”ｆｌｏａｔ”にて宣言されているのは、ベーシックの”ＤＩＭ”関数に相当する、２次元配列です。これを”ＤＩＭ”は、”（１００，１１）”とします。
C Development Language Difference Basic to "char" by 1 Count to "30" Hit Count Else Combain Thing are Bad, "COMEON$(1)="Y" " Can It, Else Basic is Arregement Variable is Word Count No Count,This Thing is Can Easy by "COMEON$(1)="Yes Go"" , Declaration "float" Function is Doublue Dimention Variable is Arregement, This is by "DIM" Equivalent "(100,11)" Decision .

クラスの定義
C Only
Class And_Day {Public: And_Day(int YY,int MM,int DD);void ShowDay;~And_Day;Private: int Year,Mounth,Day; }
”～”チルダにて、宣言後の自作関数を削除します。他のクラスに継承するためのパブリックが設けられています。パブリックは、引数を持つＡｎｄ_Ｄａｙ”クラスであり、ＹＹとＭＭとＤＤで継承されます。”ｖｏｉｄ”は実行型関数を意味し、”ＣＯＮＳＴ”は、固定値で有る事を意味しています。一つ一つ宣言することもできますが、”ｉｎｔ”型は、一つで一斉に定義できます。”ｉｎｔ”型は、”Ｙｅａｒ，Ｍｏｕｎｔｈ，Ｄａｙ”として宣言できますが、プライベートは、内部変数で使われるので、クラス内部で使われる値なので、他のクラスに干渉関係がありません。実行型の”ｖｏｉｄ”と判定型の”ＢＯＯＬ”と、パラメーター型の”ｉｎｔ”があります。主に引数を引かない”ｖｏｉｄ”は、メンバ関数他を、メンバ変数と言います。”ｒｅｔｕｒｎ”関数で戻り値を持ち実行後の結果を引数を返します。主に”ｖｏｉｄ”は、戻り値の必要無いグラフィック制御等に使われています。
Destructer Type Tilder Declaration Behind Make My Function at Deleate,Other Class Inheritance by "Public:" Install,"Public:" is Pull Value of Parameter have Exist Class "And_Day", Variable "YY","MM","DD" in Inheritance to New Class,"void" is Execute Function Mean UnderStand,"const" is Fix Control Value Mean UnderStand,Many One Can Declartion Each Difference,"int" Type Fuction is Can All in One Definition,"int" Type Function is Can Variable "Year","Mounth","Day" Value by Declartion Execute And Too,"Private:" Was Inside Used Class Value, Other Class Relation No Bridge,Execute Type "void" Type and Reverse and Reverse "BOOL" Type Value and "int" Type Exsistance, No Return Value "void" is Member Function and Other Class Factor Return Value with Member Variable,"return" Function have Return Value and Result Execute Pull Value,Mainning "void" by No Return Control Graphics Userful .

列挙型
C
enum coloring {Red="Red",Yellow="Yellow",Green="Green",Blue="Blue",Violet="Violet"};void main(){coloring Favorite; Farvorite=Violet;}
Basic
DIM COLORING$(5):LET COLORING$(1)="Red":LET COLORING$(2)="Yellow":LET COLORING$(3)="Green":LET COLORING$(4)="Blue":LET COLORING$(5)="Violet":FAVORITE$=COLORING$(5)
Basic
DIM COLORING$(1,1,1,1,1):LET COLORING$(1,0,0,0,0)="Red":LET COLORING$(0,1,0,0,0)="Yellow":LET COLORING$(0,0,1,0,0)="Green":LET COLORING$(0,0,0,1,0)="Blue":LET COLORING$(0,0,0,0,1)="Violet":LET FAVORITE$="COLORING$(0,0,0,0,1)

一個づつの定数で、深い配列が可能です。”ｅｎｕｍ”は、ベーシックで、”ＤＩＭ”関数で、ＤＩM　Ａ＄（１，１，１，１，１）とすることもでき、一定の互換性があります。多次元配列を１までの定数として、複数列挙が可能ですが、本コードは、ＢａｓｉｃとＣの解釈は変わりません。ベーシックでも列挙はできますが、前のベーシックの方がスマートです。
Many one Can Fix Value with High Arragement,"enum" is Equivalent Baisc "DIM","DIM" Function Can "DIM A$(1,1,1,1,1)" Compatible, This Function Can Many Dimention Arragement Made List of Variable Value,This Code Program is Basic and C Development Language is No Change UnderStand,Basic "DIM" Function Can Made List of
Value,BackWard Basic by Smart .

ポインタデストラクタ
C
numOne=new int[10];
if (numOne)
{
delete [] numOne;
}
C
GetPointer() *numOne;
numOne = new GetPointer(1,2,3);
int i;
i=numOne->GetPointer();
numOne.delete;
Basic
DIM NUMONE$(100):ERASE NUMONE$
最初のものは、動的に”ｉｎｔ”型で１０バイト確保し、”ｉｆ”関数にて”ｎｕｍＯｎｅ”が否定系でなければ、”ｄｅｌｅｔｅ”関数にて、取得バイト数にかかわらず、”ｎｕｍＯｎｅ”を削除します。次のものは、ポインタを用いた例です、”ｎｕｍＯｎｅ”のクラス”ＧｅｔＰｏｉｎｔｅｒ”を呼び出し、”ｎｕｍＯｎｅ”のポインタに置き換わります。また、動的に”ｎｕｍＯｎｅ”に”ＧｅｔＰｏｉｎｔｅｒ”が取得され、変数”ｉ”を宣言し、”ｉ”に、”ｎｕｍＯｎｅ”は、”ＧｅｔＰｏｉｎｔｅｒ”クラスにポインタします。最後に、デストラクタとして、”ｎｕｍＯｎｅ”が削除されます。
Begin Thing Dynamic "int" Type Function by 10Byte Get It,"if" Statement Function by "numOne" No not at delete No Much Arragement Value,Next Thing is Use Pointer Exsample,"numOne" Call Class "GetPointer()" and Replacement "numOne",Declare Variable Value "i" withon Pointer "GetPointer()" Class "numOne" It,Lasted Destractor delete This "numOne" Pointer.


論理演算
C
if (!hwnd)
{
HWND hwnd;
}

Basic
IF NOT HWND=0 THEN HWND=1

C
BOOL Reversible;
if (Reversible==-1||Reversible==0)
{
delete Reversible;
}


Basic
IF REVERSIBLE=0 THEN REVERSIBLE=-1 ELSE REVERSIBLE=0
IF REVERSIBLE=-1 OR 0 THEN ERESE REVERSIBLE

C
int X,Y,Measure;
BOOL bFlag;
X++;
Y++;
Measure=(X*Y);

LabelBegin:

if (X && Y)
{
bFlag=TRUE;
}
Else
{
bFlag=FALSE;
}
if (hdc)
{
TextOut(hdc,0,0,bFlag,sizeof(bFlag));
}
else
{
HDC hdc;
Goto LabelBegin: ;
}

Basic
LET X=0:LET Y=0:LET MEASURE=0
X=X+:Y=Y+1
*LABELBEGIN
IF X=Y THEN BFLAG=0 ELSE BFLAG=-1
LOCATE 0,0:PRINT BFLAG
GOTO *LABELBEGIN

”ＮＯＴ”（否定）は、”ｉｆ”関数にて”ｈｗｎｄ”が空の時、”ＨＷＮD”ハンドルを、”ｈｗｎｄ”にコピーコントラクスタします。”ＯＲ”は”｜｜”で連結され、どちらか、一つ正の時、ｉｆ Statement内を”中括弧｛｝”で囲まれたものを実行します。”ＢＯＯＬ”値は”０”と”－１”の何れかでＴＵＲＥと、ＦＡＬＳＥです。”ＢＯＯＬ”値がある場合”ｄｅｌｅｔｅ”関数で削除されます。”ＡＮＤ”は、”＆＆”を使って結ばれます。ｉｆの結果がＸとＹが同じであれば、”ｂＦＬＡＧ”にＴＲＵＥ、それ以外であれば”ｂＦｌａｇ”にＦＡＬＳＥを代入します。Ｂａｓｉｃでは、２変数間の”ＡＮＤ”の指定は必要ありません。”＝”で連結します。デバイスコンテキストが存在する場合、座標０，０に、”ｂＦＬＡＧ”を表示します。その時、”ｂＦｌａｇ”の文字数をｓｉｚｅｏｆ（）にて計算します。デバイスコンテキストが無い場合は、ＨＤＣコンテキストハンドルをコピーしてラベル”ＬａｂｅｌＢｅｇｉｎ”に移動します。

"Not" by Statement Function "if" to Empty "hwnd" then "HWND" Copy Constractor "hwnd" Loaded."Or" is Linking "||" Deference Only True to Execute Statement "if" and "{}" Between,BOOL is "0" or "-1" at "True" or "False",Exsist by BOOL is Erase Value of BOOL by "delete"."And" is Linking "&&" Used.Result Same "X","Y" Value to "bFlag" at "Ture" Else "False" by Other Value It.Exsit Window Handle Case is Coordinate 0,0 Value on Show Display "bFlag",Then Count Word "bFlag".Nathing DeviceContext Case is Copy DeviceContext "HDC" to "hdc" with Return Label "LabelBegin:" Jump It.Basic is "And" by Bridge "=" No Use "And"."And" Linking "=".


Num. by 000-0006

メッセージループの課題研究のサクセスファイル、MultiDocumentInterfaceで動作確認済み、ソフトは、Test3.exeをダウンロード
宣言の確認と、型変換の無許可の検定済ファイル。これは、メッセージループの完成品。リリースソフトで動作を確認できます。
デバッカとビルド済み合格プログラム　VisualC++
ビルドインプロジェクトリリースバージョン１．０
ファイルはリリースソフトNumber.０１（Test3.exe)


// MainFrm.cpp : CMainFrame クラスの実装
//

#include "stdafx.h"
#include "test5.h"

#include "MainFrm.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif





// CMainFrame

IMPLEMENT_DYNCREATE(CMainFrame, CFrameWnd)

BEGIN_MESSAGE_MAP(CMainFrame, CFrameWnd)
ON_WM_CREATE()
ON_COMMAND(ID_FILE_CLOSE, OnFileClose)
END_MESSAGE_MAP()

static UINT indicators[] =
{
ID_SEPARATOR, // ステータス ライン インジケータ
ID_INDICATOR_CAPS,
ID_INDICATOR_NUM,
ID_INDICATOR_SCRL,
};


// CMainFrame コンストラクション/デストラクション

CMainFrame::CMainFrame()
{
// TODO: メンバ初期化コードをここに追加してください。
}

CMainFrame::~CMainFrame()
{
}


int CMainFrame::OnCreate(LPCREATESTRUCT lpCreateStruct)
{
if (CFrameWnd::OnCreate(lpCreateStruct) == -1)
return -1;

if (!m_wndToolBar.CreateEx(this, TBSTYLE_FLAT, WS_CHILD | WS_VISIBLE | CBRS_TOP
| CBRS_GRIPPER | CBRS_TOOLTIPS | CBRS_FLYBY | CBRS_SIZE_DYNAMIC) ||
!m_wndToolBar.LoadToolBar(IDR_MAINFRAME))
{
TRACE0("ツール バーの作成に失敗しました。\n");
return -1; // 作成できませんでした。
}

if (!m_wndStatusBar.Create(this) ||
!m_wndStatusBar.SetIndicators(indicators,
sizeof(indicators)/sizeof(UINT)))
{
TRACE0("ステータス バーの作成に失敗しました。\n");
return -1; // 作成できませんでした。
}
// TODO: ツール バーをドッキング可能にしない場合は、これらの 3 行を削除してください。
m_wndToolBar.EnableDocking(CBRS_ALIGN_ANY);
EnableDocking(CBRS_ALIGN_ANY);
DockControlBar(&m_wndToolBar);

return 0;
}

BOOL CMainFrame::PreCreateWindow(CREATESTRUCT& cs)
{
if( !CFrameWnd::PreCreateWindow(cs) )
return FALSE;
// TODO: この位置で CREATESTRUCT cs を修正して Window クラスまたはスタイルを
// 修正してください。

return TRUE;
}


// CMainFrame 診断

#ifdef _DEBUG
void CMainFrame::AssertValid() const
{
CFrameWnd::AssertValid();
}

void CMainFrame::Dump(CDumpContext& dc) const
{
CFrameWnd::Dump(dc);
}

#endif //_DEBUG


// CMainFrame メッセージ ハンドラ

BOOL CMainFrame::LoadFrame(UINT nIDResource, DWORD dwDefaultStyle, CWnd* pParentWnd, CCreateContext* pContext)
{
// 基本クラスが実際の動作を行います。

if (!CFrameWnd::LoadFrame(nIDResource, dwDefaultStyle, pParentWnd, pContext))
{
return FALSE;
}

CWinApp* pApp = AfxGetApp();
if (pApp->m_pMainWnd == NULL)
pApp->m_pMainWnd = this;

// 2 番目のウィンドウで、[ファイル] メニューの [終了] オプションを [閉じる] に置き換えます。
if (AfxGetApp()->m_pMainWnd != this)
{
CMenu *pMenu = GetMenu();
ASSERT(pMenu);
pMenu->ModifyMenu(ID_APP_EXIT, MF_BYCOMMAND | MF_STRING, ID_FILE_CLOSE, "閉じる(&C)");
}

return TRUE;
}
LRESULT CALLBACK MyProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam)
{
bool nCmdShow=0;


bool InitInstance(bool HINSTANCE,bool nCmdShow);
{
if(!hWnd){return false;}
ShowWindow(hWnd,nCmdShow);return true;
}
int wmEvent ; PAINTSTRUCT ps;HDC hdc;

switch(message)
{

case WM_PAINT:
//long left,top,right,bottom;


hdc=BeginPaint(hWnd,&ps);
MessageBox(hWnd,"HelloWorld","title",MB_OK);
SetBkMode(hdc,OPAQUE);
SetTextColor(hdc,RGB(255,128,128));
SetBkColor(hdc,RGB(0,0,0));

typedef struct lprc
{
long left,top,right,bottom;
}

DrawTextEx(hdc,"HelloWorld2",12,(lprc.left,lprc.top,lprc.right,lprc.bottom),DT_CENTER,true);
EndPaint(hWnd,&ps);return true;

case WM_CREATE:
DrawTextEx(hdc,"HelloWorld2",12, (lprc.left,lprc.top,lprc.right,lprc.bottom),DT_CENTER,true);

case WM_COMMAND:;wmEvent=(HIWORD(wParam));
SetTextColor(hdc,RGB(255,128,128));
DrawTextEx(hdc,"HelloWorld2",12,(lprc.left,lprc.top,lprc.right,lprc.bottom),DT_CENTER,true);


default: return DefWindowProc(hWnd,message,wParam,lParam);

return 0;}
LRESULT CALLBACK About(HWND hDlg,UINT message,WPARAM wParam,LPARAM lParam);
{switch(message)
{
case WM_INITDIALOG: return true;

}return false;}}



void CMainFrame::OnFileClose()
{
DestroyWindow();
}





********************







Num. by 000-0001
C(API Reference)Dai's C Laboratory Copy Right 2017.04-


WndProc->((HWND)hwnd,(UINT)message,(WPARAM)wParam,(LPARAM)lParam);
if (message.wParam)
{
wLength=(int)lstrlen(message.wParam)*8;
hLength=(int)lstrlen(message.wParam)*16;
countWord=(int)lstrlen(message.wParam);
SetRect(lprect,0,0,wLength,hLength);
DrawText(hdc,message.wParam,countWord,lprect,NULL);
}
else
{
massege &wParam;
if (!wParam)
{
WPARAM *wParam;
wParam=new Char[100];
}

}


Num. by 000-0001

今回は、ＷｎｄＰｒｏｃ（ウインドウプロシージャ）に対して、ポインタを指定します。”ｈｗｎｄ”ウインドウハンドルは、（ＨＷＮＤ）キャストされています。メッセージは、キーボードストロークで整数値でキャストする２バイトの（ＵＩＮＴ）キャストです。ＷＰＡＲＡＭとＬＰＡＲＡＭパラメーターを引用します。ＵＩＮＴの条件が、”ｗＰａｒａｍ”にオーバーライドされていない時、ｅｌｓｅに、ＷＰＡＲＡＭのポインタ（＊）に”ｗＰａｒａｍ”を指定して、ｗＰａｒａｍにｎｅｗ演算子にてキーボードストロークを１００回分のキーボード入力をします。ｉｆにて、”ｍａｓｓａｇｅ．ｗＰａｒａｍ”にオーバーライドが、真で有れば文字の幅（８ピクセル）、文字の高さ（１６ピクセル）、文字の数を、ｗＬｅｎｇｔｈ，ｈＬｅｎｇｔｈ，ｃｏｕｎｔＷｏｒｄ各ｌｓｔｒｅｎにて求めます。ＳｅｔＲｅｃｔにて四角形の座標を入力して、レクトの形に合わせて、自動で文字幅を合わせられます。ＤｒａｗＴｅｘｔ関数にて、事前に設定したパラメーターを入力します。
This Appointment is Pointer to WndProc withon Cast Settings,message is Get Key Borad Stroke Matrix 16Bit Cast of UINT,Call WPARAM and LPARAM,This Terms by No OverRide with Execute Then Though and else in WPARAM Pointer is (*) Marks with "wParam" on That by "new" Function and "Char" of KeyBorad Stroke Input Infometion Count to 100,User Reply Typing This Function ask it,if Statement by that "message.wParam" to OverRide is case in True as Word Width(x8),Word Height(x16),Word Count(Equivalent),But Variable(wLength and hLength and countWord) Execute in case by API (lstren) to Result Decision,Square of Rect In Put Coordinate Infomation,Automation Font Word Size at Fit Word,Behind Thing Settings Paramater InPut to DrawText(API).

C(API Reference)Dai's C Laboratory Copy Right 2017.04-

Num. by 000-0002

//PromptType Declaration

HANDLE* hFile;

HANDLE CreateFile
(
LPCTSTR lpFileName,DWORD dwDesiredAccess,DWORD dwShareMode,LPSECURITY_ATTRIBUTES lpSecurityAttributes,
DWORD dwCreationDistribution,DWORD dwFlagsAndAttributes,HANDLE hTemplateFile
);

//Parameter Settings

LPCTSTR lpFileName="NewSequential_Read_Write";
DWORD dwDesiredAccess=(GENERIC_READ|GENERIC_WRITE);
DWORD dwShareMode=(FILE_SHARE_WRITE);
LPSECURITY lpSecurityAttributes=NULL;
DWORD dwCreationDistribution=(CREATE_ALWAYS);
DWORD dwFlagsAndAttributes=(FILE_FLAG_SEQUENTIAL_SCAN);
HANDLEA hTemplateFile=NULL;


//CreateFile Execute
hFile=CreateFile
(
lpFileName,dwDesiredAccess,dwShareMode,lpSecurityAttributes,
dwCreationDistribution,dwFlagsAndAttributes,hTemplateFile
);

if(!ar)
{
CArchive * ar;
CArchive &ar;
}
lpBuffer<
nNumberOfBytesWrite=(DWORD) sizeof(lpBuffer)

BOOL WriteFile(HANDLE hFile,LPCVOID lpBuffer,DWORD nNumberOfBytesWrite,
LPDWORD lpNumberOfBytesWritten,LPOVERLAPPED lpOverlapped);
if(!lpBuffer)
{
lpBuffer< }

lpNmuberOfByteRead=(LPCVOID)sizeof(lpBuffer);

BOOL ReadFile(HANDLE hFile,LPVOID lpBuffer,DWORD nNumberOfByteToRead,
LPDWORD lpNumberOfByteRead,LPOVERLAPPED lpOverlapped);

ar[].delete;
hFile[].delete

Num. by 000-0002

ファイルのオープンをする論文です。主にこのソースは、クリエイトファイルのプロトタイプ宣言を行っている他、全ての数値にパラメーターを代入しています。実行される直前に変数が空になりません。アーカイブを使ってストリーミングをしていない場合は、フレームワークからＣＡｒｃｈｉｖｅにａｒにポインタし、これを、ｌｐＢｕｆｆｅｒにＬＰＣＶＩＯＤ形式で、ＣＡｒｃｈｉｖｅからストリーミングされます。ａｒは参照されます。ストリーミング後のｌｐＢｕｆｆｅｒにｓｉｚｅｏｆを指定して、ファイルサイズを計算しています。＜＜コマンドで配列を一斉に読み書きするため、配列子の[　]は省略されません。最後にａｒとhFileにｄｅｌｅｔｅでデストラクタでポインタを最後に削除しておくようにします。

Decision Report of File Open,Main Source is PromtType Declare by Execute else All Value to In Put,No Empty Case Execute is Behind Now.No Use Streaming Case is by Pointer CArchive in Frame Work It.But lpBuffer is Type LPVOID Change Format,Reference Many Place ar,This Open File is sizeof Target lpBuffer in Total Size.Streaming Command is Execute << by at the same time,But Arregement "[ ] " is No Skip.Last is ar and hFile at Desstruct Release of Memory by delete and Mean.
C(API Reference)Dai's C Laboratory Copy Right 2017.04-

Num. by 000-0003

MSG*message;

[module(name=method1)];

struct method1
{
[switch_type(int), switch_is(message)] union members;
{
[case (256),int];
{
if(GetKeyState(17)<0)
{lstrcpy(ctrl,"ON");}
else{lstrcpy(ctrl,"OFF");}

if(GetKeyState(16)<0)
{lstrcpy(shift,"ON");}
else{lstrcpy(shift,"OFF");}


if(GetKeyState(20)<0)
{lstrcpy(caps,"ON");}
else{lstrcpy(caps,"OFF");}

wsprintf(scripts,"MessageCord= %0x , Ctrl = s% , Shift = s% , Caps= s%" , lpMsg , ctrl , shift , caps ) ;
InvalidateRect(hWnd,NULL,TRUE);
break;
}

[case (15),int];
{
hWnd=BeginPaint(hWnd,&ps);
lstrcat(scripts,lpMsg);
TextOut(hWnd,0,0,scripts,lstrlen(scripts));
EndPaint(hWnd,&ps);
break;
}
[case (2),int];
{
PostQuitMessage(0);
};
TranslateMessage(MSG message);
};};




文字コードとドグルの判定により、押下の判定と、文字コードをscriptsにwsprintfにて初期化文字列したものに加え、wParam.messageをMSGとコピーコントラクスタを置き、、＊ポインタで、lpMsgを宣言します。ウインドウが描画されるとき、WM＿PAINTが実行され、hWnd、ウインドウハンドルに、架空のペイントストラクトに参照して、連動して書き換えます。開始描画が宣言されたあと、scriptsと、lpMsgを追加合成し、実際に、文字コードが、入力した文字に変換されるように翻訳（Translate）を行います。TextOutにて、hWndハンドルに加え、座標を０，０に縦横をセットし、scriptsと、scripts文字数を記述し、TextOutで文字列が出力されます。開始したのは、終わりの宣言をもって、描画を終え、return 0 ;　とします。この点でエラーは無いということです。主に此のプログラムは、GetKeyboardStateで入力されたのを、ドグルされていれば、０（Fault：偽)、－１（True：真）と成る、BOOL判定です。是を、GetKeyboardStateと比較することによって、押下されているか判定し、また、システムキー以外の文字位置の場合は、Aであれば文字コードは、其れの位置に相当するソフトキーボードの＆Ｈ００４１であり￥であれば＆ＨＦＦＥ５と成ります。ソフトキーボードは、ＩＭＥパットで読み出せます。文字コードは、４桁の１６進数ですから０からＦまであります。また、Ｔｒａｎｓｌａｔｅ後の文字コードは、字に変換されるので、＆Ｈ００４１であれば、「Ａ」と同じ文字に直されます。閉じるボタンを押したときは、ＰｏｓｔＱｕｉｔＭｅｓｓａｇｅ（０）；にて、終了処理を取ります。テキストアウトは、インバリデートレクトにて、hWndのハンドルで開始描画し、長方形の取得を、ＮＵＬＬは、領域全体に対して、次のＴＲＵＥは、画面を消去して、文字列を描画します。


User's Typing This Program of Terms Hit Out with Push Down,Word Cord Hit Down in Result,Foundation Text Format Insert Variable Value on Conteiner by wsprintf.Copy Construct Copy Template to MSG by wParam.message,Declaration *Pointer to lpMsg.This Program is in Drawing Then Execute WM_PAINT,Add hWnd,WindowHandle and Empty PaintStruct Reference Linking Wote,That Same Times is Begin Paint Drawing Text View of Show Display,scripts[80] Addition Translate Key Cord x0041 at "A".Text Drawing Coordinate Horizontal,Vertical is 0 and 0 Start Setting,with scripts,Addition Count Out Number,Begin and End Drawing is Result return 0;This is No Mistake Result 0.Mainning This Program is Type and Type by GetKeyboardState That Thing Typed Result Hit Down Switch On is Fault(0),True(-1) and Bool Hit Count,Type by Relation Switch up as Same Thing,Through No System key Hit Down,Passenger No System key is Character "A" is x0041(&H0041) Translate "A" Type Word Changes,Show Soft Key Board Reference IME - Pad by Information,\ is xFFE5 is 2Byte Character.Close Window and End Window by PostQuitMessage(0); with Destroy Window.InvalidateRect Coordinate Full Screen Clear with All Vector Drawing by NULL and TRUE with hWnd Handle.

Num. by 000-0004

ウインドウプロシージャ更新版、動作確認済み雛形
test5.exeダウンロード４００KB以内のソースコード
こちらのものは、マイクロソフト”．NET”動作可能修正済コード。主に、メッセージループの間に、WCEXを定義しないことで動作可能とした。全てのコマンドは、スルーされるよって雛形のみの動作を確認している

test5.cpp
********************



WNDCLASSEX wcex;
wcex.cbSize=sizeof(WNDCLASSEX);
wcex.style=CS_HREDRAW | CS_VERDRAW | CS_DBLCLKS;
wcex.lpfnWndProc=(WNDPROC)WndProc;
wcex.cbClsExtra=0;
wcex.WndExtra=0;
wcex.hInstance=hInstance;
wcex.hIcon=LoadIcon(NULL,IDI_APPLICATION);
wcex.hCursor=LoadCursor(NULL,IDC_ARROW);
wcex.hbrBackgrpund=(HBRUSH)(COLOR_WINDOW+1);
wcex.lpszMNenuName=NULL;
wcex.lpszClassName="ModelAPP";
wcex.hIconSm=LoadIcon(NULL,IDI_APPLICATION);
RegisterClassEx(&wcwex);

hWnd=CreateWindow(wcex.lpszClassName,WS_OVERLAPPEDWINDOW,CW_USERDEFAULT,CW_USERDEFAULT,CW_USERDEFAULT,CW_USERDEFAULT,NULL,NULL,hInstance,NULL);

LRESULT CALLBACK MyProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam)
{
bool nCmdShow=0;


bool InitInstance(bool HINSTANCE,bool nCmdShow);
{
if(!hWnd){return FALSE;}
ShowWindow(hWnd,nCmdShow);return TRUE;
}
int wmEvent ; PAINTSTRUCT ps;HDC hdc;

switch(message)
{

case WM_PAINT:


hdc=BeginPaint(hWnd,&ps);
MessageBox(hWnd,"HelloWorld","title",MB_OK);
SetBkMode(hdc,OPAQUE);
SetTextColor(hdc,RGB(255,128,128));
SetBkColor(hdc,RGB(0,0,0));
TextOut(hdc,0,0,"HelloWorld",lstrlen("HelloWorld"));

screct.left=0;
screct.top=0;
screct.right=640;
screct.bottom=480;

DrawTextEx(hdc,"指数は幾つですか",100,&screct,DT_CENTER,NULL);
EndPaint(hWnd,&ps);return 0;

case WM_CREATE:
hDC=GetDC(hwnd);
GetTextExtentPoint32(hdc,"HelloWorld",10,NULL);
ReleaseDC(hWnd,hdc);
return 0;


TextOut(hdc,0,0,"HelloWorld",10);

case WM_COMMAND:;wmEvent=(HIWORD(wParam));

default: return DefWindowProc(hWnd,message,wParam,lParam);

return 0;}
LRESULT CALLBACK About(HWND hDlg,UINT message,WPARAM wParam,LPARAM lParam);
{switch(message)
{
case WM_INITDIALOG: return TRUE;

}return FALSE;}}

ShowWindow(hWnd,nCmdShow);
UpdateWindow(hwnd);
while(GetMessage(&msg,NULL,0,0)){TranslateMessage(&msg);DispatchMessage(&msg);}




stdafx.cpp
********************

#include "stdafx.h"

LRESULT CALLBACK MyProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam)
{
bool nCmdShow=0;


bool InitInstance(bool HINSTANCE,bool nCmdShow);
{
if(!hWnd){return FALSE;}
ShowWindow(hWnd,nCmdShow);return TRUE;
}
int wmEvent ; PAINTSTRUCT ps;HDC hdc;

switch(message)
{

case WM_PAINT:


hdc=BeginPaint(hWnd,&ps);
MessageBox(hWnd,"HelloWorld","title",MB_OK);
SetBkMode(hdc,OPAQUE);
SetTextColor(hdc,RGB(255,128,128));
SetBkColor(hdc,RGB(0,0,0));
TextOut(hdc,0,0,"HelloWorld",lstrlen("HelloWorld"));
DrawTextEx(hdc,"指数は幾つですか",100,NULL,DT_CENTER,NULL);
EndPaint(hWnd,&ps);return 0;

case WM_CREATE:
SetTextColor(hdc,RGB(255,128,128));
TextOut(hdc,0,0,"HelloWorld",10);

case WM_COMMAND:;wmEvent=(HIWORD(wParam));

default: return DefWindowProc(hWnd,message,wParam,lParam);

return 0;}
LRESULT CALLBACK About(HWND hDlg,UINT message,WPARAM wParam,LPARAM lParam);
{switch(message)
{
case WM_INITDIALOG: return TRUE;

}return FALSE;}}

ストックマーケットマスターアーカイブ他解法 シスアド１１

********************
Annuity Addition

100 REM --------------------
110 REM CopyRight Programing by.Dai Fukuoka 2017-12-16
120 REM Annuity Addition/ PlatForm Service of Dennougumi
130 REM --------------------
140 CONSOLE 0,2,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,7,2:CLS 3
150 IF POINT(639,479)=POINT(639,399) THEN SHOWVIEW=1 ELSE SHOWVIEW=-1
160 DIM ADDMOUNTH(9999):DIM TOTALYEAR(9999):DIM SEASON(9999)
170 DIM RESULT(9999):DIM TOTAL(9999,10):DIM METHOD(9999):DIM NAMES$(999)
180 DIM COMMANDS$(9999):DIM RABEL$(9999):DIM PHONE$(999):DIM ADDRESS$(999)
190 *START
200 LOCATE 0,0:PRINT "一年変わらない自分の物の年金を名義積み立てにて、長期積み立てプランを簡単に合計金額を簡易審査します。方法は、四半期料、月額料、年間料の３種類が有ります。"
210 LOCATE 0,3:PRINT "Year Addition Cost Mine Annuity on My Name and Method Type is Year Add or Season Add or Mounth Add Choice Annuity Planing with Add Total Costing,This is No Change Deposit Total Annuity Sefety Financial.""
220 LOCATE 0,7:PRINT "使用者は、各情報を必要とし、試算を出すのに、情報を入力しなければなりません。試算を出すのに、個人情報は必要有りません。まず、決済の方法が、税控除額で年金が積み立てられていること、本試算は、何年になっても積み立てている金額が変わらないこと、また、何年後に積み立て結果がわかること。最初の金額と、加算金額と、決済期間と、最終確定金額です。"
230 LOCATE 0,13:PRINT "User Must Need Infomation,Sample Method Out Put Be Typing Infomation,After Method is Need less Private Infometion.About is Deposit Type is Subtract Tax with Payed Annuity This Planning,This is Year on Future at Deposit Same Cost Total No Change it,UnderStand After Year by Medtod Result Deposit Annuity,Start Cost For Plan,Addition Cost For Plan,Tarms on Year is End Trams Year Result Total Cost Planed."
240 LOCATE 0,19:INPUT "次項／Next Pages.",A$:CLS
250 *PLANIN CLS
280 LOCATE 0,0:PRINT "開始金額を入力してください１＝１円"
290 LOCATE 0,2:INPUT "Start Total Need Infomation with Must Type It,Count 1 is 1 Japan Yen Rating Method(0-10000000)Japan Yen :",PLAN1
300 LOCATE 0,5:PRINT "一回の貯蓄金額の入力です:"
310 LOCATE 0,7:INPUT "This Financial Plan is User Must Reply Once Payed Deposit Cost (1-1000000) Japan Yen :",PLAN2:IF PLAN2=0 THEN *PLANIN
320 LOCATE 0,9:PRINT "決済頻度を入力します。（１）一年、（２）４四半期、（３）毎月"
330 LOCATE 0,11:INPUT "This Planing Term 3 Type Paying Case Can Select 3 Type Deposit Mode (1)Years on/(2)Season on/(3)Mounthly on (1-3) : ",PLAN3:IF PLAN3<1 OR PLAN3>3 THEN *PLANIN
340 LOCATE 0,14:PRINT "何年の合計を求めるか、また、年毎の収支報告を結果を表示します。"
350 LOCATE 0,16:INPUT "Requesting Annuity Deposit on Total Cost with This Method is Must User Terms on Year Financial Plan.This Quest is Total Cost on Year and Behind Terms at Result Accounting Annuity. Years on (1-99) :",PLAN4
360 IF PLAN4<1 OR PLAN4>99 THEN *PLANIN
370 CLS
380 COUNT=0:RESULTIT=PLAN1:FOR I=1 TO PLAN4
390 IF PLAN3=1 THEN RESULTIT=RESULTIT+PLAN2 ELSE IF PLAN3=2 THEN RESULTIT=RESULTIT+(PLAN2*4) ELSE IF PLAN3=3 THEN RESULTIT=RESULTIT+(PLAN2*12)
400 IF COUNT>19 THEN INPUT "Next.",A$:CLS:COUNT=1
410 LOCATE 0,COUNT:PRINT "Years on ";I;" Deposit Result on Annuity";RESULTIT
420 COUNT=COUNT+1:NEXT:INPUT "next.",A$:IF PLAN3=1 THEN PRINT"End.":END
421 CLS:IF PLAN3=2 THEN *TWO ELSE IF PLAN3=3 THEN *THREE
422 *TWO
430 RESULT2=PLAN1:COUNT=0:FOR T=1 TO PLAN4:FOR I=1 TO 4:RESULT2=RESULT2+PLAN2
440 LOCATE 0,COUNT+I-1:PRINT "Years on";T;"Season";I;"Result is:";RESULT2
445 NEXT
450 COUNT=COUNT+4:IF COUNT>20 THEN COUNT=0:INPUT "Next.",A$:CLS
460 NEXT:PRINT"Equivalent Result";RESULT2:PRINT"End.":END
470 *THREE
480 RESULT3=PLAN1:COUNT=0:FOR T=1 TO PLAN4:FOR I=1 TO 12:RESULT3=RESULT3+PLAN2
490 PRINT "Years on";T;"Mounth";I;"Result is:";RESULT3
500 NEXT
510 INPUT "Next.",A$
520 NEXT:PRINT"Equivalent Result";RESULT3:PRINT"End.":END

此のプログラムは、ＩＮＰＵＴと、ＰＲＩＮＴ機能を使った簡単な積算プログラムです。一月、一季節、一年を定額で年金の貯金を数え、それをＰＬＡＮ関数を変数から構成してつくり、結果を、ＲＥＳＵＬＴＩＴ（その結果）に対して一回ずつ加算していきます。数式は、３８０行目から始まっており、ＰＬＡＮ１変数をロードすると、ＰＬＡＮ３を１で選択した場合に、ＲＥＳＵＬＴＩＴ＝＝ＲＥＳＵＬＴＩＴ＋ＰＬＡＮ２と言うメソッドの関数を実行します。次に、ＰＬＡＮ３に２が変数に代入された場合、ＲＥＳＵＬＴＩＴ関数は、ＲＥＳＵＬＴＩＴ＝＝ＲＥＳＵＬＴＩＴ＋（ＰＬＡＮ２変数４倍）を積算関数ＲＥＳＵＬＴＩＴに加算します。また、変数ＰＬＡＮ３に３が代入された場合は、ＲＥＳＵＬＴＩＴ関数に、ＲＥＳＵＬＴＩＴ＝＝ＲＥＳＵＬＴＩＴ＋（ＰＬＡＮ２変数１２倍）を積算します。ＣＯＵＮＴ関係関数は、”０”から始まり、１９行に関係が達したとき、ＩＮＰＵＴ入力待ちをし、”ＮＥＸＴ．”を表示します。まず年度別の合計から表示し、またその次に、四半期料と、月額料を表示するシステムになっています。アウトプットは、”Ｙｅａｒｓ ｏｎ”＋Ｉカウンタ＋”Ｄｅｐｏｓｉｔ Ｒｅｓｕｌｔ Ｏｎ Ａｎｎｕｉｔｙ”＋ＲＥＳＵＬＴＩＴ積算関数となります。年度別が表示されると、２と３をＰＬＡＮ３変数にインプットしたものは、更に詳細を表示します。ＰＬＡＮ３が１の場合は、この時点で、”ＥＮＤ．”を表示して終了します。ＲＥＳＵＬＴ２にＰＬＡＮ１をロードし、ＦＯＲステートメントにて、ＰＬＡＮ４変数が終わるまで繰り返します。また、その区切りを、ＦＯＲステートメントでＩ変数を、４回実行して、Ｔが一上がります。表示は、”Ｙｅａｒｓ　ｏｎ”＋Ｔ＋”Ｓｅａｓｏｎ”＋Ｉ＋”Ｒｅｓｕｌｔ ｉｓ”＋Ｒｅｓｕｌｔ２と成ります。ＮＥＸＴステートメントで、Ｉ変数を区切り、次にＣＯＵＮＴを４加算します。関係関数ＣＯＵＮＴは、２０を超える場合にＣＯＵＮＴ＝＝０となります。入力待ちＩＮＰＵＴの”Ｎｅｘｔ．”が表示され、エンターを押すと、画面を消去し、Ｔ変数のＮＥＸＴを閉じます。ＥＮＤが宣言され、行番号をブレークします。結果をＲＥＳＵＬＴ２関数をアウトプットのＰＲＩＮＴにて”Ｅｑｕｉｖａｌｅｎｔ Ｒｅｓｕｌｔ”＋ＲＥＳＵＬＴ２関数とします。＊ＴＨＲＥＥラベルからは同様のことを、ＲＥＳＵＬＴ３関数にＰＬＡＮ１に変数をロードし、ＦＯＲステートメントで、Ｔが１から始まり、ＰＬＡＮ４変数に代入された数まで繰り返します。ＦＯＲステートメントＩ変数は、１から１２ヶ月回数加算を繰り返します。ＲＥＳＵＬＴ３積算関数は、ＰＬＡＮ２を一回のＦＯＲステートメントにつき、ＲＥＳＵＬＴ３の結果に対して、ＰＬＡＮ２と同じ数を加算を繰り返します。ＦＯＲステートメントＩ変数が、アウトプットＰＲＩＮＴ ”Ｙｅａｒｓ ｏｎ”＋Ｔ＋”Ｍｏｕｎｔｈ”＋Ｉ＋”Ｒｅｓｕｌｔ ｉｓ”＋ＲＥＳＵＬＴ３の結果を表示し、ＮＥＸＴでＦＯＲのＩを閉じられ、インプットの”Ｎｅｘｔ．”のエンターの後、ＦＯＲステートメントのＴ変数が次のＮＥＸＴで閉じられます。結果をアウトプット関数ＰＲＩＮＴにて、”Ｅｑｕｉｖａｌｅｎｔ Ｒｅｓｕｌｔ”＋Ｒｅｓｕｌｔ３（の結果）を表示し、”Ｅｎｄ．”の表示の上、ＥＮＤ関数でブレークアウトします。



********************
StockMarketLister Summer Version

100 REM ---------------------
110 REM StockMarketLister Program by Dai Fukuoka 2016.08.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 DIM CSV$(11,10000):DIM CSV(11,10000):DIM CELL$(11,10000):DIM CELL(11,10000)
160 DIM STAFFNUM(9999):DIM STAFFNUM$(9999):DIM STAFFEXPARENT(9999):DIM STAFFBRUNCH(9999):DIM STAFFLIST(9999):DIM PLAN(9999):DIM PLAN$(9999):DIM SURPLUS(9999)
170 DIM CHEIF(99):DIM LISTED(99):DIM CHECKED(9999):DIM CHECKER(9999)
180 DIM BRUNCH(9999):DIM DATES$(9999):DIM TIMES$(9999):DIM EXPARENT(9999)
190 DIM MONEY$(9999):DIM INCOME(9999):DIM CSV2$(11,9999):DIM CSV2(11,9999)
200 DIM COMPANYNAME$(9999):DIM QUEST$(9999):DIM VERYFIY(11,9999):DIM VERIFIY$(11,9999):DIM TOTALED(9999)
210 *START
220 PRINT "investment type of select count of (1) Standard ,count of (2) Capital ,count of (3) Groupment Commitioner"
230 PRINT "投資形式を選択してください(1)基本投資型(2)資本主義型(3)理事体型 :";:INPUT "",INVEST:IF INVEST=0 THEN INVEST=1
240 IF INVEST=1 THEN CSV$(1,1)="Standard" ELSE IF INVEST=2 THEN CSV$(1,1)="Chapital" ELSE IF INVEST=3 THEN CSV$="Commitioner"
250 PRINT "Type Name at StoreName or CompanyName "
260 PRINT "会社の本店名屋号並びに社名を入力してください　:";:INPUT "",COMPANYNAME$(1):IF COMPANYNAME$(1)="" THEN CSV$(2,1)="NoTitle" ELSE CSV$(2,1)=COMPANYNAME$:FOR Y=2 TO 48:COMPANYNAME$(Y)=COMPANYNAME$(1):NEXT
270 PRINT "Branch Industrial or Commerce Type of Count"
280 PRINT "支店の数を入力してください :";:INPUT "",BRUNCHCOUNT:IF BRUNCHCOUNT=0 THEN BRUNCHCOUNT=1:CSV$(3,1)=STR$(BRUNCHCOUNT) ELSE CSV$(3,1)=STR$(BRUNCHCOUNT)
290 PRINT "Country Name or Locate Type of Name"
300 PRINT "国籍並びに所在地を入力してください";:INPUT "",LOCATION$:IF LOCATION$="" THEN CSV$(4,1)="NoPlace" ELSE CSV$(4,1)=LOCATION$
310 PRINT "Type Name Leader Director President or Group President "
320 PRINT "代表取締役社長氏名、並びに、グループ会頭氏名を入力してください :";:INPUT "",LEADERNAME$:IF LEADERNAME$="" THEN CSV$(5,1)="NoName" ELSE CSV$(5,1)=LEADERNAME$
330 PRINT "Brunch Trade at the Root Number President or [(1)BrunchClub(2)Judiciary(3)Registor]
340 PRINT "支店の枝の数を入力してください(1-3) :";:INPUT "",BRUNCHROOT:IF BRUNCHROOT=0 THEN CSV$(6,1)=STR$(1)+"BrunchNumber" ELSE CSV$(6,1)=STR$(BRUNCHROOT)+"Brunch Number"
350 PRINT "Exparent Than Standard Money Type of (1)Europa(2)Japan(3)USA"
360 PRINT "指数に対する通貨を入力してください(1)Euro(2)Yen(3)UsaDoll :";:INPUT "",MONEYMODE
370 IF MONEYMODE=1 THEN RATE=180 ELSE IF MONEYMODE=2 THEN RATE=1 ELSE IF MONEYMODE=3 THEN RATE=133
380 IF RATE=0 THEN RATE=180
390 CSV$(7,1)=STR$(INT(DIVITION/RATE+.1#/1000000))
400 PRINT "Gruop of Central Group Name Type for Name"
410 PRINT "資本となる中心組織体の組織名を入力してください :";:INPUT "",LEADERCOMPANY$:IF LEADERCOMPANY$="" THEN CSV$(8,1)="NoLeader" ELSE CSV$(8,1)=LEADERCOMPANY$
420 PRINT "Central Gruop Invest and Surplus Pool up Addit FineExchange"
430 PRINT "中心組織の投資運用剰余金を指数で割って入力してください :";:INPUT "",DIVITION:IF DIVITION=0 THEN DIVITION=1
440 CSV$(9,1)=STR$(INT(DIVITION/1000000)):TOTAL=DIVITION/RATE+.1#*1000000
450 PRINT DATE$+"-"+TIME$;"Get Sinece 4colmnYear yyyy/mm/dd - Time hh/mm/ss"
460 PRINT DATE$+"-"+TIME$;"今日の日付と、株の申告予定日 年は４桁、他は２桁";:INPUT "",SINCE$
470 IF SINCE$="" OR SINCE$="-" OR SINCE$=" " THEN SINCE$=DATE$+"-"+TIME$
480 CSV$(10,1)=SINCE$
490 PRINT "Appointment Accept file Name"
500 PRINT "プロファイルのファイル名を指定してください :";:INPUT "",OTN$
510 IF OTN$="" THEN OTN$="Defualt"
520 OPEN OTN$ AS 1:FLAG=EOF(1):CLOSE 1
530 IF FLAG=-1 THEN ELSE *SKIPTO
540 OPEN OTN$ FOR OUTPUT AS #1
550 WRITE #1,CSV$(1,1),CSV$(2,1),CSV$(3,1),CSV$(4,1),CSV$(5,1),CSV$(6,1),CSV$(7,1),CSV$(8,1),CSV$(9,1),CSV$(10,1),OTN$
560 CLOSE #1
570 *SKIPTO GOTO *INVEST
580 GOTO *START
590 *INVEST
600 IF CSV$(7,1)=" 7518" THEN MONEYS$="UsaDoll":RATE=133
610 IF CSV$(7,1)=" 5555" THEN MONEYS$="Euro":RATE=180
620 IF CSV$(7,1)=" 1000000" THEN MONEYS$="YEN":RATE=1
630 EXPARENT=INT(VAL(CSV$(9,1))/RATE+.1#*1000000)
640 INCOME=INT(EXPARENT/100000*3+.1#)
650 PRINT "Exparent of";EXPARENT;" Income of";INCOME;MONEYS$
660 PRINT "Set Limid of Count up Mounth :";
670 INPUT "",BETWEEN:IF BETWEEN=0 THEN *INVEST
680 FOR H=1 TO BETWEEN:FINEMONEY=INT(FINEMONEY/RATE+INCOME+.1#):NEXT H
690 PRINT "TOTAL :";FINEMONEY;MONEYS$;" of";BETWEEN;"Mounth";
700 PRINT "Edit Stock Market Number";:INPUT "",SMN
710 PRINT "Edit Brunch Number :";:INPUT "",ROOTNUM
720 PRINT "Edit Execution Post(0:Y/1:N):";:INPUT "",EXE
730 IF EXE=1 THEN *INVEST
740 *RETYPE1
750 PRINT "Template Set of (1)Staff Only (2)List And Staff (3)Tob And Staff (4)List And Tob And Staff :";:INPUT "",TYPE1
760 PRINT "Exparent Rank Set of (1)Chif President Class (2) Limited Company Class (3) Gavament President Class :";:INPUT "",TYPE2
770 PRINT "Trade Mark Regist on Date and Rank of (1)SpecialLisence (2)CopyRight (3)Visual :";:INPUT "",TYPE3
780 PRINT "Exparent Addit Manager 0-10000 :";:INPUT "",TYPE4
790 IF TYPE1=0 OR TYPE2=0 OR TYPE3=0 THEN *RETYPE1
800 YEAR=INT(BETWEEN/12)
810 YEAROFF=VAL(MID$(DATE$,1,2))
820 IF YEAROFF-YEAR<0 THEN YC=100-YEAROOF-YEAR ELSE YC=YEAROFF-YEAR
830 MOUNTHOFF=VAL(MID$(DATE$,4,2)):IF MOUNTHOFF-BETWEEN>0 THEN MC=MOUNTHOFF-BETWEEN ELSE IF MOUNTHOFF-BETWEEN<0 THEN MC=MOUNTHOFF-BETWEEN+(YEAR*12)
840 PRINT "Time of ";DATE$;TIME$;"- START MOUNTH";MC;" START YEAR";YC
850 REM IF ROOTNO=0 THEN *LEADERONCE
860 REM IF ROOTNO=1 THEN *PRESIDENTENTRY
870 REM IF ROOTNO=2 THEN *CHAIRMANSHIP
880 REM IF ROOTNO=3 THEN *RegistanceGroup
890 *SETTYPE
900 AAA=10000000/RATE:BBB=20000000/RATE:CCC=30000000/RATE:DDD=27500000/RATE
910 REM IF ROOTNO=3 THEN *REGIST
920 EEE=22500000*8/RATE:FFF=25000000/RATE:GGG=7500000/RATE:HHH=5000000/RATE
930 III=2350000/RATE:JJJ=3500000/RATE:KKK=2500000/RATE:LLL=1000000/RATE
940 PLAN(1)=AAA:PLAN(2)=BBB:PLAN(3)=CCC:PLAN(4)=CCC:PLAN(5)=CCC:PLAN(6)=DDD
950 PLAN(7)=CCC:PLAN(8)=FFF:PLAN(9)=III:PLAN(10)=AAA:PLAN(11)=GGG
960 PLAN(12)=HHH:PLAN(13)=JJJ:PLAN(14)=BBB:PLAN(15)=AAA*8:PLAN(16)=EEE*8
970 PLAN(17)=AAA:PLAN(18)=BBB:PLAN(19)=CCC:PLAN(20)=BBB:PLAN(21)=AAA
980 PLAN(22)=KKK*8:PLAN(23)=LLL*5:PLAN(24)=LLL*5:PLAN(25)=JJJ*5:PLAN(26)=AAA*5
990 PLAN(27)=LLL*8:PLAN(28)=JJJ*8:PLAN(29)=AAA*8
1000 U=COUNTER*50:FOR W=1+U TO 50+U:CHECKED(W)=0:CHECKER(W)=1:NEXT W
1010 FOR R=1+U TO 22+U:PLAN(R)=PLAN(R-U):NEXT
1020 FOR R=23+U TO 29+U:PLAN(R)=PLAN(R-U):NEXT
1030 FOR R=30+U TO 36+U:PLAN(R)=PLAN(R-7-U):NEXT
1040 FOR R=37+U TO 43+U:PLAN(R)=PLAN(R-14-U):NEXT
1050 FOR R=44+U TO 50+U:PLAN(R)=PLAN(R-21-U):NEXT
1060 EXPARENT(U)=PLAN(U)/1000000:INCOME=DIVITION*1000000/RATE/10*3:MONEY=MONEYMODE
1070 STAFFNUM$(1+U)="Leader Director President":STAFFNUM$(2+U)="Leader Chairman"
1080 STAFFNUM$(3+U)="Director President":STAFFNUM$(4+U)="Submit Leader"
1090 STAFFNUM$(5+U)="Cheif(Engineer or Financial) Breau":STAFFNUM$(6+U)="Cheif Offen Offer"
1100 STAFFNUM$(7+U)="Director President":STAFFNUM$(8+U)="Brunch Club"
1110 STAFFNUM$(9+U)="DeskChairman":STAFFNUM$(10+U)="President"
1120 STAFFNUM$(11+U)="Execute or Sineor Director":STAFFNUM$(12+U)="Club"
1130 STAFFNUM$(13+U)="Department":STAFFNUM$(14+U)="Judicialy President"
1140 STAFFNUM$(15+U)="Region Exception Assembly Office":STAFFNUM$(16+U)="Staff 8 Justice Brunch Chage"
1150 STAFFNUM$(17+U)="Justice Director":STAFFNUM$(18+U)="Chairman"
1160 STAFFNUM$(19+U)="Resistance Group President":STAFFNUM$(20+U)="Protestant DeskChairman"
1170 STAFFNUM$(21+U)="Protestant President":STAFFNUM$(22+U)="Staff 8 Staff Charge"
1180 FOR T=1 TO 22:STAFFNUM$(T+U+50)=STAFFNUM$(T):STAFFNUM(T+U+50)=STAFFNUM(T):NEXT T
1190 FOR T=23+U TO 50+U STEP 7
1200 STAFFNUM$(T)="Staff 5 Tob Cheif":STAFFNUM$(T+1)="Staff 5 Tob Gavament President":STAFFNUM$(T+2)="Staff 5 Tob Limited Company President"
1210 STAFFNUM$(T+3)="Staff 5 Tob Cheif President":STAFFNUM$(T+4)="Staff 8 Listed Gavament President":STAFFNUM$(T+5)="Staff 8 Listed Limited Company President"
1220 STAFFNUM$(T+6)="Staff 8 Listed Cheif President"
1230 STAFFNUM(T)=T:STAFFNUM(T+1)=T+1:STAFFNUM(T+2)=T+3
1240 STAFFNUM(T+3)=T+3:STAFFNUM(T+4)=T+4:STAFFNUM(T+5)=T+5
1250 STAFFNUM(T+6)=T+6
1260 NEXT
1270 NE$="(1-8)0:ALL/9:Nothing":QE$="(0:Yes/1:No):":NF$="(1-5)0:ALL/9:Nothing:"
1280 FOR W=1 TO 50:QUEST$(W)=QE$:NEXT
1290 QUEST$(15+U)=NE$:QUEST$(16+U)=NE$:QUEST$(22+U)=NE$
1300 FOR W=23+U TO 50+U STEP 7:
1310 QUEST$(W)=NF$:QUEST$(W+1)=NF$:QUEST$(W+2)=NF$:QUEST$(W+3)=NF$
1320 QUEST$(W+4)=NE$:QUEST$(W+5)=NE$:QUEST$(W+6)=NE$
1330 NEXT W
1340 IF NFLAG=1 THEN START=6 ELSE START=1
1350 IF STARTED=1 THEN START=7 ELSE START=1
1360 IF BRUNCHROOT=1 THEN LOOPNUM=14 ELSE IF BRUNCHROOT=2 THEN LOOPNUM=19 ELSE IF BRUNCHROOT=3 THEN LOOPNUM=22 ELSE LOOPNUM=22
1370 FOR T=23+U TO 50+U STEP 7:STAFFNUM$(T)=STAFFNUM$(23):STAFFNUM(T)=STAFFNUM(23):PLAN(T)=PLAN(23)
1380 STAFFNUM$(T+1)=STAFFNUM$(24):STAFFNUM(T+1)=STAFFNUM(24):PLAN(T+1)=PLAN(24)
1390 STAFFNUM$(T+2)=STAFFNUM$(25):STAFFNUM(T+2)=STAFFNUM(25):PLAN(T+2)=PLAN(25)
1400 STAFFNUM$(T+3)=STAFFNUM$(26):STAFFNUM(T+3)=STAFFNUM(26):PLAN(T+3)=PLAN(26)
1410 STAFFNUM$(T+4)=STAFFNUM$(27):STAFFNUM(T+4)=STAFFNUM(27):PLAN(T+4)=PLAN(27)
1420 STAFFNUM$(T+5)=STAFFNUM$(28):STAFFNUM(T+5)=STAFFNUM(28):PLAN(T+5)=PLAN(28)
1430 STAFFNUM$(T+6)=STAFFNUM$(29):STAFFNUM(T+6)=STAFFNUM(29):PLAN(T+6)=PLAN(29)
1440 NEXT
1450 IF START=0 THEN START=1
1460 *RESTORELOOP I=START:LOOPNUM=COUNTER*50+50:WHILE I=<LOOPNUM
1470 IF I="23" AND BRUNCH="3" THEN START="7:BRUNCH=1:GOTO" *LOOPEND
1480 LAP="VAL(CSV$(3,1)):IF" LAP*50<U THEN *INVESTPROCESS ELSE
1490 P="P+1:PRINT" P;:IF I="0" THEN I="1" ELSE IF I="23" THEN I="7
1500" IF I>22 THEN I=7
1510 IF I=1 THEN PRINT "--Brunch 00 Root Stock Number--";:BRUNCH=0:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH
1520 IF I=7 THEN PRINT "--Brunch 01 Root Stock Number--";:BRUNCH=1:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH
1530 IF I=14 THEN PRINT "--Brunch 02 Root Stock Number--";:BRUNCH=2:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH
1540 IF I=19 THEN PRINT "--Brunch 03 Root Stock Number--";:BRUNCH=3:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH
1550 BRUNCH(I)=BRUNCH
1560 IF CHECKED(I+U)=1 AND CHECKER(I+U)=0 THEN PRINT "Staff Sold"
1570 IF CHECKED(I+U)>0 THEN GOTO *SKIPTO2
1580 IF STARTED=1 AND BRUNCH=0 THEN START=7:BRUNCH=1:GOTO *SKIPTO2
1590 PRINT STAFFNUM$(I);QUEST$(I);:INPUT "",CHECKER(I+U):IF CHECKER(I+U)=0 THEN CHECKED(I+U)=1
1600 IF CHECKED(I+U)>0 THEN DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH:EXPARENT(I+U)=INT(PLAN(P)/1000000+.1#*RATE):COMPANYNAME$(1+U)=COMPANYNAME$(I+U)
1610 IF CHECKER(I)>0 AND CHECKER(I)<9 THEN CHECKED(I)=CHECKER(I)
1620 IF CSV2$(1,I+U)="" THEN CSV2$(1,I+U)=DATES$(I+U):CSV2$(2,I+U)=TIMES$(I+U):CSV2(4,I+U)=STAFFNUM(I+U):CSV2$(5,I+U)=COMPANYNAME$(I+U):CSV2(6,I+U)=BRUNCH(I+U):CSV2(8,I+U)=PLAN(I):CSV2(9,I+U)=PLAN(I)/1000000:CSV2(10,I+U)=DIVITION*100000/10*3
1630 *SKIPTO2
1640 IF I=6 OR I=13 OR I=18 OR I=22 THEN IF BRUNCH<4 THEN GOTO *TOB00 ELSE *SKIPI
1650 *LOOPEND
1660 *SKIPI I="I+1:WEND:U=CPUNTER*50:START=7:I=7:IF" I="22" AND BRUNCH="3" THEN GOTO *INVESTPROCESS
1670 IF UFLAG="-1" THEN
1680 REM IF STAFFNUM(W)=1 AND FINEMONEY*RATE>PLAN(W) THEN ELSE TOC=FINEMONEY-(PLAN(I)*RATE):FLAG=I
1690 IF LOOPS=1 THEN GOTO *SERIALIZATION
1700 *TOB00 M=N:IF TYPE1=3 OR TYPE1=4 THEN UCOUNT=UCONT+1 ELSE *LIST00
1710 IF LFLAG=1 THEN *SKIPTOB
1720 IF M=0 THEN N=23:M=N
1730 IF STARTED=1 THEN N=43:NCOUNT=50
1740 IF BRUNCH=0 THEN N=23:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=27:COMPANYNAME$(N+U)=COMPANYNAME$(1)
1750 IF BRUNCH=1 THEN N=30:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=34:COMPANYNAME$(N+U)=COMPANYNAME$(1)
1760 IF BRUNCH=2 THEN N=37:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=41:COMPANYNAME$(N+U)=COMPANYNAME$(1)
1770 IF BRUNCH=3 THEN N=44:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=48:COMPANYNAME$(N+U)=COMPANYNAME$(1)
1780 LET U=COUNTER*50:LAP=VAL(CSV$(3,1)):PRINT M,U
1790 LET M=N:SS$="Staff Sold":IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(1)
1800 IF CHEIF(1)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(23):STAFFNUM(M+U)=STAFFNUM(23):DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(M+U)=BRUNCH:EXPARENT(M+U)=PLAN(23)*RATE+.1#/1000000:CHECKED(M+U)=1:CSV2$(5,M+U)=COMPANYNAME$(1)
1810 LET M=N+1:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(2)
1820 IF CHEIF(2)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(24):STAFFNUM(M+U)=STAFFNUM(24):DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(N+U)=BRUNCH:EXPARENT(M+U)=PLAN(24)*RATE+.1#/1000000:CHECKED(M+U)=1:CSV2$(5,M+U)=COMPANYNAME$(1)
1830 LET M=N+2:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(3)
1840 IF CHEIF(3)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(25):STAFFNUM(M+U)=STAFFNUM(25):DATES$(N+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(N+U)=BRUNCH:EXPARENT(M+U)=PLAN(25)*RATE+.1#/1000000:CHECKED(M+U)=1+.1#/1000000:CHECKED(M+U)=1:CSV2$(2,W+U)=COMPANYNAME$(1)
1850 LET M=N+3:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(3)
1860 IF CHEIF(4)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(26):STAFFNUM(M+U)=STAFFNUM(26):DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(N+U)=BRUNCH:EXPARENT(M+U)=PLAN(26)*RATE+.1#/1000000:CHECKED(M+U)=1+.1#/1000000:CHECKED(M+U)=1:CSV2$(5,M+U)=COMPANYNAME$(1)
1870 M=N
1880 FOR W=1+U TO 50+U:CSV2$(1,W)=DATES$(W):CSV2$(2,W)=TIMES$(W):NEXT
1890 FOR W=1+U TO 50+U:CSV2$(3,W)=STAFFNUM$(W):CSV2(4,W)=STAFFNUM(W):NEXT
1900 FOR W=1+U TO 50+U:CSV2(6,W)=BRUNCH(W):CSV2(8,W)=INCOME(W):NEXT
1910 FOR W=1+U TO 50+U:CSV2(9,W)=EXPARENT(W):CSV2(10,W)=DIVITION*1000000:NEXT
1920 *LIST00 UCOUNT=0:IF TYPE1=2 OR TYPE1=4 THEN UCOUNT=UCONT+1 ELSE *SKIPTOB
1930 IF LFLAG=1 THEN *SKIPTOB
1940 IF BRUNCH=0 THEN N=27:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=28:COMPANYNAME$(N+U)=COMPANYNAME$(1):EXPARENT(N+U)=PLAN(N)/1000000*RATELIST -1800
1950 IF BRUNCH=1 THEN N=34:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=35:COMPANYNAME$(N+U)=COMPANYNAME$(1):EXPARENT(N+U) = PLAN(N)/1000000*RATE
1960 IF BRUNCH=2 THEN N=41:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=42:COMPANYNAME$(N+U)=COMPANYNAME$(1):EXPARENT(N+U) = PLAN(N)/1000000*RATE
1970 IF BRUNCH=3 THEN N=48:LFLAG=0:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=49:COMPANYNAME$(N+U)=COMPANYNAME$( 1):EXPARENT(N+U)=PLAN(N)/1000000*RATE
1980 SS$="Staff Sold":LET U=COUNTER*50:LAP=VAL(CSV$(3,1))
1990 LET M=N :IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",LISTED(1)
2000 LET M=N+1:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",LISTED(2)
2010 LET M=N+2:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",LISTED(3)
2020 M=N:IF LISTED(1)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(27):STAFFNUM(M+U)=STAFFNUM(27):CHECKED(M+U)=1:INCOME(M+U)=PLAN(27)/10*3:EXPARENT(M+U)=PLAN(27)/1000000:DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:CSV2$(5,M+U)=COMPANYNAME$(1)
2030 LET M=N+1:IF LISTED(2)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(28):STAFFNUM(M+U)=STAFFNUM(28):CHECKED(M+U)=1:INCOME(M+U)=PLAN(28)/10*3:EXPARENT(M+U)=PLAN(28)/1000000:DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:CSV2$(5,M+U)=COMPANYNAME$(1)
2040 LET M=N+2:IF LISTED(3)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(29):STAFFNUM(M+U)=STAFFNUM(29):CHECKED(M+U)=1:INCOME(M+U)=PLAN(29)/10*3:EXPARENT(M+U)=PLAN(29)/1000000:DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:CSV2$(5,M+U)=COMPANYNAME$(1)
2050 *SKIPTOB PRINT UCOUNT,NCOUNT,BRUNCH,I:IF BRUNCH=3 AND I=22 THEN *INVESTPROCESS
2060 IF I=22 AND BRUNCH=3 THEN BRUNCH=1:UFLAG=-1:GOTO *TOB00 ELSE
2070 GOTO *SKIPI
2080 *INVESTPROCESS
2090 LC=LC+1:PRINT "Industrial or StoreWork or Servant Brunch Name This it Tietle":PRINT "工業所並びに、小売業、公務の支部名を入力してください。";:INPUT "",COMPANY$(LC)
2100 IF OPENFILENAMES$="" THEN PRINT "Your Self Saving Open File Name";:INPUT "保存ファイル名を入力してください:",OPENFILENAMES$
2110 IF NEXTMARKET=0 THEN PRINT "2 Brunch Market Over Input Works No Tie Up (Y:0/N:1)":PRINT "２支店以上を入力するには、(0)はい(1)いいえ":INPUT "",NEXTMARKET
2120 IF NEXTMARKET=1 THEN NCOUNT=0:UCOUNT=0:N=0:START=7
2130 IF COMPANY$(LC)="" THEN CANPANY$(LC)="Standard Company":PFLAG=1
2140 IF PFLAG=1 THEN *P1
2150 OPEN OFN$ AS 2:IF EOF(1)=-1 THEN PFLAG=1:PLACE=1 ELSE IF EOF(1)=0 THEN PFLAG=1:PLACE=0
2160 CLOSE 2
2170 IF PLACE=1 THEN *P1
2180 *P1
2190 FOR I=1 TO 22
2200 IF TOTAL<0 THEN GOTO *S1
2210 *S1 NEXT
2220 S=22:FOR B=0 TO 3:S=S+1
2230 IF TOTAL<0 THEN B=3:I=29:GOTO *S2
2240 *S2 NEXT B
2250 FOR I=START TO 50:IF TOTAL>0 AND CHECKER(I)=0 THEN CHECKED(I)=1:NEXT
2260 *SERIALIZETION SERIAL=SERIAL+1:START=7:BRUNCH=1:I=7
2270 LC=0:IF VAL(CSV$(3,1))=>SERIAL THEN ELSE
2280 *STEPIN
2290 IF ICOUNT=0 THEN ICONUT=ICOUNT+1 ELSE IF ICOUNT=1 THEN ICOUNT=ICONUT+1
2300 *LS1
2310 E=E+1:IF STARTED=1 AND E>50 THEN GOTO *CL1
2320 GOTO *PRETOTAL
2330 *PRETOTAL
2340 U=COUNTER*50:IF U=0 THEN STARTER=1 ELSE STARTER=7
2350 FOR F=STARTER TO 50:
2360 IF CHECKED(F)=1 THEN TOTAL=TOTAL-PLAN(F+U)*2
2370 NEXT
2380 GOTO *TAKEOWNERCOST
2390 IF E=>50 THEN STARTED=1:START=7:L=L+50:E=6 ELSE GOTO *PRETOTAL
2400 GOTO *TAKEOWNERCOST
2410 *TAKEOWNERCOST
2420 IF TOTAL<0 THEN PRINT ABS(TOTAL);"Empty of account"
2430 IF TOTAL>0 THEN PRINT TOTAL;"have a remain account"
2440 TOTALED(COUNTER)=TOTAL
2450 *TURN
2460 LAP=VAL(CSV$(3,1)):IF LAP=>SERIAL THEN COUNTER=COUNTER+1:Y=7:START=7::BRUNCH=1:STARTED=1:NFLAG=1:U=COUNTER*50:GOTO *SETTYPE
2470 *JOINT
2480 IF VAL(CSV$(3,1))= 2490 IF OPENFILENAMES$="" THEN OPENFILENAMES$="CSVDefualt"
2500 OPEN OPENFILENAMES$ FOR OUTPUT AS #2
2510 Y=0:P=0:J=0
2520 FOR W=1 TO 50 STEP 1:CSV2$(3,W)=STAFFNUM$(W):CSV2(4,W)=STAFFNUM(W):NEXT
2530 FOR W=51 TO 100 STEP 1:CSV2$(3,W)=STAFFNUM$(W-50):CSV(4,W)=STAFFNUM(W-50):NEXT
2540 *WORTE
2550 Y=Y+1:IF Y=50 THEN Y=7:J=J+1
2560 IF COUNTER 2570 IF LAP*50

2580 IF CSV2$(1,Y+P)="" OR CSV2$(2,Y+P)="" OR CSV2$(3,Y+P)="" THEN *WROTELOOP
2590 WRITE #2,CSV2$(1,P+Y),CSV2$(2,P+Y),CSV2$(3,P+Y),CSV2(4,P+Y),CSV2$(5,P+Y),CSV2(6,P+Y),CSV2(7,P+Y),CSV2(8,P+Y),CSV2(9,P+Y),CSV2(10,P+Y),MONEYS$
2600 *WROTELOOP
2610 P=J*50
2620 IF LAP 2630 *OUTIN
2640 CLOSE