経営法務Ⅰ 福岡大 日進市

※私的一般家庭目的以外使用禁止※

福岡 繁（しげる君）教育用

中小企業診断 エンタープライズコンサルティング Enterprise Consulting For Sigeru Fukuoka
This Education is For Sigeru Fukuoka Use

過去問の要約
公開会社ではない株式会社は、監査等委員会設置又は指名委員等設置会社で無い限り、取締役の任期において定欽で定めるところにより、選任後十年以内に終了する事業年度の内最終のものに関する定時株主総会終結のときまで延長する事ができる他、正当な理由無く取締役を解任された者は解任によって生じた損害の賠償を株式会社に対して請求する事ができる。損害には残存任期中に支給を受けるはずだった取締役の報酬も含む。

自社が持っている株が次の会社に譲渡する。できない場合は売る。本人は出来れば次社は株主になって欲しくない。届いたのは８月１０日であれば猶予は２４日までに確答しなければ承認される。
ここで、確答の期間を聞かれる。２週間と答える。一月の確答の猶予ではない。


弊社と同じ事業を営んできた他の事業も営んでいるＡ社は同事業に関して締結している契約の中に会社分割が解除事由として定められているものがないか確認が必要になる。子会社に於いて同事業を営むのに新たに許認可を取得することが必要な場合には、その許認可を得るのに必要な期間やコストを把握しておく必要が有り、そのコストを同事業を製造販売事業同事業を営んでいるＢ社が負担するのかＡ社が負担するのか交渉する必要が有る。契約の分割等の要否を検討する為にＡ社が同事業とそれ以外の事業の双方で同一の契約に基づいて使用しているリース資産やシステムが無いかどうかの確認が必要になる。それから同業他社から競合する事業を買収する事になりますから、独占禁止法に抵触しているかどうかも問題となる。公正取引委員会への届出の要否についても検討しなければならない。


株買取のスケジュールには影響するか
公正取引委員会が短縮を認めてくれない限り最短でも、届出を受理されてから約一月経過するまでは株式を取得できないのでスケジュールには影響する。

各種破産手続き一覧
民事再生法：倒産手続きに因らないで出来る
会社更生手続き：倒産手続きに因らないで出来ない
破産手続き：倒産手続きに因らないで出来る
特別清算手続き：倒産手続きに因らないで出来ない

実用新案法
実用新案権は、その登録に係る技術の評価書を提示し警告した後でなければ自己の新案の侵害者に対して行使できない。


世界的競争が激化する中、自国の革新を促進する為に、研究者の活動に対する起動の確保他、企業の競争力強化を同時に実現するための環境整備が重要になる。このような事情にかんまみ、知的財産の適切な保護及び、活用を実現するための制度を整備し、自国の革新を促進する事を目的としてまず、職務発明制度を見直し、次に、特許料の改定更には、特許法条約及び商標に関するシンガポール条約の実施の為の規定の整備を行う事にした。従来の職務発明者制度の立柱は、まず特許を受ける権利は発明者に帰属し、特許を受ける権利を使用者が特許出願するには、権利を譲り受ける形となる点、発明者は特許を受ける権利を使用者に継承させた場合その対価を請求できる対価請求権と言うものであった。従来の職務発明制度では、異なる使用者に於ける共同発明者ＡとＢが存在する場合使用者が発明者Ａから特許を受ける権利を継承する場合、他社の発明者Ｂの同意が必要であるため、権利の継承に係る手続き負担が課題となっていた。共同研究の途中で従業者の共同発明者の人事異動が発生した場合は、再度当該従業者から同意を取り直す等権利の継承に係る手続きが複雑化していた。是等は、昨今共同研究の必要性が高まる中企業の速度的な知財戦略実施の阻害内容の一つとなっていたそこで特許を受ける権利を初めから使用者に帰属させる事によりこの問題を解決する事にした。



弊社のアイスクリームの人気商品の設計を一新しました。意匠登録をして模倣品対策をしたいのですが、意匠登録は可能ですか。
登録は可能です。時間の経過により形態が変化してしまいます。しかし取引時に固定した形態を有しているので意匠登録の対象になる可能性が有ります。

商標登録出願を行ったところ先願登録が類似する商標とされ拒絶理由通知が発せられた。
商標の類比は、各商標が同一又は類似商品に使用された場合、商品の出所につき誤認混同を生ずる恐れがあるかあるか否かによって決せられる。

他国の欧州で世界的衣装高級製品である企業の著名な商品表示をスナックが自国の地方都市の郊外に於いて初号として一店舗のみ看板などに用いている。この場合、衣装とスナック間に競争関係が無いものの、周知表示混同惹起（じゃっき）となることがある。


不正競争防止法上の営業秘密に該当するためには、①営業管理性②有用性③非行知性の３つの条件を満たすことが必要とされる。営業管理性があるというためには情報に合法的かつ現実的に接触することができる従業員等からみて情報が会社にとって秘密としたい情報である事が分かる程度に、接触制限や、丸秘表示と言った秘密管理措置がなされている必要がある。有用性の要件は脱税情報や有害物質の垂れ流し情報など公序良俗に反する内容の情報を法律上の保護の範囲から除外することに主眼を置いた要件であり、それ以外の情報であれば有用性が認められる事が多い。現実に利用されていなくても有用性が認められる。さらに非行知性が在ると言う為には合理的な努力の範囲内で入手可能な刊行物に記載されていないなど保有者の管理下以外では一般に入手できない事が必要である。図利加害目的で詐欺行為又は管理侵害行為によって営業秘密を不正に取得する行為等は営業秘密侵害罪を構成し得る。


隔地者に対する契約の申し込みは、発信後到達前に申込者が死亡した場合であっても有効であるが申し込みの相手方が承諾の発信前に申し込み者が死亡を知った場合には契約の効力は失う。

債務者が債権者を害することを知って行った５年前の法律行為を債権者が知ってから２年経過するまでは債権者は詐害行為取り消し請求に係る訴えを提起する事ができる。


自社で開発した医療技術の新技術について他国に本社のある会社に技術免許を供与する交渉をしています自社から英文契約書を提示する予定で、担当者が雛形を準備しました。こういった条項にどの様なことに注意すればいいですか。

使用料の支払いに掛かる税金の負担についての条項ですか。まず支払い国に於ける知的財産の使用料に対する源泉徴収制度次に自国、他国の租税の条約の有無を確認して整合性を確認する必要が有ります。他国で源泉徴収税を免税してもらうか源泉徴収分を日本で外国税額控除の対象としてもらえないと二重課税になりかねません。

自社は外国企業へ技術が多いので知的財産の使用料に対して所得課税が低いことで有名な三国に現地法人を設立しそこに知的財産を集約して使用料収入の税負担を抑えると言う計画提案も受けています。

その通りですか。そういう事業計画するを構想場合には、専門家の助言だけでなく経営の原点に立ち返って考えたほうがいいです。国際的な租税回避策に利用される”差し控える”に関して三国は注視している国です。国で独立企業として実体が無かったり実態に応じた事業活動上の目的や必要性等の観点から節税以外にその国に知的財産の集約する経済合理性を説明できなかったりすると税務当局から租税回避行為と認定される可能性も有ります。

建築士一級 計画 学科Ⅰ 福岡大

"建築計画（１）","福岡大","マスターカードUSA","私立榮不動産合資会社","18/11/24","分割する方法：外枠として全体のフレームを決めておき、必要な空間を仕切っていく手法で単純な平面計画になりやすい。グリットプランニング：一定のモデュールを基準寸法とする平面格子を下敷きとしてプランニングを行う枠にはまった平面設計に成り易い。","ゾーンプランニングの手法：住宅を構成する部屋をグルーピングしてプランニングを行なう手法で想定と異なった住み方に対しての自由度が少なくなりやすい。","連結していく方法：要求される部屋とスペース面積を設定して関連の度合いによって結びつけたり離したりして全体を纏めていく手法で平面形状に凹凸が多くなりやすい。","車椅子利用者が利用する場合キッチンセットについてはI型よりL型のほうが利用しやすい。LD（リビング・ダイニング）は日本の従来の茶の間に類するもので空間を有効利用してリビングとダイニングの機能を確保できる。","ル･コルビジェのドミノ型住宅は、骨組みを柱と床と階段により構成する構造方式で平面計画の自由度が高い。設備コアに因るコアプランは居室部分を外壁に面して計画可能で居住性を高める事が出来る。","１章","愛知県日進市折戸町笠寺山７９"
"建築計画（２）","福岡大","マスターカードUSA","私立榮不動産合資会社","18/11/26","収納空間については収納する物の大きさに合わせて奥行きがあまり深くない収納スペースを多めに計画し延べ面積の１０％を目安として確保する。環境共生住宅に於ける工夫の一つとして風力や太陽熱を利用したエネルギー供給がある。","鉄筋コンクリート造の集合住宅では一般に躯体よりｍの給排水管の方が耐用年数も短いので当初の設計においても配管の交換のし易さを考慮することが重要である。","集合住宅に於ける片廊下形式は、各住戸の日照、採光、通風、眺望などの条件を同一にしている。プライバシーの点は優れない。低・中層集合住宅に於いて、光井戸（Light Well)と呼ばれる吹き抜けを用いると奥行きが深い場合にも通風と採光を得る事が出来る。","住宅地の周りなど道路において設けられるハンプは車の速度を強制的に歩行者と同じ程度に落とす事を目的とした手段である。塔の家（東考光）は小面積で不整形な敷地条件に対して住空間を機能別に積層して構成した都市住宅である。","ガラスの家と、ファンスワーズ邸はミースとその弟子のP．ジョンソンのコアータイプの住宅で非常に似通っている。P．ジョンソンは、ミースより１年前の１９４９年にガラスの家を建てた。どちらも内部のコアで視界を遮り居間と寝室部分に分ける一室方式","１章","愛知県日進市"
"建築計画（３）","福岡大","マスターカードUSA","私立榮不動産合資会社","18/11/26","ファンワーズ邸とガラスの家は、鉄、ガラス、空間、機械換気の産物で現代建築を象徴する作品。違いはミースの住宅が高床型で鉄骨組みの造形を強調している点である。スカイハウスは現代建築可能性の素直な表現（１９５８）唐傘の家は純粋な表現（１９６１）。","塔の家は、土地バブルに向かう（１９６６）東京青山の狭小敷地にまともな住いを作る皮肉（悲痛を）表現し、建築界を越えて広く世に知られた作品である。","ル・コルビジェが１９１４、１５年に発表した現代建築の初歩的なアイデア。床板と柱だけの構造が外壁を荷重負担から開放した現代建築の原理を表明した。パンプは交通通静隠化の為自動車の速度を下げる目的で横断して設置される蒲鉾型の突起物使用すると事故。","ハーフウエイハウス：病院で治療、訓練を終了した患者等が日常生活へ復帰に向けてADL（日常生活動作）訓練を受ける事が出来る施設。シルバーハウジング：ライフサポートアドバイザーを置き、高齢者に設備、緊急通報が備えられた集合住宅。","コーポラティブハウス：自らが居住する為の住宅を建設しようとする者が協力して企画、設計から入居、監理までを行なう建設の集合住宅。","１章","愛知県日進市"
"建築計画（４）","福岡大","マスターカードUSA","私立榮不動産合資会社","18/11/26","コレクティブハウス：個人のプライバシーを尊重しつつ子育てや家事等の作業を共同で担い合う相互扶助的サービス住宅と組み合わせた集合住宅。モビリティハウスは車椅子使用者が動きやすい家の意味で使われ間仕切りの可動性までは含まれない。","同潤会アパート：震災復興、ラドバーン：歩車分離、レッチワース：田園都市、ユニテ・ダビダシオン：複合型集合住宅。同潤会アパートは関東大震災後、国策により設立された社団法人同潤会が帝都復興の一環として不燃建築の共同住宅を建設した。","同潤会アパートは、大切な遺産として保存が叫ばれたが、横浜の団地、次いで東京でも代官山、江戸川などの団地が取り壊され、近年青山のアパートも再開発されたが一部昔の形が保存された。","ラドバーンは１９２８ニューヨークの北２０ｋｍに建設されたニュータウン（４２０ha）自動車道路をクルドサック（袋小路）として歩行者通路を分離してこれがラドバーン方式と呼ばれる。","レッチワースは、ロンドンの北５６ｋｍにE．ハワードの田園都市構想に従い１９０３年から開発された最初の田園都市現在３万２０００人が住む。単なるベットタウンではなく生活機能も持つので１００年以上生き延び成功例と言われる。","１章","愛知県日進市"
"建築計画（５）","福岡大","マスターカードUSA","私立榮不動産合資会社","18/11/26","ユニテ・ダビシオンはル・コルビジェの現代建築の構想の一つである高層立体都市。マルセイユのユニテは１９５２に竣工しピロティの上に１８階建ての３３７戸７、８階に商店街、屋上には保育園やスポーツ施設がある住居はメゾネットで住居の開口部は狭く４ｍ。","中廊下型住宅：中廊下を設ける事により動線を明快にして各室のプライバシーを高めたスタイル。片廊下ではない。一室型住宅：炊事、食事、団欒、就寝等空間が一体となった二次大戦後の住宅スタイル。","コートハウス：中庭があり、外側に対して閉鎖的な都市住宅であり、１９５０－６０年代にかけて話題になったスタイル。最小住宅：二次大戦後機能主義による合理性追及の中、住いを原点から見直し、生活必要要素を最小限に追求したスタイル。","住戸に於ける居間、食事室、台所（L＋D＋K）の平面計画は各室それぞれの用途に応じて充実させる事ができるが不十分な規模で分離させる事はかえって生活を窮屈にする。","高齢化社会に向ける良質住宅の供給ストックの為、多用なライフスタイル地域への定住指向、三世代住居等変化するライフサイクルに対応する住い造りが求められている。","１章","愛知県日進市"
"建築計画（６）","福岡大","マスターカードUSA","私立榮不動産合資会社","18/11/27","阪神淡路大震災後のケア付き仮設住宅の経験から自由で自立した個人生活前提に日常生活一部や生活空間の一部を共用化する”高齢者の共同居住”が公営住宅に於いて実践されている。","リビングアクセス型は、各戸の表情を積極的に出す事を意図し個室を面させるのを設けた住宅タイプ。初期の住宅団地に於いては一般に冬至の日の日照時間から燐棟間隔が求められ各戸に平等に日照を確保するよう南面する住棟が並行に配置されている。","親世帯のゾーンと、子供世帯のゾーンとの間に共有部分として玄関の他応接室を設ける。親世帯のゾーンは車椅子や歩行介助が必要になった場合を考慮して廊下の幅にゆとりを持たせ床下７５ｃｍ程度の位置に手摺をつけることが出来る。","親世帯の使用する浴室は寝室の近くの位置にして浴槽の脇には浴槽の縁の高さと同じ高さの台を設けて移動できるようにする。親世帯と、子供世帯の子供との生活時間が異なり、子供世帯の子供室の音が親世帯の部屋になるべく伝わらないようできる。","高齢者は歩行時に爪先が上がりにくく少しの段差でも転倒の可能性がある。玄関の上がり框も出来るだけ低くそれが出来たら段差が内法が良い。段差の角には丸みを設け、目立つように色を変えたほうが良い。","１章","愛知県日進市"
"建築計画（７）","福岡大","マスターカードUSA","私立榮不動産合資会社","18/11/28","同潤会江戸川アパートは関東大震災後の住宅難に対処する為に設立された同潤会による鉄筋コンクリート造の都市型アパートである。日本住宅公団の草加松原団地は高度成長期に建設された中層住宅を中心とした郊外型大規模住宅団地である。","日本住宅公団の晴海高層アパートは二戸掛ける三層の六住居を一単位として三層毎に共用廊下を設けそこから上下階の住戸に階段でアクセスするスキップアクセス形式を採用した都市型高層賃貸集合住宅である。","建築家大高正人の設計により原爆被災跡のスラム化した地域に人工地盤の概念を明確に具体化している大規模住宅団地である。","大阪市、NEXT２１：今後の都市型集合住宅の在り方を考える一つの模範形として省エネや環境負荷の低減、スケルトン・インフィル等の試みを行なっている集合住宅。","兵庫県芦屋市、芦屋（あしや）浜高高層住宅：五層毎に共用の憩いの場所等である空中庭園を持つ工業化工法による集合住宅である。","１章","愛知県日進市"
"建築計画（８）","福岡大","マスターカードUSA","私立榮不動産合資会社","18/11/28","京都市、ユーコート：住棟に囲まれた敷地中央の纏まった共用緑地や広場から接近する多用な住戸をコーポラティブ方式により建設した集合住宅。","東京都多摩市、タウンハウス諏訪：複数住棟の共用庭を持ち各戸の専用庭及び住棟の雁行（かりこう）配置で独立性高めた集合住宅。","広島市、基町団地：戦後の原爆スラム等を木造住宅で再開発した高密密度住宅団地１９７２年敷地８ha強、戸数三千、階数８～２０階、容積率２３０パーセント、人口密度千三百人／１ヘクタール超高層を含む。例外的な高密度の団地である。","広島市、基町団地：折れ曲がった高層住宅棟は片廊下型スキップフロアで各戸は東南と西南に面してどうにか日常環境を維持しているこの団地の西側に中層の別の団地がある。","芦屋浜高層住宅：１９７９、工業化工法の設計工事の提案競技で作られた芦屋浜埋立地の高層、超高層大規模団地１４から２９階の建物は鉄骨の巨大骨組の棚の中に中層プレハブ共同住宅を載せた形であり、敷地２０ha＋戸数３３８１、容積率１２７％。","１章","愛知県日進市"
"建築計画（９）","福岡大","マスターカードUSA","私立榮不動産合資会社","18/11/28","ユニコート：１９８２、京都落西ニュータウンに住みたい４８人が住戸公団に提案して作った中層コーポラティブハウス。タウンハウス諏訪：１９７９年、多摩ニュータウンに建てられた住宅公団によるタウンハウスの第一号五十八戸ある。","タウンハウス諏訪：の二、三階階建ての住宅が連続して並ぶ十棟が連続する共用庭、路地状のコモンスペースを囲む配置構成を執り、各住戸には共用庭を通り接触する。敷地内は自動車が入らず安全な空間を作り出している庭に生活を向けている。","タウンハウス諏訪：が北入り住戸は両面性を持たせるなど巧みな住戸設計がされており設置型住宅の良さを十分に活かしている。","熊本市、熊本県営隆田平団地は木造団地を建替えた三から五階で囲み型の中規模団地である。プロムナード多摩中央、１９８７、２９０戸はプラスワン住宅として住宅都市公団が売り出した団地。松代団地１９９１、１２１戸。","東京都多摩市、プロムナード多摩中央は街区のほぼ中央にある歩行者専用道に面した接地階の住戸に居住者が趣味や創作アトリエ教室等に利用する想定のフリースペースと称する一室を設け沿道の賑わい親しみのある景観形成を意図している。","１章","愛知県日進市"
"建築計画（１０）","福岡大","マスターカードUSA","私立榮不動産会社","18/11/28","つくば市、茨城県営松代団地は中庭を囲む六階建ての四棟の住棟を四階にある上の道と称する回廊で繋いだ集合住宅であり、上の道はプレイロットや植栽等のある街路状の空間とした機能を意図している。","東京都江東区、東雲（しののめ）キャナルコート一街区は高層板状住棟による高密度な賃貸集合住宅であり、住戸には仕事場等として使用する解放的ｆ．ルーム（ホワイエルーム）を設け中廊下やモンテラスと連続させている。","東京都世田谷区、世田谷区深沢環境共生住宅は木造平屋建ての住宅団地の建替え計画により建設され高木の保存井戸の活用優良土壌の再利用古材の使用等既存の環境の継承を意図している。",,,,

シスアドⅥ 福岡大

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".

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

シスアドⅤ 福岡大

********************
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

シスアドⅣ 福岡大

*************
TopicMaster

100 REM --------------------
110 REM Programing by Dai Fukuoka TopicMaster (C)2017.04.17-5.19(FRI)
120 REM Development Soft by Dennougumi(C)電脳組
130 REM --------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:COLOR 0,7,0,0,1:WIDTH 80,25:CLS 3:PAGE=1
150 DIM CSV$(9999,11):DIM CSV(9999,11):DIM METHOD$(9999,11):DIM METHOD(9999,11)
160 DIM LOC1(80):DIM LOC2(25):DIM VUID$(9999):DIM CHECKLIST$(999)
170 DIM UPASS$(9999):DIM COMMENTLOG$(999):LET COUNT=1:DIM RESS$(999)
180 IF POINT(639,399)=POINT(639,479) THEN SHOWMODE=1:GOTO *SCREENSKIP
190 FOR I=1 TO 9999:VUID$(I)="":UPASS$(I)="":NEXT
200 FOR I=1 TO 999:CHECKLIST$(I)="United":NEXT
210 FOR T=1 TO 80:LOC1(T)=(T*8):NEXT:FOR I=1 TO 25:LOC2(I)=(I*16):NEXT
220 LINE(LOC1(0),LOC2(0))-(LOC1(80),LOC2(1)),1,BF
230 LINE(LOC1(0),LOC2(2))-(LOC1(80),LOC2(22)),1,BF
240 LINE(LOC1(0),LOC2(24))-(LOC1(80),LOC2(25)),1,BF
250 LINE(LOC1(7),LOC2(2))-(LOC1(7),LOC2(22)),6
260 LINE(LOC1(14),LOC2(2))-(LOC1(14),LOC2(22)),6
270 LINE(LOC1(19),LOC2(2))-(LOC1(19),LOC2(22)),6
280 GOTO *STANDBY
290 *SCREENSKIP
300 FOR T=1 TO 80:LOC1(T)=(T*8):NEXT:FOR I=1 TO 25:LOC2(I)=(I*19):NEXT
310 LINE(LOC1(0),LOC2(0))-(LOC1(80),LOC2(1)),1,BF
320 LINE(LOC1(0),LOC2(2))-(LOC1(80),LOC2(22)),1,BF
330 LINE(LOC1(0),LOC2(24))-(LOC1(80),LOC2(25)),1,BF
340 LINE(LOC1(7),LOC2(2))-(LOC1(7),LOC2(22)),6
350 LINE(LOC1(14),LOC2(2))-(LOC1(14),LOC2(22)),6
360 LINE(LOC1(19),LOC2(2))-(LOC1(19),LOC2(22)),6
370 GOTO *STANDBY
380 *SYSTEMUP
390 LOCATE 0,22:INPUT "Mode:1.Certifacation Account/2.Administrator Login/3.Registry(1-3) :",MODE1:CLS:IF MODE1<1 OR MODE1>3 THEN *SYSTEMUP
400 IF MODE1=1 THEN *M1 ELSE IF MODE1=2 THEN *M2 ELSE *M3
410 *M1 LOCATE 0,22:INPUT "User Account Identify (6 Count) :",UID$:CLS
420 FOR CHECK=1 TO 9999:IF UID$=VUID$(CHECK) THEN CHECKED=CHECK:CHECK=9999
430 NEXT CHECK:CLS:IF CHECKED=0 THEN *SYSTEMUP
440 IF MODE1=1 THEN LOCATE 0,22:INPUT "User's Pass Word (6 Count) :",IPASS$:CLS
450 IF LEN(IPASS$)=6 OR LEN(IPASS$)=5 THEN LFLAG=1 ELSE *SYSTEMUP
460 FOR CHECK=1 TO 9999:IF UID$=VUID$(CHECK) THEN CHECKED=CHECK
470 NEXT CHECK
480 IF IPASS$=UPASS$(CHECKED) THEN LOGON=1
490 IF LOGON=1 THEN LOCATE 0,22:INPUT "Your Enter Topic Accept Login :",A:COUNT=COUNT+1:CLS:GOTO *START ELSE LOCATE 0,22:MODE1=3:GOTO *M3
500 *M3 LOCATE 0,22:INPUT"Registry Mode:1.New Sign In/2.Delete Account/3.Support (1-3) :",REG:CLS:IF REG<1 OR REG>3 THEN *SYSTEMUP
510 IF REG=2 THEN LOCATE 0,22:INPUT "Thread Number (1-999) :",THREAD:CLS:IF THREAD<1 OR THREAD>999 THEN *SYSTEMUP
520 IF REG=2 AND NOT UID$=VUID$(THREAD) THEN LOCATE 0,22:INPUT "Missing Account ID Name's :",A:GOTO *SYSTEMUP
530 IF REG<1 OR REG>3 THEN *SYSTEMUP
540 IF REG=2 THEN LOCATE 0,22:INPUT "Usre's Pass Word (6 count) :",UPASS$(COUNT):IF NOT LEN(UPASS$)=6 THEN *SYSTEMUP
550 IF REG=1 THEN LOCATE 0,22:INPUT "Create Your Thread ID (6 Count ID Word) :",UID$:GOTO *PASSWORDREMIND ELSE *START
560 LOCATE 0,22:INPUT "Success :",A:GOTO *START
570 *M2 LOCATE 0,22:INPUT"Oparator Login:1.TopicMasterAccount/2.ChangeAccount/3.Threade Delete (1-3) :",ADAC:CLS
580 IF ADAC<1 OR ADAC>3 THEN *SYSTEMUP
590 IF ADAC=3 THEN LOCATE 0,22:INPUT "Thread Number (1-999) :",DT1:CLS:IF DT1<1 OR DT1>999 THEN *SYSTEMUP
600 IF ADAC=3 THEN LOCATE 0,22:INPUT "Administrator Pass Word :",ADPS$:CLS:IF NOT LEN(ADPS$)=19 THEN *SYSTEMUP
610 FOR CHECK=1 TO 9999:IF ADPS$=UPASS$(CHECK) THEN CHECKED=CHECK:UID$=VUID$(CHECKED)
620 NEXT CHECK
630 IF ADAC=2 THEN LOCATE 0,22:INPUT "Administrator Old PassWord :",OPASS$:CLS:IF NOT LEN(OPASS$)=19 THEN *SYSTEMUP
640 IF ADAC=2 THEN LOCATE 0,22:INPUT "New Changing Administorator PassWord (4-4-4-4) :",NCAP$:CLS
650 IF ADAC=2 THEN IF NOT LEN(NCAP$)=19 THEN *SYSTEMUP
660 IF ADAC=2 THEN LOCATE 0,22:INPUT "Changed Success :",A:IDFLAG=1:GOTO *START
670 IF ADAC=1 THEN LOCATE 0,22:INPUT "Topic Master Login :",LOGINTM$
680 IF ADAC=1 AND LEN(LOGINTM$)=19 THEN IF ADPS$=LOGINTM$ THEN *CERTIFIAD
690 END IF
700 *PASSWORDREMIND
710 FOR CHECK=1 TO 9999:IF NOT VUID$(CHECK)="" AND UPASS$(CHECK)="" THEN VUID$(CHECK)=""
720 NEXT CHECK:
730 AA$=MID$(TIME$,1,2):BB$=MID$(TIME$,4,2):CC$=MID$(TIME$,7,2)
740 AA=VAL(AA$):BB=VAL(BB$):CC=VAL(CC$):AA=AA*10000:BB=BB*100:CC=CC*1:
750 LOCATE 0,0:PRINT AA+BB+CC
760 IPASS$=MID$(STR$(AA+BB+CC),2,6):IF UPASS$(CHECKED)=IPASS$ THEN VUIDA$(CHECKED)="":GOTO *PASSWORDREMIND
770 IF CHECK>9999 THEN CLS:LOCATE 0,22:PRINT IPASS$;:INPUT " Check Remarks Your ID's PassWord :",A:UPASS$(COUNT)=IPASS$:CHECKLIST$(COUNT)=UID$:VUID$(COUNT)=UID$
780 FOR I=1 TO 9999:IF UPASS$(I)="" THEN VUID$(I)=""
790 NEXT I
800 IF COUNT<1000 THEN *START
810 FOR CHECK=2 TO 999:CHECKLIST$(CHECK-1)=CHECKLIST$(CHECK):COMMENTLOG$(CHECK-1)=COMMENTLOG$(CHECK)
820 CHECKLIST$(999)=UID$:COMMENTLOG$(999)="":NEXT CHECK:CLS:LOCATE 0,22:INPUT "That ID Inserted :",A:GOTO *SYSTEMUP
830 *START CLS
840 FOR I=1+SHOWCOUNT TO 20+SHOWCOUNT:LOCATE 0,I+1:PRINT VUID$(I):LOCATE 7,I+1:PRINT RESS$(I);:LOCATE 14,I+1:PRINT I;:LOCATE 20:PRINT COMMENTLOG$(I)
850 NEXT
860 LOCATE 0,22:PRINT "Your Enter Login":LET TC=1
870 *TIMEBK WHILE TC<2 :TIMED$=TIME$
880 IF NOT TIMED$=TIME$ THEN TC="TC+1
890" WEND:LOCATE 0,22:PRINT SPACE$(79)
900 *TIMESKIP
910 *SHOWDISPLAY
920 IF TURNPOINT="0" THEN TURNPOINT="1
930" FOR I="1" TO 20:LOCATE 0,I+1:PRINT VUID$(I+SHOWCOUNT):LOCATE 7,I+1:PRINT RESS$(I+SHOWCOUNT);:LOCATE 14,I+1:PRINT I+SHOWCOUNT;:LOCATE 20:PRINT COMMENTLOG$(I+SHOWCOUNT)
940 NEXT
950 IF TURNPOINT="1" THEN ELSE IF TURNPOINT="2" THEN ELSE *RESSLOOP
960 *RESSLOOP
970 LOCATE 0,0:PRINT "Write Your Comment :":LOCATE 0,1:INPUT "",COMM$
980 IF COMM$="" THEN *RESSLOOP
990 LOCATE 0,0:PRINT SPACE$(79):LOCATE 0,1:PRINT SPACE$(79)
1000 LOCATE 0,0:PRINT "Response Thread ID /Pass is My Thread :":LOCATE 0,1:INPUT "",RESST$
1010 LOCATE 0,0:PRINT SPACE$(79):LOCATE 0,1:PRINT SPACE$(79)
1020 LOCATE 0,0:PRINT "Log Out User 0:No/1:Yes :":LOCATE 0,1:INPUT "",LOGOUTIS$
1030 LOCATE 0,0:PRINT SPACE$(79):LOCATE 0,1:PRINT SPACE$(79)
1040 IF COMM$="" OR LEN(COMM$)>=59 THEN *RESSLOOP
1050 COMMENTLOG$(COUNT)=COMM$:RESS$(COUNT)=RESST$
1060 IF RESST$="" THEN RESST$=UID$
1070 IF RESS$(COUNT)="" THEN RESS$(COUNT)=UID$
1080 IF LOGOUTIS$="" THEN ELSE IF LOGOUTIS$="1" THEN TURNPOINT=2:GOTO *LOGOUT
1090 FOR CHECK=1 TO 999:IF RESST$=RESS$(CHECK) THEN CHECKED=CHECK:CHECK=999
1100 NEXT CHECK:IF NOT RESST$=RESS$(CHECKED) THEN *RESSLOOP
1110 VUID$(COUNT)=UID$:COMMENTLOG$(COUNT)=COMM$:RESS$(COUNT)=RESST$
1120 IF PAGECOUNT=0 THEN PAGECOUNT=1
1130 IF COUNT>20*PAGECOUNT THEN PAGECOUNT=PAGECOUNT+1:SHOWCOUNT=(PAGECOUNT*20)-20:CLS
1140 COUNT=COUNT+1:GOTO *SHOWDISPLAY
1150 *STANDBY
1160 IF ADPS$="" THEN ADPS$="7750-2310-9690-1255"
1170 OPEN "TMLOG" AS 1:LFLAG=EOF(1):CLOSE 1:IF LFLAG=0 THEN *SYSTEMUP
1180 OPEN "TMLOG" FOR INPUT AS #1:FOR I=1 TO 999:INPUT #1,COMMENTLOG$(I),CHECKLIST(I),RESS$(I):NEXT:CLOSE #1
1190 OPEN "TMDATA" FOR INPUT AS #1:FOR I=1 TO 9999:INPUT #1,VUID$(I),UPASS$(I):NEXT:CLOSE #1
1200 OPEN "TMSEC" FOR INPUT AS #1:INPUT #1,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #1
1210 IF ADPS$="" THEN ADPS$="7750-2310-9690-1255"
1220 GOTO *SYSTEMUP
1230 *LOGOUT
1240 COUNT=COUNT+1
1250 IF TURNPOINT=0 THEN *SYSTEMUP
1260 IF ADPS$="" THEN ADPS$="7750-2310-9690-1255"
1270 OPEN "TMLOG" AS 2:LFLAG=EOF(2):CLOSE 2
1280 OPEN "TMLOG" FOR OUTPUT AS #2:FOR I=1 TO 999:WRITE #2,COMMENTLOG$(I),CHECKLIST$(I),RESS$(I):NEXT:CLOSE #2
1290 OPEN "TMDATA" FOR OUTPUT AS #2:FOR I=1 TO 9999:WRITE #2,VUID$(I),UPASS$(I):NEXT:CLOSE #2
1300 OPEN "TMSEC" FOR OUTPUT AS #2:WRITE #2,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #2
1310 IF TURNPOINT=2 THEN *STANDBY ELSE END
1320 *CERTIFIAD
1330 LOCATE 0,22:INPUT "Menu 1.RestoreData 2.DocumentCopy 3.ReTurn :",AD01$:CLS
1340 IF AD01$="1" THEN *SHOWDISPLAY ELSE IF AD01$="2" THEN *DOCUMENTCOPY ELSE *SYSTEMUP
1350 *DOCUMENTCOPY LOCATE 0,22:INPUT "Type Txt Import Okay ?:",ASKIT1$:CLS
1360 LOCATE 0,22:INPUT "Change FileName / Pass is Accept :",ASKIT2$:CLS
1370 IF ASKIT2$="" THEN *OPERATOR ELSE *NEWFILENAMEADD1
1380 *OPERATOR
1390 OPEN "TMLOG.txt" AS 2:ENDOFFILES=EOF(2):CLOSE 2
1400 OPEN "TMLOG.txt" FOR OUTPUT AS #2:FOR I=1 TO 999:WRITE #2,COMMENTLOG$(I),CHECKLIST$(I),RESS$(I):NEXT:CLOSE #2
1410 OPEN "TMDATA.txt" FOR OUTPUT AS #2:FOR I=1 TO 9999:WRITE #2,VUID$(I),UPASS$(I):NEXT:CLOSE #2
1420 OPEN "TMSEC.txt" FOR OUTPUT AS #2:WRITE #2,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #2
1430 GOTO *SYSTEMUP
1440 *NEWFILENAMEADD1
1450 CFN$=ASKIT2$+"LOG.txt"
1460 OPEN CFN$ AS 2:ENDOFFILES=EOF(2):CLOSE 2
1470 OPEN CFN$ FOR OUTPUT AS #2:FOR I=1 TO 999:WRITE #2,COMMENTLOG$(I),CHECKLIST$(I),RESS$(I):NEXT:CLOSE #2
1480 CFN$=ASKIT2$+"DATA.txt"
1490 OPEN CFN$ FOR OUTPUT AS #2:FOR I=1 TO 9999:WRITE #2,VUID$(I),UPASS$(I):NEXT:CLOSE #2
1500 CFN$=ASKIT2$+"SEC.txt"
1510 OPEN CFN$ FOR OUTPUT AS #2:WRITE #2,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #2
1520 GOTO *SYSTEMUP

ロケーション関数をグラフィック座標で、カラムとラインの位置を、調整します。それによって、変数に文字幅が格納され、仮想関数を実現します。おもに、罫線の作成に使われる仮想関数です。その後の物も、時刻から自働でパスワードを振り分けたり、シンクロ座標から、空白のパスワードのＩＤを詰めて、ログインした回数で自働名簿を行います。また、番号を指定して該当順のメッセージレスポンスに対して、パスワードの入力と、記事の削除の機能の付加や、同じパスワードにログインする機能、ログイン時に、２秒経過すると、エントリー出来るように改良したりしました。主にこのソフトは、基本的なシーケンシャルを備えている他、メッセージログを溜めることと出力することが出来ます。主に食指を、サービス機関に設置されたコンピュータ上で、９８Ｂａｓｉｃで動作します。空港等に配置することにより、インターネット感覚でオフラインコミュニケーションを実現します。

This is Useing Virtual Function " LOC1 " And "LOC2 " is Automation A Justment Coordination at Cloumn And Line Inputing.Line-Out with on Drawing Virtual Function of Location Program,Next ITEM is Time-Pass-Word-Remind with No Synchronize List,This List is Delete Spacing Login Information,Slead Number Appointment Pass-Word Check It,Inquiry Same Pass-Word Gatein Delete Execution.This Program is Entery Same Time Wait 2 Second Times,Type Log is Entry Start.This Interface CSV Data Base is Standard 98 Basic Activity,Target User Service Area Examin Air Port and Install With 98Basic,This Program is Feeling of Internet Communication Compleate Offline BBS.




***********************
dwage


100 REM --------------------
110 REM CopyRight Programing by.Dai Fukuoka 2017-10-11
120 REM RemainAndWage / 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 CSV(9999,13):DIM MASK(9999,13):DIM CSV$(9999,13):DIM FLAG(9999)
170 DIM METHODHORIZONTAL(80):DIM METHODVERTICAL(25):DIM FLAG$(9999)
180 DIM DEEPHORIZONTAL(80):DIM DEEPVERTICAL(25)
190 DIM CHANGESORT(9999,13):DIM CHANGESORT$(9999,13)
200 DIM MAPINGNOW(640,480):LET EXPARENT=0:LET I=0:LET T=0:LET X=0:LET Y=0
210 DIM JOBNUM(9999):DIM JOB$(999,370):DIM WAGE(999,370):DIM PAY(999,370)
220 DIM NAMENUM$(9999):DIM TIMEWAGE(999,370):DIM REMAIN(999,370)
230 DIM RESON$(999,370):DIM REPORT$(999,370):DIM RESULTLEVEL$(999,370)
240 DIM TOTALREMAIN(999,370):DIM TOTALWAGE(999,370):DIM TOTALDAY(999,370)
250 DIM DATEYY$(999,370):DIM YYCOUNT(999):DIM STARTYY(999)
260 DIM PROFILE$(999,10):DIM ISTATUS(999,10):DIM COMMENT$(999,10)
270 GOTO *STARTUP
280 *START
290 IF OPERATOR=1 THEN *EMPLOYED
300 *AVOID IF OPERATOR=1 THEN PRINT "面接の受付は複数同時に受付できません。最終のものから優先して受付を致します。"
310 PRINT "現在の電算機の時刻は次です。";DATE$;" ";TIME$
320 INPUT "被雇用者氏名番号を指定してください:",JOBNUM:IF NOT NAMENUM$(JOBNUM)="" THEN GETON=1
330 IF GETON=1 THEN GETON=0:GOTO *STARTSEC
340 *TOPICS GETNUM=0:FOR I=1 TO 999:IF NAMENUM$(I)=NAMENUM$(JOBNUM) AND NOT NAMENUM$(JOBNUM)="" THEN GETNUM=I:I=999
350 NEXT:IF NAMENUM$(JOBNUM)="" THEN INPUT "登録されていない従業情報です。(0:終了,1:登録):",SIGNINLOG
360 IF SIGNINLOG=1 THEN *ACCEPTINQUIRY ELSE *START
370 *STARTSEC
380 PRINT "使用者の雇用している氏名は";NAMENUM$(JOBNUM);"です。"
390 STARTYY=1
400 IF NOT DATEYY$(JOBNUM,TARM)=DATE$ THEN LET YY=VAL(LEFT$(DATE$,2))
410 IF VAL(LEFT$(DATE$,2)) 420 TOTALWAGE(JOBNUM,1)=361:TARM=YYCOUNT(JOBMUM)
430 IF DATEYY$(JOBNUM,TARM)="" THEN DATEYY$(JOBNUM,TARM)=DATE$:PRINT "雇用開始年度は";DATEYY$(JOBNUM,TARM);"です。":STARTYY=VAL(LEFT$(DATE$,2))
440 INPUT "選択してください 0:出勤,1:早退,2:退勤,3:残業,4:休日出勤,5:有給休暇:",EVENTCONTROL
450 IF EVENTCONTROL=0 THEN *WORKSTART ELSE IF EVENTCONTROL=1 THEN *ESCAPEIS ELSE IF EVENTCONTROL=2 THEN *RETURNHOME
460 IF EVENTCONTROL=3 THEN *REMAIN ELSE IF EVENTCONTROL=4 THEN *VACATIONWORK ELSE IF EVENTCONTROL=5 THEN *PAYVACATION
470 END
480 *REMAIN
490 PRINT "残業の目安は、２週間土日休みで、週５日間、２週で、５日間時間外労働を２時間こなせます。残業理由には、人間関係や、職場の都合に左右されることがあります。"
500 PRINT "通常就業時間は、８時間のものと、６時間のものが通常です。"
510 INPUT "残業時間を入力してください。(0:1時間,1:２時間,2:３時間,3:４時間以上,4:協定外労働):",REMAINDUTY
520 IF NOT DATEYY$(JOBNUM,TARM)=DATE$ THEN TOTALREMAIN(JOBNUM,1)=0:TOTALWAGE(JOBNUM,1)=0:TOTALDAY(JOBNUM,1)=0:DATEYY$=DATE$
530 IF TOTALWAGE(JOBNUM,1)>360 THEN PRINT "被雇用者は、今年分雇用協定の残業時間が超えていて、やむ得ない場合を除き、残業できません。残業には理由状を添えてください。";TOTALWAGE(JOBNUM,1);"時間残業しました。"
540 IF TOTALWAGE(JOBNUM,1)>360 THEN INPUT "残業理由（半角255文字以内)",RESON$:IF LEN(RESON$)<255 THEN ELSE *REMAIN
550 COMMENT$(JOBNUM,1)=PLAN$:COMMENT$(JOBNUM,2)=ENDCOMM$:COMMENT$(JOBNUM,3)=RESON$
560 ISTATUS(JOBNUM,4)=SLEEP:ISTATUS(JOBNUM,5)=SICK
570 ISTATUS(JOBNUM,1)=LEVEL:ISTATUS(JOBNUM,2)=TROUBLE:ISTATUS(JOBNUM,3)=HEALTH
580 *LISTEN
590 INPUT "作業達成度を評価してください(0:未達成,1:滞る,2:普通,3:ある程度,4:良い):",LEVEL
600 INPUT "人間関係の評価をしてください(0:苛められた,1:叱られた,2:何もなかった,3:褒められた,4:完璧にこなした):",TROUBLE
610 INPUT "終業の反省文を半角255文字以内で入力してください:",ENDCOMM$
620 INPUT "健康状態の評価(0:とても優れない,1:悪い,2:普通,3:やや元気,4:良い):",HEALTH
630 INPUT "睡眠の質(0:かったるい,1:眠い,2:作業に差し支え無い,3:労働可,4:優れる):",SLEEP
640 INPUT "傷病について(0:出勤した,1:薬などを忘れた,2:特に傷病なし,3:介護した,4:治った):",SICK
650 ISTATUS(JOBNUM,1)=LEVEL:ISTATUS(JOBNUM,2)=TROUBLE:ISTATUS(JOBNUM,3)=HEALTH
660 ISTATUS(JOBNUM,4)=SLEEP:ISTATUS(JOBNUM,5)=SICK
670 COMMENT$(JOBNUM,1)=PLAN$:COMMENT$(JOBNUM,2)=ENDCOMM$:COMMENT$(JOBNUM,3)=RESON$
680 GOTO *LOOPOUT
690 *DUTY
700 INPUT "本日の業務目標を半角255文字以内で入力してください",PLAN$
710 INPUT "健康状態の評価(0:とても優れない,1:悪い,2:普通,3:やや元気,4:良い):",HEALTH
720 INPUT "睡眠の質(0:かったるい,1:眠い,2:作業に差し支え無い,3:労働可,4:優れる):",SLEEP
730 INPUT "傷病について(0:出勤した,1:薬などを忘れた,2:特に傷病なし,3:介護した,4:治った):",SICK
740 COMMENT$(GETNUM,1)=PLAN$:COMMENT$(GETNUM,2)=ENDCOMM$:COMMENT$(GETNUM,3)=RESON$
750 ISTATUS(GETNUM,1)=LEVEL:ISTATUS(GETNUM,2)=TROUBLE:ISTATUS(GETNUM,3)=HEALTH
760 ISTATUS(GETNUM,4)=SLEEP:ISTATUS(GETNUM,5)=SICK
770 GOTO *LOOPOUT
780 *ESCAPEIS
790 GOTO *LISTEN:END
800 *WORKSTART
810 GOTO *DUTY
820 *PAYVACATION
830 END
840 *RETURNHOME
850 GOTO *LISTEN:END
860 *VACATIONWORK
870 GOTO *DUTY
880 *ENDJOB
890 CLS 3:END
900 *LOOPOUT
910 IF EVENTCONTROL="0" THEN LOGIN="1:LOGOUT=0:STARTTIME$=TIME$:STARTTIME=VAL(LEFT$(TIME$,2)):INPUT" "受付しました。どうぞ気をつけて勤務してください",A:GOTO *WROTE
920 IF EVENTCONTROL="1" OR EVENTCONTROL="2" OR EVENTCONTROL="3" THEN LOGIN="0:LOGOUT=1:ENDTIME$=TIME$:ENDTIME=VAL(LEFT$(TIME$,2)):DUTYTIME=ENDTIME-STARTTIME:PRINT" "本日の就業時間は";DUTYTIME;"です。"
930 IF EVENTCONTROL="3" AND DUTYTIME>8 AND NOT STARTTIME=0 THEN PRINT "勤務時間外労働と確認しました。異なる場合は、時間を整してください。":PRINT "超過時間は";DUTYTIME-8;"です。"OK
940 GOTO *WROTE
950 *WROTE
960 OFN$="TagWage.txt":OPEN OFN$ AS 1
970 IF EOF(1)=0 THEN ENDOFFILE=-1
980 CLOSE 1
990 OPEN OFN$ FOR OUTPUT AS #1
1000 FOR I=1 TO 999
1010 WRITE #1,NAMENUM$(I),PROFILE$(I,1),PROFILE$(I,2),PROFILE$(I,3),PROFILE$(I,4),PROFILE$(I,5),PROFILE$(I,6),PROFILE$(I,7)
1020 WRITE #1,ISTATUS(I,1),ISTATUS(I,2),ISTATUS(I,3),ISTATUS(I,4),ISTATUS(I,5)
1030 WRITE #1,COMMENT$(I,1),COMMENT$(I,2),COMMENT$(I,3)
1040 NEXT
1050 CLOSE #1
1060 OPEN LEFT$(DATE$,2)+MID$(DATE$,4,2)+RIGHT$(DATE$,2)+".txt" FOR OUTPUT AS #1
1070 FOR I=1 TO 999
1080 WRITE #1,NAMENUM$(I),PROFILE$(I,1),PROFILE$(I,2),PROFILE$(I,3),PROFILE$(I,4),PROFILE$(I,5),PROFILE$(I,6),PROFILE$(I,7)
1090 WRITE #1,ISTATUS(I,1),ISTATUS(I,2),ISTATUS(I,3),ISTATUS(I,4),ISTATUS(I,5)
1100 WRITE #1,COMMENT$(I,1),COMMENT$(I,2),COMMENT$(I,3)
1110 NEXT
1120 CLOSE #1
1130 GOTO *START
1140 *SIGNUP
1150 *ACCEPTINQUIRY
1160 OPERATOR=1:PRINT "面接希望の申請を受け付けました。履歴を入力してください。"
1170 INPUT "名前:",NAMES$:INPUT "住所:",ADDRESS$:INPUT "電話番号:",TEL$
1180 INPUT "最終学歴（通信制を除く）:",SCHOOL$:INPUT "卒業年度:",GURADUATION$
1190 INPUT "関係資格:",LISENCES$:INPUT "希望職位:",HOPE$:INQUIRYDATE$=DATE$
1200 NAMENUM$(JOBNUM)=NAMES$:PROFILE$(JOBNUM,1)=ADDRESS$:PROFILE$(JOBNUM,2)=TEL$:PROFILE$(JOBNUM,3)=SCHOOL$
1210 PROFILE$(JOBNUM,4)=GURADUATION$:PROFILE$(JOBNUM,5)=LISENCE$:PROFILE$(JOBNUM,6)=HOPE$:PROFILE$(JOBNUM,7)=INQUIRYDATE$
1220 OFN$="TagWage.txt"
1230 *WROTEINQUIRY
1240 *IDINPUT
1250 PRINT NAMES$;ADDRESS$;TEL$;SCHOOL$;GURADUATION$;LISENCES$;HOPE$;INQUIRYDATE$
1260 IF EMPLOYID=0 THEN *LOOKAT ELSE *START
1270 *LOOKAT
1280 FOR I=1 TO 999:IF NOT NAMES$=NAMENUM$(I) THEN PRINT "同じ名前があります。":GOTO *START
1290 NEXT
1300 NAMENUM$(GETNUM)=NAMES$:GOTO *START
1310 *EMPLOYED
1320 INPUT "0:人事以外,1:人事責任者:",REPLYEMPLOY
1330 IF REPLYEMPLOY=0 THEN *AVOID
1340 IF REPLYEMPLOY=1 THEN INPUT "オペレーターナンバー:",OPNUM$
1350 IF OPNUM$="1-1-1-1" THEN ELSE *EMP
1360 PRINT "面接申請の受付がありました。係員が確認します。"
1370 FOR I=2 TO 1000:IF NAMENUM$(I)="" THEN GETNUM=I-1:I=1000
1380 NEXT
1390 PRINT "申請日付は";INQUIRYDATE$;"です。確認するには、パスワードを入力してください。登録番号は、";GETNUM;"です。氏名は";NAMES$;"です。"
1400 *EMP
1410 INPUT "アイデンティティと、パスワードを付与を許可しますか？(0:許可,1:却下):",EMPLOYID
1420 IF EMPLOYID=1 THEN *START
1430 IF EMPLOYID=0 THEN OPERATOR=0:NAMENUM$(GETNUM)=NAMES$:GOTO *LOOKAT
1440 *ENTERGROUP
1450 GOTO *START
1460 *STARTUP
1470 OPEN "TagWage.txt" FOR INPUT AS #2
1480 FOR I=1 TO 999
1490 INPUT #2,NAMENUM$(I),PROFILE$(I,1),PROFILE$(I,2),PROFILE$(I,3),PROFILE$(I,4),PROFILE$(I,5),PROFILE$(I,6),PROFILE$(I,7)
1500 INPUT #2,ISTATUS(I,1),ISTATUS(I,2),ISTATUS(I,3),ISTATUS(I,4),ISTATUS(I,5)
1510 INPUT #2,COMMENT$(I,1),COMMENT$(I,2),COMMENT$(I,3)
1520 NEXT
1530 CLOSE #2
1540 GOTO *START