プチコンまとめWiki (初代/mkII)

パンくずリスト

• トップ
• Toukou
• 山岳観光ソフト

2014年12月20日投稿/ 投稿者 : CRT/ タグ : 投稿プログラム QRコード mkII専用 シミュレーション

概要

目の前に広がる、立体的な地形。

バージョンアップでカスタマイズも簡単に！

+

こんな新機能も！

この「山岳観光ソフト」は、マップを立体的に表示し、
フィールドを自由に移動して景色を楽しむ(?)という物です。
また、設定を変えることで様々なパターンを使用することができます。

遊び方

あくまでも「観光ソフト」なので、今のところ敵と戦ったり、
アイテムを作って岩盤を掘削するようなことはできませんが、
突然緑色の物体が現れて爆発するような事も無いので安心です。
フィールドを自由に歩いて冒険気分を味わいましょう。 タイトル画面で指定のボタンを押すことで、次のようなモードを実行できます。

簡単モードで冒険

通常モードです。フィールドを歩いて観光します。

操作方法

操作方法はプレイ中の下画面にも表示されています。

※操作モードによって、十字ボタンの操作は変わります。

マップ

下画面には視界の範囲を示すマップも表示されています。
初期設定では処理速度の関係から比較的狭めに設定されていますが、
自分で調整して広くすることもできます。
紫の「●」が現在地を示しています。

設定後に始める

様々なオプションを選んでから観光できます。オプションには
次のような項目があり、効果は以下の通りです。

+

見てみる

１ブロックあたりの大きさ １マスの長さをピクセル単位で設定できます。極端な値を使うと画面に塗り残しができる事があります。 高画質描画の使用 「ON」にすると、遠くのものほど色が薄くなり、よりリアルな見た目になります。 高速描画の採用 奥のブロックを描く作業を単純にし、描画の高速化を図ります。バグを軽減する効果もあります。 キャラクターの配置 何も置かない「OFF」の他に、２パターンあります。［TYPE1］は専用のキャラ「YM-PERS」を使用するのでキャラの保存が必要ですが、［TYPE2］ではプチコン標準のキャラを使用できます。 お　て　ん　き 高画質描画の使用を「ON」にしている時のみ設定可能で、空の色を変えることができます。項目の横に天気の名前と空の色のサンプルが表示されるので、それを参考に選びます。 ワイヤーフレームの採用 ワイヤーフレームっぽい感じで描画されます。「高速描画」との併用はできないので気を付けましょう。 この設定で観光を始める 設定した項目を反映して観光を始めます。 スタート位置を決めて始める マップの全体図が表示され、任意のスタート位置を選ぶことができます。全体図を見たくない方にはおすすめしません。

操作のモードを選択

今回の更新から、操作のモードを選べるようになりました。 操作モードは２種類あり、詳細は以下の通りです。

やっぱり始めない

プログラムを終了します。

注意

作品更新履歴

• 2014.12/18　ver.8
  当サイトにて投稿されました。バージョンは制作開始から無計画につけていたため、
  投稿できるレベルになった頃には妙に高くなってしまいました。
  
• 2014.12/20　ver.9
  設定モード、タイトル画面の操作性を改善したほか、観光を始める位置を選べる
  機能等を追加しました。また、向いている方向を変える事ができる操作モードを
  追加しました。
• 2015.1/25 ver.10の制作に着手しました。ver.10以降はプチコン３号で配信する予定です。

プログラムリスト

+

新バージョンを開く

’─────────────────────────── ’　　┼┼┿┿┿　┏╋━┻　┛○┗　┏　　　┏┏━　┓　 ’　　││ＹＭ９　　┨　┻　┛┗┏┣━┛┛┛┏┣━┨　　 ’　й││┐　　　┗　┫┻　┫　┗　　┠┠━┳━┃┻　　 ’к┌┼┼┐л　　フ゜ロク゛ラムニ　チュウイ！！！　　　 ’з└└┼┘и　　キワメテサ゛ツナフ゛フ゛ンヤ　ムリヤリ ’лййййк　　ナフ゛フ゛ンカ゛アリマス。スミマセン。 ’─────────────────────────── ＡＣＬＳ：ＣＬＥＡＲ：ＣＯＬＯＲ　０ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＢＧＰＡＧＥ　１ ＢＧＦＩＬＬ　１，０，０，３２，２３，１５，１，０，０ ＢＧＦＩＬＬ　１，０，１３，３２，２３，７０９，８，０，０ ＢＲＥＰＥＡＴ　０，３０，５ ＢＲＥＰＥＡＴ　１，３０，５ ＢＲＥＰＥＡＴ　２，３０，５ ＢＲＥＰＥＡＴ　３，３０，５ ＣＨＲＳＥＴ　”ＳＰＵ１”，２５２，”０００００００２０００００００２００００００２２００００００２２００００００２２０００００２２２０００００２２２００００２２２１” ＣＨＲＳＥＴ　”ＳＰＵ１”，２５３，”２０００００００２０００００００２２００００００２２００００００２２００００００２２２０００００２２２０００００１２２２００００” ＣＨＲＳＥＴ　”ＳＰＵ１”，２５４，”００００ＦＦＦ１０００００ＦＦＦ０００００ＦＦＦ００００００ＦＦ００００００ＦＦ００００００ＦＦ０００００００Ｆ０００００００Ｆ” ＣＨＲＳＥＴ　”ＳＰＵ１”，２５５，”１ＦＦＦ００００ＦＦＦ０００００ＦＦＦ０００００ＦＦ００００００ＦＦ００００００ＦＦ００００００Ｆ０００００００Ｆ０００００００” ’−−−ハイレツセンケ゛ン−−− ＷＯＤ＝１３　’オクユキハハ゛タ゛ンスウケ゛ンカイ ＤＩＭ　Ｘ（ＷＯＤ）　’｛０，Ｙ（ｎ）｝ノトキノ　 ＤＩＭ　Ｙ（ＷＯＤ）　’１マスノナカ゛サ：Ｌ（ｎ） ＤＩＭ　Ｌ（ＷＯＤ）　’Ｘサ゛ヒョウ　　：Ｘ（ｎ） ＤＩＭ　ＣＺ＄（１００）’フウケイヨミコミシテン　 ＤＩＭ　ＣＣ＄（１００） ＤＩＭ　Ｓ（１０） ’─────────────────────────── ＠ＴＩＴＬＥＷＲＩＴＥ ＢＧＰＡＧＥ　０ ＢＧＣＬＲ　０ ＢＧＣＬＲ　１ ＢＧＰＡＧＥ　１ ＳＰＣＬＲ　０：ＣＬＳ：ＳＰＣＬＲ　 ＬＯＣＡＴＥ　０，１０：ＣＯＬＯＲ　０ Ｂ＄＝”ＳＥＬＥＣＴ　ＴＯ　ＳＴＡＲＴ” ’−−−−−−タイトル−−−−− ？”　┰　┝├┬┐┌─┐　サンカ゛クカンコウソフト　シケンハ゛ン” ？”　┥│┸│││└─┤　　　ＶＥＲ．Ｂｅｔａ−９−４．０　　　” ？”　　┴─┘└└──┘　ＤＥＶＥＬＯＰＥＤ　ＢＹ　●ＣＲＴ●　” ？”　　Ｙ　　Ｍ　　９　　　　　　　　　　　　　　　　　　　　　” ＳＰＳＥＴ　２，６４，４，０，０，０ ＳＰＯＦＳ　２，１２０，４４：ＳＰＡＮＩＭ　２，４，１０ ＬＯＣＡＴＥ　７，２１：？”　（Пテ゛センタク、Аテ゛キメル） ＢＧＭＰＬＡＹ　”Ｔ２４０：０＠１２８［ＡＤＡＤ］：１Ｖ８０＠１２８［ＣＣＧ］ ＣＯＬＯＲ　５：Ａ＝０：Ｓ＝０ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＳＴＡＲＴ ＶＳＹＮＣ　１ ＧＯＳＵＢ　＠ＳＴ＿ＢＴＣＨＫ ＧＯＳＵＢ　＠ＳＴ＿ＣＳＳＣＲ ＧＯＳＵＢ　＠ＳＴ＿ＣＳＲ ＧＯＳＵＢ　＠ＳＴ＿ＳＰＯＦＳ ＧＯＴＯ　＠ＳＴＡＲＴ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＳＴ＿ＢＴＣＨＫ　’ホ゛タンハンテイ Ｂ＝ＢＵＴＴＯＮ（１） ＩＦ　Ｂ＝＝１　ＴＨＥＮ　Ｓ＝Ｓ−１：ＢＥＥＰ　２ ＩＦ　Ｂ＝＝２　ＴＨＥＮ　Ｓ＝Ｓ＋１：ＢＥＥＰ　２ ＩＦ　Ｂ＝＝１６ＴＨＥＮ　ＢＧＭＳＴＯＰ　：ＢＥＥＰ　３：ＯＮ　Ｓ　ＧＯＴＯ　＠ＩＮＩＴ＿１，＠ＳＥＴＴＩＮＧ，＠ＯＰＥＲ＿ＳＥＴ，＠ＥＮＤ０１ ＩＦ　Ｂ＝＝１０２４　ＴＨＥＮ　ＧＯＴＯ　＠ＣＲＥＤＩＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−− ＠ＳＴ＿ＣＳＳＣＲ　’スクリ−ンイト゛ウ ＣＯＬＯＲ　５ Ａ＝Ａ＋１：ＩＦ　Ａ＞２０＊１０　ＴＨＥＮ　Ａ＝０ ＩＦ　Ａ％１０＝＝０　ＴＨＥＮ　ＲＥＳＴＯＲＥ　＠ＤＡＴＡ＿ＴＹ：ＦＯＲ　Ｉ＝０　ＴＯ　３：ＲＥＡＤ　Ａ＄：ＬＯＣＡＴＥ　１０，Ｉ＋４：？　ＭＩＤ＄（Ａ＄，Ａ／１０，１２）：ＮＥＸＴ ＩＦ　Ａ％１０＝＝０　ＴＨＥＮ　ＣＯＬＯＲ　ＲＮＤ（１６）：ＰＮＬＳＴＲ　８，１２，”ＳＥＬＥＣＴ　ＴＯ　ＳＴＡＲＴ！” ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−− ＠ＳＴ＿ＳＰＯＦＳ　’イミノナイイト゛ウ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−− ＠ＳＴ＿ＣＳＲ　’ケイキ ＩＦ　Ｓ＜０　ＴＨＥＮ　Ｓ＝３ ＩＦ　Ｓ＞３　ＴＨＥＮ　Ｓ＝０ ＣＯＬＯＲ　５ ＬＯＣＡＴＥ　１０，１４：？”●ソウサ：ＴＹＰＥ−”＋ＳＴＲ＄（ＯＰＰＡＴＡＲＮ＋１）＋”●” ＩＦ　Ｓ＝＝０　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　８，１６：？”●カンタンモ−ト゛テ゛ホ゛ウケン●” ＩＦ　Ｓ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　８，１７：？”●　セッテイコ゛ニ　ハシ゛メル　●” ＩＦ　Ｓ＝＝２　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　８，１８：？”●ソウサノ　モ−ト゛ヲ　センタク●” ＩＦ　Ｓ＝＝３　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　８，１９：？”●　ヤッハ゜リ　ハシ゛メナイ　　●” ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−− ＠ＥＮＤ０１ ＣＯＬＯＲ　０：ＣＬＳ：ＳＰＣＬＲ：ＥＮＤ ’─────────────────────────── ＠ＯＰＥＲ＿ＳＥＴ　’ソウサホウホウノセンタク ＣＬＳ：ＳＰＣＬＲ　 ＬＯＣＡＴＥ　５，４ ？”ソウサノタイフ゜ヲエラフ゛コトカ゛テ゛キマス！” ＬＯＣＡＴＥ　７，１９ ？”（←→テ゛センタク、　Аテ゛ケッテイ）” ＲＥＳＴＯＲＥ　＠ＤＡＴＡ＿ＯＰＥＰ ＦＯＲ　Ｉ＝０　ＴＯ　９ ＬＯＣＡＴＥ　５，Ｉ＋６：ＲＥＡＤ　Ａ＄：？Ａ＄； ＮＥＸＴ ＦＯＲ　Ｉ＝１０　ＴＯ　１９ ＬＯＣＡＴＥ　１７，Ｉ＋６−１０：ＲＥＡＤ　Ａ＄：？Ａ＄； ＮＥＸＴ ＠ＯＰＥ＿ＬＯＯＰ ＶＳＹＮＣ　１ ＧＯＳＵＢ　＠ＯＰＥ＿ＣＳＲ ＧＯＳＵＢ　＠ＯＰＥ＿ＳＥＬ ＧＯＴＯ　＠ＯＰＥ＿ＬＯＯＰ ’−−−−−−−−−−−−−−− ＠ＯＰＥ＿ＣＳＲ ＲＥＳＴＯＲＥ　＠ＤＡＴＡ＿ＯＰＥＰ ＩＦ　ＳＥＬ＝＝０　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ＦＯＲ　Ｉ＝０　ＴＯ　９ ＬＯＣＡＴＥ　５，Ｉ＋６：ＲＥＡＤ　Ａ＄：？Ａ＄； ＮＥＸＴ ＩＦ　ＳＥＬ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ＦＯＲ　Ｉ＝１０　ＴＯ　１９ ＬＯＣＡＴＥ　１７，Ｉ＋６−１０：ＲＥＡＤ　Ａ＄：？Ａ＄； ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−− ＠ＯＰＥ＿ＳＥＬ Ｂ＝ＢＵＴＴＯＮ（１） ＩＦ　Ｂ＝＝４　ＴＨＥＮ　ＢＥＥＰ　２：ＳＥＬ＝ＳＥＬ＋１ ＩＦ　Ｂ＝＝８　ＴＨＥＮ　ＢＥＥＰ　２：ＳＥＬ＝ＳＥＬ−１ ＩＦ　ＳＥＬ＞１　ＴＨＥＮ　ＳＥＬ＝０ ＩＦ　ＳＥＬ＜０　ＴＨＥＮ　ＳＥＬ＝１ ＩＦ　Ｂ＝＝３２　ＴＨＥＮ　ＢＥＥＰ　４：ＧＯＴＯ　＠ＴＩＴＬＥＷＲＩＴＥ ＩＦ　Ｂ＝＝１６　ＴＨＥＮ　ＢＥＥＰ　３：ＯＰＰＡＴＡＲＮ＝ＳＥＬ：ＧＯＴＯ　＠ＴＩＴＬＥＷＲＩＴＥ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＳＥＴＴＩＮＧ　’セッテイ ＧＰＡＧＥ　０，０，０：ＳＰＣＬＲ　 Ｓ＝０：ＦＯＲ　Ｉ＝０　ＴＯ　６：Ｓ（Ｓ）＝０：ＮＥＸＴ Ｓ（０）＝８０ ＴＥＳＴ＝１：ＧＯＳＵＢ　＠ＣＯＬＳＥＴＨＤ：ＴＥＳＴ＝０ ＣＯ＄＝”［アサ］” ＢＧＭＰＬＡＹ　”＠２５５Ｖ７０：０［ＢＧＲＲ］：１＠１２８［ＤＲ＞Ｃ＜Ｒ］ ＠ＳＥＴＬＯＯＰ ＶＳＹＮＣ　１ ＧＯＳＵＢ　＠ＳＥＴ＿ＢＣＫ ＧＯＳＵＢ　＠ＳＥＴ＿ＣＳＲ ＧＯＴＯ　＠ＳＥＴＬＯＯＰ ’−−−−−−−−−−−−−−− ＠ＳＥＴ＿ＢＣＫ Ｂ＝ＢＵＴＴＯＮ（１） ＩＦ　Ｂ＝＝１　ＴＨＥＮ　Ｓ＝Ｓ−１：ＢＥＥＰ　２ ＩＦ　Ｂ＝＝２　ＴＨＥＮ　Ｓ＝Ｓ＋１：ＢＥＥＰ　２ ＩＦ　Ｂ＝＝１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＨＡＮＧＥ ＩＦ　Ｂ＝＝３２　ＴＨＥＮ　ＢＥＥＰ　４：ＧＣＬＳ　：ＧＯＳＵＢ　＠ＴＩＴＬＥＷＲＩＴＥ ＲＥＴＵＲＮ ’−−−−−−− ＠ＳＣＨＡＮＧＥ ＩＦ　Ｓ＝＝０　ＴＨＥＮ　ＢＥＥＰ　３８：ＧＯＳＵＢ　＠ＳＥＴ＿Ｌ：ＲＥＴＵＲＮ ＩＦ　Ｓ＝＝３　ＴＨＥＮ　ＢＥＥＰ　３８：ＧＯＳＵＢ　＠ＳＥＴ＿Ｐ：ＲＥＴＵＲＮ ＩＦ　Ｓ＝＝４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＥＴ＿Ｗ：ＲＥＴＵＲＮ ＩＦ　Ｓ＞＝６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＵＮＣＳＥＴ Ｓ（Ｓ）＝Ｓ（Ｓ）＋１：ＢＥＥＰ　３８ ＩＦ　Ｓ（Ｓ）＞１　ＴＨＥＮ　Ｓ（Ｓ）＝０ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−− ＠ＳＥＴ＿ＣＳＲ　’ケイキ ＩＦ　Ｓ＜０　ＴＨＥＮ　Ｓ＝０ ＩＦ　Ｓ＞７　ＴＨＥＮ　Ｓ＝７ ＲＥＳＴＯＲＥ　＠ＳＥＴＥＸＡ　 ＦＯＲ　Ｉ＝０　ＴＯ　Ｓ ＲＥＡＤ　Ａ＄：ＲＥＡＤ　Ｂ＄ ＮＥＸＴ ＣＬＳ ＬＯＣＡＴＥ　１，２１：？　Ａ＄ ＬＯＣＡＴＥ　１，２２：？　Ｂ＄ ＬＯＣＡＴＥ　０，６ ＩＦ　Ｓ＝＝０　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ？”　　　　●　１フ゛ロックアタリノ　オオキサ　： ＩＦ　Ｓ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ？”　　　　●　コウカ゛シツヒ゛ョウカ゛ノシヨウ： ＩＦ　Ｓ＝＝２　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ？”　　　　●　コウソクヒ゛ョウカ゛ノサイヨウ　： ＩＦ　Ｓ＝＝３　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ？”　　　　●　キャラクタ−ノ　ハイチ　　　　　： ＩＦ　Ｓ＝＝４　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ＩＦ　Ｓ（１）＝＝０　ＴＨＥＮ　ＣＯＬＯＲ　１４ ？”　　　　●　オ　テ　ン　キ　　　　　　　　　： ＩＦ　Ｓ＝＝５　ＴＨＥＮ　ＣＯＬＯＲ　７　ＥＬＳＥ　ＣＯＬＯＲ　０ ＩＦ　Ｓ（２）＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　１４：Ｓ（５）＝０ ？”　　　　●　ワイヤ−フレ−ムノ　サイヨウ　　： ＩＦ　Ｓ＝＝６　ＴＨＥＮ　ＣＯＬＯＲ　３　ＥＬＳＥ　ＣＯＬＯＲ　１４ ？”　　　　●　コノセッテイテ゛カンコウヲハシ゛メル　● ＩＦ　Ｓ＝＝７　ＴＨＥＮ　ＣＯＬＯＲ　３　ＥＬＳＥ　ＣＯＬＯＲ　１４ ？”　　　　●スタ−トイチヲキメテカンコウヲハシ゛メル● ＬＯＣＡＴＥ　４，６＋Ｓ：ＣＯＬＯＲ　７：？”●” ＬＯＣＡＴＥ　２３，６　：ＣＯＬＯＲ　４：？”［”；Ｓ（０）；”］” ＬＯＣＡＴＥ　２３，７　：ＩＦ　Ｓ（１）＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　１３：？”［ＯＮ］”ＥＬＳＥ　ＣＯＬＯＲ　１１：？”［ＯＦＦ］” ＬＯＣＡＴＥ　２３，８　：ＩＦ　Ｓ（２）＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　１３：？”［ＯＮ］”ＥＬＳＥ　ＣＯＬＯＲ　１１：？”［ＯＦＦ］” ＬＯＣＡＴＥ　２３，９　：ＩＦ　Ｓ（３）＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　１３：？”［ＴＹＰＥ１］”ＥＬＳＥ　ＣＯＬＯＲ　１１：？”［ＯＦＦ］” ＬＯＣＡＴＥ　２３，９　：ＩＦ　Ｓ（３）＝＝２　ＴＨＥＮ　ＣＯＬＯＲ　１２：？”［ＴＹＰＥ２］” ＬＯＣＡＴＥ　２３，１０：ＣＯＬＯＲ　Ｃ０：？　ＣＯ＄： ＬＯＣＡＴＥ　２３，１１：ＩＦ　Ｓ（５）＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　１３：？”［ＯＮ］”ＥＬＳＥ　ＣＯＬＯＲ　１１：？”［ＯＦＦ］” ＧＦＩＬＬ　２１＊８，１０＊８，２２＊８，１１＊８−１，１０２ ＬＯＣＡＴＥ　０，１８：ＣＯＬＯＲ　０ ？”─”＊３２； ？”　Пテ゛センタク、Аテ゛ＯＮ／ＯＦＦキリカエ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＳＥＴ＿Ｌ　’Ｌノセッテイ ＬＯＣＡＴＥ　０，２０：ＣＯＬＯＲ　０ ＰＲＩＮＴ　”（コノフ゜ロク゛ラムテ゛ハ　８０＆＃１２３１６；１２０ヲショウレイシマス） ＩＮＰＵＴ　”１フ゛ロックアタリノ　オオキサハ（６０＆＃１２３１６；２５０）”；Ｓ（０） ＩＦ　Ｓ（０）＜６０　　ＴＨＥＮ　Ｓ（０）＝６０ ＩＦ　Ｓ（０）＞２５０　ＴＨＥＮ　Ｓ（０）＝２５０ ＢＥＥＰ　１２：ＷＡＩＴ　２ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＳＥＴ＿Ｗ　’ＷＥＡＴＨＥＲノセッテイ ＩＦ　Ｓ（１）＝＝０　ＴＨＥＮ　ＢＥＥＰ　：ＥＬ２＝１：ＲＥＴＵＲＮ ＥＬ２＝０：ＢＥＥＰ　４８ Ｓ（Ｓ）＝Ｓ（Ｓ）＋１ ＩＦ　Ｓ（Ｓ）＞７　ＴＨＥＮ　Ｓ（Ｓ）＝０ ＷＥＡＴＨＮＯ＝Ｓ（Ｓ） ＴＥＳＴ＝１：ＧＯＳＵＢ　＠ＣＯＬＳＥＴＨＤ：ＴＥＳＴ＝０ ＲＥＳＴＯＲＥ　＠ＳＫＹＣＯＬＯＲ ＦＯＲ　Ｉ＝０　ＴＯ　Ｓ（Ｓ） ＲＥＡＤ　Ｃ＄：Ｃ０＝ＶＡＬ（Ｃ＄） ＲＥＡＤ　Ｄ＄：ＣＯ＄＝”［”＋Ｄ＄＋”］” ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＳＥＴ＿Ｐ　’ヒトノセッテイ Ｓ（Ｓ）＝Ｓ（Ｓ）＋１ ＩＦ　Ｓ（Ｓ）＞２　ＴＨＥＮ　Ｓ（Ｓ）＝０ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＦＵＮＣＳＥＴ　’ヘンスウヲセッテイ ＳＥＴＬ＝１：ＧＣＬＳ　 ＩＦ　Ｓ（１）＝＝１　ＴＨＥＮ　ＨＵＬＬＨＤ＝１：ＧＯＳＵＢ　＠ＣＯＬＳＥＴＨＤ　ＥＬＳＥ　ＦＵＬＬＨＤ＝０ ＩＦ　Ｓ（２）＝＝１　ＴＨＥＮ　ＨＩＰＥＲ＝１：ＨＩＰＥＲＭＩＮ＝６　ＥＬＳＥ　ＨＩＰＥＲ＝０ ＩＦ　Ｓ（３）＞＝１　ＴＨＥＮ　ＰＥＲＳＯＮ＝Ｓ（３）：ＧＯＳＵＢ　＠ＣＨＲＬＯＡＤ ＷＥＡＴＨＮＯ＝Ｓ（４） ＦＲＡＭＥ＝Ｓ（５） ＩＦ　Ｓ＝＝６　ＴＨＥＮ　ＧＯＴＯ　＠ＩＮＩＴ＿２ ＩＦ　Ｓ＝＝７　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＬＥＰＯＲＴ：ＧＯＴＯ　＠ＩＮＩＴ＿２ ＥＮＤ ’─────────────────────────── ＠ＣＨＲＬＯＡＤ　’ヒトノヨミコミ ＬＯＣＡＴＥ　０，１９：？”　”＊３２； ＬＯＣＡＴＥ　０，１９ ＩＦ　ＰＥＲＳＯＮ＝＝２　ＴＨＥＮ　ＳＰＳＥＴ　０，６８，４，０，０，０：ＳＰＯＦＳ　０，−４０，１００：ＳＰＳＣＡＬＥ　０，２００：ＲＥＴＵＲＮ ＳＹＳＢＥＥＰ＝０：ＬＯＡＤ　”ＣＯＬ１：００１２”，０：ＬＯＡＤ”ＳＰＵ０：ＹＭ＿ＰＥＲＳ”，０：ＳＹＳＢＥＥＰ＝１ ＩＦ　ＲＥＳＵＬＴ＝＝０　ＴＨＥＮ　ＢＥＥＰ　４：ＣＯＬＯＲ　１１：？”キャラヲ　ヨミコメマセンテ゛シタ”：ＰＥＲＳＯＮ＝０：ＷＡＩＴ　６０ ＩＦ　ＰＥＲＳＯＮ＝＝１　ＴＨＥＮ　ＳＰＳＥＴ　０，０，２，０，０，０，１６，３２：ＳＰＯＦＳ　０，−４０，１００：ＳＰＳＣＡＬＥ　０，２００ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＩＮＩＴ＿１　’スタンタ゛−トニ　キト゛ウ ＨＵＬＬＨＤ＝０：ＰＥＲＳＯＮ＝０ ＳＰＣＬＲ　 ＠ＩＮＩＴ＿２　’イレキ゛ュラ−ニ　キト゛ウ ＢＧＰＡＧＥ　０ ＢＧＣＬＲ　０ ＢＧＣＬＲ　１ ＢＧＰＡＧＥ　１ ＣＬＳ：ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　０，１８ ’−−−−−− ＩＦ　ＨＵＬＬＨＤ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＬＳＥＴＵＳ ＧＯＳＵＢ　＠ＺＡＨＨＳＥＴ ＩＦ　ＳＥＴＰ＝＝１　ＴＨＥＮ　ＭＸ＝ＭＸ０：ＭＹ＝ＭＹ０：ＳＰＣＬＲ　１ ＩＦ　ＳＥＴＬ＝＝１　ＴＨＥＮ　Ｌ＝Ｓ（０） ＧＯＳＵＢ　＠ＤＡＴＡＷＲＩＴＥ ＧＯＳＵＢ　＠ＰＮＬＷＲＩＴＥ ＧＯＴＯ　＠ＬＯＯＰ ’─────────────────────────── ＠ＣＯＬＳＥＴＵＳ　’イッハ゜ンテキナイロセット ＣＯＬＳＥＴ　”ＧＲＰ”，１０１，”００８８ＦＦ” 　　　　ＦＯＲ　Ｉ＝１　ＴＯ　５０ 　　　　Ａ＄＝ＨＥＸ＄（Ｉ，２）＋ＨＥＸ＄（Ｉ＊５，２）＋ＨＥＸ＄（Ｉ＊２，２） 　　　　ＣＯＬＳＥＴ　”ＧＲＰ”，Ｉ，Ａ＄ 　　　　ＮＥＸＴ ’１−４：フ゛ロック　５：ソラ　６：スナ　７：ウミ ＣＯ１＝１５：ＣＯ２＝２０　　’＜＜ ＣＯ３＝５０：ＣＯ４＝３０　　’＜＜ ＣＯ５＝１０１：ＣＯ６＝７７　’＜＜ ＣＯ７＝２４２：ＣＯ８＝２５１’＜＜ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＺＡＨＨＳＥＴ ’−−−ヘンスウセツメイ−−−− ’（ＣＸ，ＣＹ）：ショウシツテン ’（Ｘ１，Ｙ１）：サ゛ヒョウ　　 ’Ｌ：１フ゛ロックノハハ゛　　　 ’（ＭＸ，ＭＹ）：シ゛フ゛ンイチ ’ＷＯ：シカイノオクユキ　　　　 ’Ｗ　：シカイノハハ゛　　　　　 ’−−−−−−−−−−−−−−− ＭＸ０＝ＭＸ：ＭＹ０＝ＭＹ　　　 ＣＸ＝１２８：ＣＹ＝８０　’＜＜ Ｌ＝８０　　　　　　　　　’＜＜ ＭＸ＝８：ＭＹ＝１０　　　’＜＜ ＷＯ＝４：Ｗ＝７　　　　　’＜＜ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＤＡＴＡＷＲＩＴＥ ’───テ゛−タセイセイ──── ’Ｌ（Ｎ），Ｘ（Ｎ）テ゛オクユキ ’ニヨルヘンケイヲオコナイマス。 ’−−−−−−−−−−−−−−− ＲＥＳＴＯＲＥ　＠ＤＡＴＡ＿Ｙ 　　　　ＦＯＲ　Ｎ＝１　ＴＯ　１０ 　　　　ＲＥＡＤ　Ｙ（Ｎ） 　　　　Ｌ（Ｎ）＝（Ｌ＊（Ｙ（Ｎ）−ＣＹ）／（ＣＹ−Ｙ（１）））＊−１ 　　　　Ｘ（Ｎ）＝　Ｌ＊（Ｙ（Ｎ）−ＣＹ）／（２＊（ＣＹ−Ｙ（１）））＋ＣＸ 　　　　ＮＥＸＴ ’−−−ショキヒ゛ョウカ゛−−− ＷＡＩＴ　１ Ｂ＝０ ＧＰＡＧＥ　０，３，０ ＧＣＬＳ：ＣＬＳ ＬＯＣＡＴＥ　１２，１２ ？”●ＷＡＩＴ．．．” ＣＮＴ＝ＭＡＩＮＣＮＴＬ ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ ＩＦ　ＨＩＰＥＲ＝＝１　ＴＨＥＮ　ＷＯＭＡＸ＝ＷＯＤ−２　ＥＬＳＥ　ＷＯＭＡＸ＝７ ＩＦ　ＦＲＡＭＥ＝＝１　ＴＨＥＮ　ＷＯＭＡＸ＝ＷＯＤ−２　 ＣＬＳ ＢＧＭＰＬＡＹ　”Ｔ６０：０＠７４Ｖ７０＜［ＣＧＥＦ２ＢＥ２］：１Ｖ６０＠７１［ＥＤＣＡ］：２＠１２８Ｖ１００［Ｃ１６Ｃ１６Ｒ１６Ｃ１６ＲＥＲ］ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＰＮＬＷＲＩＴＥ　’シタカ゛メンノセイサク ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　１５，０，”ＭＡＰ” ＣＯＬＯＲ　１３：ＰＮＬＳＴＲ　０，０，”┿”：ＣＯＬＯＲ　０ ＦＯＲ　Ｉ＝１　ＴＯ　１２ ＰＮＬＳＴＲ　９，Ｉ，”и　　　　　　　　　　　　　з” ＮＥＸＴ ＣＯＬＯＲ　１０ ＰＮＬＳＴＲ　１６，Ｉ−２，”●” ＰＮＬＳＴＲ　１５，Ｉ−１，”ＹＯＵ” ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　０，Ｉ　　，”жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж” ＰＮＬＳＴＲ　６，Ｉ＋１，”АкХ：サユウノシカイノハハ゛ヲカエル ＰＮＬＳＴＲ　６，Ｉ＋２，”ФкБ：ミエルオクユキヲ　カエル ＰＮＬＳＴＲ　６，Ｉ＋３，”　　П：ヘイコウイト゛ウ ＰＮＬＳＴＲ　６，Ｉ＋４，”Ккн：ＢＧＭヲ　ケスкＥＮＤ ＣＯＬＯＲ　７ ＰＮＬＳＴＲ　１，Ｉ＋６，”＊ミエルオクユキカ゛オオキスキ゛ルトハ゛ク゛カ゛ハッセイシマ ＰＮＬＳＴＲ　１，Ｉ＋７，”　ス。コウソクヒ゛ョウカ゛モ−ト゛テ゛ハ゛ク゛ヲヘラセマス。 ＰＮＬＳＴＲ　１，Ｉ＋８，”＊シカイソウサノシッハ゜イテ゛ウミニオチタリ、ハ゛ク゛マッ” ＰＮＬＳＴＲ　１，Ｉ＋９，”　フ゜カ゛ヨミコマレル　コトカ゛アルノテ゛コ゛チュウイヲ！” ＢＧＦＩＬＬ　１，１０，１，２２，１２，６１０，１２，０，０ ＣＯＬＯＲ　０ ’−−−アニメモトケッテイ−−− ＩＦ　ＰＥＲＳＯＮ　＝＝１　ＴＨＥＮ　ＳＰ＿Ｕ＝０：ＳＰ＿Ｄ＝８：ＳＰ＿Ｒ＝１６：ＳＰ＿Ｃ＝０：ＳＰ＿ＣＯ＝２ ＩＦ　ＰＥＲＳＯＮ　＝＝２　ＴＨＥＮ　ＳＰ＿Ｕ＝７６：ＳＰ＿Ｄ＝６８：ＳＰ＿Ｒ＝７２：ＳＰ＿Ｃ＝３２：ＳＰ＿ＣＯ＝４ ＩＦ　ＰＥＲＳＯＮ＞＝１　ＴＨＥＮ　ＳＰＯＦＳ　０，１１２，１１０＋ＳＰ＿Ｃ ＳＰＳＥＴ　３，１２７，０，０，０，０ ＳＰＨＯＭＥ　３，８，８ ＳＰＯＦＳ　３，２３５，２０ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＬＯＯＰ ＶＳＹＮＣ　１：Ｂ＝０ ＩＦ　ＯＰＰＡＴＡＲＮ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＴＣＨＫ２　ＥＬＳＥ　ＧＯＳＵＢ　＠ＢＴＣＨＫ ＧＯＳＵＢ　＠ＣＳＲＣＵＬＣ ＩＦ　ＰＥＲＳＯＮ　＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＰＯＦＳ ＩＦ　ＴＣＨＴＩＭＥ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＮＤ ＢＴ１＝０：ＢＴ２＝０ ＩＦ　Ｂ＞０　ＴＨＥＮ　ＣＮＴ＝ＭＡＩＮＣＮＴＬ：ＧＯＳＵＢ　＠ＧＲＰＣＨＫ ＧＯＴＯ　＠ＬＯＯＰ ’─────────────────────────── ＠ＥＮＤ ＩＦ　ＴＣＨＹ＜８　ＴＨＥＮ　ＢＧＭＳＴＯＰ　：ＥＮＤ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＢＴＣＨＫ　’ホ゛タンサホ゜−ト Ｂ＝ＢＵＴＴＯＮ（１）：ＣＬＫ＝０ ＩＦ　Ｂ＝＝１　ＴＨＥＮ　ＭＹ＝ＭＹ−１： ＩＦ　Ｂ＝＝２　ＴＨＥＮ　ＭＹ＝ＭＹ＋１： ＩＦ　Ｂ＝＝４　ＴＨＥＮ　ＭＸ＝ＭＸ−１： ＩＦ　Ｂ＝＝８　ＴＨＥＮ　ＭＸ＝ＭＸ＋１： ＩＦ　Ｂ＝＝１２８　ＴＨＥＮ　ＢＥＥＰ　３：Ｗ＝Ｗ−２：ＣＬＫ＝１ ＩＦ　Ｂ＝＝１６　　ＴＨＥＮ　ＢＥＥＰ　３：Ｗ＝Ｗ＋２：ＣＬＫ＝１ ＩＦ　Ｂ＝＝３２　　ＴＨＥＮ　ＢＥＥＰ　４：ＷＯ＝ＷＯ−１：ＣＬＫ＝１ ＩＦ　Ｂ＝＝６４　　ＴＨＥＮ　ＢＥＥＰ　４：ＷＯ＝ＷＯ＋１：ＣＬＫ＝１ ＩＦ　Ｂ＝＝２５６　ＴＨＥＮ　ＢＧＭＳＴＯＰ：ＢＥＥＰ　４：ＲＥＴＵＲＮ ＩＦ　Ｂ＝＝５１２　ＴＨＥＮ　ＢＧＭＳＴＯＰ：ＢＥＥＰ　４：ＥＮＤ ＩＦ　ＭＹ＜ＷＯ　ＴＨＥＮ　ＭＹ＝ＷＯ：ＢＥＥＰ　１ ＩＦ　ＭＸ＜ＦＬＯＯＲ（Ｗ／２）＋１　ＴＨＥＮ　ＭＸ＝ＦＬＯＯＲ（Ｗ／２）＋１：ＢＥＥＰ　１ ＩＦ　ＭＹ＞６４　ＴＨＥＮ　ＭＹ＝６４：ＢＥＥＰ　１ ＩＦ　ＭＸ＞６４　ＴＨＥＮ　ＭＸ＝６４：ＢＥＥＰ　１ ＩＦ　Ｗ＞１３　ＴＨＥＮ　Ｗ＝１３：　　ＢＥＥＰ　１ ＩＦ　Ｗ＜３　　ＴＨＥＮ　Ｗ＝３：　　　ＢＥＥＰ　１ ＩＦ　ＷＯ＜２　ＴＨＥＮ　ＷＯ＝２ ＩＦ　ＷＯ＞ＷＯＭＡＸ　ＴＨＥＮ　ＷＯ＝ＷＯＭＡＸ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＢＴＣＨＫ２　’ホ゛タンサホ゜−ト２ Ｂ＝ＢＵＴＴＯＮ（１）：ＣＬＫ＝０ ＩＦ　Ｂ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＯＣＨＡＮＧＥ ＩＦ　Ｂ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＯＣＨＡＮＧＥ２ ＩＦ　Ｂ＝＝４　ＴＨＥＮ　ＭＡ＝ＭＡ−１： ＩＦ　Ｂ＝＝８　ＴＨＥＮ　ＭＡ＝ＭＡ＋１： ＩＦ　Ｂ＝＝１２８　ＴＨＥＮ　ＢＥＥＰ　３：Ｗ＝Ｗ−２：ＣＬＫ＝１ ＩＦ　Ｂ＝＝１６　　ＴＨＥＮ　ＢＥＥＰ　３：Ｗ＝Ｗ＋２：ＣＬＫ＝１ ＩＦ　Ｂ＝＝３２　　ＴＨＥＮ　ＢＥＥＰ　４：ＷＯ＝ＷＯ−１：ＣＬＫ＝１ ＩＦ　Ｂ＝＝６４　　ＴＨＥＮ　ＢＥＥＰ　４：ＷＯ＝ＷＯ＋１：ＣＬＫ＝１ ＩＦ　Ｂ＝＝２５６　ＴＨＥＮ　ＢＧＭＳＴＯＰ：ＢＥＥＰ　４：ＲＥＴＵＲＮ ＩＦ　Ｂ＝＝５１２　ＴＨＥＮ　ＢＧＭＳＴＯＰ：ＢＥＥＰ　４：ＥＮＤ ＩＦ　ＭＡ＞３　ＴＨＥＮ　ＭＡ＝０ ＩＦ　ＭＡ＜０　ＴＨＥＮ　ＭＡ＝３ ＭＹＡＮＧＬＥ＝ＭＡ ＩＦ　ＭＹ＜ＷＯ　ＴＨＥＮ　ＭＹ＝ＷＯ：ＢＥＥＰ　１ ＩＦ　ＭＸ＜ＦＬＯＯＲ（Ｗ／２）＋１　ＴＨＥＮ　ＭＸ＝ＦＬＯＯＲ（Ｗ／２）＋１：ＢＥＥＰ　１ ＩＦ　ＭＹ＞６４　ＴＨＥＮ　ＭＹ＝６４：ＢＥＥＰ　１ ＩＦ　ＭＸ＞６４　ＴＨＥＮ　ＭＸ＝６４：ＢＥＥＰ　１ ＩＦ　Ｗ＞１３　ＴＨＥＮ　Ｗ＝１３：　　ＢＥＥＰ　１ ＩＦ　Ｗ＜３　　ＴＨＥＮ　Ｗ＝３：　　　ＢＥＥＰ　１ ＩＦ　ＷＯ＜２　ＴＨＥＮ　ＷＯ＝２ ＩＦ　ＷＯ＞ＷＯＭＡＸ　ＴＨＥＮ　ＷＯ＝ＷＯＭＡＸ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＭＯＣＨＡＮＧＥ　’シタウケ ＩＦ　ＭＹＡＮＧＬＥ＝＝０　ＴＨＥＮ　ＭＹ＝ＭＹ−１ ＩＦ　ＭＹＡＮＧＬＥ＝＝２　ＴＨＥＮ　ＭＹ＝ＭＹ＋１ ＩＦ　ＭＹＡＮＧＬＥ＝＝３　ＴＨＥＮ　ＭＸ＝ＭＸ−１ ＩＦ　ＭＹＡＮＧＬＥ＝＝１　ＴＨＥＮ　ＭＸ＝ＭＸ＋１ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＭＯＣＨＡＮＧＥ２　’シタウケ ＩＦ　ＭＹＡＮＧＬＥ＝＝０　ＴＨＥＮ　ＭＹ＝ＭＹ＋１ ＩＦ　ＭＹＡＮＧＬＥ＝＝２　ＴＨＥＮ　ＭＹ＝ＭＹ−１ ＩＦ　ＭＹＡＮＧＬＥ＝＝３　ＴＨＥＮ　ＭＸ＝ＭＸ＋１ ＩＦ　ＭＹＡＮＧＬＥ＝＝１　ＴＨＥＮ　ＭＸ＝ＭＸ−１ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＳＰＯＦＳ　’スフ゜ライトノイト゛ウ ＩＦ　Ｂ＝＝１　ＴＨＥＮ　ＳＰＣＨＲ　０，ＳＰ＿Ｕ：ＳＰＡＮＩＭ　０，４，８ ＩＦ　Ｂ＝＝２　ＴＨＥＮ　ＳＰＣＨＲ　０，ＳＰ＿Ｄ：ＳＰＡＮＩＭ　０，４，８ ＩＦ　Ｂ＝＝４　ＴＨＥＮ　ＳＰＣＨＲ　０，ＳＰ＿Ｒ，ＳＰ＿ＣＯ，０，０，１：ＳＰＡＮＩＭ　０，４，８ ＩＦ　Ｂ＝＝８　ＴＨＥＮ　ＳＰＣＨＲ　０，ＳＰ＿Ｒ，ＳＰ＿ＣＯ，１，０，１：ＳＰＡＮＩＭ　０，４，８ ＩＦ　ＣＮＴ＞０　ＴＨＥＮ　ＳＰＡＮＩＭ　０，１，１０ ＩＦ　ＯＰＰＡＴＡＲＮ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＰＯＦＳ２ ＣＮＴ＝０ ＲＥＴＵＲＮ ’−−−−−−−−−−−− ＠ＳＰＯＦＳ２　’シタウケ ＩＦ　ＣＮＴ＞０　ＴＨＥＮ　ＳＰＡＮＩＭ　０，１，１０　ＥＬＳＥ　ＲＥＴＵＲＮ ＩＦ　ＢＴ１＝＝１　ＴＨＥＮ　ＳＰＣＨＲ　０，ＳＰ＿Ｕ，ＳＰ＿ＣＯ，１，０，１ ＩＦ　ＢＴ１＝＝２　ＴＨＥＮ　ＳＰＣＨＲ　０，ＳＰ＿Ｄ，ＳＰ＿ＣＯ，１，０，１ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＧＲＰＣＨＫ　’カヘ゛メリコミホ゛ウシ　　　　 　　　　　　　　’Ｉ：ヘンスウノ　コ゛ミハ゛コ　 ＢＧＲＥＡＤ（０，１６，１０），ＣＵ，Ｉ，Ｉ，Ｉ ＢＧＲＥＡＤ（０，１６，１２），ＣＤ，Ｉ，Ｉ，Ｉ ＢＧＲＥＡＤ（０，１５，１１），ＣＬ，Ｉ，Ｉ，Ｉ ＢＧＲＥＡＤ（０，１７，１１），ＣＲ，Ｉ，Ｉ，Ｉ ’トクシュナユカヲショリ ＩＦ　ＣＵ＝＝６　　ＴＨＥＮ　ＣＵ＝３２ ＩＦ　ＣＤ＝＝６　　ＴＨＥＮ　ＣＤ＝３２ ＩＦ　ＣＬ＝＝６　　ＴＨＥＮ　ＣＬ＝３２ ＩＦ　ＣＲ＝＝６　　ＴＨＥＮ　ＣＲ＝３２ ＩＦ　ＣＵ＝＝５９０ＴＨＥＮ　ＣＵ＝３２ ＩＦ　ＣＤ＝＝５９０ＴＨＥＮ　ＣＤ＝３２ ＩＦ　ＣＬ＝＝５９０ＴＨＥＮ　ＣＬ＝３２ ＩＦ　ＣＲ＝＝５９０ＴＨＥＮ　ＣＲ＝３２ ＩＦ　Ｂ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＣ＿Ｕ：ＢＴ１＝１：ＲＥＴＵＲＮ ＩＦ　Ｂ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＣ＿Ｄ：ＢＴ２＝１：ＲＥＴＵＲＮ ＩＦ　Ｂ＝＝４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＣ＿Ｌ：ＢＴ１＝１：ＲＥＴＵＲＮ ＩＦ　Ｂ＝＝８　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＣ＿Ｒ：ＢＴ１＝１：ＲＥＴＵＲＮ ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ ＲＥＴＵＲＮ ＠ＧＣ＿Ｕ　’−−−ハンテイシタウケ−−− ＩＦ　ＯＰＰＡＴＡＲＮ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＣ＿Ｕ２：ＲＥＴＵＲＮ ＩＦ　ＣＵ！＝３２　ＴＨＥＮ　ＢＥＥＰ　１：ＭＹ＝ＭＹ＋１：ＲＥＴＵＲＮ ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ＠ＧＣ＿Ｄ　’−−−ハンテイシタウケ−−− ＩＦ　ＯＰＰＡＴＡＲＮ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＣ＿Ｄ２：ＲＥＴＵＲＮ ＩＦ　ＣＤ！＝３２　ＴＨＥＮ　ＢＥＥＰ　１：ＭＹ＝ＭＹ−１：ＲＥＴＵＲＮ ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ＠ＧＣ＿Ｌ　’−−−ハンテイシタウケ−−− ＳＰＡＮＧＬＥ　３，ＭＹＡＮＧＬＥ＊９０，３０，−１ ＩＦ　ＯＰＰＡＴＡＲＮ＝＝１　ＴＨＥＮ　ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ＩＦ　ＣＬ！＝３２　ＴＨＥＮ　ＢＥＥＰ　１：ＭＸ＝ＭＸ＋１：ＲＥＴＵＲＮ ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ＠ＧＣ＿Ｒ　’−−−ハンテイシタウケ−−− ＳＰＡＮＧＬＥ　３，ＭＹＡＮＧＬＥ＊９０，３０，１ ＩＦ　ＯＰＰＡＴＡＲＮ＝＝１　ＴＨＥＮ　ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ＩＦ　ＣＲ！＝３２　ＴＨＥＮ　ＢＥＥＰ　１：ＭＸ＝ＭＸ−１：ＲＥＴＵＲＮ ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ＠ＧＣ＿Ｕ２　’−−ハンテイシタウケ−−− ＩＦ　ＣＵ＝＝３２　ＴＨＥＮ　ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ＢＥＥＰ　１ ＩＦ　ＭＹＡＮＧＬＥ＝＝０　ＴＨＥＮ　ＭＹ＝ＭＹ＋１ ＩＦ　ＭＹＡＮＧＬＥ＝＝１　ＴＨＥＮ　ＭＸ＝ＭＸ−１ ＩＦ　ＭＹＡＮＧＬＥ＝＝２　ＴＨＥＮ　ＭＹ＝ＭＹ−１ ＩＦ　ＭＹＡＮＧＬＥ＝＝３　ＴＨＥＮ　ＭＸ＝ＭＸ＋１ ＲＥＴＵＲＮ ＠ＧＣ＿Ｄ２　’−−ハンテイシタウケ−−− ＩＦ　ＣＤ＝＝３２　ＴＨＥＮ　ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ＢＥＥＰ　１ ＩＦ　ＭＹＡＮＧＬＥ＝＝０　ＴＨＥＮ　ＭＹ＝ＭＹ−１ ＩＦ　ＭＹＡＮＧＬＥ＝＝１　ＴＨＥＮ　ＭＸ＝ＭＸ＋１ ＩＦ　ＭＹＡＮＧＬＥ＝＝２　ＴＨＥＮ　ＭＹ＝ＭＹ＋１ ＩＦ　ＭＹＡＮＧＬＥ＝＝３　ＴＨＥＮ　ＭＸ＝ＭＸ−１ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＣＳＲＣＵＬＣ　’ケイキルイ ＬＯＣＡＴＥ　０，０：？”　（”；ＭＸ；”，”；ＭＹ；”）　　　” ＬＯＣＡＴＥ　０，１：？”　├─┼─┼─┼─┼─┤Ｗ：”；Ｗ；”　　” ＬＯＣＡＴＥ　０，２：？”　├────┤　　　　　Ｏ：”；ＷＯ；”　　” ＬＯＣＡＴＥ　０，３：？”　”；ＦＰＳ；”フレ−ム／１ヒ゛ョウカ゛　　　” ＬＯＣＡＴＥ　Ｗ−２，１：？”●” ＬＯＣＡＴＥ　ＷＯ−１，２：？”●” ＬＯＣＡＴＥ　２５，２：？”ムキ：”； ＣＯＬＯＲ　１ ＬＯＣＡＴＥ　２９，１：？”Ｕ”； ＬＯＣＡＴＥ　２８，２：？”Ｌ　Ｒ”； ＬＯＣＡＴＥ　２９，３：？”Ｄ”； ＣＯＬＯＲ　０ ＩＦ　ＯＰＰＡＴＡＲＮ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＳＲＣＵＬＣ２ ＲＥＴＵＲＮ ’−−−−−−− ＠ＣＳＲＣＵＬＣ２　’ケイキルイシタウケ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＧＲＰＷＲＩＴＥ ＩＦ　ＣＬＫ＝＝１　ＴＨＥＮ　ＢＧＣＬＲ　０ ＩＦ　ＨＵＬＬＨＤ＝＝１　ＴＨＥＮ　ＣＯ５＝１０１：ＣＯ２＝１１ ’−−タイキヨウク゛ラフィックヲカキコム−− ＧＰＡＧＥ　０ ＧＣＯＰＹ　３，０，０，２５５，１９１，０，０，０ ＧＰＡＧＥ　０，３，０　’╂┿ ’−−−−−−ソラノヒ゛ョウカ゛−−−−−− ＩＦ　ＨＵＬＬＨＤ＝＝０　ＴＨＥＮ　ＧＦＩＬＬ　０，０，２５５，１９１−ＣＹ，ＣＯ５：ＧＦＩＬＬ　０，１９１−ＣＹ，２５５，１９１，ＣＯ２　 ＩＦ　ＨＵＬＬＨＤ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＫＹ＿ＥＬ ’−−−−−−−−−−−−−−−−−−−−− ＬＯＣＡＴＥ　０，０：Ａ＝０： ＲＥＳＴＯＲＥ　＠ＤＡＴＡ＿Ｃ ’カイテンショリ ＯＮ　ＭＹＡＮＧＬＥ　ＧＯＳＵＢ　＠Ｇ＿ＳＰＩＮ０，＠Ｇ＿ＳＰＩＮ１，＠Ｇ＿ＳＰＩＮ２，＠Ｇ＿ＳＰＩＮ３ ＧＯＳＵＢ　＠Ｇ＿ＷＲＩＴＥＰＲＥ：ＲＥＴＵＲＮ ’─────────────────────────── ＠ＳＱＷＲＩＴＥ ’─チョウテンエンサ゛ン─ ’　　　　Ｅ┌─┐Ｆ　　　 ’　　　　к│к│　　　　 ’　　Ａ┌─┐Ｂ┘　　　　 ’　　　│Ｇ│к　Ｈ　　　 ’　　Ｃ└─┘Ｄ　　　　　 ’──────────── ＨＤ＝ＨＵＬＬＨＤ ＩＦ　ＨＤ＝＝１　ＴＨＥＮ　ＣＯ１＝０＋Ｙ１：ＣＯ２＝ＷＯＤ＋Ｙ１：ＣＯ３＝ＷＯＤ＊２＋Ｙ１：ＣＯ４＝ＷＯＤ＊３＋Ｙ１：ＣＯ６＝ＷＯＤ＊５＋Ｙ１：ＣＯ７＝ＷＯＤ＊６＋Ｙ１：ＣＯ８＝ＷＯＤ＊７＋Ｙ１ ’−−−−ＭＡＰ−−−−− ＩＦ　Ｈ＝＝０　ＴＨＥＮ　ＢＧＡ＝３２：Ｃ＝８ ＩＦ　Ｈ＞＝１　ＴＨＥＮ　ＢＧＡ＝５７：Ｃ＝８ ＩＦ　Ｈ＞＝３　ＴＨＥＮ　ＢＧＡ＝５６：Ｃ＝８ ＩＦ　Ｈ＞＝５　ＴＨＥＮ　ＢＧＡ＝１３：Ｃ＝８ ＩＦ　Ａ＄＝＝”╂”　ＴＨＥＮ　ＢＧＡ＝６　　：Ｃ＝８ ＩＦ　Ａ＄＝＝”┿”　ＴＨＥＮ　ＢＧＡ＝３２０：Ｃ＝５ ＩＦ　Ａ＄＝＝”□”　ＴＨＥＮ　ＢＧＡ＝５９０：Ｃ＝１１ ＢＧＰＵＴ　０，１６＋Ｘ１，１２−Ｙ１，ＢＧＡ，Ｃ，０，０ ＩＦ　ＬＡＳＴ＝＝１　ＴＨＥＮ　ＲＥＴＵＲＮ ’−−−−↑フルＨＤ−−− Ｃ１＝Ｘ（Ｙ１）＋Ｘ１＊Ｌ（Ｙ１）　：Ｃ２＝Ｙ（Ｙ１） Ｄ１＝Ｃ１＋Ｌ（Ｙ１）−１　　　　　：Ｄ２＝Ｃ２ Ａ１＝Ｃ１　　　　　　　　　　　　　：Ａ２＝Ｃ２＋Ｈ＊Ｌ（Ｙ１） Ｂ１＝Ｄ１　　　　　　　　　　　　　：Ｂ２＝Ａ２ Ｇ１＝Ｘ（Ｙ１＋１）＋Ｘ１＊Ｌ（Ｙ１＋１）：Ｇ２＝Ｙ（Ｙ１＋１） Ｈ１＝Ｇ１＋Ｌ（Ｙ１＋１）−１　　　：Ｈ２＝Ｇ２ Ｅ１＝Ｇ１　　　　　　　　　　　　　：Ｅ２＝Ｇ２＋Ｈ＊Ｌ（Ｙ１＋１） Ｆ１＝Ｈ１　　　　　　　　　　　　　：Ｆ２＝Ｅ２ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ’サ゛ヒョウキ゛ャクテン− Ａ２＝１９１−Ａ２：Ｂ２＝１９１−Ｂ２ Ｃ２＝１９１−Ｃ２：Ｄ２＝１９１−Ｄ２ Ｅ２＝１９１−Ｅ２：Ｆ２＝１９１−Ｆ２ Ｇ２＝１９１−Ｇ２：Ｈ２＝１９１−Ｈ２ ’−−−トクシュヘイメンヒ゛ョウカ゛−−− ＩＦ　Ａ＄＝＝”┿”　ＴＨＥＮ　ＣＯ＝ＣＯ７：ＧＯＳＵＢ　＠ＰＴ＿７：ＲＥＴＵＲＮ ＩＦ　Ａ＄＝＝”╂”　ＴＨＥＮ　ＣＯ＝ＣＯ６：ＧＯＳＵＢ　＠ＰＴ＿７：ＲＥＴＵＲＮ ＩＦ　Ａ＄＝＝”□”　ＴＨＥＮ　ＣＯ＝ＣＯ８：ＧＯＳＵＢ　＠ＰＴ＿７：ＲＥＴＵＲＮ ＩＦ　Ｈ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ　’ヘイメンムシ ’−イロヌリシ゛ュンヒ゛− ＧＰＡＧＥ　１ ＧＯＳＵＢ　＠ＧＰＡＴＡＲＮ ’−−−セイショコヒ゜−トクリア−−− ＧＰＡＧＥ　０ ＧＣＯＰＹ　１，０，０，２５５，１９１，０，０，０ ＧＰＡＧＥ　１ ＧＣＬＳ：ＲＥＴＵＲＮ ’─────────────────────────── ’−−−−イロヌリハ゛アイワケ−−−− ’　　　１□┰　　５□　　２┝□　　　 ’　　　　　　　　　　　　　　　　　　 ’　　　３□┸　　６┿　　４┥□　　　 ’−−−−−−−−−−−−−−−−−− ＠ＧＰＡＴＡＲＮ Ｒ＝０：ＡＲ＝０ ＩＦ　ＨＩＰＥＲ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＴ＿０ ＩＦ　Ａ１＜　Ｅ１　ＴＨＥＮ　Ｐ＝０ ＩＦ　Ａ１＞＝Ｅ１　ＴＨＥＮ　Ｐ＝１ ＩＦ　Ａ２＜　Ｅ２　ＴＨＥＮ　Ｑ＝０ ＩＦ　Ａ２＞＝Ｅ２　ＴＨＥＮ　Ｑ＝１ ＩＦ　Ｅ１＜ＣＸ　ＴＨＥＮ　Ｒ＝Ｒ＋１ ＩＦ　Ｂ１＞ＣＸ　ＴＨＥＮ　Ｒ＝Ｒ＋１ Ａ＝Ｐ＋Ｑ＊２　　　　　　　　　　　’イッハ゜ン ＩＦ　ＡＲ＝＝１　ＴＨＥＮ　Ａ＝４　’カ゛イサン ＯＮ　Ａ　ＧＯＳＵＢ　＠ＰＴ＿１，＠ＰＴ＿２，＠ＰＴ＿３，＠ＰＴ＿４，＠ＰＴ＿５ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿０　’オクスキ゛ルオフ゛シ゛ェクトハンテイ ＩＦ　Ｙ１＞＝ＨＩＰＥＲＭＩＮ　ＴＨＥＮ　ＡＲ＝１ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿１　’□┰ ＩＦ　Ｒ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＴ＿５：ＲＥＴＵＲＮ ＧＯＳＵＢ　＠ＭＧ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿２　’┝□ ＩＦ　Ｒ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＴ＿５：ＲＥＴＵＲＮ ＧＯＳＵＢ　＠ＨＤ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿３　’□┸ ＩＦ　Ｒ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＴ＿６：ＲＥＴＵＲＮ ＧＯＳＵＢ　＠ＵＥ ＧＯＳＵＢ　＠ＭＧ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿４　’┥□ ＩＦ　Ｒ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＴ＿６：ＲＥＴＵＲＮ ＧＯＳＵＢ　＠ＨＤ ＧＯＳＵＢ　＠ＵＥ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿５　’□ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿６　’┿ ＧＯＳＵＢ　＠ＵＥ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿７　’─ ＧＰＡＧＥ　１ ＧＯＳＵＢ　＠ＤＮ ＧＰＡＧＥ　０ ＧＣＯＰＹ　１，０，０，２５５，１９１，０，０，０ ＧＰＡＧＥ　１：ＧＣＬＳ ＲＥＴＵＲＮ ’−−−−ヒ゛ョウカ゛シタウケ−−−− ＠ＭＧ　　’ミキ゛カ゛ワ ＧＬＩＮＥ　Ｆ１，Ｆ２，Ｂ１，Ｂ２，ＣＯ１ ＧＬＩＮＥ　Ｄ１，Ｄ２，Ｈ１，Ｈ２，ＣＯ１ ＧＬＩＮＥ　Ｈ１，Ｈ２，Ｆ１，Ｆ２，ＣＯ１ ＧＬＩＮＥ　Ｂ１，Ｂ２，Ｄ１，Ｄ２，ＣＯ１ ＩＦ　ＦＲＡＭＥ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｎ＿Ｍ０ ＲＥＴＵＲＮ ’−−−−−−−−−−− ＠ＵＥ　　’ウエ ＧＬＩＮＥ　Ａ１，Ａ２，Ｂ１，Ｂ２，ＣＯ２ ＧＬＩＮＥ　Ｂ１，Ｂ２，Ｆ１，Ｆ２，ＣＯ２ ＧＬＩＮＥ　Ｆ１，Ｆ２，Ｅ１，Ｅ２，ＣＯ２ ＧＬＩＮＥ　Ｅ１，Ｅ２，Ａ１，Ａ２，ＣＯ２ ＩＦ　ＦＲＡＭＥ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｎ＿Ｕ０ ＲＥＴＵＲＮ ’−−−−−−−−−−− ＠ＨＤ　　’ヒタ゛リ ＧＬＩＮＥ　Ｅ１，Ｅ２，Ａ１，Ａ２，ＣＯ３ ＧＬＩＮＥ　Ａ１，Ａ２，Ｃ１，Ｃ２，ＣＯ３ ＧＬＩＮＥ　Ｃ１，Ｃ２，Ｇ１，Ｇ２，ＣＯ３ ＧＬＩＮＥ　Ｇ１，Ｇ２，Ｅ１，Ｅ２，ＣＯ３ ＩＦ　ＦＲＡＭＥ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｎ＿Ｈ０ ＲＥＴＵＲＮ ’−−−−−−−−−−− ＠ＦＷ　　’マエ ＧＢＯＸ　Ａ１，Ａ２，Ｄ１，Ｄ２，ＣＯ４ ＩＦ　ＦＲＡＭＥ＝＝０　ＴＨＥＮ　ＧＦＩＬＬ　Ａ１，Ａ２，Ｄ１，Ｄ２，ＣＯ４ ＲＥＴＵＲＮ ’−−−−−−−−−−− ＠ＤＮ　　’シタ（トクシュ） ＩＦ　Ｙ１＞９　ＴＨＥＮ　ＧＬＩＮＥ　Ｃ１，Ｃ２，Ｄ１，Ｄ２，ＣＯ：ＲＥＴＵＲＮ ＧＬＩＮＥ　Ｃ１，Ｃ２，Ｄ１，Ｄ２，ＣＯ ＧＬＩＮＥ　Ｄ１，Ｄ２，Ｈ１，Ｈ２，ＣＯ ＧＬＩＮＥ　Ｈ１，Ｈ２，Ｇ１，Ｇ２，ＣＯ ＧＬＩＮＥ　Ｇ１，Ｇ２，Ｃ１，Ｃ２，ＣＯ ＩＦ　Ｄ２−Ｈ２＜２　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＦＲＡＭＥ＝＝０　ＴＨＥＮ　ＧＰＡＩＮＴ　（Ｈ１＋Ｇ１）／２，Ｈ２＋１，ＣＯ ＲＥＴＵＲＮ ’−−−−−−−−−−− ＠Ｎ＿Ｕ０　’ウエノシタウケ　 ＩＦ　Ｅ２＞Ａ２　ＴＨＥＮ　ＧＰＡＩＮＴ　（Ｅ１＋Ｆ１）／２，Ｅ２−１，ＣＯ２ ＩＦ　Ｅ２＜Ａ２　ＴＨＥＮ　ＧＰＡＩＮＴ　（Ｅ１＋Ｆ１）／２，Ｅ２＋１，ＣＯ２ ＲＥＴＵＲＮ ＠Ｎ＿Ｍ０　’ミキ゛ノシタウケ ＩＦ　Ｆ１＜Ｂ１　ＴＨＥＮ　ＧＰＡＩＮＴ　Ｆ１＋１，（Ｈ２＋Ｆ２）／２，ＣＯ１ ＩＦ　Ｆ１＞Ｂ１　ＴＨＥＮ　ＧＰＡＩＮＴ　Ｆ１−１，（Ｈ２＋Ｆ２）／２，ＣＯ１ ＲＥＴＵＲＮ ＠Ｎ＿Ｈ０　’ヒタ゛リノシタウケ ＩＦ　Ｅ１＜Ａ１　ＴＨＥＮ　ＧＰＡＩＮＴ　Ｅ１＋１，（Ｇ２＋Ｅ２）／２，ＣＯ３ ＩＦ　Ｅ１＞Ａ１　ＴＨＥＮ　ＧＰＡＩＮＴ　Ｅ１−１，（Ｇ２＋Ｅ２）／２，ＣＯ３ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＣＯＬＳＥＴＨＤ　’コウカ゛シツカ゛メンカラ− ’−オテンキニシタカ゛ッテ　ソラヲケッテイ−−− ’　＜ウェサ゛−ナンハ゛−＞ ＩＦ　ＷＥＡＴＨＮＯ＝＝０　ＴＨＥＮ　Ｃ５Ｒ＝０：Ｃ５Ｇ＝１３６：Ｃ５Ｂ＝２５５ ＩＦ　ＷＥＡＴＨＮＯ＝＝１　ＴＨＥＮ　Ｃ５Ｒ＝０：Ｃ５Ｇ＝２５５：Ｃ５Ｂ＝２５５ ＩＦ　ＷＥＡＴＨＮＯ＝＝２　ＴＨＥＮ　Ｃ５Ｒ＝１５０：Ｃ５Ｇ＝１５０：Ｃ５Ｂ＝１５０ ＩＦ　ＷＥＡＴＨＮＯ＝＝３　ＴＨＥＮ　Ｃ５Ｒ＝２５５：Ｃ５Ｇ＝２５５：Ｃ５Ｂ＝２５５ ＩＦ　ＷＥＡＴＨＮＯ＝＝４　ＴＨＥＮ　Ｃ５Ｒ＝２５５：Ｃ５Ｇ＝８０：Ｃ５Ｂ＝６０ ＩＦ　ＷＥＡＴＨＮＯ＝＝５　ＴＨＥＮ　Ｃ５Ｒ＝０：Ｃ５Ｇ＝０：Ｃ５Ｂ＝１５０ ＩＦ　ＷＥＡＴＨＮＯ＝＝６　ＴＨＥＮ　Ｃ５Ｒ＝０：Ｃ５Ｇ＝０：Ｃ５Ｂ＝０ ＩＦ　ＷＥＡＴＨＮＯ＝＝７　ＴＨＥＮ　Ｃ５Ｒ＝２００：Ｃ５Ｇ＝２００：Ｃ５Ｂ＝５０ ’（フ゜レヒ゛ュ−） ＩＦ　ＴＥＳＴ＝＝１　ＴＨＥＮ　ＣＯＬＳＥＴ　”ＧＲＰ”，１０２，ＨＥＸ＄（Ｃ５Ｒ，２）＋ＨＥＸ＄（Ｃ５Ｇ，２）＋ＨＥＸ＄（Ｃ５Ｂ，２）：ＲＥＴＵＲＮ ’−−−イロセッテイ（１０シンスウ）−−− Ｃ１Ｒ＝３０　：Ｃ１Ｇ＝７５　：Ｃ１Ｂ＝３０　 Ｃ２Ｒ＝６０　：Ｃ２Ｇ＝１００：Ｃ２Ｂ＝６０　 Ｃ３Ｒ＝１００：Ｃ３Ｇ＝２５０：Ｃ３Ｂ＝１００ Ｃ４Ｒ＝６０　：Ｃ４Ｇ＝１５０：Ｃ４Ｂ＝６０　 Ｃ６Ｒ＝２３０：Ｃ６Ｇ＝２３０：Ｃ６Ｂ＝８０ Ｃ７Ｒ＝０　　：Ｃ７Ｇ＝２０　：Ｃ７Ｂ＝２３０ Ｃ８Ｒ＝１００：Ｃ８Ｇ＝１００：Ｃ８Ｂ＝１００ ＳＣ＝１．０　’トウカリツ（０＜Ｓ＜＝１） ’−−−−−−イロサクセイ−−−−−−−− ＦＯＲ　Ｉ＝１　ＴＯ　ＷＯＤ Ｒ１＝Ｃ１Ｒ＋（（Ｃ５Ｒ−Ｃ１Ｒ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｇ１＝Ｃ１Ｇ＋（（Ｃ５Ｇ−Ｃ１Ｇ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｂ１＝Ｃ１Ｂ＋（（Ｃ５Ｂ−Ｃ１Ｂ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｒ２＝Ｃ２Ｒ＋（（Ｃ５Ｒ−Ｃ２Ｒ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｇ２＝Ｃ２Ｇ＋（（Ｃ５Ｇ−Ｃ２Ｇ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｂ２＝Ｃ２Ｂ＋（（Ｃ５Ｂ−Ｃ２Ｂ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｒ３＝Ｃ３Ｒ＋（（Ｃ５Ｒ−Ｃ３Ｒ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｇ３＝Ｃ３Ｇ＋（（Ｃ５Ｇ−Ｃ３Ｇ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｂ３＝Ｃ３Ｂ＋（（Ｃ５Ｂ−Ｃ３Ｂ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｒ４＝Ｃ４Ｒ＋（（Ｃ５Ｒ−Ｃ４Ｒ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｇ４＝Ｃ４Ｇ＋（（Ｃ５Ｇ−Ｃ４Ｇ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｂ４＝Ｃ４Ｂ＋（（Ｃ５Ｂ−Ｃ４Ｂ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｒ６＝Ｃ６Ｒ＋（（Ｃ５Ｒ−Ｃ６Ｒ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｇ６＝Ｃ６Ｇ＋（（Ｃ５Ｇ−Ｃ６Ｇ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｂ６＝Ｃ６Ｂ＋（（Ｃ５Ｂ−Ｃ６Ｂ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｒ７＝Ｃ７Ｒ＋（（Ｃ５Ｒ−Ｃ７Ｒ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｇ７＝Ｃ７Ｇ＋（（Ｃ５Ｇ−Ｃ７Ｇ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｂ７＝Ｃ７Ｂ＋（（Ｃ５Ｂ−Ｃ７Ｂ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｒ８＝Ｃ８Ｒ＋（（Ｃ５Ｒ−Ｃ８Ｒ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｇ８＝Ｃ８Ｇ＋（（Ｃ５Ｇ−Ｃ８Ｇ）／ＷＯＤ）＊Ｉ＊ＳＣ Ｂ８＝Ｃ８Ｂ＋（（Ｃ５Ｂ−Ｃ８Ｂ）／ＷＯＤ）＊Ｉ＊ＳＣ ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊０＋Ｉ，ＨＥＸ＄（Ｒ１，２）＋ＨＥＸ＄（Ｇ１，２）＋ＨＥＸ＄（Ｂ１，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊１＋Ｉ，ＨＥＸ＄（Ｒ２，２）＋ＨＥＸ＄（Ｇ２，２）＋ＨＥＸ＄（Ｂ２，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊２＋Ｉ，ＨＥＸ＄（Ｒ３，２）＋ＨＥＸ＄（Ｇ３，２）＋ＨＥＸ＄（Ｂ３，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊３＋Ｉ，ＨＥＸ＄（Ｒ４，２）＋ＨＥＸ＄（Ｇ４，２）＋ＨＥＸ＄（Ｂ４，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊５＋Ｉ，ＨＥＸ＄（Ｒ６，２）＋ＨＥＸ＄（Ｇ６，２）＋ＨＥＸ＄（Ｂ６，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊６＋Ｉ，ＨＥＸ＄（Ｒ７，２）＋ＨＥＸ＄（Ｇ７，２）＋ＨＥＸ＄（Ｂ７，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊７＋Ｉ，ＨＥＸ＄（Ｒ８，２）＋ＨＥＸ＄（Ｇ８，２）＋ＨＥＸ＄（Ｂ８，２） ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＳＫＹ＿ＥＬ　’ソラ　ＨＤ ＧＦＩＬＬ　０，０，２５５，１９１，ＣＯ５ ＦＯＲ　Ｉ＝ＷＯＤ−２　ＴＯ　１　ＳＴＥＰ　−１ ＧＦＩＬＬ　０，１９１−Ｙ（Ｉ），２５５，１９１，ＷＯＤ＋Ｉ ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＣＲＥＤＩＴ　’クレシ゛ット ＢＧＭＳＴＯＰ　 ＢＥＥＰ　１１：ＬＯＣＡＴＥ　０，２３：ＣＯＬＯＲ　９ ＳＰＣＨＲ　２，９２，４，１，０，０：ＳＰＡＮＩＭ　２，１，１０：ＷＡＩＴ　１０ ＳＰＯＦＳ　２，１２８，−１６，１５ ＲＥＳＴＯＲＥ　＠ＤＡＴＡ＿ＣＲＥ ＦＯＲ　Ｉ＝０　ＴＯ　２２ ＶＳＹＮＣ　２ ＲＥＡＤ　Ａ＄：？　Ａ＄ ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　１１ ＶＳＹＮＣ　２ ＲＥＡＤ　Ａ＄：ＰＮＬＳＴＲ　０，Ｉ，Ａ＄ ＮＥＸＴ ＢＧＭＰＬＡＹ　”：０＠１１Ｔ２４０［Ｅ２ＥＤＥ２ＲＲＤＥＤＣ＞Ｂ２ＲＲ］：１＠１２［ＤＥＣＤ］：２＠１２８［ＣＲＲＲＤＲＲＲ］” ＠ＬＯＯＰ０２ ＩＦ　ＢＵＴＴＯＮ（１）＝＝３２　ＴＨＥＮ　ＢＥＥＰ　４：ＷＡＩＴ　２：ＣＬＳ：ＧＯＴＯ　＠ＴＩＴＬＥＷＲＩＴＥ ＧＯＴＯ　＠ＬＯＯＰ０２ ’─────────────────────────── ’テ゛−タケイトウ ’─────────────────────────── ＠ＤＡＴＡ＿Ｙ　’スウレツ ＤＡＴＡ　０，４２，５３，５８，６１，６３，６４，６５，６５，６６，６７，６８ ’ббб　１−２　−３　−４　−５　−６　−７　−８　−９　−１０ ’−−−−−−− ＠ＤＡＴＡ＿ＴＹ　’タイトルノヤマ ＤＡＴＡ　”　┝┰　　┝┰┝┰　　　　┝┰　　　　　　　┝┰　　┝┰┝┰　　” ＤＡＴＡ　”┝┿┿┰┝┿┿┿┿┰　　┝┿┿┰┝┰　　　┝┿┿┰┝┿┿┿┿┰　” ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┰┝┿┿┿┿┿┿┰　┝┿┿┿┿┿┿┿┿┿┿┰” ＤＡＴＡ　”╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂” ’−−−−−−− ＠ＤＡＴＡ＿Ｃ　’マッフ゜テ゛−タ ’───────────────────────────────────────────────────────────────────────── ’　　　　　　［　ココヲイシ゛ルコトテ゛　マッフ゜ヲヘンコウスルコトカ゛テ゛キマス！　］ ’　　　　　　０−９：チケイ　　┿ウミ　　╂スナハマ　　□ハシ　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ’　　　　　　　　　　СТТТТСТ１０ТСТТТТСТ２０ТСТТТТСТ３０ТСТТТТСТ４０ТСТТТТСТ５０ТСТТТТСТ６０ТСТ│ヘンコウ↓ ’────────────────────────────────────────────────────────────────────────┤フカノウ！ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１┿┿┿１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿１２２１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１２１┿１２１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿１２３３２１┿┿┿┿┿┿１┿┿┿┿┿┿┿１２２１１╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１┿┿┿１┿┿┿┿┿┿┿┿┿╂╂╂╂╂┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿１２２１┿┿┿┿┿┿２１２┿┿┿┿┿１２１１╂┿┿┿┿┿┿┿┿１┿┿┿┿┿┿□□┿┿┿┿┿┿┿┿┿╂╂╂╂╂００╂┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１１╂┿┿┿┿╂１２３２１╂┿┿┿１１╂┿┿┿┿┿┿┿┿┿１２１┿┿┿┿┿□□４┿□┿４□┿□４３２１１００╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿１╂╂┿╂╂１２３４３２１╂╂╂１１┿┿┿┿┿╂╂╂╂┿０１□┿┿□┿┿□□３□□□４□□□３２００００１２１┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１２１╂┿╂００１２３２１０００１２１╂╂╂╂╂╂０００□００□□□□□□□１３□□□□□□□３１０１１１２１┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１１╂０□００００１２１００１１２２１１１００００００１┿１０□□□□□□１２３□□□４３３３４０００００１┿┿１１╂┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１２１０┿┿┿０００１００１２２１１１０００００００１２┿２１０００╂┿┿１２４３□３４２１００１２１０╂┿┿１２１０╂┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿１００００┿┿００００００１１０００００００００１２３┿┿２１００╂┿┿１２２１０１２１００００１０╂┿┿１２２１０╂┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿╂０００００┿┿０００００００００００１１００００１２２┿１０００００００１１０００１００００００╂┿┿┿１１１００１┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂０００００□０１００００００００１２２１１０００１１┿００１００００００００００００００１００╂┿┿┿╂０００１１┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿╂００００┿１２１０００１１１１２３４３２１００００□０１３１１１３２１０００００００１２１０╂┿┿┿╂□╂０１┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿╂１０００┿┿１００１２２２２２１２３４３２１０００┿１３４３２３４３００１００００１２３２１０╂┿┿┿□┿╂┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿３４３３３４０００┿╂０１２３４４３２３４５５４３２１００┿２２２２２２２２２╂２２００００１２１００４４┿┿□┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿３１┿┿１３０００□□１２２２３３２１２３４５４３２００┿┿╂╂１╂╂╂╂╂１╂╂╂２００００１００２３４┿┿□┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿３□□□□３０００╂┿╂１１１２２１０１２３４３２１０┿┿１２╂２１╂１２╂１１１╂１０１１０００１２３４４┿□┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿╂３□□□□３００００┿┿┿┿┿１１┿□□□１２３２１０□╂╂１╂１╂╂╂１╂╂╂╂╂２１２２１０００１２３３╂□╂４┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿╂４□４３３４０００００１１１┿┿┿┿□┿┿┿１２１００┿１╂╂╂╂╂２╂１╂１２１╂２２３４３２１００１２２０００╂┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿╂１□２１００００００００１２１┿┿┿□┿┿１１００００┿１３３３３３３╂２１╂２１╂２３４５４３２１０００１０００╂┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿╂╂１００００１０００００００１０００００００００００┿┿１１１╂╂╂╂╂╂╂１╂╂３４５６５４３２１０００００╂┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿╂０００３０３２０００００００００００００００００００┿┿┿１３□３３３３３３□３３３４５６５４３２１００１╂┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂００１０１２１００００００００００００００１１００００┿┿┿□╂╂┿┿┿┿□┿１２３４５４３２１００１２１┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂００３０３１００００１０００００１０００１２２１１００００┿□┿┿┿┿┿┿□┿┿１２３４３２１００１２３２１┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿□□□□０００００００１１２１０００１２１０１２２３２０００００００┿┿┿┿┿┿０┿┿┿１２３２１００１２３４３２１┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿╂０００００┿┿┿１０００００１１００１２４３╂３４０００００００┿┿００２１┿┿１２１００００１２３２１┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿□┿┿┿□┿┿００００００００１２１╂１２３┿□┿３１１１１０００００００１００００１００００００１２１┿┿┿╂０┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿╂╂１１００００００１１１００１２╂╂╂３３３□□□３４３３２１００００００００００００００００１００１┿┿┿╂０１┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂╂１２２１１１００１２３２１１２３╂２３３４４□□□４５３３３２２１０００００００００００００１２１０□□□□□０１┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿╂╂１２３４３３２１１３３４３３２２３╂３２３３２３４５６５４３２２１００００００１１０１１０１０１１╂╂┿┿┿┿┿╂┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿╂１╂３４４５４４３２３３４５５４３３３□３１２２╂２３４５４３２１１００００００１２２１２２１２１１╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿╂１２╂４５５４４５４３４４５６６５４３２□┿┿１１┿１２３４３２２１００００００１２３３２３２２２１╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿╂１２╂╂５５４３３４５４４５６６５４３２１□┿┿┿┿┿┿１２３２２１００１００００２３４４３２１１１０╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿１２╂╂５５４３２３４４５６７６５４３２１┿□┿┿┿┿┿┿┿１２２１００１２１１１０１２３２２１□□□□□□┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿１２╂４５４３２１２３４５６５４３２１┿┿┿□□□□□□□□╂╂╂╂０２３２１１┿□┿┿┿┿┿┿□┿┿┿┿３┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿╂１╂３４３２１１１２３４５４３２１┿┿┿┿┿┿┿□┿┿┿┿┿┿┿□┿┿┿┿┿┿┿００００００□□╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿╂１╂２３２１００１１２３４３２１０╂┿┿┿┿┿┿□┿┿┿╂１２１╂╂╂１１２２１１０００００□□╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿╂╂１２１００１２２１２３２１０００╂╂╂╂┿┿□┿┿╂╂１２２１００００１１０００００１１□□□□□□□□□□□╂┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿╂╂１００００１１０１１１０００１１００╂╂╂╂╂╂╂１２３２１１００００００００１１２２１１□□□□□□□□□╂┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿╂╂００００００００００００１２３２１００１２２２１２３４３２１０００２２００１１２３３２１╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿╂００００┿┿００１１２２３２１００１２１１╂╂╂╂╂╂╂╂０００２２０００１１２２１╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿１１０００┿┿００１２２３３２１０００１１０╂╂１２３４３２１０００００００００１１╂╂╂┿┿┿┿┿５┿┿┿５┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿１２２１０００００００１１２２１００００００００１２３４５４３２１０００╂╂╂╂╂╂╂╂┿┿┿┿┿┿┿╂┿┿┿╂┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿１２２１１０００００００１１００００００００１２３４５５３２１００╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿１１１２１０００００００００００００００００１２３４４１１０╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿１２３２１０００１１１００１１１００╂╂╂╂╂╂０１２１╂╂╂┿┿┿┿┿┿┿┿┿┿╂╂╂╂╂╂□□┿┿┿□□┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿７┿１２７３２１００１２３２１１２１１╂╂┿┿┿┿┿╂╂□╂┿┿┿┿┿┿┿┿┿┿┿┿┿╂０００００２□□□□□□□╂┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５４４４４４５１┿□┿１１２３２２３２１╂┿┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿┿┿╂１００００２３２２□□□２２╂┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５１□１□１５０００┿┿┿┿┿┿１２１１╂╂┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿┿╂１２１００２３４３３□□□３３╂┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５３□□□３５０００１╂╂╂╂┿┿┿┿１１╂┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿╂１２３２１００２３２２□□□２２╂┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５┿┿□┿┿５００１２１０００╂╂╂┿┿┿╂┿┿┿┿┿┿┿□┿┿┿┿４１１┿┿┿┿１２３４３２１０１２１１□□□１１╂┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５┿┿□┿┿５０００１００００１００╂╂┿┿┿┿┿┿┿┿９□９┿┿┿┿┿┿┿┿┿┿╂１２３２１０００１０００００００╂┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５４３╂３４５０００００１０００００００╂╂┿┿┿┿┿┿┿□┿┿┿３┿┿┿３┿┿┿┿╂００００００００００００００１╂┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿╂０００００００００１２１１２１０００００□□□□□□□□□□□□□□□□□□□□□□０００１００００００００１２１┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂□□□□□□□□□３２２３２１０００╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿╂╂╂１２１╂╂□╂╂╂╂╂１┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿□┿┿┿┿┿□□□╂╂╂２２２１０╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１┿７┿□┿７┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿１┿□┿┿┿┿┿□□□３╂╂３２１╂╂┿┿┿┿┿┿┿┿╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿５４４□４４５┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１２１╂┿┿┿┿┿┿┿┿╂╂╂╂┿┿┿┿┿┿┿┿┿┿┿１２╂２１┿┿┿┿４１４┿┿┿┿┿┿┿┿┿４┿┿□┿┿４┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿１２１╂╂１┿┿┿┿┿┿┿┿┿╂╂╂┿┿┿┿┿┿┿┿┿１２３╂３２１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿４□□□□□４┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１╂╂１２１┿┿┿┿┿┿┿┿┿╂╂╂┿┿□□□╂╂１２３２╂２１╂┿┿１┿┿┿１┿┿┿┿┿┿┿┿４┿┿□┿┿４┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂╂１┿┿┿┿┿┿┿┿┿┿╂╂╂╂□□┿┿┿╂╂１２１╂╂╂╂□□□□□□□┿┿┿┿┿┿┿┿５２１╂１２５┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿╂╂╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿２┿╂╂╂┿２┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１┿┿┿┿┿１┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ’ヘンコウフカノウ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ’───────────────────────────────────────────────────────────────────────── ＠ＤＡＴＡ＿ＣＲＥ　’クレシ゛ットテ゛−タ ＤＡＴＡ　”　──────────────────────────────” ＤＡＴＡ　”　┿╂　ハ゛−　シ゛ョ　ン　リ　レ　キ　（Бテ゛モト゛ル）╂┿” ＤＡＴＡ　”　──────────────────────────────” ＤＡＴＡ　”　Ｖｅｒｓｉｏｎ　УＤｅｔａｉｌ　　　　　　　　　　　　　　　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−０　　　　Уチョクホウタイヲカコウトスルカ゛シッハ゜イ” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−１　　　　Уチョクホウタイカ゛カケルヨウニナル　　　　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−３　　　　Уフクスウクミアワセ、チケイサクセイカノウニ” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−４　　　　Уシュシ゛ンコウノイト゛ウカ゛カノウニナル　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−５−１．０Уタイトルカ゛メンカ゛シ゛ッソウサレル　　　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−５−２．０Уヒ゛ョウカ゛ソクト゛カ゛３ハ゛イニアッフ゜” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−６　　　　УＢＧＭ、セッテイモ−ト゛ヲシ゛ッソウ　　　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−７　　　　Уカ゛メンニマッフ゜トハンテイヲシ゛ッソウ　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−８　　　　Уオフ゛シ゛ェクトヲオオハハ゛カクチョウ　　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−９−１．０Уタイトルメニュ−トヘンシュウヲツカイヤスク” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−９−２．０Уソラノイロヲヘンコウスルキノウヲツイカ　　” ＤＡＴＡ　”　┿┿ＮＯＷ┿┿┿СТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−９−４．０Уイト゛ウホウシキカ゛エラヘ゛ルヨウニナル　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　　　　　　　　　У” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　　　　　　　　　У　　（Бテ゛モト゛ル）” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＠ＳＥＴＥＸＡ　’セツメイ ＤＡＴＡ　”フ゛ロックノオオキサヲ　カエルコトカ゛テ゛キマス。” ＤＡＴＡ　”” ＤＡＴＡ　”ＯＮニスルト、ヨリリアルナケシキニテ゛キマス。” ＤＡＴＡ　”” ＤＡＴＡ　”トオクノモノヲカクトキ、ハ゛ク゛ヲヘラシマス。” ＤＡＴＡ　”” ＤＡＴＡ　”カ゛メンニフ゜レイヤ−キャラヲハイチシマス。” ＤＡＴＡ　”ＴＹＰＥ１：センヨウキャラкＴＹＰＥ２：フ゜リセット” ＤＡＴＡ　”ソラノイロヲ　カエルコトカ゛テ゛キマス” ＤＡＴＡ　”（コウカ゛シツモ−ト゛ヲＯＮニシナイト　ツカエマセン）” ＤＡＴＡ　”ワイヤ−フレ−ムッホ゜イカンシ゛ニヒ゛ョウカ゛シマス。” ＤＡＴＡ　”（コウソクヒ゛ョウカ゛ヲＯＮニスルトシヨウテ゛キマセン。）” ＤＡＴＡ　”カンコウヲ　ハシ゛メマス。” ＤＡＴＡ　”イッテラッシャイ！” ＤＡＴＡ　”チス゛シ゛ョウノ　スキナテンカラシュッハ゜ツテ゛キマス。” ＤＡＴＡ　”サ゛フ゛ンテ゛マワリタイ　ヒトニハ　オススメ　シマセン。” ＤＡＴＡ　”” ＤＡＴＡ　”” ＠ＳＫＹＣＯＬＯＲ　’ソラノイロ ＤＡＴＡ　”０”，”アサ” ＤＡＴＡ　”０”，”カイセイ” ＤＡＴＡ　”０”，”クモリ” ＤＡＴＡ　”０”，”キリ” ＤＡＴＡ　”０”，”ユウカ゛タ” ＤＡＴＡ　”０”，”ヨル” ＤＡＴＡ　”０”，”ヤミ” ＤＡＴＡ　”０”，”コウサ” ＠ＤＡＴＡ＿ＯＰＥ　’オヘ゜レ−ションアイコン ＤＡＴＡ　”●　１フ゛ロックアタリノ　オオキサ　： ＤＡＴＡ　”●　コウカ゛シツヒ゛ョウカ゛ノシヨウ： ＤＡＴＡ　”●　コウソクヒ゛ョウカ゛ノサイヨウ　： ＤＡＴＡ　”●　キャラクタ−ノ　ハイチ　　　　　： ＤＡＴＡ　”●　オ　テ　ン　キ　　　　　　　　　： ＤＡＴＡ　”●　ワイヤ−フレ−ムノ　サイヨウ　　： ＤＡＴＡ　”●　コノセッテイテ゛カンコウヲハシ゛メル　● ＤＡＴＡ　”●スタ−トイチヲキメテカンコウヲハシ゛メル● ＤＡＴＡ　”” ＤＡＴＡ　”” ＠ＤＡＴＡ＿ＯＰＥＰ　’オヘ゜レ−ションアイコン ＤＡＴＡ　”┌─────────┐” ＤＡＴＡ　”│　　↓オクヘ　　　│” ＤＡＴＡ　”│　　┿　　　　　　│” ＤＡＴＡ　”│→┿┿┿←サユウヘ│” ＤＡＴＡ　”│　　┿　　　　　　│” ＤＡＴＡ　”│　　↑テマエヘ　　│” ＤＡＴＡ　”│─────────│” ＤＡＴＡ　”│┿　ＴＹＰＥ１　┿│” ＤＡＴＡ　”│┿カイテン　ナシ┿│” ＤＡＴＡ　”└─────────┘” ＤＡＴＡ　”┌─────────┐” ＤＡＴＡ　”│　　↓セ゛ンシン　│” ＤＡＴＡ　”│　　┿　　　　　　│” ＤＡＴＡ　”│→┿┿┿←カイテン│” ＤＡＴＡ　”│　　┿　　　　　　│” ＤＡＴＡ　”│　　↑コウタイ　　│” ＤＡＴＡ　”│─────────│” ＤＡＴＡ　”│┿　ＴＹＰＥ２　┿│” ＤＡＴＡ　”│┿カイテン　アリ┿│” ＤＡＴＡ　”└─────────┘” ’─────────────────────────── ＠ＴＥＬＥＰＯＲＴ ＣＬＳ：ＢＧＭＳＴＯＰ：ＣＯＬＯＲ　０：Ａ＄＝”” ？”スタ−トスルイチヲ　キメテクタ゛サイ” ＢＧＰＡＧＥ　０：ＢＥＥＰ　３４ ＢＧＦＩＬＬ　０，０，０，３２，２，７０９，９，０，０ ＲＥＳＴＯＲＥ　＠ＤＡＴＡ＿Ｃ ＦＯＲ　Ｙ＝０　ＴＯ　６３ ＲＥＡＤ　Ａ＄ ＦＯＲ　Ｘ＝０　ＴＯ　６３ Ｂ＄＝ＭＩＤ＄（Ａ＄，Ｘ，１） Ｈ＝ＶＡＬ（Ｂ＄） ＩＦ　Ｈ＝＝０　ＴＨＥＮ　ＢＧＡ＝３２：Ｃ＝８ ＩＦ　Ｈ＞＝１　ＴＨＥＮ　ＢＧＡ＝５７：Ｃ＝８ ＩＦ　Ｈ＞＝３　ＴＨＥＮ　ＢＧＡ＝５６：Ｃ＝８ ＩＦ　Ｈ＞＝５　ＴＨＥＮ　ＢＧＡ＝１３：Ｃ＝８ ＩＦ　Ｂ＄＝＝”╂”　ＴＨＥＮ　ＢＧＡ＝６　　：Ｃ＝８ ＩＦ　Ｂ＄＝＝”┿”　ＴＨＥＮ　ＢＧＡ＝３２０：Ｃ＝５ ＩＦ　Ｂ＄＝＝”□”　ＴＨＥＮ　ＢＧＡ＝５９０：Ｃ＝１１ ＢＧＰＵＴ　１，Ｘ，Ｙ，ＢＧＡ，Ｃ，０，０ ＮＥＸＴ ＮＥＸＴ ＠ＢＧＳＥＬＥＣＴ ＳＰＳＥＴ　１，６８，４，０，０，２ ＳＰＨＯＭＥ　１，８，８ ＭＳ＝２：ＡＸ＝１２０：ＡＹ＝８０ ＡＭ＝８　’イト゛ウワクノ　セッテイ ＡＸＭ＝２５５−ＡＭ＊８ ＡＹＭ＝１９１−ＡＭ＊８ ＡＸＳ＝ＡＭ＊８：ＡＹＳ＝ＡＭ＊８：ＷＡＩＴ　３０ ＢＧＭＰＬＡＹ　”＠４：０［ＤＥＧＦＣ２ＲＲ］：１＠１２８［＞ＤＣ＜ＲＲＧＦＲＲ］：２＠１１＞［Ｂ１＜Ｃ２ＲＲ］ ’─────────────────────────── ＠ＭＡＩＮＬＯＯＰ ＶＳＹＮＣ　１ ＧＯＳＵＢ　＠ＭＹＭＯＶＥ ＧＯＳＵＢ　＠ＯＢＪＯＦＳ ＧＯＳＵＢ　＠ＯＢＪＣＨＫ ＧＯＴＯ　＠ＭＡＩＮＬＯＯＰ ’─────────────────────────── ＠ＭＹＭＯＶＥ　’シ゛キノ　イト゛ウ Ｂ＝ＢＵＴＴＯＮ（０） ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＡＹ＝ＡＹ−ＭＳ ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＡＹ＝ＡＹ＋ＭＳ ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＡＸ＝ＡＸ−ＭＳ ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＡＸ＝ＡＸ＋ＭＳ ＩＦ　Ｂ　＝＝　１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＯＢＪＣＨＫ２ ＩＦ　Ｂ　＝＝　３２　ＴＨＥＮ　ＢＥＥＰ　４：ＧＯＳＵＢ　＠ＴＩＴＬＥＷＲＩＴＥ ＩＦ　ＡＹ＜ＡＹＳ　ＴＨＥＮ　ＡＹ＝ＡＹ＋ＭＳ：ＢＧＹ＝ＢＧＹ−ＭＳ：ＢＰＹ＝ＢＰＹ−ＭＳ ＩＦ　ＡＹ＞ＡＹＭ　ＴＨＥＮ　ＡＹ＝ＡＹ−ＭＳ：ＢＧＹ＝ＢＧＹ＋ＭＳ：ＢＰＹ＝ＢＰＹ＋ＭＳ ＩＦ　ＡＸ＜ＡＸＳ　ＴＨＥＮ　ＡＸ＝ＡＸ＋ＭＳ：ＢＧＸ＝ＢＧＸ−ＭＳ：ＢＰＸ＝ＢＰＸ−ＭＳ ＩＦ　ＡＸ＞ＡＸＭ　ＴＨＥＮ　ＡＸ＝ＡＸ−ＭＳ：ＢＧＸ＝ＢＧＸ＋ＭＳ：ＢＰＸ＝ＢＰＸ＋ＭＳ ＩＦ　ＢＧＹ＜０　　　ＴＨＥＮ　ＢＧＹ＝０　　：ＡＹ＝ＡＹ−ＭＳ ＩＦ　ＢＧＹ＞３２８　ＴＨＥＮ　ＢＧＹ＝３２８：ＡＹ＝ＡＹ＋ＭＳ ＩＦ　ＢＧＸ＜０　　　ＴＨＥＮ　ＢＧＸ＝０　　：ＡＸ＝ＡＸ−ＭＳ ＩＦ　ＢＧＸ＞２５５　ＴＨＥＮ　ＢＧＸ＝２５５：ＡＸ＝ＡＸ＋ＭＳ ＩＦ　ＡＸ＜０　　　ＴＨＥＮ　ＡＸ＝０ ＩＦ　ＡＸ＞２５５　ＴＨＥＮ　ＡＸ＝２５５ ＩＦ　ＡＹ＜０　　　ＴＨＥＮ　ＡＹ＝０ ＩＦ　ＡＹ＞１９１　ＴＨＥＮ　ＡＹ＝１９１ ＭＸ＝ＢＧＸ＋ＡＸ：ＭＹ＝ＢＧＹ＋ＡＹ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＯＢＪＯＦＳ　’オフ゛シ゛ェクトノイト゛ウ ＢＧＯＦＳ　１，ＢＧＸ，ＢＧＹ ＳＰＯＦＳ　１，ＡＸ，ＡＹ ＬＯＣＡＴＥ　０，２：？”（”；ＦＬＯＯＲ（ＭＸ／８）；”，”；ＦＬＯＯＲ（ＭＹ／８）；”）” ＲＥＴＵＲＮ ’─────────────────────────── ＠ＯＢＪＣＨＫ　’オフ゛シ゛ェクトノサイシュウカクニン　 ＢＧＲＥＡＤ（１，ＭＸ／８，ＭＹ／８），ＣＲ，Ｉ，Ｉ，Ｉ ＬＯＣＫ＝１：ＥＬ＝０ ＣＯＬＯＲ　４：ＬＯＣＡＴＥ　０，１：？”　Аテ゛スタ−トテ゛キマス　　　　　　　　　　　　　　”：ＣＯＬＯＲ　０ ＩＦ　ＭＸ＜０　　ＴＨＥＮ　ＥＬ＝１ ＩＦ　ＭＸ＞６３＊８　ＴＨＥＮ　ＥＬ＝１ ＩＦ　ＭＹ＜０　　ＴＨＥＮ　ＥＬ＝１ ＩＦ　ＭＹ＞６３＊８　ＴＨＥＮ　ＥＬ＝１ ＩＦ　ＣＲ＝＝３２　ＴＨＥＮ　ＬＯＣＫ＝０ ＩＦ　ＣＲ＝＝６　　ＴＨＥＮ　ＬＯＣＫ＝０ ＩＦ　ＣＲ＝＝５９０ＴＨＥＮ　ＬＯＣＫ＝０ ＩＦ　ＬＯＣＫ＝＝１　ＴＨＥＮ　ＬＯＣＡＴＥ　０，１：ＣＯＬＯＲ　７　：？”ソコカラスタ−トスルコトハ　テ゛キマセン！”：ＣＯＬＯＲ　０ ＩＦ　　　ＥＬ＝＝１　ＴＨＥＮ　ＬＯＣＡＴＥ　０，１：ＣＯＬＯＲ　１３：？”ソコハ　ケンカ゛イテ゛ス！！　　　　　　　”：ＣＯＬＯＲ　０ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＯＢＪＣＨＫ２　’オフ゛シ゛ェクトノサイシュウカクニン　 ＩＦ　ＥＬ＝＝１　ＴＨＥＮ　ＬＯＣＫ＝１ ＩＦ　ＬＯＣＫ＝＝０　ＴＨＥＮ　ＳＥＴＰ＝１：ＭＸ＝ＦＬＯＯＲ（ＭＸ／８）：ＭＹ＝ＦＬＯＯＲ（ＭＹ／８）：ＧＯＴＯ　＠ＩＮＩＴ＿２ ＢＥＥＰ　１ ＲＥＴＵＲＮ ’─────────────────────────── ’ハ゛−シ゛ョンアッフ゜フ゜ロク゛ラム ’ＡＰＰＥＮＤ　シタママナノハ　カンヘ゛ンシテクタ゛サイ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠Ｇ＿ＳＰＩＮ０　’ウエホウコウヨミトリ 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　ＷＯ：ＣＺ＄（Ｉ）＝””：ＮＥＸＴ 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　ＭＹ−ＷＯ−１：ＲＥＡＤ　Ａ＄：ＮＥＸＴ 　　　　ＦＯＲ　Ｉ＝−１　ＴＯ　ＷＯ 　　　　ＲＥＡＤ　Ａ＄：ＣＺ＄（ＷＯ−Ｉ）＝ＭＩＤ＄（Ａ＄，ＭＸ−ＦＬＯＯＲ（Ｗ／２），Ｗ） 　　　　ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠Ｇ＿ＳＰＩＮ１　’ミキ゛ホウコウヨミコミ 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　ＭＹ−ＦＬＯＯＲ（Ｗ／２）−１：ＲＥＡＤ　Ａ＄：ＮＥＸＴ 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　Ｗ−１ 　　　　ＲＥＡＤ　Ａ＄：ＣＣ＄（Ｉ）＝ＭＩＤ＄（Ａ＄，ＭＸ−１，ＷＯ＋１） 　　　　ＮＥＸＴ ’−−−モシ゛レツハンテンタテワリショリ−−− 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　ＷＯ：ＣＺ＄（Ｉ）＝””：ＮＥＸＴ 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　ＷＯ 　　　　　　　　ＦＯＲ　Ｉ２＝０　ＴＯ　Ｗ−１　ＳＴＥＰ　１ 　　　　　　　　Ａ＄＝ＭＩＤ＄（ＣＣ＄（Ｉ２），Ｉ，１） 　　　　　　　　ＣＺ＄（Ｉ）＝ＣＺ＄（Ｉ）＋Ａ＄ 　　　　　　　　ＮＥＸＴ 　　　　ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠Ｇ＿ＳＰＩＮ２　’シタホウコウヨミトリ 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　ＷＯ：ＣＺ＄（Ｉ）＝””：ＮＥＸＴ 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　ＭＹ−２：ＲＥＡＤ　Ａ＄：ＮＥＸＴ 　　　　ＦＯＲ　Ｉ＝１　ＴＯ　ＷＯ＋１ 　　　　ＲＥＡＤ　Ａ＄：ＣＣ＄（Ｉ−１）＝ＭＩＤ＄（Ａ＄，ＭＸ−ＦＬＯＯＲ（Ｗ／２），Ｗ） 　　　　ＮＥＸＴ Ｉ＝ＷＯ ＠Ｇ＿Ｓ＿０ 　Ｂ＄＝ＣＣ＄（Ｉ）：ＧＯＳＵＢ　＠ＬＣＴＵＲＮ 　ＣＺ＄（Ｉ）＝Ｃ＄ 　Ｉ＝Ｉ−１ ＩＦ　Ｉ＞＝０　ＴＨＥＮ　ＧＯＴＯ　＠Ｇ＿Ｓ＿０ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠Ｇ＿ＳＰＩＮ３　’ヒタ゛リホウコウヨミトリ 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　ＭＹ−ＦＬＯＯＲ（Ｗ／２）−１：ＲＥＡＤ　Ａ＄：ＮＥＸＴ 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　Ｗ−１ 　　　　ＲＥＡＤ　Ａ＄ 　　　　ＩＦ　ＭＸ−ＷＯ＋１＜０　ＴＨＥＮ　ＢＥＥＰ　３０：ＣＣ＄（Ｉ）＝”０”　ＥＬＳＥ　ＣＣ＄（Ｉ）＝ＭＩＤ＄（Ａ＄，ＭＸ−ＷＯ＋１，ＷＯ＋１） 　　　　ＮＥＸＴ ’−−−モシ゛レツハンテンタテワリショリ−−− 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　ＷＯ：ＣＺ＄（Ｉ）＝””：ＮＥＸＴ 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　ＷＯ 　　　　　　　　ＦＯＲ　Ｉ２＝Ｗ−１　ＴＯ　０　ＳＴＥＰ　−１ 　　　　　　　　Ａ＄＝ＭＩＤ＄（ＣＣ＄（Ｉ２），Ｉ，１） 　　　　　　　　ＣＺ＄（ＷＯ−Ｉ）＝ＣＺ＄（ＷＯ−Ｉ）＋Ａ＄ 　　　　　　　　ＮＥＸＴ 　　　　ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＬＣＴＵＲＮ　’モシ゛レツハンテン ＬＣＣ＝ＬＥＮ（Ｂ＄）：Ｃ＄＝”” ＦＯＲ　ＩＫ＝ＬＣＣ　ＴＯ　０　ＳＴＥＰ　−１ Ｃ＄＝Ｃ＄＋ＭＩＤ＄（Ｂ＄，ＩＫ，１） ＮＥＸＴ ＲＥＴＵＲＮ ’─────────────────────────── ＠Ｇ＿ＷＲＩＴＥＰＲＥ ＩＬＯ＝０　’ヒ゛ョウカ゛カイスウ ＳＸ＝ＦＬＯＯＲ（Ｗ／２）　’ヒ゛ョウカ゛キテン Ｘ＝ＳＸ　　　’　　　　ハンエイ　　　│ Ｙ＝ＷＯ　　　’┝──────────┘ ＬＡＳＴ＝０　’サイシュウキ゛ョクヲシメス ＥＮＤＥＲ＝０ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠Ｇ＿ＷＲＩＴＥＬＯＯＰ　’ＧＲＰＬＯＯＰノタ゛イタイ ＧＯＳＵＢ　＠Ｇ＿ＧＲＰＤＥＣＤ ＧＯＳＵＢ　＠Ｇ＿ＤＥＦＦＵＮＣ ＩＦ　ＥＮＤＥＲ＝＝１　ＴＨＥＮ　ＲＥＴＵＲＮ ＧＯＴＯ　＠Ｇ＿ＷＲＩＴＥＬＯＯＰ ’─────────────────────────── ＠Ｇ＿ＧＲＰＤＥＣＤ　’カクサ゛ヒョウセイテイ Ｘ１＝Ｘ：Ｙ１＝Ｙ Ａ＝ＦＬＯＯＲ（Ｗ／２）＋Ｘ１ ＩＦ　Ａ＜＝−１　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　Ｙ＜＝−１　ＴＨＥＮ　ＲＥＴＵＲＮ Ａ＄＝ＭＩＤ＄（ＣＺ＄（Ｙ１），Ａ，１） ＩＦ　Ａ＄＝＝”−”　ＴＨＥＮ　ＲＥＴＵＲＮ Ｈ＝ＶＡＬ（Ａ＄） ’−−↓−− ＧＯＳＵＢ　＠ＳＱＷＲＩＴＥ ’−−↑−− ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠Ｇ＿ＤＥＦＦＵＮＣ　’ヘンスウヲ　ソウサ ＩＬＯ＝ＩＬＯ＋１ ＩＦ　ＩＬＯ％２＝＝０　ＴＨＥＮ　Ｓ＝１ ＩＦ　ＩＬＯ％２＝＝１　ＴＨＥＮ　Ｓ＝０ ＩＦ　Ｘ＝＝０　ＴＨＥＮ　Ｙ＝Ｙ−１：ＩＬＯ＝０：Ｘ＝ＳＸ＊−１ ＩＦ　Ｙ＝＝０　ＴＨＥＮ　ＬＡＳＴ＝１ ＩＦ　Ｙ＜０　　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｇ＿ＣＯＰＹＥＮＤ：ＲＥＴＵＲＮ ＩＦ　Ｓ＝＝０　ＴＨＥＮ　Ｘ＝Ｘ＊−１　　　　　’＋→− ＩＦ　Ｓ＝＝１　ＴＨＥＮ　Ｘ＝（Ｘ＋１）＊−１　’−→＋ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠Ｇ＿ＣＯＰＹＥＮＤ　’コヒ゜−シテシュウリョウ ＥＮＤＥＲ＝１ ＧＰＡＧＥ　０，０，３：ＦＰＳ＝ＭＡＩＮＣＮＴＬ−ＣＮＴ ＲＥＴＵＲＮ ’───────────────────────────

+

旧バージョンを開く

’─────────────────────────── ’　　┼┼┿┿┿　┏╋━┻　┛○┗　┏　　　┏┏━　┓　 ’　　││ＹＭ８　　┨　┻　┛┗┏┣━┛┛┛┏┣━┨　　 ’　й││┐　　　┗　┫┻　┫　┗　　┠┠━┳━┃┻　　 ’к┌┼┼┐л　　フ゜ロク゛ラムニ　チュウイ！！！　　　 ’з└└┼┘и　　キワメテサ゛ツナフ゛フ゛ンヤ　ムリヤリ ’лййййк　　ナフ゛フ゛ンカ゛アリマス。スミマセン。 ’─────────────────────────── ＡＣＬＳ：ＣＬＥＡＲ：ＣＯＬＯＲ　０ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＢＧＰＡＧＥ　１ ＢＧＦＩＬＬ　１，０，０，３２，２３，１５，１，０，０ ＢＧＦＩＬＬ　１，０，１３，３２，２３，７０９，８，０，０ ＢＲＥＰＥＡＴ　０，３０，５ ＢＲＥＰＥＡＴ　１，３０，５ ＢＲＥＰＥＡＴ　２，３０，５ ＢＲＥＰＥＡＴ　３，３０，５ ＠ＴＩＴＬＥＷＲＩＴＥ ＢＧＰＡＧＥ　０：ＢＧＣＬＲ　１：ＢＧＣＬＲ　０：ＢＧＰＡＧＥ　１：ＳＰＣＬＲ　０：ＣＬＳ ＬＯＣＡＴＥ　０，１０：ＣＯＬＯＲ　０ ’−−−−−−タイトル−−−−− ？”　┰　┝├┬┐┌─┐　サンカ゛クカンコウソフト　シケンハ゛ン” ？”　┥│┸│││├─┤　　　ＶＥＲ．Ｂｅｔａ−８−２．１　　　” ？”　　┴─┘└└┴─┘　ＤＥＶＥＬＯＰＥＤ　ＢＹ　●ＣＲＴ●　” ？”　　Ｙ　　Ｍ　　８　　　　　　　　　　　　　　　　　　　　　” ＢＧＭＰＬＡＹ　”Ｔ２４０：０＠１２８［ＡＤＡＤ］：１Ｖ８０＠１２８［ＣＣＧ］ ＬＯＣＡＴＥ　８，１６：？”А：カンタンモ−ト゛テ゛ハシ゛メル” ＬＯＣＡＴＥ　８，１７：？”Б：セッテイコ゛ニハシ゛メル” ＬＯＣＡＴＥ　８，１８：？”Ф：ヤッハ゜リ　ハシ゛メナイ” ＣＯＬＯＲ　５：Ａ＝０ ＠ＳＴＡＲＴ Ａ＝Ａ＋１：ＩＦ　Ａ＞２０＊１０　ＴＨＥＮ　Ａ＝０ ＶＳＹＮＣ　１：Ｂ＝ＢＵＴＴＯＮ（１） ＩＦ　Ｂ＝＝６４　ＴＨＥＮ　ＢＥＥＰ　４：ＢＧＭＳＴＯＰ　：ＥＮＤ ＩＦ　Ｂ＝＝３２　ＴＨＥＮ　ＳＥＴ＝１：ＧＯＴＯ　＠ＩＮＩＴ ＩＦ　Ｂ＝＝１６　ＴＨＥＮ　ＳＥＴ＝０：ＧＯＴＯ　＠ＩＮＩＴ ＩＦ　Ｂ＝＝２５６　ＴＨＥＮ　ＧＯＴＯ　＠ＴＥＬＥＰＯＲＴ ＩＦ　Ｂ＝＝１０２４　ＴＨＥＮ　ＧＯＴＯ　＠ＣＲＥＤＩＴ ＩＦ　Ａ％１０＝＝０　ＴＨＥＮ　ＲＥＳＴＯＲＥ　＠ＤＡＴＡ＿ＴＹ：ＦＯＲ　Ｉ＝０　ＴＯ　３：ＲＥＡＤ　Ａ＄：ＬＯＣＡＴＥ　１０，Ｉ＋４：？　ＭＩＤ＄（Ａ＄，Ａ／１０，１２）：ＮＥＸＴ ＧＯＴＯ　＠ＳＴＡＲＴ ’−−−−−−−−−−−−−−− ＠ＩＮＩＴ ＢＧＰＡＧＥ　０：ＢＧＣＬＲ　１：ＢＧＣＬＲ　０：ＢＧＰＡＧＥ　１：ＳＰＣＬＲ　０：ＣＬＳ ＬＯＣＡＴＥ　０，１８ ＢＧＭＳＴＯＰ　：ＢＥＥＰ　３８ ＦＲＡＭＥ＝０　’←コレヲ１ニスルト．．． ’−−−ハイレツセンケ゛ン−−− ＷＯＤ＝１３　’オクユキハハ゛タ゛ンスウケ゛ンカイ ＤＩＭ　Ｘ（ＷＯＤ）　’｛０，Ｙ（ｎ）｝ノトキノ　 ＤＩＭ　Ｙ（ＷＯＤ）　’１マスノナカ゛サ：Ｌ（ｎ） ＤＩＭ　Ｌ（ＷＯＤ）　’Ｘサ゛ヒョウ　　：Ｘ（ｎ） ＤＩＭ　ＣＺ＄（１００）’フウケイヨミコミシテン　 ’−−−カラ−ケッテイ−−−−− ’　　　　　［Ｃ２］　　　　　　 ’　　　　　　ウエ　　　　　　　 ’ヒタ゛リ┝╂╂╂┰　ミキ゛　　 ’［Ｃ３］┿╂╂╂┿［Ｃ１］　　 ’　　　　┿╂╂╂┿　　　　　　 ’　　　　　　マエ　　　　　　　 ’　　　　　［Ｃ４］　　　　　　 ＣＯＬＳＥＴ　”ＧＲＰ”，１０１，”００８８ＦＦ” ＦＯＲ　Ｉ＝１　ＴＯ　５０：Ａ＄＝ＨＥＸ＄（Ｉ，２）＋ＨＥＸ＄（Ｉ＊５，２）＋ＨＥＸ＄（Ｉ＊２，２）：ＣＯＬＳＥＴ　”ＧＲＰ”，Ｉ，Ａ＄：ＮＥＸＴ ’−−−−−−−−−−−−−−− ’１−４：フ゛ロック　５：ソラ　６：スナ　７：ウミ ＣＯ１＝１５：ＣＯ２＝２０　　’＜＜ ＣＯ３＝５０：ＣＯ４＝３０　　’＜＜ ＣＯ５＝１０１：ＣＯ６＝７７　’＜＜ ＣＯ７＝２４２：ＣＯ８＝２５１’＜＜ ？””：？”” ＩＦ　ＳＥＴ＝＝１　ＴＨＥＮ　ＰＲＩＮＴ　”（クウキエンキンホウカ゛サイヨウサレマス） ＩＦ　ＳＥＴ＝＝１　ＴＨＥＮ　ＩＮＰＵＴ　”コウカ゛シツヒ゛ョウカ゛ヲ　シマスカ（ＹＥＳ：１）”；ＨＵＬＬＨＤ ＩＦ　ＨＵＬＬＨＤ＞１　ＴＨＥＮ　ＨＵＬＬＨＤ＝０ ＩＦ　ＨＵＬＬＨＤ＝＝ＴＲＵＥ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＬＳＥＴＨＤ ’─────────────── ’−−−ヘンスウセツメイ−−−− ’（ＣＸ，ＣＹ）：ショウシツテン ’（Ｘ１，Ｙ１）：サ゛ヒョウ　　 ’Ｌ：１フ゛ロックノハハ゛　　　 ’（ＭＸ，ＭＹ）：シ゛フ゛ンイチ ’ＷＯ：シカイノオクユキ　　　　 ’Ｗ　：シカイノハハ゛　　　　　 ’−−−−−−−−−−−−−−− ＣＸ＝１２８：ＣＹ＝８０　’＜＜ Ｌ＝８０　　　　　　　　　’＜＜ ＩＦ　ＳＥＴＰ＝＝０　ＴＨＥＮ　ＭＸ＝８：ＭＹ＝１０ ＷＯ＝４：Ｗ＝７　　　　　’＜＜ ’−−−−−−−−−−−−−−− ＩＦ　ＳＥＴ＝＝１　ＴＨＥＮ　ＰＲＩＮＴ　”（コノフ゜ロク゛ラムテ゛ハ　８０＆＃１２３１６；１２０ヲショウレイシマス） ＩＦ　ＳＥＴ＝＝１　ＴＨＥＮ　ＩＮＰＵＴ　”１フ゛ロックアタリノ　オオキサハ（４０＆＃１２３１６；２５０）”；Ｌ ＩＦ　ＳＥＴ＝＝１　ＴＨＥＮ　ＰＲＩＮＴ　”（オクノモノカ゛カ゛イサンテ゛カカレ、ハ゛ク゛カ゛ヘリマス） ＩＦ　ＳＥＴ＝＝１　ＴＨＥＮ　ＩＮＰＵＴ　”コウソクヒ゛ョウカ゛ヲサイヨウシマスカ（ＹＥＳ：１）”；Ｈ ＩＦ　ＳＥＴ＝＝１　ＴＨＥＮ　ＰＲＩＮＴ　”（オマケヲホソ゛ンスレハ゛テ゛キマス）” ＩＦ　ＳＥＴ＝＝１　ＴＨＥＮ　ＩＮＰＵＴ　”ウエカ゛メンニキャラクタ−ヲオキマスカ（ＹＥＳ：１）”；ＰＥＲＳＯＮ ＩＦ　ＰＥＲＳＯＮ＝＝１　ＴＨＥＮ　ＳＹＳＢＥＥＰ＝０：ＬＯＡＤ”ＳＰＵ０：ＹＭ＿ＰＥＲＳ”，０：ＬＯＡＤ　”ＣＯＬ１：００１２”，０：ＳＹＳＢＥＥＰ＝１ ＩＦ　ＲＥＳＵＬＴ＝＝０　ＴＨＥＮ　ＢＥＥＰ　４：ＣＯＬＯＲ　１１：？”キャラヲ　ヨミコメマセンテ゛シタ”：ＰＥＲＳＯＮ＝０：ＷＡＩＴ　６０ ＩＦ　Ｌ＜４０　ＴＨＥＮ　Ｌ＝８０ ＩＦ　Ｌ＞２５０　ＴＨＥＮ　Ｌ＝２５０ ＩＦ　ＰＥＲＳＯＮ＝＝１　ＴＨＥＮ　ＳＰＳＥＴ　０，０，２，０，０，０，１６，３２：ＳＰＯＦＳ　０，−４０，１００：ＳＰＳＣＡＬＥ　０，２００ ＣＯＬＯＲ　０：ＨＩＰＥＲ＝Ｈ ＨＩＰＥＲＭＩＮ＝６　　　’＜＜ ’ＨＩＰＥＲ：↑ヨリオクテ゛カ゛イサン ’───テ゛−タセイセイ──── ’Ｌ（Ｎ），Ｘ（Ｎ）テ゛オクユキ ’ニヨルヘンケイヲオコナイマス。 ’−−−−−−−−−−−−−−− ＲＥＳＴＯＲＥ　＠ＤＡＴＡ＿Ｙ ＦＯＲ　Ｎ＝１　ＴＯ　１０ ＲＥＡＤ　Ｙ（Ｎ） Ｌ（Ｎ）＝（Ｌ＊（Ｙ（Ｎ）−ＣＹ）／（ＣＹ−Ｙ（１）））＊−１ Ｘ（Ｎ）＝　Ｌ＊（Ｙ（Ｎ）−ＣＹ）／（２＊（ＣＹ−Ｙ（１）））＋ＣＸ ＮＥＸＴ ’−−−ショキヒ゛ョウカ゛−−− ＷＡＩＴ　１：Ｂ＝０：ＧＰＡＧＥ　０，３，０：ＧＣＬＳ：ＣＬＳ ＬＯＣＡＴＥ　１２，１２：？”●ＷＡＩＴ．．．” ＣＮＴ＝ＭＡＩＮＣＮＴＬ：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ ＩＦ　ＨＩＰＥＲ＝＝１　ＴＨＥＮ　ＷＯＭＡＸ＝ＷＯＤ−２　ＥＬＳＥ　ＷＯＭＡＸ＝７ ＣＬＳ：ＢＧＭＰＬＡＹ　”Ｔ６０：０＠７４Ｖ７０＜［ＣＧＥＦ２ＢＥ２］：１Ｖ６０＠７１［ＥＤＣＡ］：２＠１２８Ｖ１００［Ｃ１６Ｃ１６Ｒ１６Ｃ１６ＲＥＲ］ ’─────────────────────────── ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　１５，０，”ＭＡＰ” ＣＯＬＯＲ　１３：ＰＮＬＳＴＲ　０，０，”┿”：ＣＯＬＯＲ　０ ＦＯＲ　Ｉ＝１　ＴＯ　１２ ＰＮＬＳＴＲ　９，Ｉ，”и　　　　　　　　　　　　　з” ＮＥＸＴ ＣＯＬＯＲ　１０ ＰＮＬＳＴＲ　１６，Ｉ−２，”●” ＰＮＬＳＴＲ　１５，Ｉ−１，”ＹＯＵ” ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　０，Ｉ　　，”жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж” ＰＮＬＳＴＲ　６，Ｉ＋１，”АкХ：サユウノシカイノハハ゛ヲカエル ＰＮＬＳＴＲ　６，Ｉ＋２，”ФкБ：ミエルオクユキヲ　カエル ＰＮＬＳＴＲ　６，Ｉ＋３，”　　П：ヘイコウイト゛ウ ＰＮＬＳＴＲ　６，Ｉ＋４，”Ккн：ＢＧＭヲ　ケスкＥＮＤ ＣＯＬＯＲ　７ ＰＮＬＳＴＲ　１，Ｉ＋６，”＊ミエルオクユキヲミタ゛リニカエルト　カナリノハ゛ク゛カ゛ ＰＮＬＳＴＲ　１，Ｉ＋７，”　ハッセイシマス。コウソクヒ゛ョウカ゛モ−ト゛ヲツカエハ゛ ＰＮＬＳＴＲ　１，Ｉ＋８，”　ハ゛ク゛ヲ　ケイケ゛ンテ゛キマス。 ＰＮＬＳＴＲ　１，Ｉ＋９，”＊シカイソウサノシッハ゜イテ゛ハンテイカ゛クルウコトモ．．” ＢＧＦＩＬＬ　１，１０，１，２２，１２，６１０，１２，０，０ ＣＯＬＯＲ　０ ＩＦ　ＰＥＲＳＯＮ＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　０，１１２，１１０ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＬＯＯＰ ＶＳＹＮＣ　１：Ｂ＝０ ＧＯＳＵＢ　＠ＢＴＣＨＫ ＧＯＳＵＢ　＠ＣＳＲＣＵＬＣ ＩＦ　ＰＥＲＳＯＮ　＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＰＯＦＳ ＩＦ　ＴＣＨＴＩＭＥ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＮＤ ＩＦ　Ｂ＞０　ＴＨＥＮ　ＣＮＴ＝ＭＡＩＮＣＮＴＬ：ＧＯＳＵＢ　＠ＧＲＰＣＨＫ ＧＯＴＯ　＠ＬＯＯＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＥＮＤ ＩＦ　ＴＣＨＹ＜８　ＴＨＥＮ　ＢＧＭＳＴＯＰ　：ＥＮＤ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＢＴＣＨＫ　’ホ゛タンサホ゜−ト Ｂ＝ＢＵＴＴＯＮ（１）：ＣＬＫ＝０ ＩＦ　Ｂ＝＝１　ＴＨＥＮ　ＭＹ＝ＭＹ−１： ＩＦ　Ｂ＝＝２　ＴＨＥＮ　ＭＹ＝ＭＹ＋１： ＩＦ　Ｂ＝＝４　ＴＨＥＮ　ＭＸ＝ＭＸ−１： ＩＦ　Ｂ＝＝８　ＴＨＥＮ　ＭＸ＝ＭＸ＋１： ＩＦ　Ｂ＝＝１２８　ＴＨＥＮ　ＢＥＥＰ　３：Ｗ＝Ｗ−２：ＣＬＫ＝１ ＩＦ　Ｂ＝＝１６　　ＴＨＥＮ　ＢＥＥＰ　３：Ｗ＝Ｗ＋２：ＣＬＫ＝１ ＩＦ　Ｂ＝＝３２　　ＴＨＥＮ　ＢＥＥＰ　４：ＷＯ＝ＷＯ−１：ＣＬＫ＝１ ＩＦ　Ｂ＝＝６４　　ＴＨＥＮ　ＢＥＥＰ　４：ＷＯ＝ＷＯ＋１：ＣＬＫ＝１ ＩＦ　Ｂ＝＝２５６　ＴＨＥＮ　ＢＧＭＳＴＯＰ：ＢＥＥＰ　４：ＲＥＴＵＲＮ ＩＦ　Ｂ＝＝５１２　ＴＨＥＮ　ＢＧＭＳＴＯＰ：ＢＥＥＰ　４：ＥＮＤ ＩＦ　ＭＹ＜ＷＯ　ＴＨＥＮ　ＭＹ＝ＷＯ：ＢＥＥＰ　１ ＩＦ　ＭＸ＜ＦＬＯＯＲ（Ｗ／２）＋１　ＴＨＥＮ　ＭＸ＝ＦＬＯＯＲ（Ｗ／２）＋１：ＢＥＥＰ　１ ＩＦ　ＭＹ＞６４　ＴＨＥＮ　ＭＹ＝６４：ＢＥＥＰ　１ ＩＦ　ＭＸ＞６４　ＴＨＥＮ　ＭＸ＝６４：ＢＥＥＰ　１ ＩＦ　Ｗ＞１３　ＴＨＥＮ　Ｗ＝１３：　　ＢＥＥＰ　１ ＩＦ　Ｗ＜３　　ＴＨＥＮ　Ｗ＝３：　　　ＢＥＥＰ　１ ＩＦ　ＷＯ＜２　ＴＨＥＮ　ＷＯ＝２ ＩＦ　ＷＯ＞ＷＯＭＡＸ　ＴＨＥＮ　ＷＯ＝ＷＯＭＡＸ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＳＰＯＦＳ　’スフ゜ライトノイト゛ウ ＩＦ　Ｂ＝＝１　ＴＨＥＮ　ＳＰＣＨＲ　０，０：ＳＰＡＮＩＭ　０，４，８ ＩＦ　Ｂ＝＝２　ＴＨＥＮ　ＳＰＣＨＲ　０，８：ＳＰＡＮＩＭ　０，４，８ ＩＦ　Ｂ＝＝４　ＴＨＥＮ　ＳＰＣＨＲ　０，１６，２，０，０，１：ＳＰＡＮＩＭ　０，４，８ ＩＦ　Ｂ＝＝８　ＴＨＥＮ　ＳＰＣＨＲ　０，１６，２，１，０，１：ＳＰＡＮＩＭ　０，４，８ ＩＦ　ＣＮＴ＞０　ＴＨＥＮ　ＳＰＡＮＩＭ　０，１，１０ ＣＮＴ＝０ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＧＲＰＣＨＫ　’カヘ゛メリコミホ゛ウシ　　　　 　　　　　　　　’Ｉ：ヘンスウノ　コ゛ミハ゛コ　 ＢＧＲＥＡＤ（０，１６，１０），ＣＵ，Ｉ，Ｉ，Ｉ ＢＧＲＥＡＤ（０，１６，１２），ＣＤ，Ｉ，Ｉ，Ｉ ＢＧＲＥＡＤ（０，１５，１１），ＣＬ，Ｉ，Ｉ，Ｉ ＢＧＲＥＡＤ（０，１７，１１），ＣＲ，Ｉ，Ｉ，Ｉ ’トクシュナユカヲショリ ＩＦ　ＣＵ＝＝６　　ＴＨＥＮ　ＣＵ＝３２ ＩＦ　ＣＤ＝＝６　　ＴＨＥＮ　ＣＤ＝３２ ＩＦ　ＣＬ＝＝６　　ＴＨＥＮ　ＣＬ＝３２ ＩＦ　ＣＲ＝＝６　　ＴＨＥＮ　ＣＲ＝３２ ＩＦ　ＣＵ＝＝５９０ＴＨＥＮ　ＣＵ＝３２ ＩＦ　ＣＤ＝＝５９０ＴＨＥＮ　ＣＤ＝３２ ＩＦ　ＣＬ＝＝５９０ＴＨＥＮ　ＣＬ＝３２ ＩＦ　ＣＲ＝＝５９０ＴＨＥＮ　ＣＲ＝３２ ＩＦ　Ｂ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＣ＿Ｕ：ＲＥＴＵＲＮ ＩＦ　Ｂ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＣ＿Ｄ：ＲＥＴＵＲＮ ＩＦ　Ｂ＝＝４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＣ＿Ｌ：ＲＥＴＵＲＮ ＩＦ　Ｂ＝＝８　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＣ＿Ｒ：ＲＥＴＵＲＮ ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ ＲＥＴＵＲＮ ＠ＧＣ＿Ｕ　’−−−ハンテイシタウケ−−− ＩＦ　ＣＵ！＝３２　ＴＨＥＮ　ＢＥＥＰ　１：ＭＹ＝ＭＹ＋１：ＲＥＴＵＲＮ ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ＠ＧＣ＿Ｄ　’−−−ハンテイシタウケ−−− ＩＦ　ＣＤ！＝３２　ＴＨＥＮ　ＢＥＥＰ　１：ＭＹ＝ＭＹ−１：ＲＥＴＵＲＮ ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ＠ＧＣ＿Ｌ　’−−−ハンテイシタウケ−−− ＩＦ　ＣＬ！＝３２　ＴＨＥＮ　ＢＥＥＰ　１：ＭＸ＝ＭＸ＋１：ＲＥＴＵＲＮ ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ＠ＧＣ＿Ｒ　’−−−ハンテイシタウケ−−− ＩＦ　ＣＲ！＝３２　ＴＨＥＮ　ＢＥＥＰ　１：ＭＸ＝ＭＸ−１：ＲＥＴＵＲＮ ＢＥＥＰ　：ＧＯＳＵＢ　＠ＧＲＰＷＲＩＴＥ：ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＣＳＲＣＵＬＣ　’ケイキルイ ＬＯＣＡＴＥ　０，０：？”　（”；ＭＸ；”，”；ＭＹ；”）　　　” ＬＯＣＡＴＥ　０，１：？”　├─┼─┼─┼─┼─┤Ｗ：”；Ｗ；”　　” ＬＯＣＡＴＥ　０，２：？”　├────┤　　　　　Ｏ：”；ＷＯ；”　　” ＬＯＣＡＴＥ　０，３：？”　”；ＦＰＳ；”フレ−ム／１ヒ゛ョウカ゛　　　” ＬＯＣＡＴＥ　Ｗ−２，１：？”●” ＬＯＣＡＴＥ　ＷＯ−１，２：？”●” ＲＥＴＵＲＮ ’─────────────────────────── ＠ＧＲＰＷＲＩＴＥ ＩＦ　ＣＬＫ＝＝１　ＴＨＥＮ　ＢＧＣＬＲ　０ ＩＦ　ＨＵＬＬＨＤ＝＝１　ＴＨＥＮ　ＣＯ５＝１０１：ＣＯ２＝１１ ’−−タイキヨウク゛ラフィックヲカキコム−− ＧＰＡＧＥ　０ ＧＣＯＰＹ　３，０，０，２５５，１９１，０，０，０ ＧＰＡＧＥ　０，３，０　’╂┿ ’−−−−−−ソラノヒ゛ョウカ゛−−−−−− ＩＦ　ＨＵＬＬＨＤ＝＝０　ＴＨＥＮ　ＧＦＩＬＬ　０，０，２５５，１９１−ＣＹ，ＣＯ５：ＧＦＩＬＬ　０，１９１−ＣＹ，２５５，１９１，ＣＯ２　 ＩＦ　ＨＵＬＬＨＤ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＫＹ＿ＥＬ ’−−−−−−−−−−−−−−−−−−−−− ＬＯＣＡＴＥ　０，０：Ａ＝０： ＲＥＳＴＯＲＥ　＠ＤＡＴＡ＿Ｃ ＦＯＲ　Ｉ＝０　ＴＯ　ＭＹ＋１ ＲＥＡＤ　Ａ＄ ＩＦ　Ｉ＞ＭＹ−ＷＯ　ＴＨＥＮ　ＣＺ＄（Ａ）＝ＭＩＤ＄（Ａ＄，ＦＬＯＯＲ（ＭＸ−Ｗ／２），Ｗ）：Ａ＝Ａ＋１ ＮＥＸＴ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ’ハ゛ク゛ホ゛ウシкケイサンシ゛ュンシ゛ョケッテイ ＫＸ＝Ｗ：ＫＹ＝０：ＩＬＯ＝０：ＳＲ＝１：ＲＡＳＴ＝０　 ＠ＧＲＰＬＯＯＰ　’ヒト゛イスハ゜ケ゛ッテイヲタンノウ！ Ａ＄＝ＭＩＤ＄（ＣＺ＄（ＫＹ），ＫＸ，１） Ｈ＝ＶＡＬ（Ａ＄） Ｘ１＝１＋ＦＬＯＯＲ（ＫＸ−Ｗ／２）：Ｙ１＝ＦＬＯＯＲ（ＷＯ−ＫＹ） ＩＦ　ＳＲ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＱＷＲＩＴＥ ＩＦ　ＩＬＯ％２＝＝０　ＴＨＥＮ　ＫＸ＝ＫＸ−（Ｗ−ＩＬＯ）　ＥＬＳＥ　ＫＸ＝ＫＸ＋（Ｗ−ＩＬＯ） ＩＬＯ＝ＩＬＯ＋１：ＣＮＡ＝Ｗ−ＩＬＯ：ＳＲ＝０ ＩＦ　ＩＬＯ＞Ｗ　ＴＨＥＮ　ＫＸ＝Ｗ：ＩＬＯ＝０：ＫＹ＝ＫＹ＋１：ＳＲ＝１ ＩＦ　ＫＹ＞　ＷＯ　ＴＨＥＮ　ＧＰＡＧＥ　０，０，３：ＦＰＳ＝ＭＡＩＮＣＮＴＬ−ＣＮＴ：ＲＥＴＵＲＮ ＩＦ　ＫＹ＝＝ＷＯ　ＴＨＥＮ　ＲＡＳＴ＝１ ＧＯＴＯ　＠ＧＲＰＬＯＯＰ ’─────────────────────────── ＠ＳＱＷＲＩＴＥ ’─チョウテンエンサ゛ン─ ’　　　　Ｅ┌─┐Ｆ　　　 ’　　　　к│к│　　　　 ’　　Ａ┌─┐Ｂ┘　　　　 ’　　　│Ｇ│к　Ｈ　　　 ’　　Ｃ└─┘Ｄ　　　　　 ’──────────── ＨＤ＝ＨＵＬＬＨＤ ＩＦ　ＨＤ＝＝１　ＴＨＥＮ　ＣＯ１＝０＋Ｙ１：ＣＯ２＝ＷＯＤ＋Ｙ１：ＣＯ３＝ＷＯＤ＊２＋Ｙ１：ＣＯ４＝ＷＯＤ＊３＋Ｙ１：ＣＯ６＝ＷＯＤ＊５＋Ｙ１：ＣＯ７＝ＷＯＤ＊６＋Ｙ１：ＣＯ８＝ＷＯＤ＊７＋Ｙ１ ’−−−−ＭＡＰ−−−−− ＩＦ　Ｈ＝＝０　ＴＨＥＮ　ＢＧＡ＝３２：Ｃ＝８ ＩＦ　Ｈ＞＝１　ＴＨＥＮ　ＢＧＡ＝５７：Ｃ＝８ ＩＦ　Ｈ＞＝３　ＴＨＥＮ　ＢＧＡ＝５６：Ｃ＝８ ＩＦ　Ｈ＞＝５　ＴＨＥＮ　ＢＧＡ＝１３：Ｃ＝８ ＩＦ　Ａ＄＝＝”╂”　ＴＨＥＮ　ＢＧＡ＝６　　：Ｃ＝８ ＩＦ　Ａ＄＝＝”┿”　ＴＨＥＮ　ＢＧＡ＝３２０：Ｃ＝５ ＩＦ　Ａ＄＝＝”□”　ＴＨＥＮ　ＢＧＡ＝５９０：Ｃ＝１１ ＢＧＰＵＴ　０，１６＋Ｘ１，１２−Ｙ１，ＢＧＡ，Ｃ，０，０ ＩＦ　ＲＡＳＴ＝＝１　ＴＨＥＮ　ＲＥＴＵＲＮ ’−−−−↑フルＨＤ−−− Ｃ１＝Ｘ（Ｙ１）＋Ｘ１＊Ｌ（Ｙ１）　：Ｃ２＝Ｙ（Ｙ１） Ｄ１＝Ｃ１＋Ｌ（Ｙ１）−１　　　　　：Ｄ２＝Ｃ２ Ａ１＝Ｃ１　　　　　　　　　　　　　：Ａ２＝Ｃ２＋Ｈ＊Ｌ（Ｙ１） Ｂ１＝Ｄ１　　　　　　　　　　　　　：Ｂ２＝Ａ２ Ｇ１＝Ｘ（Ｙ１＋１）＋Ｘ１＊Ｌ（Ｙ１＋１）：Ｇ２＝Ｙ（Ｙ１＋１） Ｈ１＝Ｇ１＋Ｌ（Ｙ１＋１）−１　　　：Ｈ２＝Ｇ２ Ｅ１＝Ｇ１　　　　　　　　　　　　　：Ｅ２＝Ｇ２＋Ｈ＊Ｌ（Ｙ１＋１） Ｆ１＝Ｈ１　　　　　　　　　　　　　：Ｆ２＝Ｅ２ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ’サ゛ヒョウキ゛ャクテン− Ａ２＝１９１−Ａ２：Ｂ２＝１９１−Ｂ２ Ｃ２＝１９１−Ｃ２：Ｄ２＝１９１−Ｄ２ Ｅ２＝１９１−Ｅ２：Ｆ２＝１９１−Ｆ２ Ｇ２＝１９１−Ｇ２：Ｈ２＝１９１−Ｈ２ ’−−−トクシュヘイメンヒ゛ョウカ゛−−− ＩＦ　Ａ＄＝＝”┿”　ＴＨＥＮ　ＣＯ＝ＣＯ７：ＧＯＳＵＢ　＠ＰＴ＿７：ＲＥＴＵＲＮ ＩＦ　Ａ＄＝＝”╂”　ＴＨＥＮ　ＣＯ＝ＣＯ６：ＧＯＳＵＢ　＠ＰＴ＿７：ＲＥＴＵＲＮ ＩＦ　Ａ＄＝＝”□”　ＴＨＥＮ　ＣＯ＝ＣＯ８：ＧＯＳＵＢ　＠ＰＴ＿７：ＲＥＴＵＲＮ ＩＦ　Ｈ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ　’ヘイメンムシ ’−イロヌリシ゛ュンヒ゛− ＧＰＡＧＥ　１ ＧＯＳＵＢ　＠ＧＰＡＴＡＲＮ ’−−−セイショコヒ゜−トクリア−−− ＧＰＡＧＥ　０ ＧＣＯＰＹ　１，０，０，２５５，１９１，０，０，０ ＧＰＡＧＥ　１ ＧＣＬＳ：ＲＥＴＵＲＮ ’─────────────────────────── ’−−−−イロヌリハ゛アイワケ−−−− ’　　　１□┰　　５□　　２┝□　　　 ’　　　　　　　　　　　　　　　　　　 ’　　　３□┸　　６┿　　４┥□　　　 ’−−−−−−−−−−−−−−−−−− ＠ＧＰＡＴＡＲＮ Ｒ＝０：ＡＲ＝０ ＩＦ　ＨＩＰＥＲ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＴ＿０ ＩＦ　Ａ１＜　Ｅ１　ＴＨＥＮ　Ｐ＝０ ＩＦ　Ａ１＞＝Ｅ１　ＴＨＥＮ　Ｐ＝１ ＩＦ　Ａ２＜　Ｅ２　ＴＨＥＮ　Ｑ＝０ ＩＦ　Ａ２＞＝Ｅ２　ＴＨＥＮ　Ｑ＝１ ＩＦ　Ｅ１＜ＣＸ　ＴＨＥＮ　Ｒ＝Ｒ＋１ ＩＦ　Ｂ１＞ＣＸ　ＴＨＥＮ　Ｒ＝Ｒ＋１ Ａ＝Ｐ＋Ｑ＊２　　　　　　　　　　　’イッハ゜ン ＩＦ　ＡＲ＝＝１　ＴＨＥＮ　Ａ＝４　’カ゛イサン ＯＮ　Ａ　ＧＯＳＵＢ　＠ＰＴ＿１，＠ＰＴ＿２，＠ＰＴ＿３，＠ＰＴ＿４，＠ＰＴ＿５ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿０　’オクスキ゛ルオフ゛シ゛ェクトハンテイ ＩＦ　Ｙ１＞＝ＨＩＰＥＲＭＩＮ　ＴＨＥＮ　ＡＲ＝１ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿１　’□┰ ＩＦ　Ｒ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＴ＿５：ＲＥＴＵＲＮ ＧＯＳＵＢ　＠ＭＧ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿２　’┝□ ＩＦ　Ｒ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＴ＿５：ＲＥＴＵＲＮ ＧＯＳＵＢ　＠ＨＤ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿３　’□┸ ＩＦ　Ｒ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＴ＿６：ＲＥＴＵＲＮ ＧＯＳＵＢ　＠ＵＥ ＧＯＳＵＢ　＠ＭＧ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿４　’┥□ ＩＦ　Ｒ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＴ＿６：ＲＥＴＵＲＮ ＧＯＳＵＢ　＠ＨＤ ＧＯＳＵＢ　＠ＵＥ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿５　’□ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿６　’┿ ＧＯＳＵＢ　＠ＵＥ ＧＯＳＵＢ　＠ＦＷ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−− ＠ＰＴ＿７　’─ ＧＰＡＧＥ　１ ＧＯＳＵＢ　＠ＤＮ ＧＰＡＧＥ　０ ＧＣＯＰＹ　１，０，０，２５５，１９１，０，０，０ ＧＰＡＧＥ　１：ＧＣＬＳ ＲＥＴＵＲＮ ’−−−−ヒ゛ョウカ゛シタウケ−−−− ＠ＭＧ　　’ミキ゛カ゛ワ ＧＬＩＮＥ　Ｆ１，Ｆ２，Ｂ１，Ｂ２，ＣＯ１ ＧＬＩＮＥ　Ｄ１，Ｄ２，Ｈ１，Ｈ２，ＣＯ１ ＧＬＩＮＥ　Ｈ１，Ｈ２，Ｆ１，Ｆ２，ＣＯ１ ＧＬＩＮＥ　Ｂ１，Ｂ２，Ｄ１，Ｄ２，ＣＯ１ ＩＦ　ＦＲＡＭＥ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｎ＿Ｍ０ ＲＥＴＵＲＮ ’−−−−−−−−−−− ＠ＵＥ　　’ウエ ＧＬＩＮＥ　Ａ１，Ａ２，Ｂ１，Ｂ２，ＣＯ２ ＧＬＩＮＥ　Ｂ１，Ｂ２，Ｆ１，Ｆ２，ＣＯ２ ＧＬＩＮＥ　Ｆ１，Ｆ２，Ｅ１，Ｅ２，ＣＯ２ ＧＬＩＮＥ　Ｅ１，Ｅ２，Ａ１，Ａ２，ＣＯ２ ＩＦ　ＦＲＡＭＥ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｎ＿Ｕ０ ＲＥＴＵＲＮ ’−−−−−−−−−−− ＠ＨＤ　　’ヒタ゛リ ＧＬＩＮＥ　Ｅ１，Ｅ２，Ａ１，Ａ２，ＣＯ３ ＧＬＩＮＥ　Ａ１，Ａ２，Ｃ１，Ｃ２，ＣＯ３ ＧＬＩＮＥ　Ｃ１，Ｃ２，Ｇ１，Ｇ２，ＣＯ３ ＧＬＩＮＥ　Ｇ１，Ｇ２，Ｅ１，Ｅ２，ＣＯ３ ＩＦ　ＦＲＡＭＥ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｎ＿Ｈ０ ＲＥＴＵＲＮ ’−−−−−−−−−−− ＠ＦＷ　　’マエ ＧＢＯＸ　Ａ１，Ａ２，Ｄ１，Ｄ２，ＣＯ４ ＩＦ　ＦＲＡＭＥ＝＝０　ＴＨＥＮ　ＧＦＩＬＬ　Ａ１，Ａ２，Ｄ１，Ｄ２，ＣＯ４ ＲＥＴＵＲＮ ’−−−−−−−−−−− ＠ＤＮ　　’シタ（トクシュ） ＧＬＩＮＥ　Ｃ１，Ｃ２，Ｄ１，Ｄ２，ＣＯ ＧＬＩＮＥ　Ｄ１，Ｄ２，Ｈ１，Ｈ２，ＣＯ ＧＬＩＮＥ　Ｈ１，Ｈ２，Ｇ１，Ｇ２，ＣＯ ＧＬＩＮＥ　Ｇ１，Ｇ２，Ｃ１，Ｃ２，ＣＯ ＩＦ　Ｄ２−Ｈ２＜２　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＦＲＡＭＥ＝＝０　ＴＨＥＮ　ＧＰＡＩＮＴ　（Ｈ１＋Ｇ１）／２，Ｈ２＋１，ＣＯ ＲＥＴＵＲＮ ’−−−−−−−−−−− ＠Ｎ＿Ｕ０　’ウエノシタウケ　 ＩＦ　Ｅ２＞Ａ２　ＴＨＥＮ　ＧＰＡＩＮＴ　（Ｅ１＋Ｆ１）／２，Ｅ２−１，ＣＯ２ ＩＦ　Ｅ２＜Ａ２　ＴＨＥＮ　ＧＰＡＩＮＴ　（Ｅ１＋Ｆ１）／２，Ｅ２＋１，ＣＯ２ ＲＥＴＵＲＮ ＠Ｎ＿Ｍ０　’ミキ゛ノシタウケ ＩＦ　Ｆ１＜Ｂ１　ＴＨＥＮ　ＧＰＡＩＮＴ　Ｆ１＋１，（Ｈ２＋Ｆ２）／２，ＣＯ１ ＩＦ　Ｆ１＞Ｂ１　ＴＨＥＮ　ＧＰＡＩＮＴ　Ｆ１−１，（Ｈ２＋Ｆ２）／２，ＣＯ１ ＲＥＴＵＲＮ ＠Ｎ＿Ｈ０　’ヒタ゛リノシタウケ ＩＦ　Ｅ１＜Ａ１　ＴＨＥＮ　ＧＰＡＩＮＴ　Ｅ１＋１，（Ｇ２＋Ｅ２）／２，ＣＯ３ ＩＦ　Ｅ１＞Ａ１　ＴＨＥＮ　ＧＰＡＩＮＴ　Ｅ１−１，（Ｇ２＋Ｅ２）／２，ＣＯ３ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＣＯＬＳＥＴＨＤ　’コウカ゛シツカ゛メンカラ− ’−−−イロセッテイ（１０シンスウ）−−− Ｃ１Ｒ＝３０　：Ｃ１Ｇ＝７５　：Ｃ１Ｂ＝３０　 Ｃ２Ｒ＝６０　：Ｃ２Ｇ＝１００：Ｃ２Ｂ＝６０　 Ｃ３Ｒ＝１００：Ｃ３Ｇ＝２５０：Ｃ３Ｂ＝１００ Ｃ４Ｒ＝６０　：Ｃ４Ｇ＝１５０：Ｃ４Ｂ＝６０　 Ｃ５Ｒ＝０　　：Ｃ５Ｇ＝１３６：Ｃ５Ｂ＝２５５ Ｃ６Ｒ＝２３０：Ｃ６Ｇ＝２３０：Ｃ６Ｂ＝８０ Ｃ７Ｒ＝０　　：Ｃ７Ｇ＝２０　：Ｃ７Ｂ＝２３０ Ｃ８Ｒ＝１００：Ｃ８Ｇ＝１００：Ｃ８Ｂ＝１００ Ｓ＝０．９　’トウカリツ（０＜Ｓ＜＝１） ’−−−−−−イロサクセイ−−−−−−−− ＦＯＲ　Ｉ＝１　ＴＯ　ＷＯＤ Ｒ１＝Ｃ１Ｒ＋（（Ｃ５Ｒ−Ｃ１Ｒ）／ＷＯＤ）＊Ｉ＊Ｓ Ｇ１＝Ｃ１Ｇ＋（（Ｃ５Ｇ−Ｃ１Ｇ）／ＷＯＤ）＊Ｉ＊Ｓ Ｂ１＝Ｃ１Ｂ＋（（Ｃ５Ｂ−Ｃ１Ｂ）／ＷＯＤ）＊Ｉ＊Ｓ Ｒ２＝Ｃ２Ｒ＋（（Ｃ５Ｒ−Ｃ２Ｒ）／ＷＯＤ）＊Ｉ＊Ｓ Ｇ２＝Ｃ２Ｇ＋（（Ｃ５Ｇ−Ｃ２Ｇ）／ＷＯＤ）＊Ｉ＊Ｓ Ｂ２＝Ｃ２Ｂ＋（（Ｃ５Ｂ−Ｃ２Ｂ）／ＷＯＤ）＊Ｉ＊Ｓ Ｒ３＝Ｃ３Ｒ＋（（Ｃ５Ｒ−Ｃ３Ｒ）／ＷＯＤ）＊Ｉ＊Ｓ Ｇ３＝Ｃ３Ｇ＋（（Ｃ５Ｇ−Ｃ３Ｇ）／ＷＯＤ）＊Ｉ＊Ｓ Ｂ３＝Ｃ３Ｂ＋（（Ｃ５Ｂ−Ｃ３Ｂ）／ＷＯＤ）＊Ｉ＊Ｓ Ｒ４＝Ｃ４Ｒ＋（（Ｃ５Ｒ−Ｃ４Ｒ）／ＷＯＤ）＊Ｉ＊Ｓ Ｇ４＝Ｃ４Ｇ＋（（Ｃ５Ｇ−Ｃ４Ｇ）／ＷＯＤ）＊Ｉ＊Ｓ Ｂ４＝Ｃ４Ｂ＋（（Ｃ５Ｂ−Ｃ４Ｂ）／ＷＯＤ）＊Ｉ＊Ｓ Ｒ６＝Ｃ６Ｒ＋（（Ｃ５Ｒ−Ｃ６Ｒ）／ＷＯＤ）＊Ｉ＊Ｓ Ｇ６＝Ｃ６Ｇ＋（（Ｃ５Ｇ−Ｃ６Ｇ）／ＷＯＤ）＊Ｉ＊Ｓ Ｂ６＝Ｃ６Ｂ＋（（Ｃ５Ｂ−Ｃ６Ｂ）／ＷＯＤ）＊Ｉ＊Ｓ Ｒ７＝Ｃ７Ｒ＋（（Ｃ５Ｒ−Ｃ７Ｒ）／ＷＯＤ）＊Ｉ＊Ｓ Ｇ７＝Ｃ７Ｇ＋（（Ｃ５Ｇ−Ｃ７Ｇ）／ＷＯＤ）＊Ｉ＊Ｓ Ｂ７＝Ｃ７Ｂ＋（（Ｃ５Ｂ−Ｃ７Ｂ）／ＷＯＤ）＊Ｉ＊Ｓ Ｒ８＝Ｃ８Ｒ＋（（Ｃ５Ｒ−Ｃ８Ｒ）／ＷＯＤ）＊Ｉ＊Ｓ Ｇ８＝Ｃ８Ｇ＋（（Ｃ５Ｇ−Ｃ８Ｇ）／ＷＯＤ）＊Ｉ＊Ｓ Ｂ８＝Ｃ８Ｂ＋（（Ｃ５Ｂ−Ｃ８Ｂ）／ＷＯＤ）＊Ｉ＊Ｓ ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊０＋Ｉ，ＨＥＸ＄（Ｒ１，２）＋ＨＥＸ＄（Ｇ１，２）＋ＨＥＸ＄（Ｂ１，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊１＋Ｉ，ＨＥＸ＄（Ｒ２，２）＋ＨＥＸ＄（Ｇ２，２）＋ＨＥＸ＄（Ｂ２，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊２＋Ｉ，ＨＥＸ＄（Ｒ３，２）＋ＨＥＸ＄（Ｇ３，２）＋ＨＥＸ＄（Ｂ３，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊３＋Ｉ，ＨＥＸ＄（Ｒ４，２）＋ＨＥＸ＄（Ｇ４，２）＋ＨＥＸ＄（Ｂ４，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊５＋Ｉ，ＨＥＸ＄（Ｒ６，２）＋ＨＥＸ＄（Ｇ６，２）＋ＨＥＸ＄（Ｂ６，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊６＋Ｉ，ＨＥＸ＄（Ｒ７，２）＋ＨＥＸ＄（Ｇ７，２）＋ＨＥＸ＄（Ｂ７，２） ＣＯＬＳＥＴ　”ＧＲＰ”，ＷＯＤ＊７＋Ｉ，ＨＥＸ＄（Ｒ８，２）＋ＨＥＸ＄（Ｇ８，２）＋ＨＥＸ＄（Ｂ８，２） ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＳＫＹ＿ＥＬ　’ソラ　ＨＤ ＧＦＩＬＬ　０，０，２５５，１９１，ＣＯ５ ＦＯＲ　Ｉ＝ＷＯＤ−２　ＴＯ　１　ＳＴＥＰ　−１ ＧＦＩＬＬ　０，１９１−Ｙ（Ｉ），２５５，１９１，ＷＯＤ＋Ｉ ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＣＲＥＤＩＴ　’クレシ゛ット ＢＧＭＳＴＯＰ　 ＢＥＥＰ　３：ＬＯＣＡＴＥ　０，２３：ＣＯＬＯＲ　９ ＲＥＳＴＯＲＥ　＠ＤＡＴＡ＿ＣＲＥ ＦＯＲ　Ｉ＝０　ＴＯ　２２ ＶＳＹＮＣ　２ ＲＥＡＤ　Ａ＄：？　Ａ＄ ＮＥＸＴ ＠ＬＯＯＰ０２ ＩＦ　ＢＵＴＴＯＮ（１）＝＝３２　ＴＨＥＮ　ＢＥＥＰ　４：ＷＡＩＴ　２：ＣＬＳ：ＧＯＴＯ　＠ＴＩＴＬＥＷＲＩＴＥ ＧＯＴＯ　＠ＬＯＯＰ０２ ’─────────────────────────── ’テ゛−タケイトウ ’─────────────────────────── ＠ＤＡＴＡ＿Ｙ　’スウレツ ＤＡＴＡ　０，４２，５３，５８，６１，６３，６４，６５，６５，６６，６６，６６ ’ббб　１−２　−３　−４　−５　−６　−７　−８　−９　−１０ ’−−−−−−− ＠ＤＡＴＡ＿ＴＹ　’タイトルノヤマ ＤＡＴＡ　”　┝┰　　┝┰┝┰　　　　┝┰　　　　　　　┝┰　　┝┰┝┰　　” ＤＡＴＡ　”┝┿┿┰┝┿┿┿┿┰　　┝┿┿┰┝┰　　　┝┿┿┰┝┿┿┿┿┰　” ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┰┝┿┿┿┿┿┿┰　┝┿┿┿┿┿┿┿┿┿┿┰” ＤＡＴＡ　”╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂” ’−−−−−−− ＠ＤＡＴＡ＿Ｃ　’マッフ゜テ゛−タ ’　　　　　　０−９，　┿ウミ　　╂スナハマ　　□ハシ ’　　　　　　　　　　СТТТТСТ１０ТСТТТТСТ２０ТСТТТТСТ３０ТСТТТТСТ４０ТСТТТТСТ５０ТСТТТТСТ６０ТУ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１┿┿┿１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿１２２１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１２１┿１２１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿１２３３２１┿┿┿┿┿┿１┿┿┿┿┿┿┿１２２１１╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１┿┿┿１┿┿┿┿┿┿┿┿┿╂╂╂╂╂┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿１２２１┿┿┿┿┿┿２１２┿┿┿┿┿１２１１╂┿┿┿┿┿┿┿┿１┿┿┿┿┿┿□□┿┿┿┿┿┿┿┿┿╂╂╂╂╂００╂┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１１╂┿┿┿┿╂１２３２１╂┿┿┿１１╂┿┿┿┿┿┿┿┿┿１２１┿┿┿┿┿□□４┿□┿４□┿□４３２１１００╂┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿１╂╂┿╂╂１２３４３２１╂╂╂１１┿┿┿┿┿╂╂╂╂┿０１□┿┿□┿┿□□３□□□４□□□３２００００１２１┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１２１╂┿╂００１２３２１０００１２１╂╂╂╂╂╂０００□００□□□□□□□１３□□□□□□□３１０１１１２１┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１１╂０□００００１２１００１１２２１１１００００００１┿１０□□□□□□１２３□□□４３３３４０００００１┿┿１１╂┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１２１０┿┿┿０００１００１２２１１１０００００００１２┿２１０００╂┿┿１２４３□３４２１００１２１０╂┿┿１２１０╂┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿１００００┿┿００００００１１０００００００００１２３┿┿２１００╂┿┿１２２１０１２１００００１０╂┿┿１２２１０╂┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿╂０００００┿┿０００００００００００１１００００１２２┿１０００００００１１０００１００００００╂┿┿┿１１１００１┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂０００００□０１００００００００１２２１１０００１１┿００１００００００００００００００１００╂┿┿┿╂０００１１┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿╂００００┿１２１０００１１１１２３４３２１００００□０１３１１１３２１０００００００１２１０╂┿┿┿╂□╂０１┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿╂１０００┿┿１００１２２２２２１２３４３２１０００┿１３４３２３４３００１００００１２３２１０╂┿┿┿□┿╂┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿３４３３３４０００┿╂０１２３４４３２３４５５４３２１００┿２２２２２２２２２╂２２００００１２１００４４┿┿□┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿３１┿┿１３０００□□１２２２３３２１２３４５４３２００┿┿╂╂１╂╂╂╂╂１╂╂╂２００００１００２３４┿┿□┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿３□□□□３０００╂┿╂１１１２２１０１２３４３２１０┿┿１２╂２１╂１２╂１１１╂１０１１０００１２３４４┿□┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿╂３□□□□３００００┿┿┿┿┿１１┿□□□１２３２１０□╂╂１╂１╂╂╂１╂╂╂╂╂２１２２１０００１２３３╂□╂４┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿╂４□４３３４０００００１１１┿┿┿┿□┿┿┿１２１００┿１╂╂╂╂╂２╂１╂１２１╂２２３４３２１００１２２０００╂┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿╂１□２１００００００００１２１┿┿┿□┿┿１１００００┿１３３３３３３╂２１╂２１╂２３４５４３２１０００１０００╂┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿╂╂１００００１０００００００１０００００００００００┿┿１１１╂╂╂╂╂╂╂１╂╂３４５６５４３２１０００００╂┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿╂０００３０３２０００００００００００００００００００┿┿┿１３□３３３３３３□３３３４５６５４３２１００１╂┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂００１０１２１００００００００００００００１１００００┿┿┿□╂╂┿┿┿┿□┿１２３４５４３２１００１２１┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂００３０３１００００１０００００１０００１２２１１００００┿□┿┿┿┿┿┿□┿┿１２３４３２１００１２３２１┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿□□□□０００００００１１２１０００１２１０１２２３２０００００００┿┿┿┿┿┿０┿┿┿１２３２１００１２３４３２１┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿╂０００００┿┿┿１０００００１１００１２４３╂３４０００００００┿┿００２１┿┿１２１００００１２３２１┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿□┿┿┿□┿┿００００００００１２１╂１２３┿□┿３１１１１０００００００１００００１００００００１２１┿┿┿╂０┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿╂╂１１００００００１１１００１２╂╂╂３３３□□□３４３３２１００００００００００００００００１００１┿┿┿╂０１┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂╂１２２１１１００１２３２１１２３╂２３３４４□□□４５３３３２２１０００００００００００００１２１０□□□□□０１┿┿┿ ＤＡＴＡ　”┿┿┿┿┿╂╂１２３４３３２１１３３４３３２２３╂３２３３２３４５６５４３２２１００００００１１０１１０１０１１╂╂┿┿┿┿┿╂┿┿┿┿ ＤＡＴＡ　”┿┿┿┿╂１╂３４４５４４３２３３４５５４３３３□３１２２╂２３４５４３２１１００００００１２２１２２１２１１╂╂┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿╂１２╂４５５４４５４３４４５６６５４３２□┿┿１１┿１２３４３２２１００００００１２３３２３２２２１╂╂┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿╂１２╂╂５５４３３４５４４５６６５４３２１□┿┿┿┿┿┿１２３２２１００１００００２３４４３２１１１０╂┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿１２╂╂５５４３２３４４５６７６５４３２１┿□┿┿┿┿┿┿┿１２２１００１２１１１０１２３２２１□□□□□□┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿１２╂４５４３２１２３４５６５４３２１┿┿┿□□□□□□□□╂╂╂╂０２３２１１┿□┿┿┿┿┿┿□┿┿┿┿３┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿╂１╂３４３２１１１２３４５４３２１┿┿┿┿┿┿┿□┿┿┿┿┿┿┿□┿┿┿┿┿┿┿００００００□□╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿╂１╂２３２１００１１２３４３２１０╂┿┿┿┿┿┿□┿┿┿╂１２１╂╂╂１１２２１１０００００□□╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿╂╂１２１００１２２１２３２１０００╂╂╂╂┿┿□┿┿╂╂１２２１００００１１０００００１１□□□□□□□□□□□╂┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿╂╂１００００１１０１１１０００１１００╂╂╂╂╂╂╂１２３２１１００００００００１１２２１１□□□□□□□□□╂┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿╂╂００００００００００００１２３２１００１２２２１２３４３２１０００２２００１１２３３２１╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿╂００００┿┿００１１２２３２１００１２１１╂╂╂╂╂╂╂╂０００２２０００１１２２１╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿１１０００┿┿００１２２３３２１０００１１０╂╂１２３４３２１０００００００００１１╂╂╂┿┿┿┿┿５┿┿┿５┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿１２２１０００００００１１２２１００００００００１２３４５４３２１０００╂╂╂╂╂╂╂╂┿┿┿┿┿┿┿╂┿┿┿╂┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿１２２１１０００００００１１００００００００１２３４５５３２１００╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿１１１２１０００００００００００００００００１２３４４１１０╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿１２３２１０００１１１００１１１００╂╂╂╂╂╂０１２１╂╂╂┿┿┿┿┿┿┿┿┿┿╂╂╂╂╂╂□□┿┿┿□□┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿７┿１２７３２１００１２３２１１２１１╂╂┿┿┿┿┿╂╂□╂┿┿┿┿┿┿┿┿┿┿┿┿┿╂０００００２□□□□□□□╂┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５４４４４４５１┿□┿１１２３２２３２１╂┿┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿┿┿╂１００００２３２２□□□２２╂┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５１□１□１５０００┿┿┿┿┿┿１２１１╂╂┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿┿╂１２１００２３４３３□□□３３╂┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５３□□□３５０００１╂╂╂╂┿┿┿┿１１╂┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿╂１２３２１００２３２２□□□２２╂┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５┿┿□┿┿５００１２１０００╂╂╂┿┿┿╂┿┿┿┿┿┿┿□┿┿┿┿４１１┿┿┿┿１２３４３２１０１２１１□□□１１╂┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５┿┿□┿┿５０００１００００１００╂╂┿┿┿┿┿┿┿┿９□９┿┿┿┿┿┿┿┿┿┿╂１２３２１０００１０００００００╂┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿５４３╂３４５０００００１０００００００╂╂┿┿┿┿┿┿┿□┿┿┿３┿┿┿３┿┿┿┿╂００００００００００００００１╂┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿╂０００００００００１２１１２１０００００□□□□□□□□□□□□□□□□□□□□□□０００１００００００００１２１┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂□□□□□□□□□３２２３２１０００╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿╂╂╂１２１╂╂□╂╂╂╂╂１┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿□┿┿┿┿┿□□□╂╂╂２２２１０╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１┿７┿□┿７┿┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿１┿□┿┿┿┿┿□□□３╂╂３２１╂╂┿┿┿┿┿┿┿┿╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿５４４□４４５┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１２１╂┿┿┿┿┿┿┿┿╂╂╂╂┿┿┿┿┿┿┿┿┿┿┿１２╂２１┿┿┿┿４１４┿┿┿┿┿┿┿┿┿４┿┿□┿┿４┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿１２１╂╂１┿┿┿┿┿┿┿┿┿╂╂╂┿┿┿┿┿┿┿┿┿１２３╂３２１┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿４□□□□□４┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿１╂╂１２１┿┿┿┿┿┿┿┿┿╂╂╂┿┿□□□╂╂１２３２╂２１╂┿┿１┿┿┿１┿┿┿┿┿┿┿┿４┿┿□┿┿４┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿╂╂１┿┿┿┿┿┿┿┿┿┿╂╂╂╂□□┿┿┿╂╂１２１╂╂╂╂□□□□□□□┿┿┿┿┿┿┿┿５２１╂１２５┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿╂╂╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿２┿╂╂╂┿２┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿１┿┿┿┿┿１┿┿┿┿┿┿┿┿┿ ＤＡＴＡ　”┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿ ’５７１ ＠ＤＡＴＡ＿ＣＲＥ　’クレシ゛ットテ゛−タ ＤＡＴＡ　”　──────────────────────────────” ＤＡＴＡ　”　┿╂　ハ゛−　シ゛ョ　ン　リ　レ　キ　（Бテ゛モト゛ル）╂┿” ＤＡＴＡ　”　──────────────────────────────” ＤＡＴＡ　”　Ｖｅｒｓｉｏｎ　УＤｅｔａｉｌ　　　　　　　　　　　　　　　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−０　　　　Уチョクホウタイヲカコウトスルカ゛シッハ゜イ” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−１　　　　Уチョクホウタイカ゛カケルヨウニナル　　　　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−３　　　　Уフクスウクミアワセ、チケイサクセイカノウニ” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−４　　　　Уシュシ゛ンコウノイト゛ウカ゛カノウニナル　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−５−１．０Уタイトルカ゛メンカ゛シ゛ッソウサレル　　　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−５−２．０Уヒ゛ョウカ゛ソクト゛カ゛３ハ゛イニアッフ゜” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−６　　　　УＢＧＭ、セッテイモ−ト゛ヲシ゛ッソウ　　　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−７　　　　Уカ゛メンニマッフ゜トハンテイヲシ゛ッソウ　” ＤＡＴＡ　”　┿┿ＮＯＷ┿┿┿СТТТТТТТТТТТТТТТТТТТТТ” ＤＡＴＡ　”　ＹＭ−８　　　　Уオフ゛シ゛ェクトヲオオハハ゛カクチョウ　　” ＤＡＴＡ　”　ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ” ’─────────────────────────── ＠ＴＥＬＥＰＯＲＴ ＣＬＳ：ＢＧＭＳＴＯＰ：ＣＯＬＯＲ　０ ？”スタ−トスルイチヲ　キメテクタ゛サイ” ＢＧＰＡＧＥ　０：ＢＥＥＰ　３４ ＢＧＦＩＬＬ　０，０，０，３２，２，７０９，９，０，０ ＦＯＲ　Ｙ＝０　ＴＯ　６３ ＲＥＡＤ　Ａ＄ ＦＯＲ　Ｘ＝０　ＴＯ　６３ Ｂ＄＝ＭＩＤ＄（Ａ＄，Ｘ，１） Ｈ＝ＶＡＬ（Ｂ＄） ＩＦ　Ｈ＝＝０　ＴＨＥＮ　ＢＧＡ＝３２：Ｃ＝８ ＩＦ　Ｈ＞＝１　ＴＨＥＮ　ＢＧＡ＝５７：Ｃ＝８ ＩＦ　Ｈ＞＝３　ＴＨＥＮ　ＢＧＡ＝５６：Ｃ＝８ ＩＦ　Ｈ＞＝５　ＴＨＥＮ　ＢＧＡ＝１３：Ｃ＝８ ＩＦ　Ｂ＄＝＝”╂”　ＴＨＥＮ　ＢＧＡ＝６　　：Ｃ＝８ ＩＦ　Ｂ＄＝＝”┿”　ＴＨＥＮ　ＢＧＡ＝３２０：Ｃ＝５ ＩＦ　Ｂ＄＝＝”□”　ＴＨＥＮ　ＢＧＡ＝５９０：Ｃ＝１１ ＢＧＰＵＴ　１，Ｘ，Ｙ，ＢＧＡ，Ｃ，０，０ ＮＥＸＴ ＮＥＸＴ ＠ＢＧＳＥＬＥＣＴ ＳＰＳＥＴ　０，６８，２，０，０，０ ＳＰＨＯＭＥ　０，８，８ ＭＳ＝２：ＡＸ＝１２０：ＡＹ＝８０ ＡＭ＝８　’イト゛ウワクノ　セッテイ ＡＸＭ＝２５５−ＡＭ＊８ ＡＹＭ＝１９１−ＡＭ＊８ ＡＸＳ＝ＡＭ＊８：ＡＹＳ＝ＡＭ＊８ ’─────────────────────────── ＠ＭＡＩＮＬＯＯＰ ＶＳＹＮＣ　１ ＧＯＳＵＢ　＠ＭＹＭＯＶＥ ＧＯＳＵＢ　＠ＯＢＪＯＦＳ ＧＯＳＵＢ　＠ＯＢＪＣＨＫ ＧＯＴＯ　＠ＭＡＩＮＬＯＯＰ ’─────────────────────────── ＠ＭＹＭＯＶＥ　’シ゛キノ　イト゛ウ Ｂ＝ＢＵＴＴＯＮ（０） ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＡＹ＝ＡＹ−ＭＳ ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＡＹ＝ＡＹ＋ＭＳ ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＡＸ＝ＡＸ−ＭＳ ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＡＸ＝ＡＸ＋ＭＳ ＩＦ　Ｂ　＝＝　１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＯＢＪＣＨＫ２ ＩＦ　Ｂ　＝＝　３２　ＴＨＥＮ　ＢＥＥＰ　４：ＧＯＳＵＢ　＠ＴＩＴＬＥＷＲＩＴＥ ＩＦ　ＡＹ＜ＡＹＳ　ＴＨＥＮ　ＡＹ＝ＡＹ＋ＭＳ：ＢＧＹ＝ＢＧＹ−ＭＳ：ＢＰＹ＝ＢＰＹ−ＭＳ ＩＦ　ＡＹ＞ＡＹＭ　ＴＨＥＮ　ＡＹ＝ＡＹ−ＭＳ：ＢＧＹ＝ＢＧＹ＋ＭＳ：ＢＰＹ＝ＢＰＹ＋ＭＳ ＩＦ　ＡＸ＜ＡＸＳ　ＴＨＥＮ　ＡＸ＝ＡＸ＋ＭＳ：ＢＧＸ＝ＢＧＸ−ＭＳ：ＢＰＸ＝ＢＰＸ−ＭＳ ＩＦ　ＡＸ＞ＡＸＭ　ＴＨＥＮ　ＡＸ＝ＡＸ−ＭＳ：ＢＧＸ＝ＢＧＸ＋ＭＳ：ＢＰＸ＝ＢＰＸ＋ＭＳ ＭＸ＝ＢＧＸ＋ＡＸ：ＭＹ＝ＢＧＹ＋ＡＹ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＯＢＪＯＦＳ　’オフ゛シ゛ェクトノイト゛ウ ＢＧＯＦＳ　１，ＢＧＸ，ＢＧＹ ＳＰＯＦＳ　０，ＡＸ，ＡＹ ＬＯＣＡＴＥ　０，２：？”（”；ＦＬＯＯＲ（ＭＸ／８）；”，”；ＦＬＯＯＲ（ＭＹ／８）；”）” ＲＥＴＵＲＮ ’─────────────────────────── ＠ＯＢＪＣＨＫ　’オフ゛シ゛ェクトノサイシュウカクニン　 ＢＧＲＥＡＤ（１，ＭＸ／８，ＭＹ／８），ＣＲ，Ｉ，Ｉ，Ｉ ＬＯＣＫ＝１：ＥＬ＝０ ＣＯＬＯＲ　４：ＬＯＣＡＴＥ　０，１：？”　Аテ゛スタ−トテ゛キマス　　　　　　　　　　　　　　”：ＣＯＬＯＲ　０ ＩＦ　ＭＸ＜０　　ＴＨＥＮ　ＥＬ＝１ ＩＦ　ＭＸ＞６３＊８　ＴＨＥＮ　ＥＬ＝１ ＩＦ　ＭＹ＜０　　ＴＨＥＮ　ＥＬ＝１ ＩＦ　ＭＹ＞６３＊８　ＴＨＥＮ　ＥＬ＝１ ＩＦ　ＣＲ＝＝３２　ＴＨＥＮ　ＬＯＣＫ＝０ ＩＦ　ＣＲ＝＝６　　ＴＨＥＮ　ＬＯＣＫ＝０ ＩＦ　ＣＲ＝＝５９０ＴＨＥＮ　ＬＯＣＫ＝０ ＩＦ　ＬＯＣＫ＝＝１　ＴＨＥＮ　ＬＯＣＡＴＥ　０，１：ＣＯＬＯＲ　７　：？”ソコカラスタ−トスルコトハ　テ゛キマセン！”：ＣＯＬＯＲ　０ ＩＦ　　　ＥＬ＝＝１　ＴＨＥＮ　ＬＯＣＡＴＥ　０，１：ＣＯＬＯＲ　１３：？”ソコハ　ケンカ゛イテ゛ス！！　　　　　　　”：ＣＯＬＯＲ　０ ＲＥＴＵＲＮ ’─────────────────────────── ＠ＯＢＪＣＨＫ２　’オフ゛シ゛ェクトノサイシュウカクニン　 ＩＦ　ＥＬ＝＝１　ＴＨＥＮ　ＬＯＣＫ＝１ ＩＦ　ＬＯＣＫ＝＝０　ＴＨＥＮ　ＳＥＴＰ＝１：ＭＸ＝ＦＬＯＯＲ（ＭＸ／８）：ＭＹ＝ＦＬＯＯＲ（ＭＹ／８）：ＧＯＴＯ　＠ＩＮＩＴ ＢＥＥＰ　１ ＲＥＴＵＲＮ ’─────────────────────────── ’ＥＮＤ

QR コード

プチコンmkII 向けの QR コードです。

本体

「山岳観光ソフト」本体です。
最終更新:VER-9.4:2014/12/20

+

旧バージョン

これは旧バージョンの物です。

付属キャラ

設定モードで専用のキャラクターを使いたい方は読み込んでください。
旧バージョンで読み込んだ方は、再度読み込む必要はありません。
端についている"COL:0012"の読み込みもお忘れなく。

アンケート

遊んで下さった方に感謝。

選択肢	投票
保存しました!	23

Q1:「山岳観光ソフト」を評価するなら?

選択肢	投票
凄い！[2.3789787878979E+184]	5

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

• 天郷思音 : すごい。そのうえmkIIとはすごい。1票いれとこう。 (2014/12/18 (木) 15:23:17)
• かずえもん : 天郷思音さんと同じでmkllでコレはすごいと思います！ (2014/12/18 (木) 16:05:26)
• 名無しさん : アナタカミサマ、スゴクサイコウ (2014/12/18 (木) 16:55:52)
• 天郷思音 : ただ横向くとかできないみたいなのが難。あとキャラはプチコンに最初から入っているやつも使えるといいかも。 (2014/12/18 (木) 17:12:44)
• CRT(投稿者) : 天郷思音さん、ご指摘ありがとうございます。次の更新で取り入れてみようと思います！ (2014/12/18 (木) 21:04:36)
• マリオBGMの作成者 : マインクラフト作れそうだね！！ バージョンアップにご期待します！！ (2014/12/19 (金) 00:35:12)
• 名無しさん : 1008行目ザブン？ (2014/12/20 (土) 14:09:06)
• CRT(投稿者) : すみません、「ジブン」を打ち間違えました。気になるようでしたら、直してください。 (2014/12/20 (土) 15:00:18)
• 名無しさん : 更新内容が欲しい (2014/12/21 (日) 10:33:36)
• Citrine : 勝手ながら、新バージョンのプログラムリストを追加させていただきました (2014/12/21 (日) 22:27:41)
• 天郷思音 : あれO:11までできるけどゲージはみ出てる (2014/12/24 (水) 17:10:17)
• 天郷思音 : 設定して始める場合のみ起こる。簡単モードだと7が限界。 (2014/12/24 (水) 17:17:50)
• CRT(投稿者) : ご指摘ありがとうございます。それは仕様で、高速描画モードを選択することで使用できます。ところが、編集中のミスでゲージの長さを調整する部分を削除してしまっていたようです。 (2014/12/25 (木) 16:53:50)
• CRT(投稿者) : 説明の文字と一緒に修正しようと思います。 (2014/12/25 (木) 16:55:21)
• 名無しさん : マイクラ期待 (2014/12/30 (火) 08:49:22)
• 名無しさん : うごから (2015/05/22 (金) 17:26:10)
• 名無しさん : パクリ (2022/07/29 (金) 16:11:12)

お名前: