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

パンくずリスト

• トップ
• Toukou
• Drop-e

2020年8月11日投稿 / 投稿者 : Na / タグ : 投稿プログラム ゲーム 音楽 リズムゲーム 音ゲー MML オリジナル曲 QRコード mkII専用 Dropシリーズ

概要

右上からシューティングのザコ敵みたいなものが流れてくるので音楽に合わせてボタンを押すだけの簡単なリズムゲームです。
プリセット3曲、アレンジ1曲、オリジナル3曲の合計7曲収録しています。

新作のDrop-mができました。

操作方法(メニュー)

• 十字キー上下で曲選択
• 十字キー左右で難易度選択(かんたん、むずいの2つ)
• Aボタンでゲームを始める
• Yボタンでオートプレイを見る
• Bボタンでタイトルに戻る

SELECTで強制終了せずにタイトルで「やめる」を選択して終了すると、各リソースがＣＨＲＩＮＩＴされます。

遊び方

流れてくるザコ敵が斜面と水平面の境界ぐらいに来たらどれかのボタンを押します。
色がそれぞれ違いますが押すボタンはどれでもOKです。
また、大きめのザコ敵の場合は2個のボタンを同時に押す必要があります。
精度(よい、ふつう、だめ)の判定によって爆発エフェクト?が違います。

クリア(80000点以上)すると★が1つ、
クリアかつフルコンボすると★が2つ、
全て「よい」判定でフルコンボすると★が3つもらえます。

STARTボタンで曲を途中で終了してメニューに戻ることができます。

収録曲

• BGM14 (プリセット)
• リズミカル☆チャイム (オリジナル、3号より移植)
• BGM11 (プリセットのアレンジ)
• Get Started! ver.3 (オリジナル、3号で公開した曲のリメイク)
• BGM23 (プリセット)
• BGM02 (プリセット)
• かわりゆくもの (オリジナル)

タイトルBGM→ リズミカル☆リリーブ(PSGver.) (オリジナル)

スクリーンショット・動画

+

...

QR コード

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

パッケージパラメーターは１１３０２です。

プログラムリスト

+

譜面データとMMLを除き、約1200行

’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ ’　Ｄｒｏｐ−ｅ　　ｂｙ　Ｎａ　 ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ ’ＳＡＶＥ　”ＮＡ＿ＤＲＰＥ”，”１１３０２” ’Ｐａｃｋａｇｅ： ’　ＳＰＵ１，ＢＧＵ０，ＢＧＵ１，ＢＧＦ０，ＳＣＵ０ ’ＬＩＳＴ　＠ＬＩＳＴ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＣＯＬＯＲ　０，０：ＣＬＳ ＧＰＡＧＥ　１，１，１：ＧＣＬＳ　 ＧＰＡＧＥ　０，０，０：ＧＣＬＳ　 ＳＰＰＡＧＥ　１：ＳＰＣＬＲ　 ＳＰＰＡＧＥ　０：ＳＰＣＬＲ　 ＢＧＰＡＧＥ　１：ＢＧＣＬＲ　 ＢＧＰＡＧＥ　０：ＢＧＯＦＳ　０，０，０：ＢＧＣＬＲ　１ ＣＬＥＡＲ ＢＧＭＳＴＯＰ　 ？”Ｌｏａｄｉｎｇ．．． ＭＥＭ＄＝”” ＳＹＳＢＥＥＰ＝０ ＳＡＶＦＩＬＥ＄＝”ＭＥＭ：ＮＡ＿ＤＲＰＥ” ＬＯＡＤ　ＳＡＶＦＩＬＥ＄，０ ＩＦ　ＰＡＣＫＡＧＥ＄＝＝”１１３０２”　ＴＨＥＮ　＠ＬＤＳＫＩＰ ＬＯＡＤ　”ＢＧＵ０Ｕ：ＳＬＯＰ”，０ ＬＯＡＤ　”ＢＧＵ１Ｕ：ＤＲＯＰＥ＿ＬＧ”，０ ＬＯＡＤ　”ＳＰＵ１Ｕ：ＮＵＭ１６”，０ ＬＯＡＤ　”ＳＣＵ０Ｕ：ＤＲＰ２”，０ ＬＯＡＤ　”ＢＧＦ０Ｕ：ＨＩＲＡＫＡＴＡ”，０ ＢＥＥＰ　 ＠ＬＤＳＫＩＰ ＳＹＳＢＥＥＰ＝１ ＢＲＥＰＥＡＴ　０，１３，８ ＢＲＥＰＥＡＴ　１，１３，８ ＢＲＥＰＥＡＴ　２，２０，１１ ＢＲＥＰＥＡＴ　３，２０，１１ ＳＰＰＡＧＥ　０ ＢＧＰＡＧＥ　０ ＧＰＡＧＥ　０，０，０ ＧＰＲＩＯ　１ ＦＯＲ　Ｉ＝０　ＴＯ　３ 　’２５２ハ゛ンノＳＰヲケス 　ＣＨＲＳＥＴ　”ＳＰＵ３”，２４０＋Ｉ，”０”＊６４ 　’５２ハ゛ンノＳＰヲケス 　ＣＨＲＳＥＴ　”ＳＰＵ０”，２０８＋Ｉ，”０”＊６４ ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　２５５ 　’ＳＰＵ１カラＳＰＳ１Ｌニコヒ゜− 　ＣＨＲＲＥＡＤ（”ＳＰＵ１”，Ｉ），Ｃ＄ 　ＣＨＲＳＥＴ　”ＳＰＳ１Ｌ”，Ｉ，Ｃ＄ 　’ＢＧＦ０カラＢＧＵ３ニコヒ゜− 　ＣＨＲＲＥＡＤ（”ＢＧＦ０”，Ｉ），Ｃ＄ 　Ｃ２＄＝”” 　ＦＯＲ　Ｊ＝０　ＴＯ　６３ 　　ＩＦ　ＭＩＤ＄（Ｃ＄，Ｊ，１）＝＝”０”　ＴＨＥＮ　Ｃ２＄＝Ｃ２＄＋”３”　ＥＬＳＥ　Ｃ２＄＝Ｃ２＄＋”Ｄ” 　ＮＥＸＴ 　ＣＨＲＳＥＴ　”ＢＧＵ３”，Ｉ，Ｃ２＄ 　’ＢＧＦ０カラＢＧＦ０Ｌニコヒ゜− 　ＣＨＲＲＥＡＤ（”ＢＧＦ０”，Ｉ），Ｃ＄ 　ＣＨＲＳＥＴ　”ＢＧＦ０Ｌ”，Ｉ，Ｃ＄ ＮＥＸＴ ＧＰ＝０ Ｖ＿Ｓ＝０　’？−１：ヒョウシ゛ナシ（アニメフレ−ム）　０：ハンテイオワリ Ｖ＿Ｔ１＝１ Ｖ＿Ｔ２＝２ Ｖ＿ＢＮ＝３ Ｖ＿ＢＣ＝４ Ｖ＿ＢＶ＝５ Ｖ＿ＢＰ＝６ Ｖ＿Ｘ＝７ ’シュルイ ＫＭＡＸ＝２６ ＤＩＭ　ＫＣ［ＫＭＡＸ］ ＤＩＭ　ＫＢＮ［ＫＭＡＸ］ ＤＩＭ　ＫＢＣ［ＫＭＡＸ］ ＤＩＭ　ＫＢＶ［ＫＭＡＸ］ ＤＩＭ　ＫＢＰ［ＫＭＡＸ］ ＤＩＭ　ＫＸ［ＫＭＡＸ］ ＤＩＭ　ＬＶ＄［２］ ＬＶ＄［０］＝”│л■л” ＬＶ＄［１］＝”а┰м├” ＤＩＭ　ＨＮＴ＄［４］ ＨＮＴ＄［０］＝”е├” ＨＮＴ＄［１］＝”Ы▲┼” ＨＮＴ＄［２］＝”■мб” ＨＮＴ＄［３］＝”ミス” ＳＶＬＥＮ＝３５ ＳＶＬＥＮ１＝１７ ’ＳＥ ＢＧＭＳＥＴ　１２８，”Ｔ４８０＠８６＠Ｄ２４Ｂ−６＿＜Ｂ− ＢＧＭＳＥＴ　１２９，”Ｔ４８０＠８６＠Ｄ２４＜Ｂ−６＿＞Ｂ− ＢＧＭＳＥＴＤ　１４０，＠ＭＴＩＴ ’キョク ＲＥＳＴＯＲＥ　＠ＬＩＳＴ ＲＥＡＤ　ＢＧＭ＿ＣＮＴ ＩＦ　ＬＥＮ（ＭＥＭ＄）＜ＳＶＬＥＮ＊ＢＧＭ＿ＣＮＴ　ＴＨＥＮ　ＭＥＭ＄＝ＭＥＭ＄＋ＣＨＲ＄（０）＊（ＳＶＬＥＮ＊ＢＧＭ＿ＣＮＴ−ＬＥＮ（ＭＥＭ＄）） ＤＩＭ　ＢＧＭ＿ＩＤ［ＢＧＭ＿ＣＮＴ］ ＤＩＭ　ＢＧＭ＿ＶＯＬ［ＢＧＭ＿ＣＮＴ］ ＤＩＭ　ＢＧＭ＿ＴＩＴ＄［ＢＧＭ＿ＣＮＴ］ ＤＩＭ　ＢＧＭ＿ＣＭＰ＄［ＢＧＭ＿ＣＮＴ］ ＤＩＭ　ＢＧＭ＿ＬＶ［ＢＧＭ＿ＣＮＴ，２］ ＤＩＭ　ＢＧＭ＿ＢＧ＄［ＢＧＭ＿ＣＮＴ］ ＦＯＲ　Ｉ＝０　ＴＯ　ＢＧＭ＿ＣＮＴ−１ 　ＲＥＡＤ　ＩＤ，ＶＯＬ，Ｔ＄，Ｃ＄，ＬＶ１，ＬＶ２ 　ＢＧＭ＿ＩＤ［Ｉ］＝ＩＤ 　ＢＧＭ＿ＶＯＬ［Ｉ］＝ＶＯＬ 　ＢＧＭ＿ＴＩＴ＄［Ｉ］＝Ｔ＄ 　ＢＧＭ＿ＣＭＰ＄［Ｉ］＝Ｃ＄ 　ＢＧＭ＿ＬＶ［Ｉ，０］＝ＬＶ１ 　ＢＧＭ＿ＬＶ［Ｉ，１］＝ＬＶ２ 　ＢＧ＄＝”” 　ＦＯＲ　Ｊ＝０　ＴＯ　２３ 　　ＢＧ＄＝ＢＧ＄＋”Ｃ”＋ＨＥＸ＄（ＡＳＣ（ＭＩＤ＄（Ｔ＄，Ｊ，１）＋”　”）＋７６８，３） 　ＮＥＸＴ 　ＢＧＭ＿ＢＧ＄［Ｉ］＝ＢＧ＄ ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　ＢＧＭ＿ＣＮＴ−１ 　ＩＦ　ＢＧＭ＿ＩＤ［Ｉ］＞＝１２８　ＴＨＥＮ　ＢＧＭＳＥＴＤ　ＢＧＭ＿ＩＤ［Ｉ］，”＠Ｍ”＋ＳＴＲ＄（ＢＧＭ＿ＩＤ［Ｉ］） ＮＥＸＴ ＣＲＢ＄＝”ＢＧ”：ＣＲＩ＝＆ＨＤＢ：ＧＯＳＵＢ　＠ＣＯＬＲＤ ＢＧ＿Ｃ＄＝Ｃ＄ ＣＯＬＳＥＴ　”ＢＧ”，０，ＢＧ＿Ｃ＄ ＢＧＰＡＧＥ　１ ＢＧ＿Ｃ１＄＝”１０１０２０” ＣＯＬＳＥＴ　”ＢＧ”，０，ＢＧ＿Ｃ１＄ ＶＩＳＩＢＬＥ　１，１，１，１，１，１ ＠ＴＩＴ ＧＰＡＧＥ　１ ＳＰＰＡＧＥ　１ ＧＣＬＳ　 ＳＰＣＬＲ ＧＰＡＧＥ　０ ＳＰＰＡＧＥ　０ ＢＧＰＡＧＥ　０ ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＦ６，”２０３８８０” ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＦＦ，”ＦＦＦＦＦＦ” ＧＣＬＳ　 ＣＬＳ ＢＧＦＩＬＬ　１，０，０，３１，０，”８０１Ａ” ’ＢＧＦＩＬＬ　１，０，１，３１，１，”８０Ｂ３８０Ｂ４” ＢＧＦＩＬＬ　１，０，１，３１，７，”８００３” ＢＧＯＦＳ　１，０，−１４０ ＬＯＣＡＴＥ　９，１３：？”リス゛ムケ゛−ム ＬＯＣＡＴＥ　１４，１４：？”Ｄｒｏｐ−ｅ ＬＯＣＡＴＥ　１１，１６：？”（ｃ）２０２０　Ｎａ ＬＯＣＡＴＥ　１３，１９：？”Й　Щ┝мбз ＬＯＣＡＴＥ　１３，２１：？”　　─кз ＴＳＥＬ＝０ ＢＧＭＰＬＡＹ　０，１４０，７０ ＴＩＴＣＮＴ＝０ ＠ＴＩＴＬＯＯＰ 　ＢＸ＝２５６＋１２＋８＊ＳＩＮ（ＲＡＤ（ＴＩＴＣＮＴ％３６０）） 　ＢＹ＝３２０＋８＋８＊ＳＩＮ（ＲＡＤ（１．５＊ＴＩＴＣＮＴ％３６０）） 　ＢＧＯＦＳ　０，ＢＸ，ＢＹ 　 　ＶＳＹＮＣ　１ 　Ｂ＝ＢＵＴＴＯＮ（１） 　ＩＦ　Ｂ　ＡＮＤ　１＋２　ＴＨＥＮ　ＢＥＥＰ　９：ＴＳＥＬ＝！ＴＳＥＬ 　ＬＯＣＡＴＥ　１３，１９：？ＭＩＤ＄（”Й　”，ＴＳＥＬ，１） 　ＬＯＣＡＴＥ　１３，２１：？ＭＩＤ＄（”　Й”，ＴＳＥＬ，１） 　ＩＦ　（Ｂ　ＡＮＤ　１６）＞０　ＡＮＤ　ＴＳＥＬ＝＝０　ＴＨＥＮ　＠ＭＥＮＵＬＯＡＤ 　ＩＦ　（Ｂ　ＡＮＤ　１６）＞０　ＡＮＤ　ＴＳＥＬ＝＝１　ＴＨＥＮ　＠ＥＮＤ 　 　ＴＩＴＣＮＴ＝（ＴＩＴＣＮＴ＋１．２）％７２０ ＧＯＴＯ　＠ＴＩＴＬＯＯＰ ＠ＥＮＤ ＢＥＥＰ　４ ＢＧＭＳＴＯＰ　０，１ ＡＣＬＳ ＣＨＲＩＮＩＴ　”ＢＧＵ０Ｕ” ＣＨＲＩＮＩＴ　”ＢＧＵ１Ｕ” ＣＨＲＩＮＩＴ　”ＳＰＵ１Ｕ” ＣＨＲＩＮＩＴ　”ＳＰＳ１Ｌ” ＣＨＲＩＮＩＴ　”ＢＧＦ０Ｕ” ＣＨＲＩＮＩＴ　”ＢＧＦ０Ｌ” ＣＨＲＩＮＩＴ　”ＢＧＵ３Ｌ” ＥＮＤ ＠ＭＥＮＵＬＯＡＤ ＢＥＥＰ　３ ＢＧＭＳＴＯＰ　０，０．５ ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＦ６，ＢＧ＿Ｃ＄ ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＦＦ，ＢＧ＿Ｃ＄ ＭＥＮＵＳＣＲ＝１ ＢＧＭ＝０ ＠ＭＥＮＵ ＣＬＳ ＧＰＡＧＥ　１ ＳＰＰＡＧＥ　１ ＢＧＰＡＧＥ　１ ＧＣＬＳ ＦＯＲ　Ｉ＝０　ＴＯ　２３ ＰＮＬＳＴＲ　０，Ｉ，”　”＊３２ ＮＥＸＴ ＳＰＣＬＲ ＢＧＣＬＲ ＦＯＲ　Ｉ＝０　ＴＯ　２ 　ＳＰＳＥＴ　Ｉ，９２，１２，０，０，０ 　ＳＰＯＦＳ　Ｉ，２４＋Ｉ＊２８，５８ 　ＳＰＳＣＡＬＥ　Ｉ，２００ ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　５ 　ＳＰＳＥＴ　３０＋Ｉ，６４＋１０，０，０，０，０ 　ＳＰＯＦＳ　３０＋Ｉ，２２０−１６＊Ｉ，６８ ＮＥＸＴ ＧＬＩＮＥ　１６，１２４，２３９，１２４，１５ ＰＮＬＳＴＲ　９，１７，”│┌□┌┝■　И　Ш　│┰м” ＰＮＬＳＴＲ　１６，１７，”И”，６ ＳＰＳＥＴ　３，９２，０，０，０，０ ＳＰＯＦＳ　３，６６，１５０ ＳＰＳＣＡＬＥ　３，２００ ＳＰＳＥＴ　４，６４＋１３，０，０，０，０ ＳＰＯＦＳ　４，９８，１６０ ＰＮＬＳＴＲ　１９，２１，”／”＋ＲＩＧＨＴ＄（”　　”＋ＳＴＲ＄（６＊ＢＧＭ＿ＣＮＴ），３） ＳＴＡＲＮＵＭ＝０ ＦＯＲ　Ｉ＝０　ＴＯ　ＢＧＭ＿ＣＮＴ−１ 　ＳＴＡＲ＝ＡＳＣ（ＭＩＤ＄（ＭＥＭ＄，ＳＶＬＥＮ＊Ｉ，１）） 　ＦＯＲ　Ｊ＝０　ＴＯ　５ 　　ＩＦ　ＳＴＡＲ　ＡＮＤ　１　ＴＨＥＮ　ＳＴＡＲＮＵＭ＝ＳＴＡＲＮＵＭ＋１ 　　ＳＴＡＲ＝ＳＴＡＲ／２ 　ＮＥＸＴ ＮＥＸＴ ＳＶ＝ＳＴＡＲＮＵＭ ＦＯＲ　Ｉ＝０　ＴＯ　１ 　ＳＰＳＥＴ　５＋Ｉ，６４＋１０＊（Ｉ＞０　ＡＮＤ　ＳＶ＜１０），０，０，０，０ 　ＳＰＯＦＳ　５＋Ｉ，１３０−１６＊Ｉ，１６０ ＮＥＸＴ ＳＰＡＮＩＭ　５，ＳＶ％１０＋１，４，１ ＳＰＡＮＩＭ　６，ＦＬＯＯＲ（ＳＶ／１０）＋１，４，１ ＷＡＩＴ　１ ＧＰＡＧＥ　０ ＳＰＰＡＧＥ　０ ＢＧＰＡＧＥ　０ ＧＣＬＳ ＳＰＣＬＲ ＢＧＦＩＬＬ　１，３２，０，６３，２３，０ ＣＯＬＳＥＴ　”ＢＧ”，０，ＢＧ＿Ｃ＄ ＢＧ＿ＭＹ＝（４０−３０）／２ ＢＧ＿ＭＹＧ＝ＢＧ＿ＭＹ＊８ ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ−１９２ ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ−１９２ ＬＯＣＡＴＥ　０，２３ ？”↑↓：┥л┿┨┌　←→：○л├□м　А：Щ┝мбз　Х：オ−ト　”； ＧＦＩＬＬ　０，１８３，２５５，１９１，２６ ＮＯＢＧＭ＝０ ＭＥＮＵＣＮＴ＝０ ＢＧＭＳＴＯＰＣＮＴ＝０ ＭＯＶＥ＝０ ＥＸＣＨＧ＝０ ＥＸ＝０ ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋３６，１５＊ＭＥＮＵＳＣＲ ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３６，１５＊ＭＥＮＵＳＣＲ ＭＥＮＵＳＣＲ＝０ ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ１ ＶＳＹＮＣ　１ ＠ＭＥＮＵＬＯＯＰ 　Ｂ＝ＢＵＴＴＯＮ（１） 　 　ＩＦ　Ｂ　ＡＮＤ　１２８　ＴＨＥＮ　ＡＵＴＯ＝１：ＧＯＴＯ　＠ＧＡＭＥ 　ＩＦ　Ｂ　ＡＮＤ　１６　ＴＨＥＮ　ＡＵＴＯ＝０：ＧＯＴＯ　＠ＧＡＭＥ 　ＩＦ　Ｂ　ＡＮＤ　３２　ＴＨＥＮ　ＢＥＥＰ　４：ＧＯＳＵＢ　＠ＭＥＮＵＷＡＩＴ：ＧＯＴＯ　＠ＴＩＴ 　 　ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＭＯＶＥ＝ＭＯＶＥ−１：ＢＥＥＰ　９ 　ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＭＯＶＥ＝ＭＯＶＥ＋１：ＢＥＥＰ　９ 　 　ＩＦ　（Ｂ　ＡＮＤ　４）＞０　ＡＮＤ　ＥＸＣＨＧ＝＝０　ＴＨＥＮ　ＥＸＣＨＧ＝−１０：ＥＸ＝！ＥＸ：ＢＧＭＰＬＡＹ　１２９：ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ１ 　ＩＦ　（Ｂ　ＡＮＤ　８）＞０　ＡＮＤ　ＥＸＣＨＧ＝＝０　ＴＨＥＮ　ＥＸＣＨＧ＝　１０：ＥＸ＝！ＥＸ：ＢＧＭＰＬＡＹ　１２８：ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ１ 　 　ＧＯＳＵＢ　＠ＭＥＮＵＦＲＭ ＧＯＴＯ　＠ＭＥＮＵＬＯＯＰ ＠ＭＥＮＵＦＲＭ 　ＩＦ　！ＢＧＭＣＨＫ（６）　ＴＨＥＮ　ＢＧＭＳＴＯＰＣＮＴ＝ＢＧＭＳＴＯＰＣＮＴ＋１ 　 　ＩＦ　ＭＯＶＥ＜０　ＴＨＥＮ　＠ＭＥＮＵ＿ＵＰ 　ＩＦ　ＭＯＶＥ＞０　ＴＨＥＮ　＠ＭＥＮＵ＿ＤＮ 　 　ＩＦ　ＭＥＮＵＣＮＴ＝＝１５　ＴＨＥＮ　＠ＭＥＮＵ＿ＭＶ 　 　ＩＦ　（ＭＥＮＵＣＮＴ＝＝２０　ＯＲ　ＢＧＭＳＴＯＰＣＮＴ＞＝１２０）ＡＮＤ　！ＮＯＢＧＭ　ＴＨＥＮ　ＢＧＭＰＬＡＹ　６，ＢＧＭ＿ＩＤ［ＢＧＭ］，ＢＧＭ＿ＶＯＬ［ＢＧＭ］：ＢＧＭＳＴＯＰＣＮＴ＝０ 　 　ＩＦ　ＭＥＮＵＣＮＴ＞１５　ＡＮＤ　ＥＸＣＨＧ！＝０　ＴＨＥＮ　＠ＭＥＮＵ＿ＥＸ 　 ＠ＭＥＮＵＦＲＭＥ 　ＶＳＹＮＣ　１ 　ＩＦ　ＭＥＮＵＣＮＴ＜１００００　ＴＨＥＮ　ＭＥＮＵＣＮＴ＝ＭＥＮＵＣＮＴ＋１ ＲＥＴＵＲＮ ＠ＭＥＮＵ＿ＵＰ 　ＩＦ　ＢＧＭ＝＝０　ＴＨＥＮ　＠ＭＥＮＵＵＰＳＫＰ 　ＩＦ　ＭＥＮＵＣＮＴ＞１５　ＴＨＥＮ　＠ＭＥＮＵ＿ＲＭＶ 　ＩＦ　ＭＥＮＵＣＮＴ＜０　ＴＨＥＮ　＠ＭＥＮＵＦＲＭＥ 　ＢＧＭ＝ＢＧＭ−１ 　ＥＸ＝０：ＥＸＣＨＧ＝０ 　ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ 　ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋６０ 　ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋３６，６ 　ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋６０ 　ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３６，６ 　ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ１ 　ＭＥＮＵＣＮＴ＝−６ ＠ＭＥＮＵＵＰＳＫＰ 　ＭＯＶＥ＝ＭＯＶＥ＋１ ＧＯＴＯ　＠ＭＥＮＵＦＲＭＥ ＠ＭＥＮＵ＿ＤＮ 　ＩＦ　ＢＧＭ＝＝ＢＧＭ＿ＣＮＴ−１　ＴＨＥＮ　＠ＭＥＮＵＤＮＳＫＰ 　ＩＦ　ＭＥＮＵＣＮＴ＞１５　ＴＨＥＮ　＠ＭＥＮＵ＿ＲＭＶ 　ＩＦ　ＭＥＮＵＣＮＴ＜０　ＴＨＥＮ　＠ＭＥＮＵＦＲＭＥ 　ＢＧＭ＝ＢＧＭ＋１ 　ＥＸ＝０：ＥＸＣＨＧ＝０ 　ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ 　ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋１２ 　ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋３６，６ 　ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋１２ 　ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３６，６ 　ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ１ 　ＭＥＮＵＣＮＴ＝−６ ＠ＭＥＮＵＤＮＳＫＰ 　ＭＯＶＥ＝ＭＯＶＥ−１ ＧＯＴＯ　＠ＭＥＮＵＦＲＭＥ ＠ＭＥＮＵ＿ＬＳ ＦＯＲ　Ｉ＝０　ＴＯ　１０ 　Ｌ＝Ｉ＞＝５ 　ＩＦ　ＢＧＭ−５＋Ｉ＜０　ＴＨＥＮ　＠ＭＬＳＣＬＲ 　ＩＦ　ＢＧＭ−５＋Ｉ＞＝ＢＧＭ＿ＣＮＴ　ＴＨＥＮ　＠ＭＬＳＣＬＲ 　ＢＧＰＵＴ　Ｌ，３２＋３，ＢＧ＿ＭＹ＋Ｉ＊３，”Ｃ０ＡＤ” 　ＢＧＦＩＬＬ　Ｌ，３２＋４，ＢＧ＿ＭＹ＋Ｉ＊３，６３−４，ＢＧ＿ＭＹ＋Ｉ＊３，”Ｃ０ＡＥ” 　ＢＧＰＵＴ　Ｌ，６３−３，ＢＧ＿ＭＹ＋Ｉ＊３，”Ｃ０ＡＦ” 　ＢＧＰＵＴ　Ｌ，３２＋３，ＢＧ＿ＭＹ＋Ｉ＊３＋１，”Ｃ０ＣＤ” 　ＢＧＦＩＬＬ　Ｌ，３２＋４，ＢＧ＿ＭＹ＋Ｉ＊３＋１，６３−４，ＢＧ＿ＭＹ＋Ｉ＊３＋１，”Ｃ０ＣＥ” 　ＢＧＰＵＴ　Ｌ，６３−３，ＢＧ＿ＭＹ＋Ｉ＊３＋１，”Ｃ０ＣＦ” 　ＢＧＰＵＴ　Ｌ，３２＋３，ＢＧ＿ＭＹ＋Ｉ＊３＋２，”Ｃ０ＥＤ” 　ＢＧＦＩＬＬ　Ｌ，３２＋４，ＢＧ＿ＭＹ＋Ｉ＊３＋２，６３−４，ＢＧ＿ＭＹ＋Ｉ＊３＋２，”Ｃ０ＥＥ” 　ＢＧＰＵＴ　Ｌ，６３−３，ＢＧ＿ＭＹ＋Ｉ＊３＋２，”Ｃ０ＥＦ” ’キョクタイトル 　ＢＧＦＩＬＬ　Ｌ，３２＋４，ＢＧ＿ＭＹ＋Ｉ＊３＋１，６３−４，ＢＧ＿ＭＹ＋Ｉ＊３＋１，ＢＧＭ＿ＢＧ＄［ＢＧＭ−５＋Ｉ］ ＠ＭＬＳＳＫＩＰ ＮＥＸＴ ＧＦＩＬＬ　２４−４，８０−２，２３２＋３，１１４，０ ＲＥＴＵＲＮ ＠ＭＥＮＵ＿ＬＳ１ ＳＶＤＡＴＡ＄＝ＭＩＤ＄（ＭＥＭ＄，ＳＶＬＥＮ＊ＢＧＭ，ＳＶＬＥＮ） ＳＴＡＲ＝ＡＳＣ（ＳＶＤＡＴＡ＄） ＳＶＤＡＴＡ１＄＝ＭＩＤ＄（ＳＶＤＡＴＡ＄，１＋ＳＶＬＥＮ１＊ＥＸ，ＳＶＬＥＮ１） ＳＣＯＲＥ＄＝ＬＥＦＴ＄（ＳＶＤＡＴＡ１＄，５） ＯＬＤＳＣＯＲＥ＝ＶＡＬ（”＆Ｈ”＋ＳＣＯＲＥ＄） ＳＣＯＲＥ＄＝ＲＩＧＨＴ＄（”　　　　　”＋ＳＴＲ＄（ＯＬＤＳＣＯＲＥ），６） ＨＮＴ１＄＝ＲＩＧＨＴ＄（”　　　”＋ＳＴＲ＄（ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＳＶＤＡＴＡ１＄，５，３））），４） ＨＮＴ２＄＝ＲＩＧＨＴ＄（”　　　”＋ＳＴＲ＄（ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＳＶＤＡＴＡ１＄，８，３））），４） ＨＮＴ３＄＝ＲＩＧＨＴ＄（”　　　”＋ＳＴＲ＄（ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＳＶＤＡＴＡ１＄，１１，３））），４） ＨＮＴ４＄＝ＲＩＧＨＴ＄（”　　　”＋ＳＴＲ＄（ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＳＶＤＡＴＡ１＄，１４，３））），４） ＧＰＡＧＥ　１ ＳＰＰＡＧＥ　１ ＧＦＩＬＬ　２４，２１，２５５，３９，０ ＧＴ＄＝ＢＧＭ＿ＴＩＴ＄［ＢＧＭ］ ＧＸ＝２４：ＧＹ＝２１：ＧＳ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＰＮＬＳＴＲ　３，６，ＬＶ＄［ＥＸ］ Ｌ１＄＝”Ｌｖ．”＋ＲＩＧＨＴ＄（”　”＋ＳＴＲ＄（ＢＧＭ＿ＬＶ［ＢＧＭ，ＥＸ］），２） ＰＮＬＳＴＲ　９，６，Ｌ１＄ ＰＮＬＳＴＲ　１７，７，”ハイスコア” ＳＩ＝３０：ＳＣ＝６：ＳＺ＝０：ＳＶ＝ＯＬＤＳＣＯＲＥ：ＧＯＳＵＢ　＠ＳＣＳＥＴ ＦＯＲ　Ｉ＝０　ＴＯ　３ ＰＮＬＳＴＲ　６＋６＊Ｉ，１２，ＨＮＴ＄［Ｉ］ ＮＥＸＴ ＰＮＬＳＴＲ　７，１３，ＨＮＴ１＄ ＰＮＬＳＴＲ　１３，１３，ＨＮＴ２＄ ＰＮＬＳＴＲ　１９，１３，ＨＮＴ３＄ ＰＮＬＳＴＲ　２５，１３，ＨＮＴ４＄ Ｂ＝１＋７＊ＥＸ ＦＯＲ　Ｉ＝０　ＴＯ　２ 　ＳＰＣＨＲ　Ｉ，９２，１２＊（（ＳＴＡＲ　ＡＮＤ　Ｂ）＝＝０），０，０，０ 　Ｂ＝Ｂ＊２ ＮＥＸＴ ＧＰＡＧＥ　０ ＳＰＰＡＧＥ　０ ＲＥＴＵＲＮ ＠ＭＬＳＣＬＲ 　ＢＧＦＩＬＬ　Ｌ，３２＋３，ＢＧ＿ＭＹ＋Ｉ＊３，６３−３，ＢＧ＿ＭＹ＋Ｉ＊３＋２，０ ＧＯＴＯ　＠ＭＬＳＳＫＩＰ ＠ＭＥＮＵ＿ＭＶ ＢＧＦＩＬＬ　１，３２＋３，ＢＧ＿ＭＹ＋５＊３，６３−３，ＢＧ＿ＭＹ＋５＊３＋２，０ ＩＦ　！ＮＯＢＧＭ　ＴＨＥＮ　ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋４０，６ ＩＦ　！ＮＯＢＧＭ　ＴＨＥＮ　ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３２，６ ＧＰＵＴＣＨＲ　２４−４，８０−２，”ＢＧＵ０”，＆ＨＡＤ，１２，１ ＧＰＵＴＣＨＲ　２４−４，８８−２，”ＢＧＵ０”，＆ＨＣＤ，１２，１ ＧＰＵＴＣＨＲ　２４−４，９６−２，”ＢＧＵ０”，＆ＨＣＤ，１２，１ ＧＰＵＴＣＨＲ　２４−４，１０４−２，”ＢＧＵ０”，＆ＨＣＤ，１２，１ ＧＰＵＴＣＨＲ　２４−４，１０４＋２，”ＢＧＵ０”，＆ＨＥＤ，１２，１ ＦＯＲ　Ｉ＝３２−４　ＴＯ　２２４−４　ＳＴＥＰ　８ 　ＧＰＵＴＣＨＲ　Ｉ，８０−２，”ＢＧＵ０”，＆ＨＡＥ，１２，１ 　ＧＰＵＴＣＨＲ　Ｉ，８８−２，”ＢＧＵ０”，＆ＨＣＥ，１２，１ 　ＧＰＵＴＣＨＲ　Ｉ，９６−２，”ＢＧＵ０”，＆ＨＣＥ，１２，１ 　ＧＰＵＴＣＨＲ　Ｉ，１０４−２，”ＢＧＵ０”，＆ＨＣＥ，１２，１ 　ＧＰＵＴＣＨＲ　Ｉ，１０４＋２，”ＢＧＵ０”，＆ＨＥＥ，１２，１ ＮＥＸＴ ＧＰＵＴＣＨＲ　２２４＋４，８０−２，”ＢＧＵ０”，＆ＨＡＦ，１２，１ ＧＰＵＴＣＨＲ　２２４＋４，８８−２，”ＢＧＵ０”，＆ＨＣＦ，１２，１ ＧＰＵＴＣＨＲ　２２４＋４，９６−２，”ＢＧＵ０”，＆ＨＣＦ，１２，１ ＧＰＵＴＣＨＲ　２２４＋４，１０４−２，”ＢＧＵ０”，＆ＨＣＦ，１２，１ ＧＰＵＴＣＨＲ　２２４＋４，１０４＋２，”ＢＧＵ０”，＆ＨＥＦ，１２，１ Ｌ１＄＝ＬＶ＄［０］＋”　Ｌｖ．”＋ＲＩＧＨＴ＄（”　”＋ＳＴＲ＄（ＢＧＭ＿ＬＶ［ＢＧＭ，０］），２） Ｌ２＄＝ＬＶ＄［１］＋”　Ｌｖ．”＋ＲＩＧＨＴ＄（”　”＋ＳＴＲ＄（ＢＧＭ＿ＬＶ［ＢＧＭ，１］），２） ＧＤＲＡＷＭＤ　１ ’Ｎｏｎｅ　　１１００００１１ ’Ｆｒｏｎｔ　１１００１１００ ’Ｂａｃｋ　　１１１０００１１ ’Ｆｒ＋Ｂｋ　１１１０１１００ ’　　ＸＯＲ　０００１００００ ＧＴ＄＝ＢＧＭ＿ＴＩＴ＄［ＢＧＭ］：ＧＸ＝３２−２：ＧＹ＝８８：ＧＳ＝１：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＧＴ＄＝ＢＧＭ＿ＣＭＰ＄［ＢＧＭ］：ＧＸ＝３２−２：ＧＹ＝９６：ＧＳ＝１：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＧＴ＄＝Ｌ１＄：ＧＸ＝２２４＋２：ＧＹ＝９６：ＧＳ＝１：ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ ＧＴ＄＝Ｌ２＄：ＧＸ＝２２４＋２：ＧＹ＝９６：ＧＳ＝１：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ ＧＤＲＡＷＭＤ　０ ＣＲＢ＄＝”ＢＧ”：ＣＲＩ＝＆ＨＣ３：ＧＯＳＵＢ　＠ＣＯＬＲＤ ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＣＣ，”ＦＦＦＦＦＦ” ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＥ３，Ｃ＄ ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＥＣ，”ＦＦＦＦＦＦ” ＦＯＲ　Ｊ＝５　ＴＯ　３　ＳＴＥＰ　−１ ＣＲＢ＄＝”ＢＧ”：ＣＲＩ＝＆ＨＤ０＋Ｊ：ＧＯＳＵＢ　＠ＣＯＬＲＤ ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＤ０＋Ｊ，Ｃ＄ ＮＥＸＴ ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＤＣ，Ｃ＄ ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦ３，”ＦＦＦＦ００” ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＣ，”ＦＦＦＦ００” ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ１０，ＢＧ＿Ｃ＄ ＧＯＴＯ　＠ＭＥＮＵＦＲＭＥ ＠ＣＯＬＲＤ ＣＯＬＲＥＡＤ（ＣＲＢ＄，ＣＲＩ），ＣＲ，ＣＧ，ＣＢ Ｃ＄＝ＨＥＸ＄（ＣＲ，２）＋ＨＥＸ＄（ＣＧ，２）＋ＨＥＸ＄（ＣＢ，２） ＲＥＴＵＲＮ ＠ＭＥＮＵ＿ＲＭＶ ＢＧＭＳＴＯＰ　６，１ ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋３６，６ ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３６，６ ’ＧＦＩＬＬ　２４−４，８０−２，２３２＋３，１１２＋１，０ ＭＥＮＵＣＮＴ＝−６ ＧＯＴＯ　＠ＭＥＮＵＦＲＭＥ ＠ＭＥＮＵ＿ＥＸ ’ｘ　２４−４　→　２２４＋４＋８　＝　２１６ ’ｙ　８０−２　→　１０４＋２＋８ ＧＤＲＡＷＭＤ　１ ＩＦ　ＥＸＣＨＧ＞０　ＴＨＥＮ　ＧＦＩＬＬ　２０＋２１．６＊（１０−ＥＸＣＨＧ），７８，２０＋２１．６＊（１１−ＥＸＣＨＧ）−１，１１４，＆Ｈ１０ ＩＦ　ＥＸＣＨＧ＜０　ＴＨＥＮ　ＧＦＩＬＬ　２０＋２１．６＊（−１−ＥＸＣＨＧ），７８，２０＋２１．６＊（−ＥＸＣＨＧ）−１，１１４，＆Ｈ１０ ＧＤＲＡＷＭＤ　０ ＥＸＣＨＧ＝ＥＸＣＨＧ−ＳＧＮ（ＥＸＣＨＧ） ＧＯＴＯ　＠ＭＥＮＵＦＲＭＥ ＠ＭＥＮＵＷＡＩＴ ＢＧＭＳＴＯＰ　６，１ ＮＯＢＧＭ＝１ ＦＯＲ　ＷＴ＝１　ＴＯ　６０ 　ＧＯＳＵＢ　＠ＭＥＮＵＦＲＭ ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＧＡＭＥ ＢＥＥＰ　３２ ＢＧＦＩＬＬ　１，３２＋３，ＢＧ＿ＭＹ＋５＊３，６３−３，ＢＧ＿ＭＹ＋５＊３＋２，０ ＢＧＯＦＳ　０，５１２，ＢＧ＿ＭＹＧ＋４０，２４ ＢＧＯＦＳ　１，５１２，ＢＧ＿ＭＹＧ＋３２，２４ ＧＯＳＵＢ　＠ＭＥＮＵＷＡＩＴ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ’キョクヨミコミ ＩＤ＝ＢＧＭ＿ＩＤ［ＢＧＭ］ ＶＯＬ＝ＢＧＭ＿ＶＯＬ［ＢＧＭ］ ＦＬＡＢＥＬ＄＝”＠Ｆ”＋ＳＴＲ＄（ＩＤ）＋”ＥＸ”＊ＥＸ ＦＭ＄＝”” ＴＩＴ＄＝ＢＧＭ＿ＴＩＴ＄［ＢＧＭ］ ＣＭＰ＄＝ＢＧＭ＿ＣＭＰ＄［ＢＧＭ］ ＳＣＧＭＡＸＳ＝１０００００ ＳＣＧＣＬＲＳ＝８００００ ＳＣＢＡＳＥ＝１０００００ ＳＣＢＯＮＵＳ＝６００００ ’ＲＥＳＴＯＲＥ　＠ＫＤＦＬＴ ＦＯＲ　Ｉ＝０　ＴＯ　ＫＭＡＸ−１ 　’ＲＥＡＤ　ＫＣ［Ｉ］，ＫＮ［Ｉ］，ＫＸ［Ｉ］ 　ＫＣ［Ｉ］＝３ 　ＫＢＮ［Ｉ］＝−１ 　ＫＢＣ［Ｉ］＝０ 　ＫＢＶ［Ｉ］＝１２７ 　ＫＢＰ［Ｉ］＝６４ 　ＫＸ［Ｉ］＝１００ ＮＥＸＴ ＠ＫＤＦＬＴ ＤＡＴＡ　３，４７，１００ ＤＡＴＡ　４，４８，１００ ＯＮＰＣＮＴ＝０ ＲＥＳＴＯＲＥ　ＦＬＡＢＥＬ＄ ＲＥＡＤ　ＴＭＰ ＬＯＯＰＣ＝０ ＦＯＲ　Ｉ＝０　ＴＯ　Ｆ＄！＝”” 　ＲＥＡＤ　Ｆ＄ 　ＩＦ　！ＶＡＬ（Ｆ＄）　ＴＨＥＮ　＠ＯＣＬＯＯＰＳＫＰ 　　ＬＯＯＰＣ＝ＬＯＯＰＣ＋１ 　　ＩＦ　ＬＯＯＰＣ＜ＶＡＬ（Ｆ＄）　ＴＨＥＮ　ＲＥＳＴＯＲＥ　ＦＬＡＢＥＬ＄＋”＿Ｌ” 　　ＧＯＴＯ　＠ＯＮＰＣＮＴ＿Ｓ 　＠ＯＣＬＯＯＰＳＫＰ 　ＩＦ　ＬＥＦＴ＄（Ｆ＄，１）＝＝”＠”　ＴＨＥＮ　ＲＥＡＤ　Ｃ，ＢＮ，ＢＣ，ＢＶ，ＢＰ，Ｘ：ＧＯＴＯ　＠ＯＮＰＣＮＴ＿Ｓ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｆ＄）−１ 　　Ｃ＝ＡＳＣ（ＭＩＤ＄（Ｆ＄，Ｉ，１）） 　　ＩＦ　Ｃ＞＝ＡＳＣ（”Ａ”）　ＡＮＤ　Ｃ＜＝ＡＳＣ（”Ｚ”）　ＴＨＥＮ　ＯＮＰＣＮＴ＝ＯＮＰＣＮＴ＋２ 　　ＩＦ　Ｃ＞＝ＡＳＣ（”ａ”）　ＡＮＤ　Ｃ＜＝ＡＳＣ（”ｚ”）　ＴＨＥＮ　ＯＮＰＣＮＴ＝ＯＮＰＣＮＴ＋１ 　ＮＥＸＴ 　＠ＯＮＰＣＮＴ＿Ｓ 　Ｉ＝０ ＮＥＸＴ ＲＥＳＴＯＲＥ　ＦＬＡＢＥＬ＄ ＲＥＡＤ　ＴＭＰ ＬＯＯＰＣ＝０ ＢＧＭＳＥＴ　２５５，”Ｔ”＋ＳＴＲ＄（ＴＭＰ）＋”［＄０＝０Ｒ１６＄０＝１Ｒ１６］” ＭＳＣＮＴ＝ＦＬＯＯＲ（４＊３６００／ＴＭＰ＋．５）　’ＲＯＵＮＤノカワリ ＭＳＬＥＮ＝２０２ ＴＧＸ＝８６：ＴＧＹ＝１０４ ’−−−−−−−−−−−−−−−−−−−−−−−−−− ’カ゛メン ＣＬＳ ＧＰＡＧＥ　１ ＳＰＰＡＧＥ　１ ＧＣＬＳ　 ＳＰＣＬＲ　 ＧＰＡＧＥ　０ ＢＧＰＡＧＥ　０ ＳＰＰＡＧＥ　０ ＧＣＬＳ　 ＢＧＯＦＳ　０，０，３２０ ＢＧＯＦＳ　１，０，０ ’コンホ゛ ＣＲＢ＄＝”ＢＧ”：ＣＲＩ＝＆Ｈ３Ｆ：ＧＯＳＵＢ　＠ＣＯＬＲＤ ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ３Ｆ，Ｃ＄ ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ３０，ＢＧ＿Ｃ＄ ’ハイケイ ＢＧＦＩＬＬ　１，０，０，６３，２３，”Ｄ００Ｂ” ＢＧＦＩＬＬ　１，４０，４，４２，５，”Ｄ０４２Ｄ０４３Ｄ０４４Ｄ０６２Ｄ０６３Ｄ０６４” ＣＲＢ＄＝”ＢＧ”：ＣＲＩ＝＆Ｈ０６：ＧＯＳＵＢ　＠ＣＯＬＲＤ ＣＯＬＳＥＴ　”ＢＧ”，＆Ｈ８Ａ，Ｃ＄ ＦＯＲ　Ｉ＝０　ＴＯ　３１ 　ＳＰＳＥＴ　Ｉ，２５２，０，０，０，０ 　ＳＰＨＯＭＥ　Ｉ，８，８ 　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，−１００ 　ＳＰＯＦＳ　Ｉ，−１６，−１６ ＮＥＸＴ ＳＰＯＦＳ　３１，ＴＧＸ，ＴＧＹ ＳＰＳＣＡＬＥ　３１，２００ ＧＴ＄＝ＴＩＴ＄：ＧＸ＝２４６：ＧＹ＝１３２：ＧＳ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ ＧＴ＄＝ＣＭＰ＄：ＧＸ＝２４６：ＧＹ＝１５２：ＧＳ＝１：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ ＧＴ＄＝ＬＶ＄［ＥＸ］＋”　Ｌｖ．”：ＧＸ＝２１４：ＧＹ＝１７６：ＧＳ＝１：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ ＧＴ＄＝ＳＴＲ＄（ＢＧＭ＿ＬＶ［ＢＧＭ，ＥＸ］）：ＧＸ＝２４６：ＧＹ＝１７０：ＧＳ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ ＧＴ＄＝”［オ−トフ゜レイ］”：ＧＸ＝２４６：ＧＹ＝１１６：ＧＳ＝１ ＩＦ　ＡＵＴＯ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ ＳＰＰＡＧＥ　１ ＧＰＡＧＥ　１ ＰＮＬＳＴＲ　２０，２２，”ＳＴＡＲＴ▼мгбз” ＧＴ＄＝”スコア”：ＧＸ＝２４：ＧＹ＝２１：ＧＳ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＰＮＬＳＴＲ　３，７，”ハイスコア” ＰＮＬＳＴＲ　２３，７，ＳＣＯＲＥ＄ ’スコアケ゛−シ゛ ＳＣＧＸ＝２５：ＳＣＧＹ＝４４ ＳＣＧＬＥＮ＝２０７ ＳＣＧＸ２＝ＳＣＧＸ＋ＦＬＯＯＲ（ＳＣＧＬＥＮ＊（ＳＣＧＣＬＲＳ／ＳＣＧＭＡＸＳ）） ＧＬＩＮＥ　ＳＣＧＸ，ＳＣＧＹ−１，２５６−ＳＣＧＸ，ＳＣＧＹ−１，１５ ＧＬＩＮＥ　ＳＣＧＸ，ＳＣＧＹ＋６，２５６−ＳＣＧＸ，ＳＣＧＹ＋６，１５ ＧＬＩＮＥ　ＳＣＧＸ−１，ＳＣＧＹ，ＳＣＧＸ−１，ＳＣＧＹ＋５，１５ ＧＬＩＮＥ　２５６−ＳＣＧＸ＋１，ＳＣＧＹ，２５６−ＳＣＧＸ＋１，ＳＣＧＹ＋５，１５ ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦ８，”３８３８３８” ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦ９，”２８２８２８” ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＡ，”５０５０５０” ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＢ，”４０４０４０” ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＣ，”００Ｆ０１８” ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＤ，”２０８０３０” ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＥ，”ＦＦＡ０００” ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＦ，”８Ｃ６０２８” ＧＦＩＬＬ　ＳＣＧＸ，ＳＣＧＹ，ＳＣＧＸ２，ＳＣＧＹ＋３，＆ＨＦ８ ＧＦＩＬＬ　ＳＣＧＸ，ＳＣＧＹ＋４，ＳＣＧＸ２，ＳＣＧＹ＋５，＆ＨＦ９ ＧＦＩＬＬ　ＳＣＧＸ２，ＳＣＧＹ，２５６−ＳＣＧＸ，ＳＣＧＹ＋３，＆ＨＦＡ ＧＦＩＬＬ　ＳＣＧＸ２，ＳＣＧＹ＋４，２５６−ＳＣＧＸ，ＳＣＧＹ＋５，＆ＨＦＢ ＦＯＲ　Ｉ＝０　ＴＯ　５ 　ＳＰＳＥＴ　３０＋Ｉ，６４＋１０＊（Ｉ＞０），０，０，０，０ 　ＳＸ＝２２０−１６＊Ｉ：ＳＹ＝２１ 　ＳＰＳＥＴＶ　３０＋Ｉ，０，ＳＸ 　ＳＰＳＥＴＶ　３０＋Ｉ，１，ＳＹ 　ＳＰＯＦＳ　３０＋Ｉ，ＳＸ，ＳＹ 　ＳＰＳＥＴ　Ｉ，６４＋１０，７，０，０，０ 　ＳＸ＝２２０−１６＊Ｉ：ＳＹ＝１０ 　ＳＰＳＥＴＶ　Ｉ，０，ＳＸ 　ＳＰＳＥＴＶ　Ｉ，１，ＳＹ 　ＳＰＯＦＳ　Ｉ，ＳＸ，ＳＹ ＮＥＸＴ ＧＸ＝１５０：ＧＳ＝１ ＧＴ＄＝ＨＮＴ＄［０］：ＧＹ＝７８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＧＴ＄＝ＨＮＴ＄［１］：ＧＹ＝９８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＧＴ＄＝ＨＮＴ＄［２］：ＧＹ＝１１８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＧＴ＄＝ＨＮＴ＄［３］：ＧＹ＝１３８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＧＴ＄＝”Ш└ж”：ＧＹ＝１５８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＦＯＲ　Ｉ＝０　ＴＯ　３ 　ＳＰＳＥＴ　１０＋Ｉ，６４＋１０＊（Ｉ＞０），０，０，０，０ 　ＳＰＳＥＴ　１５＋Ｉ，６４＋１０＊（Ｉ＞０），０，０，０，０ 　ＳＰＳＥＴ　２０＋Ｉ，６４＋１０＊（Ｉ＞０），０，０，０，０ 　ＳＰＳＥＴ　２５＋Ｉ，６４＋１０＊（Ｉ＞０），０，０，０，０ 　ＳＰＳＥＴ　４０＋Ｉ，６４＋１０＊（Ｉ＞０），０，０，０，０ 　ＳＰＯＦＳ　１０＋Ｉ，２２６−１６＊Ｉ，７３ 　ＳＰＯＦＳ　１５＋Ｉ，２２６−１６＊Ｉ，９３ 　ＳＰＯＦＳ　２０＋Ｉ，２２６−１６＊Ｉ，１１３ 　ＳＰＯＦＳ　２５＋Ｉ，２２６−１６＊Ｉ，１３３ 　ＳＰＯＦＳ　４０＋Ｉ，２２６−１６＊Ｉ，１５３ ＮＥＸＴ ＨＮＴ１Ｃ＝０：ＨＮＴ１Ｃ＿Ｏ＝０ ＨＮＴ２Ｃ＝０：ＨＮＴ２Ｃ＿Ｏ＝０ ＨＮＴ３Ｃ＝０：ＨＮＴ３Ｃ＿Ｏ＝０ ＨＮＴ４Ｃ＝０：ＨＮＴ４Ｃ＿Ｏ＝０ ＳＣＯＲＥ＝０：ＳＣＯＲＥ＿Ｏ＝０ ＳＣＡＤＤ＝０ ＳＣＡ＝０ ＳＣＥ＝０：ＳＣＳ＝０ ＣＯＭＢＯ＝０：ＣＯＭＢＯ＿Ｏ＝０ ＭＡＸＣＭＢ＝０：ＭＡＸＣＭＢ＿Ｏ＝０ ＲＥＳＴ＝ＯＮＰＣＮＴ：ＲＥＳＴ＿Ｏ＝ＲＥＳＴ ＳＩ＝４０：ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＲＥＳＴ：ＧＯＳＵＢ　＠ＳＣＳＥＴ ＩＦ　ＯＮＰＣＮＴ＜＝１００　ＴＨＥＮ　ＳＣＯＲＥ＿ＭＸ＝１０００００＋２００００／３＊ＳＱＲ（ＯＮＰＣＮＴ） ＩＦ　ＯＮＰＣＮＴ＞１００　ＴＨＥＮ　ＳＣＯＲＥ＿ＭＸ＝１０００００＋２００００／３／ＯＮＰＣＮＴ＊１０００＋１０００００／ＯＮＰＣＮＴ＊（ＯＮＰＣＮＴ−１００） ＦＯＲ　Ｉ＝０　ＴＯ　２ 　ＳＰＳＥＴ　７＋Ｉ，９２，１２，０，０，０ 　ＳＰＯＦＳ　７＋Ｉ，２４＋Ｉ＊２８，８０ 　ＳＰＳＣＡＬＥ　７＋Ｉ，２００ ＮＥＸＴ ＳＰＰＡＧＥ　０ ＧＰＡＧＥ　０ ＦＯＲ　Ｉ＝０　ＴＯ　３ 　ＳＰＳＥＴ　３２＋Ｉ，６４＋１０，０，０，０，０ 　ＳＰＳＥＴＶ　３２＋Ｉ，２，６４ 　ＳＰＳＥＴＶ　３２＋Ｉ，１，４８ ＮＥＸＴ ＦＥＮＤ＝０ ＳＰＩ＝０ ＦＸ＝０ ＦＳ＝０ ＣＮＴ＝０ ＯＡ＝−１ ＢＧＭＰＬＡＹ　７，２５５ ＧＯＴＯ　＠ＬＯＯＰ ＠ＧＰＲＴ＿Ｒ ＦＯＲ　Ｉ＝１　ＴＯ　ＬＥＮ（ＧＴ＄） 　ＧＰＵＴＣＨＲ　ＧＸ−Ｉ＊８＊ＧＳ，ＧＹ，”ＢＧＦ０”，ＡＳＣ（ＲＩＧＨＴ＄（ＧＴ＄，Ｉ）），ＧＰ，ＧＳ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＧＰＲＴ＿Ｌ ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＧＴ＄）−１ 　ＧＰＵＴＣＨＲ　ＧＸ＋Ｉ＊８＊ＧＳ，ＧＹ，”ＢＧＦ０”，ＡＳＣ（ＭＩＤ＄（ＧＴ＄，Ｉ，１）），ＧＰ，ＧＳ ＮＥＸＴ ＲＥＴＵＲＮ ＬＡＳＴＣ＝ＭＡＩＮＣＮＴＬ ＳＴＡＲＴＣＮＴ＝ＭＡＩＮＣＮＴＬ ＠ＬＯＯＰ 　ＩＦ　ＦＸ＜１２　ＴＨＥＮ　ＳＰＣＨＲ　３１，２５２＋３＊！（ＦＸ％４），２，０，０，０ 　 　Ａ＝ＢＧＭＧＥＴＶ（７，０） 　ＩＦ　Ａ！＝ＯＡ　ＡＮＤ　！ＦＥＮＤ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＲＥＡＤ 　ＯＡ＝Ａ 　 　ＢＴ＝０ 　 　ＩＦ　！ＡＵＴＯ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＴＮ 　ＩＦ　ＡＵＴＯ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＡＵＴＯ 　 　ＧＯＳＵＢ　＠ＨＮＴ 　 　ＧＯＳＵＢ　＠ＭＯＶＥ 　 　ＧＯＳＵＢ　＠ＳＣＯＲ 　 　ＩＦ　ＭＡＩＮＣＮＴＬ＜ＳＴＡＲＴＣＮＴ　ＴＨＥＮ　ＳＴＡＲＴＣＮＴ＝ＳＴＡＲＴＣＮＴ−５２４２８７−１ 　ＣＮＴ＝ＭＡＩＮＣＮＴＬ−ＳＴＡＲＴＣＮＴ 　ＢＧＯＦＳ　１，ＣＮＴ／２，０ 　 　’ＦＰＳ＝ＦＰＳ＋１ 　’ＩＦ　ＭＡＩＮＣＮＴＬ−ＬＡＳＴＣ＞５９　ＴＨＥＮ　ＬＯＣＡＴＥ　０，０：？ＦＰＳ，：ＦＰＳ＝０：ＬＡＳＴＣ＝ＭＡＩＮＣＮＴＬ 　 　ＩＦ　ＦＥＮＤ　ＴＨＥＮ　ＦＥＮＤ＝ＦＥＮＤ＋１ 　ＩＦ　ＦＥＮＤ＝＝ＭＳＣＮＴ＋６０　ＴＨＥＮ　ＢＧＭＳＴＯＰ　６，５ 　ＩＦ　ＦＥＮＤ＝＝ＭＳＣＮＴ＋１２０　ＴＨＥＮ　＠ＲＥＳＵＬＴ 　 　ＶＳＹＮＣ　１ 　 　ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　１０２４　ＴＨＥＮ　＠ＱＵＩＴ 　 ＧＯＴＯ　＠ＬＯＯＰ ＠ＦＲＥＡＤ 　ＩＦ　ＦＸ−ＦＳ＜ＬＥＮ（ＦＭ＄）　ＴＨＥＮ　＠ＦＲＳＫＩＰ 　 　ＦＳ＝ＦＸ 　ＲＥＡＤ　ＦＭ＄ 　 　＠ＦＲＣＨＫ 　ＩＦ　ＦＭ＄＝＝””　ＴＨＥＮ　ＦＥＮＤ＝１：ＲＥＴＵＲＮ 　 　ＩＦ　ＶＡＬ（ＦＭ＄）　ＴＨＥＮ　＠ＦＬＯＯＰＣＨＫ 　 　ＩＦ　ＬＥＦＴ＄（ＦＭ＄，１）＝＝”＠”　ＴＨＥＮ　＠ＦＫＳＥＴ 　 ＠ＦＲＳＫＩＰ 　ＩＦ　ＦＸ＝＝１６　ＴＨＥＮ　ＢＧＭＰＬＡＹ　６，ＩＤ，ＶＯＬ 　 　ＮＴ＄＝ＭＩＤ＄（ＦＭ＄，ＦＸ−ＦＳ，１） 　ＦＸ＝ＦＸ＋１ 　 　ＩＦ　ＮＴ＄＝＝”　”　ＴＨＥＮ　ＲＥＴＵＲＮ 　 　Ｓ＝２ 　Ｋ＝ＡＳＣ（ＮＴ＄）−ＡＳＣ（”Ａ”） 　ＩＦ　Ｋ＞２６　ＴＨＥＮ　Ｋ＝ＡＳＣ（ＮＴ＄）−ＡＳＣ（”ａ”）：Ｓ＝１ 　Ｃ＝ＫＣ［Ｋ］ 　ＢＮ＝ＫＢＮ［Ｋ］ 　ＢＣ＝ＫＢＣ［Ｋ］ 　ＢＶ＝ＫＢＶ［Ｋ］ 　ＢＰ＝ＫＢＰ［Ｋ］ 　Ｘ＝ＫＸ［Ｋ］ 　 　ＳＰＯＦＳ　ＳＰＩ，−１６，−１６ 　ＳＰＣＨＲ　ＳＰＩ，１８１，Ｃ，０，０，０ 　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿Ｓ，Ｓ 　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿Ｔ１，ＣＮＴ 　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿Ｔ２，ＣＮＴ＋ＭＳＣＮＴ 　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿ＢＮ，ＢＮ 　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿ＢＣ，ＢＣ 　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿ＢＶ，ＢＶ 　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿ＢＰ，ＢＰ 　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿Ｘ，Ｘ 　 　ＳＰＩ＝ＳＰＩ＋１　ＡＮＤ　３１ ＲＥＴＵＲＮ ＠ＦＫＳＥＴ 　ＮＴ＄＝ＲＩＧＨＴ＄（ＦＭ＄，１） 　Ｋ＝ＡＳＣ（ＮＴ＄）−ＡＳＣ（”Ａ”） 　ＲＥＡＤ　Ｃ，ＢＮ，ＢＣ，ＢＶ，ＢＰ，Ｘ 　ＩＦ　Ｃ！＝−１　ＴＨＥＮ　ＫＣ［Ｋ］＝Ｃ 　ＩＦ　ＢＮ！＝−１　ＴＨＥＮ　ＫＢＮ［Ｋ］＝ＢＮ 　ＩＦ　ＢＣ！＝−１　ＴＨＥＮ　ＫＢＣ［Ｋ］＝ＢＣ 　ＩＦ　ＢＶ！＝−１　ＴＨＥＮ　ＫＢＶ［Ｋ］＝ＢＶ 　ＩＦ　ＢＰ！＝−１　ＴＨＥＮ　ＫＢＰ［Ｋ］＝ＢＰ 　ＩＦ　Ｘ！＝−１　ＴＨＥＮ　ＫＸ［Ｋ］＝Ｘ 　ＲＥＡＤ　ＦＭ＄ ＧＯＴＯ　＠ＦＲＣＨＫ ＠ＦＬＯＯＰＣＨＫ 　ＬＯＯＰＣ＝ＬＯＯＰＣ＋１ 　ＩＦ　ＬＯＯＰＣ＜ＶＡＬ（ＦＭ＄）　ＴＨＥＮ　ＲＥＳＴＯＲＥ　ＦＬＡＢＥＬ＄＋”＿Ｌ” 　ＲＥＡＤ　ＦＭ＄ ＧＯＴＯ　＠ＦＲＣＨＫ ＠ＭＯＶＥ 　ＦＯＲ　Ｉ＝０　ＴＯ　３１ 　　ＳＴＡＴ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｓ） 　　ＩＦ　ＳＴＡＴ＜−１０　ＴＨＥＮ　＠ＭＶＳＫＩＰ 　　ＩＦ　ＳＴＡＴ＜０　ＴＨＥＮ　＠ＭＶＡＮＣＮＴ 　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＳＣＡＬＥ　Ｉ，１００ 　　ＩＦ　ＳＴＡＴ＝＝２　ＴＨＥＮ　ＳＰＳＣＡＬＥ　Ｉ，１４０ 　　Ｔ１＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｔ１） 　　Ｔ２＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｔ２） 　　ＸＰ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｘ） 　　ＸＤ＝ＭＳＬＥＮ＊ＸＰ／１００ 　　Ｐ＝（Ｔ２−ＣＮＴ）／（Ｔ２−Ｔ１）＊１．１ 　　Ｄ＝ＭＳＬＥＮ＊Ｐ 　　ＩＦ　Ｄ＞ＸＤ　ＴＨＥＮ　＠ＭＶ０ 　　ＩＦ　Ｄ＞０　ＴＨＥＮ　＠ＭＶ１ 　　ＩＦ　Ｄ＞−５６　ＴＨＥＮ　＠ＭＶ２ 　＠ＭＶ３ 　　Ｘ＝３０ 　　Ｙ＝ＴＧＹ−（Ｄ＋５６）＊１．５ 　　ＩＦ　Ｙ＞１９２＋１６　ＴＨＥＮ　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，−１００ 　　ＧＯＴＯ　＠ＭＶ 　＠ＭＶ２ 　　Ｘ＝ＴＧＸ＋Ｄ 　　Ｙ＝ＴＧＹ 　　ＧＯＴＯ　＠ＭＶ 　＠ＭＶ１ 　　Ｘ＝ＴＧＸ＋Ｄ＊０．８３２　’ＣＯＳ 　　Ｙ＝ＴＧＹ−Ｄ＊０．５５５　’ＳＩＮ 　　ＧＯＴＯ　＠ＭＶ 　＠ＭＶ０ 　　Ｘ＝ＴＧＸ＋ＸＤ＊０．８３２ 　　Ｙ＝ＴＧＹ−ＸＤ＊０．５５５−（Ｄ−ＸＤ） 　＠ＭＶ 　　ＳＰＯＦＳ　Ｉ，Ｘ，Ｙ 　　ＳＰＡＮＧＬＥ　Ｉ，３６０＊Ｐ＊４　’ＭＳＬＥＮ／（１６＊ＰＩ（）） 　＠ＭＶＳＫＩＰ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＭＶＡＮＣＮＴ 　　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，ＳＴＡＴ−１ 　　ＩＦ　ＳＴＡＴ＝＝−１０　ＴＨＥＮ　ＳＰＯＦＳ　Ｉ，−３２，−３２ ＧＯＴＯ　＠ＭＶＳＫＩＰ ＠ＡＵＴＯ 　ＦＯＲ　Ｊ＝ＳＰＩ　ＴＯ　ＳＰＩ＋３１ 　　Ｉ＝Ｊ　ＡＮＤ　３１ 　　 　　ＩＦ　ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｓ）＜＝０　ＴＨＥＮ　＠ＡＴＳＫＩＰ 　　Ｔ２＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｔ２） 　　ＩＦ　ＣＮＴ＜Ｔ２　ＴＨＥＮ　Ｊ＝Ｊ＋３２：ＧＯＴＯ　＠ＡＴＳＫＩＰ　’ＲＥＴＵＲＮ 　　 　　ＢＴ＝ＢＴ＋１ 　　Ｊ＝Ｊ＋３２’：ＧＯＴＯ　＠ＡＴＳＫＩＰ 　　’ＲＥＴＵＲＮ 　　 　＠ＡＴＳＫＩＰ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＨＮＴ 　ＢＮ０＝−１ 　ＦＯＲ　Ｊ＝ＳＰＩ　ＴＯ　ＳＰＩ＋３１ 　　Ｉ＝Ｊ　ＡＮＤ　３１ 　　ＳＴＡＴ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｓ） 　　ＩＦ　ＳＴＡＴ＜＝０　ＴＨＥＮ　＠ＨＮＴＳＫＩＰ 　　 　　Ｔ２＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｔ２） 　　ＦＲＭ＝ＣＮＴ−Ｔ２ 　　’−：ハヤイ　＋：オソイ 　　ＩＦ　ＦＲＭ＜−１５　ＴＨＥＮ　Ｊ＝Ｊ＋３２：ＧＯＴＯ　＠ＨＮＴＥＮＤ　’ＲＥＴＵＲＮ 　　 　　ＢＮ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿ＢＮ） 　　ＢＣ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿ＢＣ） 　　ＢＶ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿ＢＶ） 　　ＢＰ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿ＢＰ） 　　ＩＦ　ＢＮ０＜０　ＴＨＥＮ　ＢＮ０＝ＢＮ：ＢＣ０＝ＢＣ：ＢＶ０＝ＢＶ：ＢＰ０＝ＢＰ 　　 　　ＩＦ　！ＢＴ　ＡＮＤ　ＦＲＭ＞５　ＴＨＥＮ　＠ＨＮＴ４ 　　ＩＦ　！ＢＴ　ＴＨＥＮ　Ｊ＝Ｊ＋３２：ＧＯＴＯ　＠ＨＮＴＥＮＤ　’ＲＥＴＵＲＮ 　　 　＠ＨＮＴＲＥＤＯ 　　ＢＴ＝ＢＴ−１ 　　ＩＦ　ＢＮ＞＝０　ＴＨＥＮ　ＢＥＥＰ　ＢＮ，ＢＣ，ＢＶ，ＢＰ 　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，−１ 　　ＩＦ　ＳＴＡＴ＝＝２　ＴＨＥＮ　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，１ 　　 　　ＩＦ　ＡＢＳ（ＦＲＭ）＜＝２　ＴＨＥＮ　＠ＨＮＴ１ 　　ＩＦ　ＡＢＳ（ＦＲＭ）＜＝４　ＴＨＥＮ　＠ＨＮＴ２ 　　 　＠ＨＮＴ３　’Ｂａｄ 　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＣＨＲ　Ｉ，２５２，０，０，０，０ 　　ＨＮＴ３Ｃ＝ＨＮＴ３Ｃ＋１ 　　ＣＯＭＢＯ＝０ 　　ＲＥＳＴ＝ＲＥＳＴ−１ 　　ＧＯＴＯ　＠ＨＮＴＳＫＩＰ 　　 　＠ＨＮＴ４　’Ｍｉｓｓ 　　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，０ 　　ＨＮＴ４Ｃ＝ＨＮＴ４Ｃ＋ＳＴＡＴ 　　ＣＯＭＢＯ＝０ 　　ＳＣＡＤＤ＝−ＦＬＯＯＲ（ＳＣＢＡＳＥ／ＯＮＰＣＮＴ＋．５） 　　ＳＣＯＲＥ＝ＳＣＯＲＥ＋ＳＣＡＤＤ 　　ＲＥＳＴ＝ＲＥＳＴ−ＳＴＡＴ 　　ＧＯＴＯ　＠ＨＮＴＳＫＩＰ 　　 　＠ＨＮＴ２　’ＯＫ 　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＣＨＲ　Ｉ，４８，０，０，０，０ 　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＡＮＩＭ　Ｉ，５，２，１ 　　ＨＮＴ２Ｃ＝ＨＮＴ２Ｃ＋１ 　　ＣＯＭＢＯ＝ＣＯＭＢＯ＋１ 　　ＩＦ　ＣＯＭＢＯ＞＝ＭＡＸＣＭＢ　ＴＨＥＮ　ＭＡＸＣＭＢ＝ＣＯＭＢＯ 　　ＩＦ　ＣＯＭＢＯ＞＝１００　ＴＨＥＮ　ＳＣＡＤＤ＝ＳＣＢＡＳＥ＋ＳＣＢＯＮＵＳ　ＥＬＳＥ　ＳＣＡＤＤ＝ＳＣＢＡＳＥ＋ＣＯＭＢＯ＊（ＳＣＢＯＮＵＳ／１００） 　　ＳＣＡＤＤ＝ＦＬＯＯＲ（ＳＣＡＤＤ／ＯＮＰＣＮＴ＊．６＋．５） 　　ＳＣＯＲＥ＝ＳＣＯＲＥ＋ＳＣＡＤＤ 　　ＲＥＳＴ＝ＲＥＳＴ−１ 　　ＧＯＴＯ　＠ＨＮＴＳＫＩＰ 　　 　＠ＨＮＴ１　’Ｇｏｏｄ 　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＣＨＲ　Ｉ，２４８，０，０，０，０ 　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＡＮＩＭ　Ｉ，５，２，１ 　　ＨＮＴ１Ｃ＝ＨＮＴ１Ｃ＋１ 　　ＣＯＭＢＯ＝ＣＯＭＢＯ＋１ 　　ＩＦ　ＣＯＭＢＯ＞＝ＭＡＸＣＭＢ　ＴＨＥＮ　ＭＡＸＣＭＢ＝ＣＯＭＢＯ 　　ＩＦ　ＣＯＭＢＯ＞＝１００　ＴＨＥＮ　ＳＣＡＤＤ＝ＳＣＢＡＳＥ＋ＳＣＢＯＮＵＳ　ＥＬＳＥ　ＳＣＡＤＤ＝ＳＣＢＡＳＥ＋ＣＯＭＢＯ＊（ＳＣＢＯＮＵＳ／１００） 　　ＳＣＡＤＤ＝ＦＬＯＯＲ（ＳＣＡＤＤ／ＯＮＰＣＮＴ＋．５） 　　ＳＣＯＲＥ＝ＳＣＯＲＥ＋ＳＣＡＤＤ 　　ＲＥＳＴ＝ＲＥＳＴ−１ 　　 　＠ＨＮＴＳＫＩＰ 　　ＩＦ　ＢＴ＞０　ＡＮＤ　ＳＴＡＴ＝＝２　ＴＨＥＮ　ＳＴＡＴ＝１：ＧＯＴＯ　＠ＨＮＴＲＥＤＯ 　＠ＨＮＴＥＮＤ 　ＮＥＸＴ 　ＩＦ　ＢＮ０＜０　ＴＨＥＮ　ＢＮ０＝ＫＢＮ［０］：ＢＣ０＝ＫＢＣ［０］：ＢＶ０＝ＫＢＶ［０］：ＢＰ０＝ＫＢＰ［０］ 　ＩＦ　ＢＴ　ＡＮＤ　ＢＮ０＞＝０　ＴＨＥＮ　ＢＥＥＰ　ＢＮ０，ＢＣ０，ＢＶ０，ＢＰ０ ＲＥＴＵＲＮ ＠ＢＴＮ 　Ｂ＿＝ＢＵＴＴＯＮ（） 　Ｂ＝Ｂ＿　ＡＮＤ　ＮＯＴ　ＯＢ 　ＯＢ＝Ｂ＿ 　 　ＦＯＲ　Ｉ＝０　ＴＯ　９ 　　ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＢＴ＝ＢＴ＋１ 　　Ｂ＝Ｂ／２ 　ＮＥＸＴ 　 ’　ＩＦ　ＴＣＨＳＴ　ＡＮＤ　！ＯＴ　ＴＨＥＮ　ＢＴ＝ＢＴ＋１ ’　ＯＴ＝ＴＣＨＳＴ ＲＥＴＵＲＮ ＠ＳＣＯＲ ＳＰＰＡＧＥ　１ ＧＰＡＧＥ　１ 　 　ＳＩ＝３０ 　ＩＦ　ＳＣＯＲＥ＜０　ＴＨＥＮ　ＳＣＯＲＥ＝０ 　ＩＦ　ＳＣＯＲＥ！＝ＳＣＯＲＥ＿Ｏ　ＴＨＥＮ　ＳＣ＝６：ＳＺ＝０：ＳＶ＝ＳＣＯＲＥ：ＧＯＳＵＢ　＠ＳＣＳＥＴ：ＧＯＳＵＢ　＠ＳＣＭＯＶ 　ＩＦ　ＳＣＯＲＥ！＝ＳＣＯＲＥ＿Ｏ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＤＲＡＷ 　ＳＣＯＲＥ＿Ｏ＝ＳＣＯＲＥ 　 　ＳＩ＝０ 　ＩＦ　ＳＣＡＤＤ　ＴＨＥＮ　ＳＣ＝６：ＳＺ＝−１：ＳＶ＝ＳＣＡＤＤ：ＧＯＳＵＢ　＠ＳＣＳＥＴ：ＧＯＳＵＢ　＠ＳＣＭＯＶ２ 　ＳＣＡＤＤ＝０ 　ＳＣＡＤＤＣ＝ＳＣＡＤＤＣ−１ 　ＩＦ　ＳＣＡＤＤＣ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＡＤＣＬＲ 　 　ＳＩ＝１０ 　ＩＦ　ＨＮＴ１Ｃ！＝ＨＮＴ１Ｃ＿Ｏ　ＴＨＥＮ　ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＨＮＴ１Ｃ：ＧＯＳＵＢ　＠ＳＣＳＥＴ 　ＨＮＴ１Ｃ＿Ｏ＝ＨＮＴ１Ｃ 　 　ＳＩ＝１５ 　ＩＦ　ＨＮＴ２Ｃ！＝ＨＮＴ２Ｃ＿Ｏ　ＴＨＥＮ　ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＨＮＴ２Ｃ：ＧＯＳＵＢ　＠ＳＣＳＥＴ 　ＨＮＴ２Ｃ＿Ｏ＝ＨＮＴ２Ｃ 　 　ＳＩ＝２０ 　ＩＦ　ＨＮＴ３Ｃ！＝ＨＮＴ３Ｃ＿Ｏ　ＴＨＥＮ　ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＨＮＴ３Ｃ：ＧＯＳＵＢ　＠ＳＣＳＥＴ 　ＨＮＴ３Ｃ＿Ｏ＝ＨＮＴ３Ｃ 　 　ＳＩ＝２５ 　ＩＦ　ＨＮＴ４Ｃ！＝ＨＮＴ４Ｃ＿Ｏ　ＴＨＥＮ　ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＨＮＴ４Ｃ：ＧＯＳＵＢ　＠ＳＣＳＥＴ 　ＨＮＴ４Ｃ＿Ｏ＝ＨＮＴ４Ｃ 　 　ＳＩ＝４０ 　ＩＦ　ＲＥＳＴ！＝ＲＥＳＴ＿Ｏ　ＴＨＥＮ　ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＲＥＳＴ：ＧＯＳＵＢ　＠ＳＣＳＥＴ 　ＲＥＳＴ＿Ｏ＝ＲＥＳＴ 　 ＳＰＰＡＧＥ　０ ＧＰＡＧＥ　０ 　 　ＳＩ＝３２：ＳＣ＝４ 　ＩＦ　ＣＯＭＢＯ！＝ＣＯＭＢＯ＿Ｏ　ＴＨＥＮ　ＳＺ＝−１：ＳＶ＝ＣＯＭＢＯ：ＧＯＳＵＢ　＠ＳＣＳＥＴ：ＧＯＳＵＢ　＠ＳＣＣＥＴ：ＧＯＳＵＢ　＠ＳＣＭＯＶ 　ＩＦ　ＣＯＭＢＯ＞＝１００　ＡＮＤ　ＣＯＭＢＯ＿Ｏ＜１００　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＣＯＬ 　ＩＦ　ＣＯＭＢＯ＜１００　ＡＮＤ　ＣＯＭＢＯ＿Ｏ＞＝１００　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＣＯＬ 　ＩＦ　ＣＯＭＢＯ＿Ｏ＝＝０　ＡＮＤ　ＣＯＭＢＯ＞０　ＴＨＥＮ　ＧＴ＄＝”コンホ゛”：ＧＸ＝５１：ＧＹ＝７０：ＧＳ＝１：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ 　ＩＦ　ＣＯＭＢＯ＝＝０　ＡＮＤ　ＣＯＭＢＯ＿Ｏ＞０　ＴＨＥＮ　ＧＦＩＬＬ　５０，７０，８１，７７，０ 　ＣＯＭＢＯ＿Ｏ＝ＣＯＭＢＯ 　 ＲＥＴＵＲＮ ＠ＳＣＳＥＴ 　ＣＨＧ＝−１ 　ＳＬＥ＝０ 　ＳＣＭ＝（ＳＶ＜０）：ＳＣＭ＿＝ＳＣＭ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＳＣ−１ 　　ＩＦ　ＳＺ！＝１　ＡＮＤ　（ＳＺ＝＝−１　ＯＲ　Ｉ！＝０）　ＡＮＤ　ＳＶ＝＝０　ＴＨＥＮ　ＳＣ１＝１０＋２＊ＳＣＭ：ＳＣＭ＝０：ＧＯＴＯ　＠ＳＣＳＣＨＲ 　　ＳＬＥ＝Ｉ＋１ 　　ＳＰＲＥＡＤ（ＳＩ＋Ｉ），ＤＭ，ＤＭ，ＤＭ，ＤＭ，ＣＨ 　　ＯＳＣ１＝ＣＨ％５１２−６４ 　　ＳＣ１＝ＡＢＳ（ＳＶ％１０）：ＳＶ＝ＳＧＮ（ＳＶ）＊ＦＬＯＯＲ（ＡＢＳ（ＳＶ／１０）） 　　ＩＦ　ＳＣ１＝＝ＯＳＣ１　ＴＨＥＮ　＠ＳＣＳＫＩＰ 　　ＣＨＧ＝Ｉ 　＠ＳＣＳＣＨＲ 　　ＩＦ　ＳＣ１！＝１０　ＴＨＥＮ　ＳＬＥ＝Ｉ＋１ 　　ＳＰＣＨＲ　ＳＩ＋Ｉ，６４＋ＳＣ１ 　＠ＳＣＳＫＩＰ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＳＣＭＯＶ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＣＨＧ 　　’ＳＰＲＥＡＤ（ＳＩ＋Ｉ），ＳＸ，ＳＹ 　　ＳＸ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，０） 　　ＳＹ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，１） 　　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ，ＳＹ−４ 　　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ，ＳＹ，４ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＳＣＣＥＴ 　ＩＦ　ＣＨＧ＜０　ＴＨＥＮ　ＲＥＴＵＲＮ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＳＬＥ−１ 　　ＳＸ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，２） 　　ＳＹ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，１） 　　ＳＸ＝ＳＸ＋１６＊（ＳＬＥ／２−Ｉ−１） 　　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ，ＳＹ 　　ＳＰＳＥＴＶ　ＳＩ＋Ｉ，０，ＳＸ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＳＣＭＯＶ２ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＳＬＥ−１ 　　ＳＸ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，０） 　　ＳＹ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，１） 　　ＳＰＲＥＡＤ（ＳＩ＋Ｉ），ＤＭ，ＤＭ，ＤＭ，ＤＭ，ＣＨ 　　ＳＰＣＨＲ　ＳＩ＋Ｉ，ＣＨ％５１２，７＋２＊ＳＣＭ＿，０，０，０ 　　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ＋８，ＳＹ 　　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ，ＳＹ，８ 　ＮＥＸＴ 　ＳＣＡＤＤＣ＝３０ ＲＥＴＵＲＮ ＠ＳＣＡＤＣＬＲ 　ＦＯＲ　Ｉ＝０　ＴＯ　５ 　　ＳＰＣＨＲ　ＳＩ＋Ｉ，６４＋１０ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＳＣＣＯＬ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＳＣ−１ 　　ＳＰＲＥＡＤ（ＳＩ＋Ｉ），ＤＭ，ＤＭ，ＤＭ，ＤＭ，ＣＨ 　　ＳＰＣＨＲ　ＳＩ＋Ｉ，ＣＨ％５１２，３＊（ＣＯＭＢＯ＞＝１００），０，０，０ 　ＮＥＸＴ 　ＧＤＲＡＷＭＤ　１ 　ＧＦＩＬＬ　５１，７０，８２，７７，＆Ｈ３０ 　ＧＤＲＡＷＭＤ　０ ＲＥＴＵＲＮ ＠ＳＣＤＲＡＷ 　’ＳＣＳ＝ＳＣＧＬＥＮ＊（ＳＣＯＲＥ＿Ｏ／ＳＣＧＭＡＸＳ） 　’ＩＦ　ＳＣＳ＞ＳＣＧＬＥＮ　ＴＨＥＮ　ＳＣＳ＝ＳＣＧＬＥＮ 　’ＳＣＳ＝ＳＣＧＸ−１＋ＦＬＯＯＲ（ＳＣＳ） 　ＳＣＳ＝ＳＣＥ 　ＩＦ　ＳＣＳ＜ＳＣＧＸ−１　ＴＨＥＮ　ＳＣＳ＝ＳＣＧＸ−１ 　 　ＳＣＥ＝ＳＣＧＬＥＮ＊（ＳＣＯＲＥ／ＳＣＧＭＡＸＳ） 　ＩＦ　ＳＣＥ＞ＳＣＧＬＥＮ　ＴＨＥＮ　ＳＣＥ＝ＳＣＧＬＥＮ 　ＳＣＥ＝ＳＣＧＸ−１＋ＦＬＯＯＲ（ＳＣＥ） 　’ＳＣＢ＝ＳＣＧＸ−１＋ＦＬＯＯＲ（ＳＣＧＬＥＮ＊．６５） 　 　ＧＤＲＡＷＭＤ　１ 　ＩＦ　ＳＣＥ＞ＳＣＳ　ＴＨＥＮ　ＧＦＩＬＬ　ＳＣＳ＋１，ＳＣＧＹ，ＳＣＥ，ＳＣＧＹ＋５，＆Ｈ０４ 　ＩＦ　ＳＣＳ＞ＳＣＥ　ＴＨＥＮ　ＧＦＩＬＬ　ＳＣＥ＋１，ＳＣＧＹ，ＳＣＳ，ＳＣＧＹ＋５，＆Ｈ０４ 　ＧＤＲＡＷＭＤ　０ ＲＥＴＵＲＮ ＠ＱＵＩＴ ＰＮＬＳＴＲ　２０，２２，”　　　　　　　　　　” ＢＧＭＳＴＯＰ　６，１．５ ＷＡＩＴ　９０ ＧＯＴＯ　＠ＭＥＮＵ ＠ＲＥＳＵＬＴ ＳＰＰＡＧＥ　１ ＧＰＡＧＥ　１ ＣＬＲ＝０ ’ＳＣＥ＝ＳＣＧＬＥＮ＊（ＳＣＯＲＥ／ＳＣＯＲＥ＿ＭＸ）／．９ ’ＩＦ　ＳＣＥ＞＝ＳＣＧＬＥＮ＊．６５　ＴＨＥＮ　ＣＬＲ＝１ ＩＦ　ＳＣＯＲＥ＞＝ＳＣＧＣＬＲＳ　ＴＨＥＮ　ＣＬＲ＝１ ＩＦ　ＣＬＲ＝＝１　ＡＮＤ　ＲＥＳＴ＋ＨＮＴ３Ｃ＋ＨＮＴ４Ｃ＝＝０　ＴＨＥＮ　ＣＬＲ＝２ ＩＦ　ＣＬＲ＝＝２　ＡＮＤ　ＨＮＴ２Ｃ＝＝０　ＴＨＥＮ　ＣＬＲ＝３ ＦＯＲ　Ｉ＝０　ＴＯ　２ 　ＩＦ　ＣＬＲ＞Ｉ　ＴＨＥＮ　ＳＰＣＨＲ　７＋Ｉ，９２，０，０，０，０：ＢＥＥＰ　７：ＷＡＩＴ　２０ ＮＥＸＴ ＩＦ　ＣＬＲ＝＝０　ＴＨＥＮ　ＧＴ＄＝”┝┷Щ╂├”：ＧＸ＝３０ ＩＦ　ＣＬＲ＝＝１　ＴＨＥＮ　ＧＴ＄＝”クリア”：ＧＸ＝４６：ＧＰ＝３ ＩＦ　ＣＬＲ＝＝２　ＴＨＥＮ　ＧＴ＄＝”フルコンホ゛”：ＧＸ＝２４：ＧＰ＝３ ＩＦ　ＣＬＲ＝＝３　ＴＨＥＮ　ＧＴ＄＝”ハ゜−フェクト”：ＧＸ＝１４：ＧＰ＝３ ＧＹ＝１１６：ＧＳ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＧＰ＝０ ＩＦ　ＣＬＲ＝＝０　ＴＨＥＮ　ＢＥＥＰ　８ ＩＦ　ＡＵＴＯ　ＯＲ　ＳＣＯＲＥ＜＝ＯＬＤＳＣＯＲＥ　ＴＨＥＮ　＠ＨＳ＿ＳＫＩＰ ＷＡＩＴ　３０ ＧＴ＄＝”ハイスコア”：ＧＸ＝２６：ＧＹ＝１４４：ＧＳ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＧＴ＄＝”└┼┝л！”：ＧＸ＝３８：ＧＹ＝１６４：ＧＳ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ ＢＥＥＰ　５ ＠ＨＳ＿ＳＫＩＰ ＣＲＢ＄＝”ＢＧ”：ＣＲＩ＝＆Ｈ３Ｆ：ＧＯＳＵＢ　＠ＣＯＬＲＤ ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ３Ｆ，Ｃ＄ ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ３０，ＢＧ＿Ｃ１＄ ＲＳＬＴＣＮＴ＝０ ＧＤＲＡＷＭＤ　１ ＠ＲＳＬＴＬＯＯＰ ＶＳＹＮＣ　１ ＲＳＬＴＣＮＴ＝（ＲＳＬＴＣＮＴ＋１）％１２ ＩＦ　ＲＳＬＴＣＮＴ＝＝０　ＴＨＥＮ　ＧＦＩＬＬ　２６，１４４，１１７，１７９，＆Ｈ３０ ＩＦ　！ＢＵＴＴＯＮ（２）　ＴＨＥＮ　＠ＲＳＬＴＬＯＯＰ ＧＤＲＡＷＭＤ　０ ＧＯＳＵＢ　＠ＳＡＶ ＧＯＴＯ　＠ＭＥＮＵ ＠ＳＡＶ ＩＦ　ＡＵＴＯ　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＳＣＯＲＥ＜＝ＯＬＤＳＣＯＲＥ　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＣＬＲ＞＝１　ＴＨＥＮ　ＳＴＡＲ＝ＳＴＡＲ　ＯＲ　１＋ＥＸ＊７ ＩＦ　ＣＬＲ＞＝２　ＴＨＥＮ　ＳＴＡＲ＝ＳＴＡＲ　ＯＲ　２＋ＥＸ＊１４ ＩＦ　ＣＬＲ＞＝３　ＴＨＥＮ　ＳＴＡＲ＝ＳＴＡＲ　ＯＲ　４＋ＥＸ＊２８ ＳＶＤＡＴＡ＄＝ＣＨＲ＄（ＳＴＡＲ）＋ＲＩＧＨＴ＄（ＳＶＤＡＴＡ＄，３４） ＳＶＤＡＴＡ１＄＝ＨＥＸ＄（ＳＣＯＲＥ，５） ＳＶＤＡＴＡ１＄＝ＳＶＤＡＴＡ１＄＋ＨＥＸ＄（ＨＮＴ１Ｃ，３） ＳＶＤＡＴＡ１＄＝ＳＶＤＡＴＡ１＄＋ＨＥＸ＄（ＨＮＴ２Ｃ，３） ＳＶＤＡＴＡ１＄＝ＳＶＤＡＴＡ１＄＋ＨＥＸ＄（ＨＮＴ３Ｃ，３） ＳＶＤＡＴＡ１＄＝ＳＶＤＡＴＡ１＄＋ＨＥＸ＄（ＨＮＴ４Ｃ，３） ＳＶＤＡＴＡ＄＝ＳＵＢＳＴ＄（ＳＶＤＡＴＡ＄，１＋ＳＶＬＥＮ１＊ＥＸ，ＳＶＬＥＮ１，ＳＶＤＡＴＡ１＄） ＭＥＭ＄＝ＳＵＢＳＴ＄（ＭＥＭ＄，ＳＶＬＥＮ＊ＢＧＭ，ＳＶＬＥＮ，ＳＶＤＡＴＡ＄） ＳＡＶＥ　ＳＡＶＦＩＬＥ＄ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＬＩＳＴ ＤＡＴＡ　７ ＤＡＴＡ　１４，８５，”ＢＧＭ１４”，”フ゜リセット”，１，５ ＤＡＴＡ　１５２，１２０，”リス゛ミカルГチャイム”，”オリシ゛ナル”，２，６ ＤＡＴＡ　１５３，１１５，”ＢＧＭ１１（アレンシ゛）”，”フ゜リセット”，２，７ ＤＡＴＡ　１５０，８０，”Ｇｅｔ　Ｓｔａｒｔｅｄ！”，”オリシ゛ナル”，３，７ ＤＡＴＡ　２３，９５，”ＢＧＭ２３”，”フ゜リセット”，４，８ ＤＡＴＡ　２，９０，”ＢＧＭ０２”，”フ゜リセット”，４，１０ ＤＡＴＡ　１５１，１２７，”│кжд┌вШ”，”オリシ゛ナル”，５，１０ この後ろに譜面データとMMLがあります。 一部の記号はひらがなに割り当てられています。

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

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

• 名無しさん : この時代に無いはずの曲が…() (2020/08/11 (火) 20:01:19)
• 名無しさん : もちろん新曲3号にも移植するんですよね？ (2020/08/12 (水) 09:55:22)

お名前: