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

パンくずリスト

• トップ
• Toukou
• DROP SHOOT

2012年7月3日投稿 / 投稿者 : MOT / タグ : 投稿プログラム ゲーム シューティングゲーム QRコード mkII専用 / 検索用 : 【MOT】

概要

2D横スクロールシューティングです。

履歴

• 2012/7/3 V1.0.0 公開
  
• 2012/7/8 動画掲載
  
• 2012/7/11 V1.0.1 公開
  
  • 不具合修正
    • 10周目毎に行うスピードリセットが一回しか動作しない不具合修正
    • 3ボス逃亡時、バリアが次の面に残ったままとなり、他の敵にくっついて出現してしまう不具合修正
  • 変更
    • スピードリセットを10周→100周に変更
    • 爆発を背景に追随してスクロールするよう変更
    • その他、内部変数や一部処理の見直し（動作的には影響なし）
    • ？？？
  • 修正箇所
    • 修正箇所が多岐に渡るため、ソースの修正位置の表示は省略します。
    • すみませんが、再度QRコードの読み込みをお願いします。
    • 但し、致命的な不具合ではないため、V1.0.0のままでもお楽しみ頂けます。
• 2012/7/14 動画差替え（V1.0.1、ピンボケ解消）
  
• 2012/7/18 ニコニコ動画掲載
  
• 2012/7/25 V1.1.0 公開
  
  • 変更
    • ショット発射位置調整
    • 自機爆発を中型の敵に準拠（爆風×3）
    • ボスの爆発を派手に変更
    • 爆発のアニメ時間変更（12→10）
    • ボーナス取得スコアを画面表示
    • リセットコマンド追加
    • 終了コマンド追加
    • バリアの色を耐久力に応じて変化するよう変更
    • 中型、大型の敵を被ダメージにより、色を変化
  • 不具合修正
    • 3ボスと自機が衝突した場合、両方破壊されるが次のステージに進まない不具合修正
  • 修正箇所
    • 修正箇所が多岐に渡るため、ソースの修正位置の表示は省略します。
    • すみませんが、再度QRコードの読み込みをお願いします。
    • 下記行を修正すれば、旧バージョンでもお楽しみ頂けます。
    • V1.0.1 795行目、V1.0.0 788行目
    • （旧） IF EHP(J)==1 THEN F=1:SCORE=SCORE+ESCORE(J)
    • （新） IF EHP(J)==1 AND EID(J)!=33 THEN F=1:SCORE=SCORE+ESCORE(J)
  • 操作方法、バリア、裏技を追記
• 2012/8/2 ページの最後、タグ:MOT を追加
  
• 2012/8/3 プログラムリストの位置を、CHECKER FLAG (ひとことコメント) の後ろへ移動
  
• 2012/8/5 V1.2.0 公開
  
  • 変更
    • 終了コマンド時にフォント初期化
    • 壁のグラフィック変更（STAGE2,3）
    • 背景グラフィック変更
    • ボス撃破時間により、BONUSの確率変動
    • ボスの爆発をより派手に変更
    • 金色の小型敵追加
    • パワーアップ最大時にアイテムPを取るとボーナス
    • バリア金色時にアイテムBを取るとボーナス
    • パフォーマンス改善
    • タイトルロゴ変更
  • 修正箇所
    • 修正箇所が多岐に渡るため、ソースの修正位置の表示は省略します。
    • すみませんが、再度QRコードの読み込みをお願いします。
• 2012/8/26 タグ:MOTを削除　検索用を追加　プログラムリスト位置を戻す　プログラムリスト削除→jpgに置換え
• 2012/9/5 プログラムリストをjpg→txtに変更
• 2012/9/25 youtube動画差替（V1.2.0）　裏技、プログラムリストを折りたたみに変更
• 2013/6/29 ニコニコ動画差替（V1.2.0）
• 2013/9/30 QRコード画質向上

環境

動作環境

プチコンmkII専用です。
バージョン2.1で動作確認しています。
バージョン2.0では「★」が改行に文字化けしてしまうプチコンの不具合があるため、
2.1へアップデートしてからお楽しみ下さい。

インストール

このゲームのQRコード（PRG:MOTDRS）以外に、
公式のプレゼント素材のフォント
（CHR:SBFT_E04（SmileBoom FonT_English 04）
を使用しています。
なくても動作しますが、起動時にメッセージが表示されてしまうのと、
上記フォントがあった方が雰囲気がいいので入れたほうが幸せになれます。

遊び方

操作方法

• 十字キー：自機移動
• Yボタン：ショット（連射）
• Bボタン：スピードアップ（押してる間）
• Aボタン：ショット
• STARTボタン：ポーズ
  • ポーズ中にL→Aボタン：リセット（V1.1.0）
• タイトル画面でB→Aボタン：終了（V1.1.0）

ミス

バリアがない状態で敵、敵弾に当たるとミスです。
残機は画面右上に表示されています。
残機0でミスするとゲームオーバーです。
壁は当たってもミスになりません。

ハイスコア

メモリファイル（MEM:MOTDRSM）を使った保存が可能です。
タイトル画面で・・・

• Lボタン：ロード
• Rボタン：セーブ

なお、起動時に自動でロードはしませんので、
保存してあるハイスコアより低いスコアをセーブしてしまわないよう注意です。

アイテム

• P（赤）：パワーアップ
• B（青）：バリア
• 自機の小型版：1UP
• ★：点数ボーナス（ランダムに 1,000〜10,000）
  • 大型（ボス）から出現した場合は、ボス出現時から撃破までの時間が短いほど高得点になりやすくなります（V1.2.0）

P、B、自機の小型版は中型の敵などを倒すと出現します。
★は大型（ボス）、または金色の小型敵（V1.2.0）を倒すと出現します。

パワーアップ

アイテムPを取るたびに、5段階パワーアップします。

• 1（初期装備）：緑ショット×1
• 2 ：緑ショット×2
• 3 ：緑ショット×3
• 4 ：赤ショット×1
• 5 ：赤ショット×2
• 6 ：赤ショット×3

赤ショットは緑ショットの1.5倍のダメージです。

ミスするとショット×1まで戻ります。
1度赤ショットまでパワーアップすると、
ミスしても4段階目（赤ショット×1）までしか戻りません。

パワーアップ6段階目でさらにアイテムPを取ると、1,000点ボーナス（V1.2.0）

バリア

アイテムBを取ると、耐久力1のバリアが張られます。
バリアがある状態でさらにアイテムBを取ると、耐久力が+1されます。
耐久力に上限はありません。
また、ダメージを受けると一定時間無敵（追加でダメージを受けない）状態になります。
その時は自機、バリアともに点滅しています。

耐久力に応じて色が変化します。（V1.1.0）

• 1：緑
• 2：銀
• 3〜：金
  • 金色の時にさらにアイテムBを取ると、1,000点ボーナス（V1.2.0）
    

ゲーム進行

1. 小型・中型の敵
2. 大型（ボス）
3. 次ステージへ・・・

の繰り返しです。
全3ステージで、以降は1〜*のループとなります。
（一応ネタバレにならないよう伏せてますw）

裏技

だいぶコメントでも出てきましたので、そろそろ公開します。
但し、ゲームバランスが著しく崩壊するものもあるので、通常プレイに飽きた方向けw

+

裏技

フォント設定：セレクトボタンを押しながら起動 1〜99：公式英語フォント 0：標準フォント 1：ローカルカスタムフォント（標準をちょっと太字にしたもの） ステージセレクト：タイトル画面で上：UP、下：DOWN モードセレクト：タイトル画面で右1：BOSS MODE、右2：TEST MODE 裏モード：ポーズ中にR：画面右に「？」が表示されると裏モードに突入 デバッグ：裏モード中に上：内部変数の参照、裏モードコマンドの表示 フリープレイ：裏モード中に左：残機が0になってもゲームオーバーにならない 無敵：裏モード中に右：敵、敵弾に当たってもミスにならない 標準装備：裏モード中に下：標準装備をパワーアップした状態に設定。0〜5まで指定可能 デバッグ2：裏モード中にX：下画面に内部変数の参照を表示。敵機スプライト情報 自動連射：裏モード中にY：Yボタンを押さなくてもショットを発射し続ける WAIT無し：裏モード中にB：ゲーム中のWAITを解除（V1.0.1） オーバードライブ：裏モード中にA：超連射！（V1.0.1） タッチパネル：タッチパネルによる自機の操作も可能 移動：タッチ位置に移動。タッチペンを浮かせる事により、瞬間移動も可能 ショット：タッチ中は自動連射となる

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

※V1.2.0（最新版）の動画です。
※1週目まるごと載せてますので、プレイ前にネタバレしたくない方は途中で止めてくださいね。

※V1.2.0（最新版）の動画です。

QR コード

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

プログラムリスト

+

リスト

’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ’−　ＤＲＯＰ　ＳＨＯＯＴ　　　　　　　　　　　　　　　− ’−　　　　　　　　　　　　　　　　　　　　　　　　　　− ’−　　　　　　　　　　　　ＢＹ　ＭＯＴ　　　　　　　　− ’−　　　　　　　　　　　　　　　　　　　　　　　　　　− ’−　ＦＩＬＥ　ＩＤ　　　　　　　　　　　　　　　　　　− ’−　　　＞ＰＲＧ　：ＭＯＴＤＲＳ　　　　　　　　　　　− ’−　　　＞ＭＥＭ　：ＭＯＴＤＲＳＭ　　　　　　　　　　− ’−　　　＞ＢＧＦ０：ＳＢＦＴ＿Ｅ０４　　　　　　　　　− ’−　　　　（ＯＦＦＩＣＩＡＬ　ＥＸＴＥＮＳＩＯＮ）　　− ’−　　　　　　　　　　　　　　　　　　　　　　　　　　− ’−　Ｖ０．１．０　２０１２．０４．０３　　　　　　　　− ’−　　　＞ＭＡＫＥ　ＳＴＡＲＴ　　　　　　　　　　　　− ’−　Ｖ１．０．０　２０１２．０７．０３　　　　　　　　− ’−　　　＞ＦＩＲＳＴ　ＲＥＬＥＡＳＥ　　　　　　　　　− ’−　Ｖ１．０．１　２０１２．０７．１１　　　　　　　　− ’−　　　＞ＢＵＧ　ＦＩＸ　　　　　　　　　　　　　　　− ’−　　　＞ＬＶ　ＲＥＳＥＴ１０→１００　　　　　　　　− ’−　　　＞ＥＸＰＬＯＳＩＯＮ　ＭＯＶＥ　　　　　　　　− ’−　Ｖ１．１．０　２０１２．０７．２５　　　　　　　　− ’−　　　＞ＳＨＯＴ　ＰＯＳＩＴＩＯＮ　　　　　　　　　− ’−　　　＞ＭＹ　ＥＸＰＬ　ＥＦＦＥＣＴ　　　　　　　　− ’−　　　＞ＢＯＳＳ　ＥＸＰＬ　ＥＦＦＥＣＴ　　　　　　− ’−　　　＞ＥＸＰＬ　ＡＮＩＭ　ＴＩＭＥ　１２→１０　　− ’−　　　＞ＢＯＮＵＳ　ＤＩＳＰＬＡＹ　　　　　　　　　− ’−　　　＞ＲＥＳＥＴ　ＣＯＭＭＡＮＤ　　　　　　　　　− ’−　　　＞ＱＵＩＴ　ＣＯＭＭＡＮＤ　　　　　　　　　　− ’−　　　＞ＢＡＲＲＩＥＲ　ＣＯＬＯＲ　　　　　　　　　− ’−　　　＞ＥＮＥＭＹ　ＤＡＭＡＧＥ　ＣＯＬＯＲ　　　　− ’−　　　＞ＢＵＧ　ＦＩＸ　（Ｂ　ＣＯＬＬＩＳＩＯＮ）　− ’−　Ｖ１．２．０　２０１２．０８．０５　　　　　　　　− ’−　　　＞ＱＵＩＴ　ＦＯＮＴ　ＩＮＩＴＩＡＬＩＺＥ　　− ’−　　　＞ＷＡＬＬ　ＧＲＡＰＨＩＣ　（ＳＴ２，３）　　− ’−　　　＞ＢＡＣＫ　ＧＲＡＰＨＩＣ　　　　　　　　　　− ’−　　　＞ＢＯＳＳ　ＦＡＳＴ　ＤＥＳＴ　ＢＯＮＵＳ　　− ’−　　　＞ＢＯＳＳ　ＥＸＰＬ　ＥＦＦＥＣＴ　　　　　　− ’−　　　＞ＧＯＬＤＥＮ　ＥＮＥＭＹ　　　　　　　　　　− ’−　　　＞ＰＯＷＥＲ　ＭＡＸ　ＢＯＮＵＳ　　　　　　　− ’−　　　＞ＢＡＲＲＩＥＲ　ＧＯＬＤ　ＢＯＮＵＳ　　　　− ’−　　　＞ＰＥＲＦＯＲＭＡＮＣＥ　ＴＵＮＩＮＧ　　　　− ’−　　　＞ＴＩＴＬＥ　ＬＯＧＯ　　　　　　　　　　　　− ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ’−−ＢＯＯＴ　ＯＮＬＹ　ＲＯＵＴＩＮＥ ＧＯＳＵＢ　＠ＢＯＯＴ ’−−ＳＴＡＲＴ　ＬＡＢＥＬ ＠ＳＴＡＲＴ ’−−ＩＮＩＴ　ＭＡＩＮ ＠ＩＮＩＴ ＧＯＳＵＢ　＠ＩＮＩＴ００ ＧＯＳＵＢ　＠ＨＥＮＩＮＩＴ ＧＯＳＵＢ　＠ＢＧＩＮＩＴ ＧＯＳＵＢ　＠ＳＰＩＮＩＴ ＧＯＳＵＢ　＠ＳＴＩＮＩＴ ＧＯＳＵＢ　＠ＩＮＦＯ ＦＮＯＷ＝ＭＡＩＮＣＮＴＬ：ＦＰＳ＝０：ＦＣＮＴ＝ＦＮＯＷ ’−−ＭＡＩＮ　ＬＯＯＰ ＠ＬＯＯＰ ＯＮ　ＰＨＡＳＥ　ＧＯＳＵＢ　＠ＴＩＴＬＥ，＠ＧＡＭＥ，＠ＯＶＥＲ ＧＯＳＵＢ　＠ＢＴＮ ＧＯＳＵＢ　＠ＴＯＵＣＨ ＦＰＳ＝ＦＰＳ＋１ ＦＮＯＷ＝ＭＡＩＮＣＮＴＬ ＶＳＹＮＣ　！ＮＯＷＡＩＴ ＩＦ　ＦＮＯＷ＜ＦＣＮＴ　ＴＨＥＮ　ＦＣＮＴ＝ＦＮＯＷ ＩＦ　（ＦＮＯＷ−ＦＣＮＴ）＜６０　ＴＨＥＮ　＠ＬＯＯＰ ＦＣＮＴ＝ＦＮＯＷ ＦＶＩＥＷ＄＝ＳＴＲ＄（ＦＰＳ） ＦＰＳ＝０ ＧＯＴＯ　＠ＬＯＯＰ ＠ＴＩＴＬＥ ＩＦ　！ＢＧＭＦ　ＴＨＥＮ：ＢＧＭＰＬＡＹ　０，３：ＢＧＭＦ＝１ ＩＦ　ＳＴＡＲＴ　ＴＨＥＮ　＠ＴＩＴＬＥ３ ＬＯＣＡＴＥ　１２，１１：ＰＲＩＮＴ　”ＶＥＲ” Ｖ＄＝ＳＴＲ＄（ＰＧＶＥＲ） ＦＯＲ　Ｉ＝０　ＴＯ　２ 　ＬＯＣＡＴＥ　１５＋Ｉ＊２，１１ 　ＰＲＩＮＴ　ＭＩＤ＄（Ｖ＄，Ｉ，１）＋”．”＊（（Ｉ　ＸＯＲ　２）　ＡＮＤ　２） ＮＥＸＴ ＬＯＣＡＴＥ　７，１６ ＰＲＩＮＴ　”ＰＲＥＳＳ　ＡＮＹ　ＢＵＴＴＯＮ　！” ＬＯＣＡＴＥ　０，１２ ＰＲＩＮＴ　”　”＊３１ ＬＯＣＡＴＥ　１２，２０ ＰＲＩＮＴ　”２０１２　ＭＯＴ” ＧＯＴＯ　＠ＴＩＴＬＥ９９ ＠ＴＩＴＬＥＬＯＧＯ Ｓ＄＝”ＤＲＯＰ　ＳＨＯＯＴ” ＬＯＧＯＢＣＷ＝（ＬＯＧＯＢＣＷ＋０．１）％２ Ｃ＝ＦＬＯＯＲ（ＬＯＧＯＢＣＷ）＋１０ ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｓ＄）−１ 　ＧＰＵＴＣＨＲ　５７＋１５＊Ｉ，５２，”ＢＧＦ０”，ＡＳＣ（ＭＩＤ＄（Ｓ＄，Ｉ，１）），Ｃ，２ 　ＧＰＵＴＣＨＲ　５５＋１５＊Ｉ，５０，”ＢＧＦ０”，ＡＳＣ（ＭＩＤ＄（Ｓ＄，Ｉ，１）），０，２ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＴＩＴＬＥ３ ＣＬＳ：ＧＣＬＳ ＰＨＡＳＥ＝１ ＭＸ＝−３２ ＳＰＯＦＳ　ＭＳＮ，ＭＸ，ＭＹ，０ ＢＧＭＦ＝０：ＢＧＭＳＴＯＰ　 ＢＥＥＰ　３ ＠ＴＩＴＬＥ９９ ＲＥＴＵＲＮ ＠ＧＡＭＥ ＧＯＳＵＢ　＠ＭＹＭＯＶＥ ＧＯＳＵＢ　＠ＭＹＳＨＯＴ ＧＯＳＵＢ　＠ＳＴＡＧＥ ＧＯＳＵＢ　＠ＥＸＰＬＡＮＭ ＩＦ　ＧＣＮＴ％ＳＫＩＰ１　ＴＨＥＮ　＠ＧＡＭＥ９９ ＧＯＳＵＢ　＠ＥＮＤＥＡＤ ＧＯＳＵＢ　＠ＭＹＤＥＡＤ ＩＦ　ＧＣＮＴ％ＳＫＩＰ２　ＴＨＥＮ　＠ＧＡＭＥ９９ ＧＯＳＵＢ　＠ＥＮＢＯＲＮ ＧＯＳＵＢ　＠ＥＮＭＯＶＥ ＧＯＳＵＢ　＠ＢＧＳＣＲＬ ＧＯＳＵＢ　＠ＩＮＦＯ ＠ＧＡＭＥ９９ ＧＣＮＴ＝ＧＣＮＴ＋１ ＲＥＴＵＲＮ ＠ＯＶＥＲ ＢＧＭＰＬＡＹ　０，６：ＢＧＭＦ＝１ ＬＯＣＡＴＥ　１１，１２ ＰＲＩＮＴ　”ＧＡＭＥ　ＯＶＥＲ” ＧＯＳＵＢ　＠ＢＴＮＯＦＦ ＧＯＳＵＢ　＠ＢＴＮＷＡＩＴ ＧＯＳＵＢ　＠ＢＴＮＯＦＦ ＧＯＴＯ　＠ＳＴＡＲＴ ＲＥＴＵＲＮ ’−−ＩＮＦＯＲＭＡＴＩＯＮ ＠ＩＮＦＯ ＧＯＳＵＢ　＠ＩＮＦＭＧＣ ＧＯＳＵＢ　＠ＩＮＦＭＳＧ ＩＦ　ＧＣＮＴ％ＳＫＩＰ３　ＴＨＥＮ　ＲＥＴＵＲＮ ＧＯＳＵＢ　＠ＩＮＦＳＣ ＩＦ　ＰＨＡＳＥ＞０　ＡＮＤ　ＤＥＢＵＧ！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＩＮＦＤＢＧ ＩＦ　ＰＨＡＳＥ＞０　ＡＮＤ　ＤＥＢＵＧ２！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＩＮＦＤＢＧ２ ＩＦ　ＢＯＮＵＳＣＮＴ　ＴＨＥＮ　ＩＦ　ＢＯＮＵＳＣＮＴ＜＝ＧＣＮＴ−１００　ＴＨＥＮ　ＧＣＬＳ：ＢＯＮＵＳＣＮＴ＝０ ＩＦ　ＧＣＮＴ　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＰＨＡＳＥ＞０　ＡＮＤ　ＤＥＢＵＧ２！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＣＳＣＲＣＬＳ ＩＦ　！ＤＥＢＵＧ２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＨＯＷＴＯ ＲＥＴＵＲＮ ＠ＩＮＦＳＣ ＩＦ　ＳＣＯＲＥ＞ＳＣＯＲＥＭＡＸ　ＴＨＥＮ　ＳＣＯＲＥ＝ＳＣＯＲＥＭＡＸ Ｓ＄＝ＳＴＲ＄（ＳＣＯＲＥ）：Ｌ＝ＬＥＮ（Ｓ＄） ＳＣＳＴＲ＄＝ＳＵＢＳＴ＄（”０００００００”，５−Ｌ，Ｌ，Ｓ＄） ＬＯＣＡＴＥ　０，０：ＰＲＩＮＴ　”ＳＣ：”ＳＣＳＴＲ＄；”　” ＩＦ　ＳＣＯＲＥ＞ＨＩＳＣＯＲＥ　ＴＨＥＮ　ＨＩＳＣＯＲＥ＝ＳＣＯＲＥ Ｓ＄＝ＳＴＲ＄（ＨＩＳＣＯＲＥ）：Ｌ＝ＬＥＮ（Ｓ＄） ＳＣＳＴＲ＄＝ＳＵＢＳＴ＄（”０００００００”，５−Ｌ，Ｌ，Ｓ＄） ＬＯＣＡＴＥ　１１，０：ＰＲＩＮＴ　”ＨＩ：”ＳＣＳＴＲ＄；”　” Ｓ＄＝ＳＴＲ＄（ＳＴＡＧＥＮＯ）：Ｌ＝ＬＥＮ（Ｓ＄） ＩＦ　Ｌ＜＝２　ＴＨＥＮ　ＳＴＳＴＲ＄＝ＳＵＢＳＴ＄（”０”，２−Ｌ，Ｌ，Ｓ＄）　ＥＬＳＥ　ＳＴＳＴＲ＄＝”ИИ” ＬＯＣＡＴＥ　２２，０：ＰＲＩＮＴ　”ＳＴ：”；ＳＴＳＴＲ＄；”　” ＩＦ　ＳＴＡＧＥＭＯＤＥ＝＝０　ＴＨＥＮ　Ｓ＄＝”　” ＩＦ　ＳＴＡＧＥＭＯＤＥ＝＝１　ＴＨＥＮ　Ｓ＄＝”Ｂ” ＩＦ　ＳＴＡＧＥＭＯＤＥ＝＝２　ＴＨＥＮ　Ｓ＄＝”Ｔ” ＬＯＣＡＴＥ　２７，０：ＰＲＩＮＴ　Ｓ＄ ＩＦ　ＭＬＩＦＥ＜＝１０　ＴＨＥＮ　Ｓ＄＝ＳＴＲ＄（ＭＬＩＦＥ−１）　ＥＬＳＥ　Ｓ＄＝”９” ＩＦ　ＭＬＩＦＥ＜＝０　ＴＨＥＮ　Ｓ＄＝”０” ＬＯＣＡＴＥ　２９，０：ＰＲＩＮＴ　”Г：”；Ｓ＄ ＩＦ　ＰＨＡＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＳＴＡＧＥＭＯＤＥ＝＝０　ＴＨＥＮ　Ｓ＄＝”　”＊９ ＩＦ　ＳＴＡＧＥＭＯＤＥ＝＝１　ＴＨＥＮ　Ｓ＄＝”ＢＯＳＳ　ＭＯＤＥ” ＩＦ　ＳＴＡＧＥＭＯＤＥ＝＝２　ＴＨＥＮ　Ｓ＄＝”ＴＥＳＴ　ＭＯＤＥ” ＬＯＣＡＴＥ　１２，１３：ＰＲＩＮＴ　Ｓ＄ ＲＥＴＵＲＮ ＠ＩＮＦＭＧＣ ＩＦ　ＰＨＡＳＥ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ ＢＧＭＦ＝１：Ｆ＝０：Ｓ＝ＳＴＮＯ ＠ＩＮＦＭＧＣ１ ＩＦ　ＳＴＣＬＲ＞０　ＴＨＥＮ　＠ＩＮＦＭＧＣ２ ＩＦ　ＳＴＭＧＣ（Ｓ）＞０　ＴＨＥＮ　ＢＧＭＦ＝０：ＢＯＳＳＭＯＤＥ＝０ ＩＦ　ＳＴＭＧＣ（Ｓ）＝＝７１　ＴＨＥＮ　Ｍ＝２３：Ｆ＝１：ＳＨＯＴＳＥ＝ＦＡＬＳＥ ＩＦ　ＳＴＭＧＣ（Ｓ）＝＝７２　ＴＨＥＮ　Ｍ＝１７：Ｆ＝１：ＳＨＯＴＳＥ＝ＦＡＬＳＥ ＩＦ　ＳＴＭＧＣ（Ｓ）＝＝７４　ＴＨＥＮ　Ｍ＝１３：Ｆ＝１：ＳＨＯＴＳＥ＝ＦＡＬＳＥ：ＢＯＳＳＭＯＤＥ＝１ ＩＦ　ＳＴＭＧＣ（Ｓ）＝＝７５　ＴＨＥＮ　Ｍ＝　２：Ｆ＝１：ＳＨＯＴＳＥ＝ＦＡＬＳＥ：ＢＯＳＳＭＯＤＥ＝１ ＩＦ　ＳＴＭＧＣ（Ｓ）＝＝７６　ＴＨＥＮ　Ｍ＝２９：Ｆ＝１：ＳＨＯＴＳＥ＝ＦＡＬＳＥ：ＢＯＳＳＭＯＤＥ＝１ ＩＦ　ＳＴＭＧＣ（Ｓ）＝＝７８　ＴＨＥＮ　ＢＧＭＳＴＯＰ：Ｆ＝２：ＢＥＥＰ　４１，９０：ＳＨＯＴＳＥ＝ＦＡＬＳＥ ＩＦ　ＳＴＭＧＣ（Ｓ）＝＝７９　ＴＨＥＮ　ＢＧＭＳＴＯＰ：Ｆ＝２：ＢＧＭＦ＝０ ＠ＩＮＦＭＧＣ２ ＩＦ　ＳＴＣＬＲ＝＝２　ＴＨＥＮ　ＢＧＭＦ＝０：ＢＧＭＳＴＯＰ：Ｆ＝２：ＳＨＯＴＳＥ＝ＦＡＬＳＥ：ＧＯＳＵＢ　＠ＥＸＰＬＢＢ ＩＦ　ＳＴＣＬＲ＝＝４　ＴＨＥＮ　ＢＧＭＦ＝０：Ｍ＝１５：Ｆ＝１：ＳＨＯＴＳＥ＝ＦＡＬＳＥ ＩＦ　！ＢＧＭＦ　ＡＮＤ　Ｆ！＝２　ＴＨＥＮ：ＢＧＭＰＬＡＹ　０，Ｍ：ＢＧＭＦ＝１ ＩＦ　Ｆ＝＝１　ＴＨＥＮ　ＢＧＭＮＯＷ＝Ｍ ＩＦ　Ｆ＝＝２　ＴＨＥＮ　ＢＧＭＮＯＷ＝−１ ＲＥＴＵＲＮ ＠ＥＸＰＬＢＢ ＩＦ　！（ＧＣＮＴ％８）　ＴＨＥＮ　ＲＥＴＵＲＮ ＦＯＲ　ＩＢＢ＝０　ＴＯ　２ 　ＢＥＥＰ　１３，０，７０ 　ＤＦ（ＤＰＯＩＮＴ）＝１ 　Ｖ＝ＲＮＤ（３２）−１６ 　Ｘ＝ＥＢＸ＋Ｖ＊２−ＳＫＩＰ２＊ＬＥＶＥＬ 　Ｙ＝ＥＢＹ＋Ｖ＊２ 　ＩＦ　Ｙ＜　２７　ＴＨＥＮ　Ｙ＝　２７ 　ＩＦ　Ｙ＞１７１　ＴＨＥＮ　Ｙ＝１７１ 　ＤＸ（ＤＰＯＩＮＴ）＝Ｘ：ＤＹ（ＤＰＯＩＮＴ）＝Ｙ 　ＧＯＳＵＢ　＠ＥＸＰＬ ＮＥＸＴ ＥＢＸ＝Ｘ ＲＥＴＵＲＮ ＠ＩＮＦＭＳＧ Ｍ＄＝”　”＊３２：Ｓ＝ＳＴＮＯ ＩＦ　ＳＴＭＳＧ（Ｓ）＝＝８１　ＴＨＥＮ　Ｍ＄＝”ＳＴＡＧＥ　”＋ＳＴＲ＄（ＳＴＡＧＥＮＯ） ＩＦ　ＳＴＭＳＧ（Ｓ）＝＝８２　ＴＨＥＮ　Ｍ＄＝”ＷＡＲＮＩＮＧ！” ＩＦ　ＳＴＭＳＧ（Ｓ）＝＝８３　ＴＨＥＮ　Ｍ＄＝”ＳＴＡＧＥ　ＣＬＥＡＲ” ＩＦ　ＳＴＣＬＲ＝＝５　ＡＮＤ　ＳＴＡＧＥＮＯ！＝ＳＴＡＧＥＬＯＯＰ　ＴＨＥＮ　Ｍ＄＝”ＳＴＡＧＥ　”＋ＳＴＲ＄（ＳＴＡＧＥＮＯ）＋”　ＣＬＥＡＲ” ＩＦ　ＳＴＣＬＲ＝＝５　ＡＮＤ　ＳＴＡＧＥＮＯ＝＝ＳＴＡＧＥＬＯＯＰ　ＴＨＥＮ　Ｍ＄＝”ＴＨＡＮＫ　ＹＯＵ　ＦＯＲ　ＰＬＡＹＩＮＧ　！” ＬＯＣＡＴＥ　ＦＬＯＯＲ（（３２−ＬＥＮ（Ｍ＄））／２），１２：ＰＲＩＮＴ　Ｍ＄ ＲＥＴＵＲＮ ＠ＩＮＦＤＢＧ ＬＯＣＡＴＥ　　０，　４：ＰＲＩＮＴ　”［ＤＥＢＵＧ　ＭＯＤＥ］” ＬＯＣＡＴＥ　　０，　５：ＰＲＩＮＴ　”ＦＰＳ　　　　　：”；ＦＶＩＥＷ＄；”　　” ＩＦ　ＤＥＢＵＧ＝＝２　ＴＨＥＮ　ＲＥＴＵＲＮ ＬＯＣＡＴＥ　　０，　６：ＰＲＩＮＴ　”ＧＣＮＴ　　　　：”；ＧＣＮＴ；”　　　　　” ＬＯＣＡＴＥ　　０，　７：ＰＲＩＮＴ　”ＳＴＡＧＥＮＯ　：”；ＳＴＡＧＥＮＯ；”　　” ＬＯＣＡＴＥ　　０，　８：ＰＲＩＮＴ　”ＳＴＮＯ　　　　：”；ＳＴＮＯ；”　　” ＬＯＣＡＴＥ　　０，　９：ＰＲＩＮＴ　”ＥＮＭＩＮ　　　：”；ＥＮＭＩＮ（０），ＥＮＭＩＮ（１）”　　” ＬＯＣＡＴＥ　　０，１０：ＰＲＩＮＴ　”ＥＮＭＡＸ　　　：”；ＥＮＭＡＸ（０），ＥＮＭＡＸ（１）”　　” ＬＯＣＡＴＥ　　０，１１：ＰＲＩＮＴ　”ＥＮＡＣＴ　　　：”；ＥＮＡＣＴ（０），ＥＮＡＣＴ（１）”　　” ＬＯＣＡＴＥ　　０，１３：ＰＲＩＮＴ　”ＭＰＯＷ　　　　：”；ＭＰＯＷ；”　　” ＬＯＣＡＴＥ　　０，１４：ＰＲＩＮＴ　”ＭＢＡＲ　　　　：”；ＭＢＡＲ；”　　” ＬＯＣＡＴＥ　　０，１５：ＰＲＩＮＴ　”ＢＯＳＳＭＯＤＥ：”；ＢＯＳＳＭＯＤＥ；”　　” ＬＯＣＡＴＥ　　０，１６：ＰＲＩＮＴ　”ＢＧＭＮＯＷ　　：”；ＢＧＭＮＯＷ；”　　” ＬＯＣＡＴＥ　　０，１７：ＰＲＩＮＴ　”ＳＴＣＬＲ　　　：”；ＳＴＣＬＲ；”　　” ＬＯＣＡＴＥ　　０，１８：ＰＲＩＮＴ　”ＬＥＶＥＬ　　　：”；ＬＥＶＥＬ；”　　　　　　　” ＬＯＣＡＴＥ　１９，　５：ＰＲＩＮＴ　”ＵＲＡＭＯＤＥ　　н：”；ＵＲＡＭＯＤＥ；”　” ＬＯＣＡＴＥ　１９，　６：ＰＲＩＮＴ　”ＤＥＢＵＧ　　　　↑：”；ＤＥＢＵＧ；”　” ＬＯＣＡＴＥ　１９，　７：ＰＲＩＮＴ　”ＦＲＥＥＰＬＡＹ　←：”；ＦＲＥＥＰＬＡＹ；”　” ＬＯＣＡＴＥ　１９，　８：ＰＲＩＮＴ　”ＭＵＴＥＫＩ　　　→：”；ＭＵＴＥＫＩ；”　” ＬＯＣＡＴＥ　１９，　９：ＰＲＩＮＴ　”ＤＥＦＰＯＷ　　　↓：”；ＤＥＦＰＯＷ；”　” ＬＯＣＡＴＥ　１９，１０：ＰＲＩＮＴ　”ＤＥＢＵＧ２　　　Ф：”；ＤＥＢＵＧ２；”　” ＬＯＣＡＴＥ　１９，１１：ＰＲＩＮＴ　”ＡＵＴＯＦＩＲＥ　Х：”；ＡＵＴＯＦＩＲＥ；”　” ＬＯＣＡＴＥ　１９，１３：ＰＲＩＮＴ　”ＮＯＷＡＩＴ　　　Б：”；ＮＯＷＡＩＴ；”　” ＬＯＣＡＴＥ　１９，１４：ＰＲＩＮＴ　”ＯＶＥＲＤＲＩＶＥА：”；ＯＶＥＲＤＲＩＶＥ；”　” ＲＥＴＵＲＮ ＠ＴＣＳＣＲＣＬＳ ＦＯＲ　Ｉ＝０　ＴＯ　２３ 　Ｓ＄＝”　”＊３２ 　ＰＮＬＳＴＲ　０，Ｉ，Ｓ＄，０ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＩＮＦＤＢＧ２ ＦＯＲ　Ｋ＝０　　ＴＯ　ＥＮＡＣＴＭＡＸ−１ 　Ｌ＝Ｋ＊１５ 　ＰＮＬＳＴＲ　０＋Ｌ，０，ＳＴＲ＄（Ｋ），０ 　ＰＮＬＳＴＲ　３＋Ｌ，０，ＳＴＲ＄（ＥＮＡＣＴ（Ｋ）），０ 　ＰＮＬＳＴＲ　６＋Ｌ，０，ＳＴＲ＄（ＥＮＭＩＮ（Ｋ））＋”　”，０ 　ＰＮＬＳＴＲ　９＋Ｌ，０，ＳＴＲ＄（ＥＮＭＡＸ（Ｋ））＋”　”，０ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＥＭＡＸ／ＥＮＡＣＴＭＡＸ−１ 　　Ｊ＝Ｉ＋Ｋ＊１５ 　　ＰＮＬＳＴＲ　０＋Ｌ，Ｉ＋２，ＳＴＲ＄（Ｊ），０ 　　ＰＮＬＳＴＲ　３＋Ｌ，Ｉ＋２，ＳＴＲ＄（ＥＩＤ（Ｊ））＋”　”，０ 　　ＰＮＬＳＴＲ　６＋Ｌ，Ｉ＋２，ＳＴＲ＄（ＥＦ（Ｊ）），０ 　　ＰＮＬＳＴＲ　９＋Ｌ，Ｉ＋２，ＳＴＲ＄（ＥＨＰ（Ｊ））＋”　　”，０ 　ＮＥＸＴ ＮＥＸＴ ＲＥＴＵＲＮ ’−−ＨＯＷ　ＴＯ ＠ＨＯＷＴＯ Ｈ＄（　０）＝”┌────────　ＨＯＷ　ＴＯ　ＰＬＡＹ　─────────┐” Ｈ＄（　１）＝”│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　│” Ｈ＄（　２）＝”│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　│” Ｈ＄（　３）＝”│　ＣＯＮＴＲＯＬ　　　　　　　　　　　　　　　　　　　　　　│” Ｈ＄（　４）＝”│　　П　　　　　　　　−−　　ＭＯＶＥ　　　　　　　　　　　│” Ｈ＄（　５）＝”│　　Х　　　　　　　　−−　　ＦＩＲＥ　（ＡＵＴＯ）　　　　│” Ｈ＄（　６）＝”│　　Б　　　　　　　　−−　　ＳＰＥＥＤ　ＵＰ　　　　　　　│” Ｈ＄（　７）＝”│　　А　　　　　　　　−−　　ＦＩＲＥ　　　　　　　　　　　│” Ｈ＄（　８）＝”│　　ＳＴＡＲＴ　　　　−−　　ＰＡＵＳＥ　　　　　　　　　　│” Ｈ＄（　９）＝”│　　　└К　→　А　　−−　　ＲＥＳＥＴ　　　　　　　　　　│” Ｈ＄（１０）＝”│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　│” Ｈ＄（１１）＝”│　（ＴＩＴＬＥ　ＳＣＥＮＥ　ＯＮＬＹ）　　　　　　　　　　　│” Ｈ＄（１２）＝”│　　К　　　　　　　　−−　　ＨＩ−ＳＣＯＲＥ　ＬＯＡＤ　　│” Ｈ＄（１３）＝”│　　н　　　　　　　　−−　　ＨＩ−ＳＣＯＲＥ　ＳＡＶＥ　　│” Ｈ＄（１４）＝”│　　Б　→　А　　　　−−　　ＱＵＩＴ　　　　　　　　　　　│” Ｈ＄（１５）＝”│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　│” Ｈ＄（１６）＝”│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　│” Ｈ＄（１７）＝”│　ＩＴＥＭ　　　　　　　　　　　　　　　　　　　　　　　　　│” Ｈ＄（１８）＝”│　　Ｐ　　　　　　　　−−　　ＰＯＷＥＲ　ＵＰ　　　　　　　│” Ｈ＄（１９）＝”│　　Ｂ　　　　　　　　−−　　ＢＡＲＲＩＥＲ　　　　　　　　│” Ｈ＄（２０）＝”│　　ＦＩＧＨＴＥＲ　　−−　　１ＵＰ　　　　　　　　　　　　│” Ｈ＄（２１）＝”│　　И　　　　　　　　−−　　ＳＣＯＲＥ　ＢＯＮＵＳ　　　　│” Ｈ＄（２２）＝”│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　│” Ｈ＄（２３）＝”└──────────────────────────────┘” ＦＯＲ　Ｉ＝０　ＴＯ　２３ 　ＰＮＬＳＴＲ　０，Ｉ，Ｈ＄（Ｉ），０ ＮＥＸＴ ＰＮＬＳＴＲ　３，１８，”Ｐ”，１３ ＰＮＬＳＴＲ　３，１９，”Ｂ”，１１ ＰＮＬＳＴＲ　３，２１，”И”，　３ ＲＥＴＵＲＮ ’−−ＳＵＢ　ＭＹ　ＭＯＶＥ ＠ＭＹＭＯＶＥ Ｃ＝ＭＳＣ ＩＦ　ＭＤＥＡＤ＞１２０　ＴＨＥＮ　ＭＤＥＡＤ＝０：ＭＸ＝３０：ＭＹ＝９５ ＩＦ　ＭＬＩＦＥ＜＝０　ＡＮＤ　！ＦＲＥＥＰＬＡＹ　ＴＨＥＮ　ＰＨＡＳＥ＝２：ＭＸ＝−３２：ＢＧＭＦ＝０：ＢＧＭＳＴＯＰ：＠ＭＹＭＯＶＥ９９ ＩＦ　ＭＤＥＡＤ＞０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＹＢＯＲＮ ＩＦ　ＭＦＲＥＥ＞０　ＴＨＥＮ　ＭＦＲＥＥ＝ＭＦＲＥＥ＋１：Ｃ＝ＭＦＲＥＥ／３％２＋１ ＩＦ　ＭＦＲＥＥ＞１８０　ＡＮＤ　！ＭＵＴＥＫＩ　ＴＨＥＮ　ＭＦＲＥＥ＝０：Ｃ＝ＭＳＣ ＩＦ　ＭＦＲＥＥ＞１８０　ＡＮＤ　ＭＵＴＥＫＩ　ＴＨＥＮ　ＭＦＲＥＥ＝１ ＩＦ　ＭＵＴＥＫＩ　ＡＮＤ　！ＭＦＲＥＥ　ＴＨＥＮ　ＭＦＲＥＥ＝１ ＳＰＣＨＲ　ＭＳＮ，ＭＳＰ＋ＭＶ，Ｃ，０，０，ＭＳＰＲＩ ＳＰＯＦＳ　ＭＳＮ，ＭＸ，ＭＹ，０ ＠ＭＹＭＯＶＥ２ ＩＦ　！ＭＢＡＲ　ＴＨＥＮ　＠ＭＹＭＯＶＥ９９ ＩＦ　ＭＢＦ　ＴＨＥＮ　＠ＭＹＭＯＶＥ３ ＭＢＦ＝１ ＳＰＳＥＴ　ＭＢＳＮ，ＭＢＳＰ，ＭＢＳＣＢ（０），０，０，ＭＢＰＲＩ，３２，１６ ＳＰＨＯＭＥ　ＭＢＳＮ，１５，７ ＳＰＣＯＬ　ＭＢＳＮ，−２，−１，４，２，ＴＲＵＥ，＆ＨＦ０ ＳＰＡＮＩＭ　ＭＢＳＮ，２，３ ＠ＭＹＭＯＶＥ３ ＳＰＯＦＳ　ＭＢＳＮ，ＭＸ−２３，ＭＹ−１，０ ＳＰＳＣＡＬＥ　ＭＢＳＮ，２００ ＩＦ　ＭＢＡＲ＞＝３　ＴＨＥＮ　ＩＢ＝２　ＥＬＳＥ　ＩＢ＝ＭＢＡＲ−１ ＩＦ　ＭＦＲＥＥ＞０　ＡＮＤ　ＭＦＲＥＥ％２＝＝０　ＴＨＥＮ　ＣＢ＝１　ＥＬＳＥ　ＣＢ＝ＭＢＳＣＢ（ＩＢ） ＳＰＣＨＲ　ＭＢＳＮ，ＭＢＳＰ，ＣＢ，０，０，ＭＢＰＲＩ ＠ＭＹＭＯＶＥ９９ ＲＥＴＵＲＮ ＠ＭＹＢＯＲＮ ＭＤＥＡＤ＝ＭＤＥＡＤ＋１：ＭＹ＝９５ ＩＦ　ＭＤＥＡＤ＞６１　ＴＨＥＮ　Ｓ＝３３２−ＭＤＥＡＤ＊２　ＥＬＳＥ　Ｓ＝１００ ＩＦ　Ｓ＞２００　ＴＨＥＮ　Ｓ＝２００ ＩＦ　Ｓ＜１００　ＴＨＥＮ　Ｓ＝１００ ＳＰＳＣＡＬＥ　ＭＳＮ，Ｓ ＩＦ　ＭＤＥＡＤ＝＝６０　ＴＨＥＮ　ＭＬＩＦＥ＝ＭＬＩＦＥ−１：ＭＰＯＷ＝ＦＬＯＯＲ（ＭＰＯＷ／３）＊３：ＢＥＥＰ　５，−８１９２，８０ ＩＦ　（ＭＬＩＦＥ＞０　ＯＲ　ＦＲＥＥＰＬＡＹ）　ＡＮＤ　ＭＤＥＡＤ＞６０　ＴＨＥＮ　ＭＸ＝ＭＸ＋１ ＩＦ　ＤＥＦＰＯＷ　ＴＨＥＮ　ＭＰＯＷ＝ＤＥＦＰＯＷ ＲＥＴＵＲＮ ’−−ＳＵＢ　ＭＹ　ＳＨＯＴ ＠ＭＹＳＨＯＴ ＳＮＥＷ＝０ ＦＯＲ　Ｉ＝０　ＴＯ　ＳＭＡＸ−１ 　＠ＭＹＳＨＯＴ１ 　ＩＦ　！ＳＦ（Ｉ）　ＡＮＤ　ＳＢＴＮ＝＝０　ＴＨＥＮ　＠ＭＹＳＨＯＴ９９ 　ＩＦ　！ＳＦ（Ｉ）　ＡＮＤ　ＳＢＴＮ！＝０　ＴＨＥＮ　＠ＭＹＳＨＯＴ２ 　ＧＯＴＯ　＠ＭＹＳＨＯＴ３ 　＠ＭＹＳＨＯＴ２ 　ＩＦ　ＳＮＥＷ＝＝ＭＰＯＷ％３＋１　ＴＨＥＮ　＠ＭＹＳＨＯＴ３ 　ＳＮＥＷ＝ＳＮＥＷ％３＋１ 　ＩＦ　ＳＨＯＴＳＥ　ＴＨＥＮ　ＢＥＥＰ　１０，０，２０ 　ＳＦ（Ｉ）＝１ 　ＩＦ　ＭＰＯＷ＜＝２　ＴＨＥＮ　ＳＳＣ＝４　ＥＬＳＥ　ＳＳＣ＝５ 　ＳＰＳＥＴ　ＳＳＮ（Ｉ），ＳＳＰ，ＳＳＣ，０，０，ＳＳＰＲＩ，１６，１６ 　ＳＰＨＯＭＥ　ＳＳＮ（Ｉ），７，７ 　ＳＰＣＯＬ　ＳＳＮ（Ｉ），−７，−７，１６，１６，ＴＲＵＥ，＆Ｈ０Ｆ 　ＳＰＡＮＩＭ　ＳＳＮ（Ｉ），４，３ 　ＳＸ（Ｉ）＝ＭＸ：ＳＹ（Ｉ）＝ＭＹ：ＳＦ（Ｉ）＝１ 　ＩＦ　（ＭＰＯＷ＋２）％３＝＝０　ＴＨＥＮ　ＳＹ（Ｉ）＝ＭＹ＋ＭＰＯＷ％３＊（８−Ｉ％２＊１６） 　ＩＦ　（ＭＰＯＷ＋１）％３＝＝０　ＴＨＥＮ　ＳＹ（Ｉ）＝ＭＹ＋ＭＰＯＷ％３＊（８−Ｉ％３＊８） 　ＩＦ　ＳＹ（Ｉ）＜　２３　ＴＨＥＮ　ＳＦ（Ｉ）＝０：ＳＰＣＬＲ　ＳＳＮ（Ｉ）：ＧＯＴＯ　＠ＭＹＳＨＯＴ９９ 　ＩＦ　ＳＹ（Ｉ）＞１７３　ＴＨＥＮ　ＳＦ（Ｉ）＝０：ＳＰＣＬＲ　ＳＳＮ（Ｉ）：ＧＯＴＯ　＠ＭＹＳＨＯＴ９９ 　ＳＰＯＦＳ　ＳＳＮ（Ｉ），ＳＸ（Ｉ），ＳＹ（Ｉ），０ 　ＳＰＯＦＳ　ＳＳＮ（Ｉ），２８７，ＳＹ（Ｉ），ＳＳＰＤ 　＠ＭＹＳＨＯＴ３ 　ＩＦ　！ＳＦ（Ｉ）　ＴＨＥＮ　＠ＭＹＳＨＯＴ９９ 　ＩＦ　！（ＳＰＣＨＫ（ＳＳＮ（Ｉ））　ＡＮＤ　１）　ＴＨＥＮ　ＳＰＣＬＲ（ＳＳＮ（Ｉ））：ＳＦ（Ｉ）＝０ 　＠ＭＹＳＨＯＴ９９ ＮＥＸＴ ＲＥＴＵＲＮ ’−−ＳＴＡＧＥ　ＳＥＴＴＩＮＧ ＠ＳＴＡＧＥ ＠ＳＴＡＧＥ１ ＩＦ　ＧＣＮＴ＝＝０　ＯＲ　ＳＴＮＯ＝＝０　ＴＨＥＮ　ＥＮＡＣＴ（ＥＮＡＣＴＮＯ）＝２ ＩＦ　ＢＯＳＳＭＯＤＥ＞＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＮＥＸＴＳＴＡＧＥ ＩＦ　ＢＯＳＳＭＯＤＥ＜　２　ＡＮＤ　ＧＣＮＴ＞ＳＴＭＡＸＣＮＴ　ＴＨＥＮ　ＢＯＳＳＭＯＤＥ＝２ ＩＦ　ＳＴＮ（ＳＴＮＯ）＜（ＳＴＡＧＥＮＯ−１）％ＳＴＡＧＥＬＯＯＰ＋１　ＴＨＥＮ　ＳＴＮＯ＝ＳＴＮＯ＋１：ＧＯＴＯ　＠ＳＴＡＧＥ１ ＩＦ　ＧＣＮＴ＝＝ＳＴＴ（ＳＴＮＯ　　）　ＴＨＥＮ　＠ＳＴＡＧＥ２ ＩＦ　ＧＣＮＴ＝＝ＳＴＴ（ＳＴＮＯ＋１）　ＴＨＥＮ　ＳＴＮＯ＝ＳＴＮＯ＋１：ＧＯＴＯ　＠ＳＴＡＧＥ１ ＲＥＴＵＲＮ ＠ＳＴＡＧＥ２ ＩＦ　！ＳＴＣ（ＳＴＮＯ）　ＴＨＥＮ　ＲＥＴＵＲＮ ＢＯＳＳＳＴ＝０ ＥＮＡＣＴ（ＥＮＡＣＴＮＯ）＝２ ＥＮＡＣＴＮＯ＝（ＥＮＡＣＴＮＯ＋１）％２ ＥＮＡＣＴ（ＥＮＡＣＴＮＯ）＝１ ＩＳ＝ＥＮＭＩＮ（ＥＮＡＣＴＮＯ） ＥＮＭＡＸ（ＥＮＡＣＴＮＯ）＝ＳＴＣ（ＳＴＮＯ）＋ＩＳ−１ ＩＥ＝ＥＮＭＡＸ（ＥＮＡＣＴＮＯ） ＩＶ＝０ ＦＯＲ　Ｉ＝ＩＳ　ＴＯ　ＩＥ 　Ｊ＝Ｉ−ＥＮＭＩＮ（ＥＮＡＣＴＮＯ） 　ＥＮＯ＝Ｉ 　ＢＮＯ＝ＳＴＤ（ＳＴＮＯ，Ｊ） 　ＧＯＳＵＢ　＠ＥＢＳＥＴ 　Ｅ＝ＥＳＨＯＴ（ＥＮＯ） 　ＩＦ　Ｅ＜＝０　ＴＨＥＮ　＠ＳＴＡＧＥ２９ 　ＦＯＲ　Ｋ＝０　ＴＯ　９ 　　Ｓ＝ＢＳＨＯＴ（Ｋ） 　　ＩＦ　Ｓ＞＝０　ＴＨＥＮ　＠ＳＴＡＧＥ２８ 　　ＩＦ　！（Ｅ　ＡＮＤ　ＡＢＳ（Ｓ））　ＴＨＥＮ　＠ＳＴＡＧＥ２８ 　　Ｌ＝０ 　　＠ＳＴＡＧＥ２７ 　　ＩＦ　Ｓ！＝−１６　ＡＮＤ　Ｌ＞０　ＴＨＥＮ　＠ＳＴＡＧＥ２８ 　　ＩＦ　Ｓ＝＝−１６　ＡＮＤ　Ｌ＞２　ＴＨＥＮ　＠ＳＴＡＧＥ２８ 　　ＩＶ＝ＩＶ＋１ 　　ＥＮＯ＝ＥＮＭＡＸ（ＥＮＡＣＴＮＯ）＋ＩＶ 　　ＢＮＯ＝Ｋ 　　ＧＯＳＵＢ　＠ＥＢＳＥＴ 　　ＥＳＨＯＴＮＯ（ＥＮＯ）＝Ｉ 　　Ｌ＝Ｌ＋１ 　　ＧＯＴＯ　＠ＳＴＡＧＥ２７ 　　＠ＳＴＡＧＥ２８ 　ＮＥＸＴ 　＠ＳＴＡＧＥ２９ ＮＥＸＴ ＥＮＭＡＸ（ＥＮＡＣＴＮＯ）＝ＥＮＭＡＸ（ＥＮＡＣＴＮＯ）＋ＩＶ ＲＥＴＵＲＮ ’−−ＮＥＸＴ　ＳＴＡＧＥ ＠ＮＥＸＴＳＴＡＧＥ ＯＮ　ＢＯＳＳＭＯＤＥ−２　ＧＯＴＯ　＠ＮＥＸＴＳＴＡＧＥ１，＠ＮＥＸＴＳＴＡＧＥ２ ＲＥＴＵＲＮ ＠ＮＥＸＴＳＴＡＧＥ１ ＧＯＳＵＢ　＠ＥＸＰＬＭＶ ＣＬＲＣＮＴ＝ＧＣＮＴ：ＢＯＳＳＭＯＤＥ＝３ ＲＥＴＵＲＮ ＠ＮＥＸＴＳＴＡＧＥ２ Ｔ＝ＧＣＮＴ−ＣＬＲＣＮＴ ＩＦ　Ｔ＝＝　　　２　ＴＨＥＮ　ＳＴＣＬＲ＝２ ＩＦ　Ｔ＝＝　１００　ＴＨＥＮ　ＳＴＣＬＲ＝３ ＩＦ　Ｔ＝＝　２００　ＴＨＥＮ　ＳＴＣＬＲ＝４ ＩＦ　Ｔ＝＝　２０５　ＴＨＥＮ　ＳＴＣＬＲ＝５ ＩＦ　Ｔ＝＝　４００　ＴＨＥＮ　ＳＴＣＬＲ＝６ ＩＦ　Ｔ＝＝　５００　ＴＨＥＮ　ＳＴＣＬＲ＝７：ＢＧＣＮＧ＝０ ＩＦ　ＢＧＣＮＧ＞６４　ＴＨＥＮ　＠ＮＥＸＴＳＴＡＧＥ３ ＲＥＴＵＲＮ ＠ＮＥＸＴＳＴＡＧＥ３ ＳＴＣＬＲ＝０：ＢＧＣＮＧ＝０ ＩＦ　ＳＴＡＧＥＮＯ％ＳＴＡＧＥＬＯＯＰ＝＝０　ＴＨＥＮ　ＳＴＮＯ＝０：ＬＥＶＥＬ＝ＬＥＶＥＬ＋ＬＥＶＥＬＵＰ ＩＦ　！（ＳＴＡＧＥＮＯ％（ＳＴＡＧＥＬＯＯＰ＊ＳＴＡＧＥＬＯＯＰＭＡＸ））　ＴＨＥＮ　ＬＥＶＥＬ＝１ ＩＦ　ＳＴＡＧＥＮＯ＞＝ＳＴＡＧＥＮＯＭＡＸ　ＴＨＥＮ　＠ＯＶＥＲ ＳＴＡＧＥＮＯ＝ＳＴＡＧＥＮＯ＋１ ＢＯＳＳＭＯＤＥ＝０：ＢＯＳＳＩＴＥＭ＝０ ＧＣＮＴ＝０ ＦＯＲ　Ｋ＝０　ＴＯ　ＥＮＡＣＴＭＡＸ−１ 　ＪＳ＝ＥＮＭＩＮ（Ｋ）：ＪＥ＝ＥＮＭＡＸ（Ｋ） 　ＦＯＲ　Ｊ＝ＪＳ　ＴＯ　ＪＥ 　　ＥＳＵ（Ｊ）＝０ 　ＮＥＸＴ ＮＥＸＴ ＲＥＴＵＲＮ ’−−ＥＮＥＭＹ　ＢＡＳＥ　ＳＥＴ ＠ＥＢＳＥＴ ＩＦ　ＥＦ（ＥＮＯ）　ＴＨＥＮ　ＲＥＴＵＲＮ ＥＳＰ（ＥＮＯ）　　　＝ＢＳＰ（ＢＮＯ） ＥＳＰＯＲＧ（ＥＮＯ）＝ＢＳＰ（ＢＮＯ） ＥＳＣ（ＥＮＯ）　　　＝ＢＳＣ（ＢＮＯ） ＥＳＣ２（ＥＮＯ）　　＝ＢＳＣ２（ＢＮＯ） ＥＳＰＤ（ＥＮＯ）　　＝ＢＳＰＤ（ＢＮＯ） ＥＳＣＯＲＥ（ＥＮＯ）＝ＢＳＣＯＲＥ（ＢＮＯ） ＥＭＯＶＥ（ＥＮＯ）　＝ＢＭＯＶＥ（ＢＮＯ） ＥＡＮＣ（ＥＮＯ）　　＝ＢＡＮＣ（ＢＮＯ） ＥＡＮＴ（ＥＮＯ）　　＝ＢＡＮＴ（ＢＮＯ） ＥＳＨＯＴ（ＥＮＯ）　＝ＢＳＨＯＴ（ＢＮＯ） ＥＨＰ（ＥＮＯ）　　　＝ＢＨＰ（ＢＮＯ） ＥＸＳ（ＥＮＯ）　　　＝ＢＸＳ（ＢＮＯ） ＥＹＳ（ＥＮＯ）　　　＝ＢＹＳ（ＢＮＯ） ＥＸＪ（ＥＮＯ）　　　＝ＢＸＪ（ＢＮＯ） ＥＹＪ（ＥＮＯ）　　　＝ＢＹＪ（ＢＮＯ） ＥＷＩＤ（ＥＮＯ）　　＝ＢＷＩＤ（ＢＮＯ） ＥＨＩ（ＥＮＯ）　　　＝ＢＨＩ（ＢＮＯ） ＥＡＮＧ（ＥＮＯ）　　＝ＢＡＮＧ（ＢＮＯ） ＥＳＵ（ＥＮＯ）　　　＝ＢＳＵ（ＢＮＯ） ＥＲＥＨ（ＥＮＯ）　　＝ＢＲＥＨ（ＢＮＯ） ＥＲＥＶ（ＥＮＯ）　　＝ＢＲＥＶ（ＢＮＯ） ＥＳＣＬ（ＥＮＯ）　　＝ＢＳＣＬ（ＢＮＯ） ＥＩＤ（ＥＮＯ）　　　＝ＢＮＯ ＥＳＴＮＯ（ＥＮＯ）　＝ＳＴＮＯ ＥＳＨＯＴＮＯ（ＥＮＯ）＝−１ ＥＳＨＯＴＦ（ＥＮＯ）＝０ ＥＸＶ（ＥＮＯ）　　　＝０ ＥＹＶ（ＥＮＯ）　　　＝０ ＥＢＯＳＳ（ＥＮＯ）　＝ＦＬＯＯＲ（ＥＩＤ（Ｉ）／３０） ＲＥＴＵＲＮ ’−−ＥＮＥＭＹ　ＭＯＶＥ ＠ＥＮＢＯＲＮ ＩＦ　ＢＯＳＳＩＴＥＭ　ＴＨＥＮ　ＲＥＴＵＲＮ Ｋ＝０ ＠ＥＮＢＯＲＮ０１ ＩＦ　Ｋ＞ＥＮＡＣＴＭＡＸ−１　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＥＮＡＣＴ（Ｋ）！＝１　ＴＨＥＮ　＠ＥＮＢＯＲＮ０９ Ｉ＝Ｋ＊ＦＬＯＯＲ（ＥＭＡＸ／ＥＮＡＣＴＭＡＸ） ＠ＥＮＢＯＲＮ１ ＩＦ　Ｉ＞ＥＮＭＡＸ（Ｋ）　ＴＨＥＮ　＠ＥＮＢＯＲＮ０９ ＥＮＥＷ（Ｉ）＝０ ＩＦ　ＢＯＳＳＭＯＤＥ＞＝２　ＴＨＥＮ　ＩＦ　ＥＨＰ（Ｉ）＝＝−２　ＴＨＥＮ　ＢＯＳＳＩＴＥＭ＝１：＠ＥＮＢＯＲＮ３　ＥＬＳＥ　＠ＥＮＢＯＲＮ９９ ＩＦ　ＥＦ（Ｉ）　ＴＨＥＮ　＠ＥＮＢＯＲＮ９９ ＩＦ　ＥＳＴＮＯ（Ｉ）＜ＳＴＮＯ　ＴＨＥＮ　＠ＥＮＢＯＲＮ９９ ＩＦ　！ＥＳＵ（Ｉ）　ＴＨＥＮ　＠ＥＮＢＯＲＮ９９ Ｓ＝ＥＳＨＯＴＮＯ（Ｉ） ＩＦ　Ｓ＜０　ＴＨＥＮ　＠ＥＮＢＯＲＮ２ ＩＦ　ＥＨＰ（Ｉ）＝＝−１　ＡＮＤ　！ＥＳＨＯＴＦ（Ｓ）　ＴＨＥＮ　＠ＥＮＢＯＲＮ９９ ＩＦ　ＥＦ（Ｓ）　ＴＨＥＮ　＠ＥＮＢＯＲＮ２　ＥＬＳＥ　＠ＥＮＢＯＲＮ３ ＠ＥＮＢＯＲＮ２ ＩＦ　ＤＦ（Ｉ）＝＝１　ＴＨＥＮ　＠ＥＮＢＯＲＮ９９ ＩＦ　ＥＳＨＯＴ（Ｉ）＜０　ＡＮＤ　ＥＳＨＯＴＮＯ（Ｉ）＜０　ＴＨＥＮ　＠ＥＮＢＯＲＮ９９ Ｆ＝０ ＩＦ　ＥＳＨＯＴ（Ｉ）＝＝−１　ＴＨＥＮ　Ｆ＝１ ＩＦ　Ｆ　ＴＨＥＮ　ＩＦ　ＳＰＨＩＴ（ＭＳＮ，ＥＳＮ（Ｓ））　ＴＨＥＮ　＠ＥＮＢＯＲＮ９９ ＧＯＴＯ　＠ＥＮＢＯＲＮ４ ＠ＥＮＢＯＲＮ３ ＧＯＴＯ　＠ＥＮＢＯＲＮ９９ ＠ＥＮＢＯＲＮ４ ＥＮＥＷ（Ｉ）＝１ ＥＦ（Ｉ）＝１ ＩＦ　ＥＳＵ（Ｉ）！＝９９　ＴＨＥＮ　ＥＳＵ（Ｉ）＝ＥＳＵ（Ｉ）−１ ＩＦ　ＥＸＳ（Ｉ）＝＝９９９　ＴＨＥＮ　ＥＸ（Ｉ）＝ＲＮＤ（２５２）　　　　ＥＬＳＥ　ＥＸ（Ｉ）＝ＥＸＳ（Ｉ） ＹＪ＝ＥＹＪ（Ｉ）＊ＥＳＣＬ（Ｉ）／２ ＹＲ＝ＲＮＤ（１５２−２＊ＹＪ）＋２４＋ＹＪ ＩＦ　ＥＹＳ（Ｉ）＝＝９９９　ＴＨＥＮ　ＥＹ（Ｉ）＝ＹＲ　ＥＬＳＥ　ＥＹ（Ｉ）＝ＥＹＳ（Ｉ） Ｓ＝ＥＳＨＯＴＮＯ（Ｉ） ＩＦ　ＥＸＳ（Ｉ）＜０　ＡＮＤ　ＥＨＰ（Ｉ）！＝−２　ＴＨＥＮ　ＥＸ（Ｉ）＝ＥＸ（Ｓ） ＩＦ　ＥＸＳ（Ｉ）＜０　ＡＮＤ　ＥＨＰ（Ｉ）＝＝−２　ＴＨＥＮ　ＥＸ（Ｉ）＝−３０ ＩＦ　ＥＹＳ（Ｉ）＝＝−１　ＴＨＥＮ　ＥＹ（Ｉ）＝ＥＹ（Ｓ） ＩＦ　ＥＳＨＯＴ（Ｉ）＝＝−４　ＴＨＥＮ　ＥＳＣＬ（Ｉ）＝ＥＳＣＬ（Ｓ） ＩＦ　ＥＳＨＯＴ（Ｉ）！＝−１６　ＴＨＥＮ　＠ＥＮＢＯＲＮ５ ＩＦ　（ＭＰＯＷ＋２）％３＝＝０　ＴＨＥＮ　ＥＹ（Ｉ）＝ＥＹ（Ｓ）＋ＭＰＯＷ％３＊（８−Ｉ％２＊１６） ＩＦ　（ＭＰＯＷ＋１）％３＝＝０　ＴＨＥＮ　ＥＹ（Ｉ）＝ＥＹ（Ｓ）＋ＭＰＯＷ％３＊（８−Ｉ％３＊８） ＩＦ　ＭＰＯＷ＜＝２　ＴＨＥＮ　ＥＳＣ（Ｉ）＝４　ＥＬＳＥ　ＥＳＣ（Ｉ）＝５ ＠ＥＮＢＯＲＮ５ ＳＰＳＥＴ　ＥＳＮ（Ｉ），ＥＳＰ（Ｉ），ＥＳＣ（Ｉ），ＥＲＥＨ（Ｉ），ＥＲＥＶ（Ｉ），ＥＰＲＩ，ＥＷＩＤ（Ｉ），ＥＨＩ（Ｉ） ＳＰＨＯＭＥ　ＥＳＮ（Ｉ），ＥＷＩＤ（Ｉ）／２−１，ＥＨＩ（Ｉ）／２−１ Ｘ１＝ＥＷＩＤ（Ｉ）／２−ＥＸＪ（Ｉ） Ｘ２＝ＥＷＩＤ（Ｉ） Ｙ１＝ＥＨＩ（Ｉ）／２−ＥＹＪ（Ｉ） Ｙ２＝ＥＨＩ（Ｉ） ＳＰＣＯＬ　ＥＳＮ（Ｉ），Ｘ１，Ｙ１，Ｘ２，Ｙ２，ＴＲＵＥ，＆Ｈ８８ ＩＦ　ＥＡＮＣ（Ｉ）＞０　ＴＨＥＮ　ＳＰＡＮＩＭ　ＥＳＮ（Ｉ），ＥＡＮＣ（Ｉ），ＥＡＮＴ（Ｉ） ＳＰＡＮＧＬＥ　ＥＳＮ（Ｉ），ＥＡＮＧ（Ｉ） ＳＰＳＥＴＶ　ＥＳＮ（Ｉ），０，ＥＨＰ（Ｉ） ＳＰＳＥＴＶ　ＥＳＮ（Ｉ），１，ＧＣＮＴ Ｆ＝０ ＩＦ　ＥＳＨＯＴ（Ｉ）＞＝６４　ＴＨＥＮ　Ｆ＝１ ＳＰＳＥＴＶ　ＥＳＮ（Ｉ），２，Ｆ Ｓ＝ＥＳＨＯＴＮＯ（Ｉ） ＩＦ　ＥＨＰ（Ｉ）＝＝−２　ＴＨＥＮ　ＳＰＳＥＴＶ　ＥＳＮ（Ｓ），２，２ ＳＰＳＣＡＬＥ　ＥＳＮ（Ｉ），ＥＳＣＬ（Ｉ）＊１００ ＳＰＯＦＳ　ＥＳＮ（Ｉ），ＥＸ（Ｉ），ＥＹ（Ｉ），０ ＩＦ　ＥＩＤ（Ｉ）＝＝３３　ＴＨＥＮ　ＩＴＵＩ＝Ｉ ＩＦ　ＥＩＤ（Ｉ）＝＝３４　ＴＨＥＮ　ＩＢＡＲ＝Ｉ ＠ＥＮＢＯＲＮ９９ Ｉ＝Ｉ＋１ ＧＯＴＯ　＠ＥＮＢＯＲＮ１ ＠ＥＮＢＯＲＮ０９ Ｋ＝Ｋ＋１ ＧＯＴＯ　＠ＥＮＢＯＲＮ０１ ＲＥＴＵＲＮ ’−−ＥＮＥＭＹ　ＭＯＶＥ ＠ＥＮＭＯＶＥ Ｋ＝０ ＠ＥＮＭＯＶＥ０１ ＥＦＣＮＴ＝０ ＩＦ　Ｋ＞ＥＮＡＣＴＭＡＸ−１　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　！ＥＮＡＣＴ（Ｋ）　ＴＨＥＮ　＠ＥＮＭＯＶＥ０９ Ｉ＝Ｋ＊ＦＬＯＯＲ（ＥＭＡＸ／ＥＮＡＣＴＭＡＸ） ＠ＥＮＭＯＶＥ１ ＩＦ　Ｉ＞ＥＮＭＡＸ（Ｋ）　ＴＨＥＮ　＠ＥＮＭＯＶＥ０９ ＩＦ　！ＥＦ（Ｉ）　ＴＨＥＮ　＠ＥＮＭＯＶＥ９９ ＥＦＣＮＴ＝ＥＦＣＮＴ＋１ ＳＴＥＰ＄＝”＠ＥＮＸＹ”＋ＳＴＲ＄（ＦＬＯＯＲ（ＥＭＯＶＥ（Ｉ）／１０）） ＩＦ　ＲＩＧＨＴ＄（ＳＴＥＰ＄，１）！＝”＠”　ＴＨＥＮ　ＧＯＳＵＢ　ＳＴＥＰ＄ ＥＸ（Ｉ）＝ＥＸ（Ｉ）＋ＥＸＶ（Ｉ）＊ＥＳＰＤ（Ｉ）＊ＳＫＩＰ２＊ＬＥＶＥＬ ＥＹ（Ｉ）＝ＥＹ（Ｉ）＋ＥＹＶ（Ｉ）＊ＥＳＰＤ（Ｉ）＊ＳＫＩＰ２＊ＬＥＶＥＬ ＠ＥＮＭＯＶＥ２ ＨＰ＝ＳＰＧＥＴＶ（ＥＳＮ（Ｉ），０） ＩＦ　ＥＳＣ２（Ｉ）＞＝０　ＴＨＥＮ　ＩＦ　ＥＨＰ（Ｉ）／５＞＝ＨＰ　ＴＨＥＮ　ＥＳＣ（Ｉ）＝ＥＳＣ２（Ｉ） ＳＰＣＨＲ　ＥＳＮ（Ｉ），ＥＳＰ（Ｉ），ＥＳＣ（Ｉ），ＥＲＥＨ（Ｉ），ＥＲＥＶ（Ｉ），ＥＰＲＩ ＳＰＯＦＳ　ＥＳＮ（Ｉ），ＥＸ（Ｉ），ＥＹ（Ｉ），４ Ｔ＝ＳＰＧＥＴＶ（ＥＳＮ（Ｉ），１） ＩＦ　ＥＳＨＯＴ（Ｉ）＞０　ＴＨＥＮ　ＳＨＯＴＥＮＯ＝Ｉ Ｆ＝０ ＩＦ　ＥＸ（Ｉ）＝＝−３０　ＴＨＥＮ　＠ＥＮＭＯＶＥ９９ ＩＦ　ＥＸ（Ｉ）＜−１６　ＴＨＥＮ　Ｆ＝１ ＩＦ　ＥＸ（Ｉ）＞２５２　ＡＮＤ　ＥＩＤ（Ｉ）！＝３４　ＴＨＥＮ　Ｆ＝１ ＹＪ＝ＥＹＪ（Ｉ）＊ＥＳＣＬ（Ｉ）／２ ＩＦ　ＥＨＰ（Ｉ）＝＝−１　ＴＨＥＮ　ＹＪ＝ＹＪ−８ ＩＦ　ＥＹ（Ｉ）＜　２４＋ＹＪ　ＡＮＤ　ＥＳＨＯＴ（Ｉ）！＝−１６　ＡＮＤ　ＥＨＰ（Ｉ）！＝−２　ＴＨＥＮ　Ｆ＝２：ＥＹ（Ｉ）＝　２４＋ＹＪ ＩＦ　ＥＹ（Ｉ）＞１７６−ＹＪ　ＡＮＤ　ＥＳＨＯＴ（Ｉ）！＝−１６　ＡＮＤ　ＥＨＰ（Ｉ）！＝−２　ＴＨＥＮ　Ｆ＝２：ＥＹ（Ｉ）＝１７６−ＹＪ ＩＦ　Ｆ＝＝２　ＡＮＤ　ＥＳＨＯＴ（Ｉ）＞０　ＴＨＥＮ　＠ＥＮＭＯＶＥ２ ＩＦ　ＥＸ（Ｉ）＝＝３００　ＴＨＥＮ　ＧＯＴＯ　＠ＥＮＭＯＶＥ９９ ＩＦ　Ｆ＝＝２　ＡＮＤ　ＥＨＰ（Ｉ）＜０　ＴＨＥＮ　Ｆ＝１ ＩＦ　Ｆ＝＝１　ＴＨＥＮ　ＳＰＣＬＲ（ＥＳＮ（Ｉ））：ＥＦ（Ｉ）＝０ Ｂ＝０ ＩＦ　Ｆ＝＝１　ＡＮＤ　ＥＩＤ（Ｉ）＝＝３０　ＴＨＥＮ　Ｂ＝１ ＩＦ　Ｆ＝＝１　ＡＮＤ　ＥＩＤ（Ｉ）＝＝３１　ＴＨＥＮ　Ｂ＝２ ＩＦ　Ｆ＝＝１　ＡＮＤ　ＥＩＤ（Ｉ）＝＝３２　ＴＨＥＮ　Ｂ＝４ ＢＯＳＳＳＴ＝ＢＯＳＳＳＴ　ＯＲ　Ｂ ＩＦ　ＢＯＳＳＳＴ＝＝７　ＴＨＥＮ　ＢＯＳＳＭＯＤＥ＝２ ＩＦ　Ｆ＝＝１　ＡＮＤ　ＥＩＤ（Ｉ）＝＝３３　ＴＨＥＮ　ＢＯＳＳＭＯＤＥ＝２：ＳＰＣＬＲ（ＥＳＮ（ＩＢＡＲ））：ＥＦ（ＩＢＡＲ）＝０ ＩＦ　Ｆ＝＝１　ＡＮＤ　ＥＩＤ（Ｉ）＝＝３５　ＴＨＥＮ　ＢＯＳＳＭＯＤＥ＝２ ＠ＥＮＭＯＶＥ９９ Ｉ＝Ｉ＋１ ＧＯＴＯ　＠ＥＮＭＯＶＥ１ ＠ＥＮＭＯＶＥ０９ ＩＦ　！ＥＦＣＮＴ　ＡＮＤ　ＥＮＡＣＴ（Ｋ）＝＝２　ＴＨＥＮ　ＥＮＡＣＴ（Ｋ）＝０ Ｋ＝Ｋ＋１ ＧＯＴＯ　＠ＥＮＭＯＶＥ０１ ＲＥＴＵＲＮ ’−−ヒタ゛リニマッスク゛ ＠ＥＮＸＹ０ ＥＳＨＯＴＦ（Ｉ）＝１ Ｍ＝ＥＭＯＶＥ（Ｉ） ＩＦ　Ｍ＝＝１　ＴＨＥＮ　＠ＥＮＸＹ０＿２ ＠ＥＮＸＹ０＿１ ＥＸＶ（Ｉ）＝−１：ＥＹＶ（Ｉ）＝０ ＩＦ　Ｍ＝＝２　ＡＮＤ　ＭＹ＜ＥＹ（Ｉ）　ＴＨＥＮ　ＥＹＶ（Ｉ）＝−０．０５ ＩＦ　Ｍ＝＝２　ＡＮＤ　ＭＹ＞ＥＹ（Ｉ）　ＴＨＥＮ　ＥＹＶ（Ｉ）＝　０．０５ ＲＥＴＵＲＮ ＠ＥＮＸＹ０＿２ ’−−アイテム Ｓ＝ＥＳＨＯＴＮＯ（Ｉ） ＩＦ　Ｓ＜０　ＴＨＥＮ　＠ＥＮＸＹ０＿１ ＩＦ　！ＥＦ（Ｓ）　ＡＮＤ　ＥＦ（Ｉ）＝＝２　ＴＨＥＮ　＠ＥＮＸＹ０＿１ ＩＦ　！ＥＦ（Ｓ）　ＡＮＤ　ＥＦ（Ｉ）＝＝１　ＡＮＤ　ＥＸ（Ｓ）＞＝−１６　ＡＮＤ　ＥＸ（Ｓ）＜＝２５２　ＴＨＥＮ　＠ＥＮＸＹ０＿２２ ＩＦ　！ＥＦ（Ｓ）　ＡＮＤ　ＥＦ（Ｉ）＝＝１　ＴＨＥＮ　ＥＦ（Ｉ）＝０ ＹＪ＝ＥＹＪ（Ｉ）＊ＥＳＣＬ（Ｉ）／２ ＥＸ（Ｉ）＝２４５：ＥＹ（Ｉ）＝−ＹＪ＋１ ＥＸＶ（Ｉ）＝０：ＥＹＶ（Ｉ）＝０ ＲＥＴＵＲＮ ＠ＥＮＸＹ０＿２２ ＥＸ（Ｉ）＝ＥＸ（Ｓ）：ＥＹ（Ｉ）＝ＥＹ（Ｓ） ＳＰＯＦＳ　ＥＳＮ（Ｉ），ＥＸ（Ｉ），ＥＹ（Ｉ），０ ＥＦ（Ｉ）＝２ ＧＯＴＯ　＠ＥＮＸＹ０＿１ ＲＥＴＵＲＮ ’−−シ゛キヲツイセキ ＠ＥＮＸＹ１ ＥＳＨＯＴＦ（Ｉ）＝１ ＩＦ　！ＥＮＡＣＴ（Ｋ）　ＴＨＥＮ　ＥＭＯＶＥ（Ｉ）＝０：ＲＥＴＵＲＮ Ｍ＝ＥＭＯＶＥ（Ｉ） ＩＦ　Ｍ！＝１０　ＡＮＤ　ＢＯＳＳＭＯＤＥ＞＝２　ＴＨＥＮ　ＥＭＯＶＥ（Ｉ）＝０：ＲＥＴＵＲＮ ＩＦ　Ｍ＝＝１０　ＡＮＤ　！ＥＮＥＷ（Ｉ）　ＡＮＤ　ＡＢＳ（ＥＸＶ（Ｉ））＋ＡＢＳ（ＥＹＶ（Ｉ））＝＝０　ＴＨＥＮ　ＥＭＯＶＥ（Ｉ）＝０：ＲＥＴＵＲＮ Ｔ＝ＳＰＧＥＴＶ（ＥＳＮ（Ｉ），１） ＩＦ　ＥＢＯＳＳ（Ｉ）　ＡＮＤ　ＧＣＮＴ＞Ｔ＋ＢＯＳＳＣＮＴ　ＴＨＥＮ　ＥＸＶ（Ｉ）＝１：ＥＹＶ（Ｉ）＝０：ＲＥＴＵＲＮ ＩＦ　Ｍ＝＝１０　ＴＨＥＮ　ＩＦ　ＧＣＮＴ＞Ｔ　ＴＨＥＮ　ＲＥＴＵＲＮ　ＥＬＳＥ　ＥＸＶ（Ｉ）＝０：ＥＹＶ（Ｉ）＝０ ＩＦ　Ｍ＝＝１１　ＡＮＤ　ＧＣＮＴ％１２！＝０　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　Ｍ＞＝１１　ＡＮＤ　ＥＮＡＣＴ（Ｋ）！＝１　ＴＨＥＮ　ＥＭＯＶＥ（Ｉ）＝０：ＲＥＴＵＲＮ Ｘ＝ＭＸ−ＥＸ（Ｉ）：Ｙ＝ＭＹ−ＥＹ（Ｉ） Ｄ＝ＳＱＲ（ＰＯＷ（Ｘ，２）＋ＰＯＷ（Ｙ，２）） ＩＦ　！Ｄ　ＴＨＥＮ　Ｄ＝１ Ｘ２＝Ｘ／Ｄ：Ｙ２＝Ｙ／Ｄ Ｘ＝Ｘ２＋ＥＸＶ（Ｉ）：Ｙ＝Ｙ２＋ＥＹＶ（Ｉ） Ｄ＝ＳＱＲ（ＰＯＷ（Ｘ，２）＋ＰＯＷ（Ｙ，２）） ＩＦ　Ｄ＝＝０　ＴＨＥＮ　Ｄ＝１ ＥＸＶ（Ｉ）＝Ｘ／Ｄ：ＥＹＶ（Ｉ）＝Ｙ／Ｄ ＲＥＴＵＲＮ ’−−ＳＩＮ　ＣＵＲＶＥ ＠ＥＮＸＹ２ Ｍ＝ＥＭＯＶＥ（Ｉ） ＩＦ　Ｍ＝＝２１　ＴＨＥＮ　＠ＥＮＸＹ２１ ＹＪ＝ＥＹＪ（Ｉ）＊ＥＳＣＬ（Ｉ）／２ ＹＪ２＝ＹＪ＋６＊ＥＳＰＤ（Ｉ）＊ＬＥＶＥＬ ＹＳ＝２４＋ＹＪ２：ＹＥ＝１７５−ＹＪ２ ＩＦ　ＥＮＥＷ（Ｉ）　ＡＮＤ　ＥＹ（Ｉ）＜ＹＳ　ＴＨＥＮ　ＥＹ（Ｉ）＝ＹＳ ＩＦ　ＥＮＥＷ（Ｉ）　ＡＮＤ　ＥＹ（Ｉ）＞ＹＥ　ＴＨＥＮ　ＥＹ（Ｉ）＝ＹＥ ＥＸＶ（Ｉ）＝−１：ＥＹＶ（Ｉ）＝ＳＩＮ（ＧＣＮＴ／４） ＲＥＴＵＲＮ ＠ＥＮＸＹ２１ Ｔ＝ＳＰＧＥＴＶ（ＥＳＮ（Ｉ），１） ＩＦ　ＥＢＯＳＳ（Ｉ）　ＡＮＤ　ＧＣＮＴ＞Ｔ＋ＢＯＳＳＣＮＴ　ＴＨＥＮ　ＥＸＶ（Ｉ）＝３：ＥＹＶ（Ｉ）＝０：ＲＥＴＵＲＮ ＩＦ　ＥＸ（Ｉ）＞２００　ＴＨＥＮ　ＥＸＶ（Ｉ）＝−３：ＲＥＴＵＲＮ ＥＳＨＯＴＦ（Ｉ）＝！（ＭＤＥＡＤ　ＡＮＤ　１） ＥＸＶ（Ｉ）＝ＳＩＮ（ＧＣＮＴ／１２）＊４ ＥＹＶ（Ｉ）＝ＳＩＮ（ＧＣＮＴ／３２）＊６ ＩＦ　ＥＩＤ（Ｉ）！＝３３　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＥＹＶ（Ｉ）＜　０　ＴＨＥＮ　ＥＳＰ（Ｉ）＝ＥＳＰＯＲＧ（Ｉ）＋４：Ｆ＝−１ ＩＦ　ＥＹＶ（Ｉ）＞　０　ＴＨＥＮ　ＥＳＰ（Ｉ）＝ＥＳＰＯＲＧ（Ｉ）＋２：Ｆ＝１ ＩＦ　ＥＹ（Ｉ）＜　３５＋（ＭＰＯＷ％３）＊８　ＴＨＥＮ　ＥＳＰ（Ｉ）＝ＥＳＰＯＲＧ（Ｉ）：Ｆ＝０ ＩＦ　ＥＹ（Ｉ）＞１６３−（ＭＰＯＷ％３）＊８　ＴＨＥＮ　ＥＳＰ（Ｉ）＝ＥＳＰＯＲＧ（Ｉ）：Ｆ＝０ ＩＦ　！Ｆ　ＴＨＥＮ　ＥＳＨＯＴＦ（Ｉ）＝０ ＲＥＴＵＲＮ ’−−Ｙヲアワセル ＠ＥＮＸＹ３ Ｍ＝ＥＭＯＶＥ（Ｉ） Ｔ＝ＳＰＧＥＴＶ（ＥＳＮ（Ｉ），１） ＩＦ　Ｍ＝＝３２　ＡＮＤ　ＧＣＮＴ＞Ｔ＋ＭＥＤＩＵＭＣＮＴ　ＴＨＥＮ　ＥＸＶ（Ｉ）＝１：ＥＹＶ（Ｉ）＝０：ＲＥＴＵＲＮ ＩＦ　ＥＢＯＳＳ（Ｉ）　ＡＮＤ　ＧＣＮＴ＞Ｔ＋ＢＯＳＳＣＮＴ　ＴＨＥＮ　ＥＸＶ（Ｉ）＝１：ＥＹＶ（Ｉ）＝０：ＲＥＴＵＲＮ ＥＸＶ（Ｉ）＝０ ＩＦ　ＥＸ（Ｉ）＞２００　ＴＨＥＮ　ＥＸＶ（Ｉ）＝−１：ＲＥＴＵＲＮ ＥＳＨＯＴＦ（Ｉ）＝１ Ｂ＝ＢＯＳＳＳＴ ＢＪ＝（Ｂ　ＡＮＤ　３）　ＯＲ　（Ｂ　ＡＮＤ　４） ＩＦ　Ｍ＝＝３１　ＡＮＤ　ＢＪ＞＝３　ＴＨＥＮ　ＥＭＯＶＥ（Ｉ）＝１１：ＲＥＴＵＲＮ ＩＦ　Ｍ＝＝３１　ＴＨＥＮ　ＲＥＴＵＲＮ ＥＹＶ（Ｉ）＝０ ＩＦ　ＥＹ（Ｉ）＞ＭＹ＋８　ＴＨＥＮ　ＥＹＶ（Ｉ）＝−１ ＩＦ　ＥＹ（Ｉ）＜ＭＹ＋４　ＴＨＥＮ　ＥＹＶ（Ｉ）＝１ ＲＥＴＵＲＮ ’−−タノテキニツイツ゛イ ＠ＥＮＸＹ４ ＩＦ　ＥＦ（ＩＴＵＩ）＝＝０　ＴＨＥＮ　ＥＸ（Ｉ）＝３００：ＥＹＶ（Ｉ）＝０：ＲＥＴＵＲＮ ＥＸ（Ｉ）＝ＥＸ（ＩＴＵＩ）：ＥＹ（Ｉ）＝ＥＹ（ＩＴＵＩ） ＥＸＶ（Ｉ）＝０：ＥＹＶ（Ｉ）＝０ Ｍ＝ＥＭＯＶＥ（Ｉ） ＩＦ　Ｍ＝＝４１　ＴＨＥＮ　ＥＸ（Ｉ）＝ＥＸ（Ｉ）＋２０ ＲＥＴＵＲＮ ’−−ＥＮＥＭＹ　ＤＥＡＤ ＠ＥＮＤＥＡＤ ＠ＥＮＤＥＡＤ１ ＦＯＲ　Ｉ＝０　ＴＯ　ＳＭＡＸ−１ 　ＩＦ　！ＳＦ（Ｉ）　ＴＨＥＮ　＠ＥＮＤＥＡＤ９９ 　ＩＦ　！ＳＰＨＩＴ（ＳＳＮ（Ｉ），ＥＳＮＳＴ）　ＴＨＥＮ　＠ＥＮＤＥＡＤ９９ 　ＦＬＧ＝０ 　Ｊ＝ＳＰＨＩＴＮＯ−ＥＳＮＳＴ 　ＪＳ＝ＥＮＭＩＮ（０）：ＪＥ＝ＥＮＭＡＸ（ＥＮＡＣＴＭＡＸ−１） 　ＩＦ　Ｊ＜ＪＳ　ＯＲ　Ｊ＞ＪＥ　ＴＨＥＮ　＠ＥＮＤＥＡＤ０９ 　ＩＦ　！ＥＦ（Ｊ）　ＴＨＥＮ　＠ＥＮＤＥＡＤ９ 　ＩＦ　ＥＨＰ（Ｊ）＜０　ＴＨＥＮ　＠ＥＮＤＥＡＤ９ 　ＩＦ　ＥＩＤ（Ｊ）＝＝３３　ＡＮＤ　ＥＦ（ＩＢＡＲ）＝＝１　ＴＨＥＮ　＠ＥＮＤＥＡＤ９ 　＠ＥＮＤＥＡＤ２ 　ＨＰ＝ＳＰＧＥＴＶ（ＥＳＮ（Ｊ），０） 　ＨＰ＝ＨＰ−１−ＦＬＯＯＲ（ＭＰＯＷ／３）＊０．５ 　ＳＰＳＥＴＶ　ＥＳＮ（Ｊ），０，ＨＰ 　Ｆ＝ＳＰＧＥＴＶ（ＥＳＮ（Ｊ），２） 　ＩＦ　ＨＰ＜＝０　ＡＮＤ　Ｆ！＝１　ＴＨＥＮ　＠ＥＮＤＥＡＤ４ 　＠ＥＮＤＥＡＤ３ 　ＦＬＧ＝１ 　ＩＦ　ＧＣＮＴ％３　ＴＨＥＮ　ＢＥＥＰ　０，２０４８，４５ 　ＳＰＣＨＲ　ＥＳＮ（Ｊ），ＥＳＰ（Ｊ），１，ＥＲＥＨ（Ｊ），ＥＲＥＶ（Ｊ），ＥＰＲＩ 　ＧＯＴＯ　＠ＥＮＤＥＡＤ９ 　＠ＥＮＤＥＡＤ４ 　ＳＣＯＲＥ＝ＳＣＯＲＥ＋ＥＳＣＯＲＥ（Ｊ） 　Ｋ＝０ 　＠ＥＮＤＥＡＤ５ 　ＩＦ　Ｋ＞＝ＥＷＩＤ（Ｊ）／８−１　ＡＮＤ　Ｋ＞＝ＥＨＩ（Ｊ）／８−１　ＴＨＥＮ　＠ＥＮＤＥＡＤ６ 　ＤＦ（ＤＰＯＩＮＴ）＝Ｋ＋１ 　ＩＦ　Ｋ＞０　ＴＨＥＮ　ＶＸ＝ＲＮＤ（ＥＷＩＤ（Ｊ））−ＥＷＩＤ（Ｊ）／２　ＥＬＳＥ　ＶＸ＝０ 　ＩＦ　Ｋ＞０　ＴＨＥＮ　ＶＹ＝ＲＮＤ（ＥＨＩ（Ｊ））−ＥＨＩ（Ｊ）／２　　ＥＬＳＥ　ＶＹ＝０ 　ＤＸ（ＤＰＯＩＮＴ）＝ＥＸ（Ｊ）＋ＶＸ 　ＤＹ（ＤＰＯＩＮＴ）＝ＥＹ（Ｊ）＋ＶＹ 　ＧＯＳＵＢ　＠ＥＸＰＬ 　Ｋ＝Ｋ＋１ 　ＧＯＴＯ　＠ＥＮＤＥＡＤ５ 　＠ＥＮＤＥＡＤ６ 　ＥＦ（Ｊ）＝０：ＦＬＧ＝１：ＳＰＣＬＲ（ＥＳＮ（Ｊ）） 　ＩＦ　！ＢＯＳＳＭＯＤＥ　ＴＨＥＮ　＠ＥＮＤＥＡＤ９ 　Ｂ＝０ 　ＩＦ　ＥＩＤ（Ｊ）＝＝３０　ＴＨＥＮ　Ｂ＝１：ＩＦ　ＢＯＳＳＳＴ＝＝６　ＴＨＥＮ　ＥＢＸ＝ＥＸ（Ｊ）：ＥＢＹ＝ＥＹ（Ｊ） 　ＩＦ　ＥＩＤ（Ｊ）＝＝３１　ＴＨＥＮ　Ｂ＝２：ＩＦ　ＢＯＳＳＳＴ＝＝５　ＴＨＥＮ　ＥＢＸ＝ＥＸ（Ｊ）：ＥＢＹ＝ＥＹ（Ｊ） 　ＩＦ　ＥＩＤ（Ｊ）＝＝３２　ＴＨＥＮ　Ｂ＝４：ＩＦ　ＢＯＳＳＳＴ＝＝３　ＴＨＥＮ　ＥＢＸ＝ＥＸ（Ｊ）：ＥＢＹ＝ＥＹ（Ｊ） 　ＢＯＳＳＳＴ＝ＢＯＳＳＳＴ　ＯＲ　Ｂ 　ＩＦ　ＢＯＳＳＳＴ＝＝７　ＴＨＥＮ　ＢＯＳＳＭＯＤＥ＝２ 　ＩＦ　ＥＩＤ（Ｊ）＝＝３３　ＴＨＥＮ　ＢＯＳＳＭＯＤＥ＝２：ＥＢＸ＝ＥＸ（Ｊ）：ＥＢＹ＝ＥＹ（Ｊ） 　ＩＦ　ＥＩＤ（Ｊ）＝＝３５　ＴＨＥＮ　ＢＯＳＳＭＯＤＥ＝２：ＥＢＸ＝ＥＸ（Ｊ）：ＥＢＹ＝ＥＹ（Ｊ） 　＠ＥＮＤＥＡＤ９ 　＠ＥＮＤＥＡＤ０９ 　ＩＦ　ＦＬＧ　ＴＨＥＮ　ＳＦ（Ｉ）＝０：ＳＰＣＬＲ（ＳＳＮ（Ｉ）） 　＠ＥＮＤＥＡＤ９９ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＭＹＤＥＡＤ ＩＦ　！ＳＰＨＩＴ（０，ＥＳＮＳＴ）　ＴＨＥＮ　ＲＥＴＵＲＮ Ｊ＝ＳＰＨＩＴＮＯ−ＥＳＮＳＴ ＪＳ＝ＥＮＭＩＮ（０）：ＪＥ＝ＥＮＭＡＸ（ＥＮＡＣＴＭＡＸ−１） ＩＦ　Ｊ＜ＪＳ　ＯＲ　Ｊ＞ＪＥ　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　！ＥＦ（Ｊ）　ＴＨＥＮ　＠ＭＹＤＥＡＤ９ ＩＦ　ＭＤＥＡＤ！＝０　ＴＨＥＮ　＠ＭＹＤＥＡＤ９ ＩＦ　ＥＨＰ（Ｊ）＝＝−２　ＴＨＥＮ　＠ＭＹＤＥＡＤ３ ＩＦ　ＭＦＲＥＥ＞０　ＴＨＥＮ　＠ＭＹＤＥＡＤ９ Ｆ＝０ ＩＦ　ＥＨＰ（Ｊ）＝＝１　ＡＮＤ　ＥＩＤ（Ｊ）！＝３３　ＴＨＥＮ　Ｆ＝１：ＳＣＯＲＥ＝ＳＣＯＲＥ＋ＥＳＣＯＲＥ（Ｊ） ＩＦ　ＥＳＨＯＴ（Ｊ）＜０　ＡＮＤ　ＥＳＨＯＴ（Ｊ）！＝−４　ＴＨＥＮ　Ｆ＝１ ＩＦ　Ｆ　ＴＨＥＮ　ＥＦ（Ｊ）＝０：ＳＰＣＬＲ（ＥＳＮ（Ｊ）） ＩＦ　ＭＢＡＲ　ＴＨＥＮ　＠ＭＹＤＥＡＤ４ ’−−ＭＹ　ＤＥＡＤ Ｌ＝０ ＠ＭＹＤＥＡＤ２ ＭＤＥＡＤ＝１ ＭＦＲＥＥ＝１ ＤＦ（ＤＰＯＩＮＴ）＝１ ＩＦ　Ｌ＞０　ＴＨＥＮ　ＶＸ＝ＲＮＤ（３２）−１６　ＥＬＳＥ　ＶＸ＝０ ＩＦ　Ｌ＞０　ＴＨＥＮ　ＶＹ＝ＲＮＤ（１６）−８　　ＥＬＳＥ　ＶＹ＝０ ＤＸ（ＤＰＯＩＮＴ）＝ＭＸ＋ＶＸ：ＤＹ（ＤＰＯＩＮＴ）＝ＭＹ＋ＶＹ ＧＯＳＵＢ　＠ＥＸＰＬ Ｌ＝Ｌ＋１ ＩＦ　Ｌ＜＝２　ＴＨＥＮ　＠ＭＹＤＥＡＤ２ ＭＸ＝−３２ ＳＰＯＦＳ　ＭＳＮ，ＭＸ，ＭＹ，０ ＧＯＴＯ　＠ＭＹＤＥＡＤ９ ＠ＭＹＤＥＡＤ３ ＩＦ　ＭＤＥＡＤ　ＴＨＥＮ　＠ＭＹＤＥＡＤ９ ＧＯＳＵＢ　＠ＩＴＥＭＧＥＴ ＧＯＴＯ　＠ＭＹＤＥＡＤ９ ＠ＭＹＤＥＡＤ４ ＧＯＳＵＢ　＠ＢＡＲＤＭＧ ＠ＭＹＤＥＡＤ９ ＲＥＴＵＲＮ ’−−ＩＴＥＭ　ＧＥＴ ＠ＩＴＥＭＧＥＴ ＳＰＯＦＳ　ＥＳＮ（Ｊ），−１６，ＥＹ（Ｊ），０　 ＢＥＥＰ　３，０，９０ ＥＦ（Ｊ）＝０：Ｆ＝０：Ｂ＝０ ＩＦ　ＥＩＤ（Ｊ）＝＝６　ＴＨＥＮ　ＩＦ　ＭＰＯＷ＜５　ＴＨＥＮ　ＭＰＯＷ＝ＭＰＯＷ＋１：Ｆ＝１　ＥＬＳＥ　Ｂ＝１ ＩＦ　ＥＩＤ（Ｊ）＝＝７　ＴＨＥＮ　ＭＢＡＲ＝ＭＢＡＲ＋１：ＩＦ　ＭＢＡＲ＜＝３　ＴＨＥＮ　Ｆ＝１　ＥＬＳＥ　Ｂ＝１ ＩＦ　ＥＩＤ（Ｊ）＝＝８　ＴＨＥＮ　ＭＬＩＦＥ＝ＭＬＩＦＥ＋１：Ｆ＝１ ＩＦ　ＥＩＤ（Ｊ）＝＝９　ＴＨＥＮ　Ｂ＝１ ＩＦ　Ｆ　ＴＨＥＮ　ＳＣＯＲＥ＝ＳＣＯＲＥ＋１ ＩＦ　Ｂ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＯＮＵＳＧＥＴ ＲＥＴＵＲＮ ＠ＢＯＮＵＳＧＥＴ ＩＦ　ＥＩＤ（Ｊ）！＝９　ＴＨＥＮ　ＢＯＮＵＳ＝１０：ＧＯＴＯ　＠ＢＯＮＵＳＧＥＴ１ Ｔ＝ＦＬＯＯＲ（（ＧＣＮＴ−ＳＰＧＥＴＶ（ＥＳＮ（Ｊ），１））／１００） ＩＦ　Ｔ＞９　ＴＨＥＮ　Ｔ＝９ ＩＦ　！ＥＢＯＳＳ（Ｊ）　ＴＨＥＮ　Ｔ＝９ ＢＯＮＵＳ＝（ＲＮＤ（Ｔ＋１）＋１０−Ｔ）＊１０ ＠ＢＯＮＵＳＧＥＴ１ ＳＣＯＲＥ＝ＳＣＯＲＥ＋ＢＯＮＵＳ ＢＯＮＵＳＣＮＴ＝ＧＣＮＴ Ｓ＄＝ＳＴＲ＄（ＢＯＮＵＳ）＋”００” ＦＯＲ　Ｌ＝０　ＴＯ　ＬＥＮ（Ｓ＄）−１ 　Ｃ＄＝ＭＩＤ＄（Ｓ＄，Ｌ，１） 　ＧＰＵＴＣＨＲ　ＥＸ（Ｊ）＋Ｌ＊８，ＥＹ（Ｊ）−４，”ＢＧＦ０”，４８＋ＶＡＬ（Ｃ＄），０，１ ＮＥＸＴ ＲＥＴＵＲＮ ’−−ＢＡＲＲＩＥＲ　ＤＡＭＡＧＥ ＠ＢＡＲＤＭＧ ＭＢＡＲ＝ＭＢＡＲ−１：ＭＦＲＥＥ＝１ ＢＥＥＰ　１１，０，４５ ＩＦ　ＭＢＡＲ＜＝０　ＴＨＥＮ　ＳＰＣＬＲ　ＭＢＳＮ：ＭＢＦ＝０ ＲＥＴＵＲＮ ＠ＥＸＰＬＡＮＭ ＦＯＲ　Ｉ＝０　ＴＯ　ＤＭＡＸ−１ 　ＩＦ　！ＤＦ（Ｉ）　ＴＨＥＮ　＠ＥＸＰＬＡＮＭ９９ 　ＩＦ　！（ＳＰＣＨＫ（ＤＳＮ（Ｉ））　ＡＮＤ　８）　ＴＨＥＮ　ＳＰＣＬＲ（ＤＳＮ（Ｉ））：ＤＦ（Ｉ）＝０ 　＠ＥＸＰＬＡＮＭ９９ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＥＸＰＬＭＶ ＦＯＲ　Ｉ＝０　ＴＯ　ＤＭＡＸ−１ 　ＩＦ　ＤＦ（Ｉ）　ＴＨＥＮ　ＳＰＯＦＳ　ＤＳＮ（Ｉ），−１６，ＤＹ（Ｉ），ＡＢＳ（ＤＸ（Ｉ）／ＬＥＶＥＬ） ＮＥＸＴ ＲＥＴＵＲＮ ＠ＥＸＰＬＲＭ ＦＯＲ　Ｉ＝０　ＴＯ　ＤＭＡＸ−１ 　ＩＦ　ＤＦ（Ｉ）　ＴＨＥＮ　ＩＦ　！（ＳＰＣＨＫ（ＤＳＮ（Ｉ））　ＡＮＤ　８）　ＴＨＥＮ　ＳＰＣＬＲ（ＤＳＮ（Ｉ））：ＤＦ（Ｉ）＝０ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＥＸＰＬ ＩＦ　！ＤＦ（ＤＰＯＩＮＴ）　ＴＨＥＮ　＠ＥＸＰＬ９９ ＢＥＥＰ　１３，０，７０ Ｄ＝ＤＰＯＩＮＴ ＳＰＳＥＴ　ＤＳＮ（Ｄ），ＤＳＰ（Ｄ），ＤＳＣ（Ｄ），０，０，ＤＰＲＩ ＳＰＨＯＭＥ　ＤＳＮ（Ｄ），７，７ ＳＰＣＯＬ　ＤＳＮ（Ｄ），−７，−７，１６，１６，ＴＲＵＥ，＆Ｈ００ ＳＰＡＮＩＭ　ＤＳＮ（Ｄ），７，１０，１ ＳＰＣＨＲ　ＤＳＮ（Ｄ），ＤＳＰ（Ｄ），ＤＳＣ（Ｄ），０，０，ＤＰＲＩ ＳＰＯＦＳ　ＤＳＮ（Ｄ），ＤＸ（Ｄ），ＤＹ（Ｄ），０ ＩＦ　ＢＯＳＳＭＯＤＥ！＝１　ＴＨＥＮ　ＳＰＯＦＳ　ＤＳＮ（Ｄ），−１６，ＤＹ（Ｄ），ＡＢＳ（ＤＸ（Ｄ）／ＬＥＶＥＬ） ＩＦ　ＤＰＯＩＮＴ＜ＤＭＡＸ−１　ＴＨＥＮ　ＤＰＯＩＮＴ＝ＤＰＯＩＮＴ＋１　ＥＬＳＥ　ＤＰＯＩＮＴ＝０ ＠ＥＸＰＬ９９ ＲＥＴＵＲＮ ’−−ＳＵＢ　ＢＵＴＴＯＮ　ＭＥＴＨＯＤ ＠ＢＴＮ ＯＮ　ＰＨＡＳＥ　ＧＯＴＯ　＠ＢＴＮ１，＠ＢＴＮ２，＠ＢＴＮ３ ＠ＢＴＮ０ Ｂ＝ＢＵＴＴＯＮ（） ＩＦ　Ｂ　ＡＮＤ　２０４８　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＯＮＴＳＥＴ ＲＥＴＵＲＮ ＠ＢＴＮ１ ＧＯＳＵＢ　＠ＢＴＮＯＦＦ ＧＯＳＵＢ　＠ＢＴＮＷＡＩＴ Ｆ＝０ Ｂ＝ＢＵＴＴＯＮ（） ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　Ｆ＝２：ＢＥＥＰ　７，０，４５：ＩＦ　ＳＴＡＧＥＮＯ＜ＳＴＡＧＥＮＯＭＡＸ　ＴＨＥＮ　ＳＴＡＧＥＮＯ＝ＳＴＡＧＥＮＯ＋１ ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　Ｆ＝２：ＳＴＡＧＥＮＯ＝ＳＴＡＧＥＮＯ−１：ＢＥＥＰ　７，０，４５ ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　Ｆ＝１：ＳＴＡＧＥＭＯＤＥ＝ＳＴＡＧＥＭＯＤＥ−１：ＢＥＥＰ　７，０，４５ ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　Ｆ＝１：ＳＴＡＧＥＭＯＤＥ＝ＳＴＡＧＥＭＯＤＥ＋１：ＢＥＥＰ　７，０，４５ ＩＦ　Ｂ　ＡＮＤ　２５６　ＴＨＥＮ　Ｆ＝１：ＧＯＳＵＢ　＠ＬＯＡＤ ＩＦ　Ｂ　ＡＮＤ　５１２　ＴＨＥＮ　Ｆ＝１：ＧＯＳＵＢ　＠ＳＡＶＥ ＩＦ　Ｂ　ＡＮＤ　１０２４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＴＮＯＦＦ ＩＦ　Ｂ　ＡＮＤ　３２　ＴＨＥＮ　Ｆ＝１：ＢＥＥＰ　７，０，４５：ＧＯＳＵＢ　＠ＱＵＩＴ ＩＦ　ＳＴＡＧＥＭＯＤＥ＜０　ＴＨＥＮ　ＳＴＡＧＥＭＯＤＥ＝０ ＩＦ　ＳＴＡＧＥＭＯＤＥ＞ＳＴＡＧＥＭＯＤＥＭＡＸ　ＴＨＥＮ　ＳＴＡＧＥＭＯＤＥ＝ＳＴＡＧＥＭＯＤＥＭＡＸ ＩＦ　Ｆ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＴＩＮＩＴ ＩＦ　Ｆ＝＝２　ＡＮＤ　ＳＴＡＧＥＮＯ＜＝０　ＴＨＥＮ　ＳＴＡＧＥＮＯ＝１ ＩＦ　Ｆ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＧＴＩＴＬＥＣＮＧ ＬＥＶＥＬ＝１＋ＬＥＶＥＬＵＰ＊ＦＬＯＯＲ（（ＳＴＡＧＥＮＯ−１）％（ＳＴＡＧＥＬＯＯＰ＊ＳＴＡＧＥＬＯＯＰＭＡＸ）／ＳＴＡＧＥＬＯＯＰ） ＩＦ　！Ｆ　ＴＨＥＮ　ＳＴＡＲＴ＝１：ＧＯＴＯ　＠ＢＴＮ９９ ＩＦ　Ｆ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＴＮＯＦＦ：ＧＯＳＵＢ　＠ＩＮＦＯ ＧＯＴＯ　＠ＢＴＮ１ ＠ＢＴＮ２ ＭＶ＝０：ＳＢＴＮ＝０：ＩＳＰＤ＝０ Ｂ＝ＢＵＴＴＯＮ（） Ｂ１＝ＢＵＴＴＯＮ（１） Ｂ２＝ＢＵＴＴＯＮ（２） Ｂ３＝ＢＵＴＴＯＮ（３） ＩＦ　Ｂ　ＡＮＤ　１０２４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＡＵＳＥ ＩＦ　ＭＤＥＡＤ＞０　ＴＨＥＮ　＠ＢＴＮ９９ ＩＦ　Ｂ　ＡＮＤ　３２　ＴＨＥＮ　ＩＳＰＤ＝１ ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＭＹ＝ＭＹ−ＭＳＰＤ（ＩＳＰＤ）：ＭＶ＝４ ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＭＹ＝ＭＹ＋ＭＳＰＤ（ＩＳＰＤ）：ＭＶ＝２ ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＭＸ＝ＭＸ−ＭＳＰＤ（ＩＳＰＤ） ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＭＸ＝ＭＸ＋ＭＳＰＤ（ＩＳＰＤ） ＩＦ　！ＯＶＥＲＤＲＩＶＥ　ＴＨＥＮ　ＩＦ　Ｂ１　ＡＮＤ　１２８　ＴＨＥＮ　ＳＢＴＮ＝１ ＩＦ　ＯＶＥＲＤＲＩＶＥ　ＴＨＥＮ　ＩＦ　Ｂ　ＡＮＤ　１２８　ＴＨＥＮ　ＳＢＴＮ＝１ ＩＦ　Ｂ２　ＡＮＤ　１６　ＴＨＥＮ　ＳＢＴＮ＝１ ＩＦ　ＡＵＴＯＦＩＲＥ　ＡＮＤ　ＧＣＮＴ％１２＝＝０　ＴＨＥＮ　ＳＢＴＮ＝１ ＩＦ　ＴＣＨＳＴ　ＡＮＤ　ＧＣＮＴ％１２＝＝０　ＴＨＥＮ　ＳＢＴＮ＝１ ＩＦ　Ｂ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＭＸ＜　１５　ＴＨＥＮ　ＭＸ＝　１５ ＩＦ　ＭＸ＞２４１　ＴＨＥＮ　ＭＸ＝２４１ ＩＦ　ＭＹ＜　２７　ＴＨＥＮ　ＭＹ＝　２７ ＩＦ　ＭＹ＞１７１　ＴＨＥＮ　ＭＹ＝１７１ ＧＯＴＯ　＠ＢＴＮ９９ ＠ＢＴＮ３ ＠ＢＴＮ９９ ＲＥＴＵＲＮ ＠ＬＯＡＤ ＢＥＥＰ　２，０，４５ ＭＥＭ＄＝”０” Ｓ＝ＳＹＳＢＥＥＰ：ＳＹＳＢＥＥＰ＝０ ＬＯＡＤ　”ＭＥＭ：”＋ＭＥＭＦＩＬＥ＄ ＳＹＳＢＥＥＰ＝Ｓ ＨＩＳＣＯＲＥ＝ＶＡＬ（ＭＥＭ＄） ＢＥＥＰ　７，０，４５ ＲＥＴＵＲＮ ＠ＳＡＶＥ ＢＥＥＰ　２，０，４５ ＭＥＭ＄＝ＳＴＲ＄（ＨＩＳＣＯＲＥ） Ｓ＝ＳＹＳＢＥＥＰ：ＳＹＳＢＥＥＰ＝０ ＳＡＶＥ　”ＭＥＭ：”＋ＭＥＭＦＩＬＥ＄ ＳＹＳＢＥＥＰ＝Ｓ ＢＥＥＰ　７，０，４５ ＲＥＴＵＲＮ ’−−ＰＡＵＳＥ ＠ＰＡＵＳＥ Ｆ＝０：ＵＲＡＭＯＤＥ＝０ ＢＧＭＳＴＯＰ：ＢＥＥＰ　３，０，９０ Ｍ＄＝”　”＊３２ ＬＯＣＡＴＥ　０，１２：ＰＲＩＮＴ　Ｍ＄ Ｍ＄＝”ＰＡＵＳＥ” ＬＯＣＡＴＥ　１３，１２：ＰＲＩＮＴ　Ｍ＄ ＧＯＳＵＢ　＠ＢＴＮＯＦＦ ＧＯＳＵＢ　＠ＢＴＮＷＡＩＴ ＠ＰＡＵＳＥ１ ＩＦ　ＵＲＡＭＯＤＥ　ＴＨＥＮ　Ｍ＄＝”？”　ＥＬＳＥ　Ｍ＄＝”　” ＬＯＣＡＴＥ　３１，１２：ＰＲＩＮＴ　Ｍ＄ Ｂ＝ＢＵＴＴＯＮ（） ＩＦ　Ｂ　ＡＮＤ　１０２４　ＴＨＥＮ　＠ＰＡＵＳＥ９ ＩＦ　Ｂ　ＡＮＤ　５１２　ＴＨＥＮ　Ｆ＝１：ＵＲＡＭＯＤＥ＝！ＵＲＡＭＯＤＥ：ＢＥＥＰ　１２，０，７０ ＩＦ　Ｂ　ＡＮＤ　２５６　ＴＨＥＮ　ＢＥＥＰ　７，０，４５：ＧＯＳＵＢ　＠ＲＥＳＥＴ Ｕ＝ＵＲＡＭＯＤＥ ＩＦ　！Ｕ　ＴＨＥＮ　＠ＰＡＵＳＥ２ ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　Ｆ＝２：ＤＥＢＵＧ＝（ＤＥＢＵＧ＋１）％３：ＢＥＥＰ　７，０，４５ ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　Ｆ＝１：ＦＲＥＥＰＬＡＹ＝！ＦＲＥＥＰＬＡＹ：ＢＥＥＰ　７，０，４５ ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　Ｆ＝１：ＭＵＴＥＫＩ＝！ＭＵＴＥＫＩ：ＢＥＥＰ　７，０，４５ ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　Ｆ＝１：ＤＥＦＰＯＷ＝（ＤＥＦＰＯＷ＋１）％６：ＭＰＯＷ＝ＤＥＦＰＯＷ：ＢＥＥＰ　７，０，４５ ＩＦ　Ｂ　ＡＮＤ　１６　ＴＨＥＮ　Ｆ＝１：ＯＶＥＲＤＲＩＶＥ＝！ＯＶＥＲＤＲＩＶＥ：ＢＥＥＰ　７，０，４５ ＩＦ　Ｂ　ＡＮＤ　３２　ＴＨＥＮ　Ｆ＝１：ＮＯＷＡＩＴ＝！ＮＯＷＡＩＴ：ＢＥＥＰ　７，０，４５ ＩＦ　Ｂ　ＡＮＤ　６４　ＴＨＥＮ　Ｆ＝３：ＤＥＢＵＧ２＝！ＤＥＢＵＧ２：ＢＥＥＰ　７，０，４５ ＩＦ　Ｂ　ＡＮＤ　１２８　ＴＨＥＮ　Ｆ＝１：ＡＵＴＯＦＩＲＥ＝！ＡＵＴＯＦＩＲＥ：ＢＥＥＰ　７，０，４５ ＠ＰＡＵＳＥ２ ＩＦ　ＤＥＢＵＧ　ＯＲ　Ｆ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＩＮＦＤＢＧ ＩＦ　ＤＥＢＵＧ！＝１　ＡＮＤ　Ｆ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＤＥＢＵＧＣＬＳ ＩＦ　ＤＥＢＵＧ２　ＯＲ　Ｆ＝＝３　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＣＳＣＲＣＬＳ ＩＦ　！ＤＥＢＵＧ２　ＡＮＤ　Ｆ＝＝３　ＴＨＥＮ　ＧＯＳＵＢ　＠ＨＯＷＴＯ ＩＦ　Ｆ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＴＮＯＦＦ：Ｆ＝０ ＧＯＳＵＢ　＠ＥＸＰＬＲＭ ＧＯＴＯ　＠ＰＡＵＳＥ１ ＠ＰＡＵＳＥ９ ＧＯＳＵＢ　＠ＢＴＮＯＦＦ ＵＲＡＭＯＤＥ＝０ ＩＦ　ＢＧＭＦ　ＡＮＤ　ＢＧＭＮＯＷ＞＝０　ＴＨＥＮ　ＢＧＭＰＬＡＹ　０，ＢＧＭＮＯＷ ＩＦ　ＢＧＭＦ　ＡＮＤ　ＢＧＭＮＯＷ＜０　ＴＨＥＮ　ＢＧＭＳＴＯＰ ＧＯＳＵＢ　＠ＤＥＢＵＧＣＬＳ ＲＥＴＵＲＮ ＠ＲＥＳＥＴ ＧＯＳＵＢ　＠ＢＴＮＯＦＦ ＵＲＡＭＯＤＥ＝０ ＩＦ　ＤＥＢＵＧ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＩＮＦＤＢＧ Ｍ＄＝”　”＊３２ ＬＯＣＡＴＥ　０，１２：ＰＲＩＮＴ　Ｍ＄ ＠ＲＥＳＥＴ１ Ｍ＄＝”А　−−　ＲＥＳＥＴ” ＬＯＣＡＴＥ　１１，１２：ＰＲＩＮＴ　Ｍ＄ Ｂ＝ＢＵＴＴＯＮ（） ＩＦ　Ｂ＝＝１６　ＴＨＥＮ　ＢＥＥＰ　０，０，７０：ＧＯＴＯ　＠ＳＴＡＲＴ ＩＦ　Ｂ　ＴＨＥＮ　＠ＲＥＳＥＴ２ ＧＯＴＯ　＠ＲＥＳＥＴ１ ＠ＲＥＳＥＴ２ ＧＯＳＵＢ　＠ＢＴＮＯＦＦ ＢＥＥＰ　７，０，４５ Ｍ＄＝”　”＊３２ ＬＯＣＡＴＥ　０，１２：ＰＲＩＮＴ　Ｍ＄ Ｍ＄＝”ＰＡＵＳＥ” ＬＯＣＡＴＥ　１３，１２：ＰＲＩＮＴ　Ｍ＄ ＲＥＴＵＲＮ ＠ＱＵＩＴ ＧＯＳＵＢ　＠ＢＴＮＯＦＦ Ｍ＄＝”　”＊３２ ＬＯＣＡＴＥ　０，１６：ＰＲＩＮＴ　Ｍ＄ ＠ＱＵＩＴ１ Ｍ＄＝”А　−−　ＱＵＩＴ” ＬＯＣＡＴＥ　１２，１６：ＰＲＩＮＴ　Ｍ＄ Ｂ＝ＢＵＴＴＯＮ（） ＩＦ　Ｂ＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＥＮＤ ＩＦ　Ｂ　ＴＨＥＮ　＠ＱＵＩＴ２ ＧＯＴＯ　＠ＱＵＩＴ１ ＠ＱＵＩＴ２ ＢＥＥＰ　７，０，４５ Ｍ＄＝”ＰＲＥＳＳ　ＡＮＹ　ＢＵＴＴＯＮ　！” ＬＯＣＡＴＥ　７，１６：ＰＲＩＮＴ　Ｍ＄ ＲＥＴＵＲＮ ＠ＦＯＮＴＳＥＴ ＦＳＥＴＦ＝１ ＧＯＳＵＢ　＠ＢＴＮＯＦＦ ＠ＦＯＮＴＳＥＴ１ Ｆ＝０ Ｂ＝ＢＵＴＴＯＮ（） ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　Ｆ＝１：ＦＯＮＴ＝ＦＯＮＴ＋１０ ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　Ｆ＝１：ＦＯＮＴ＝ＦＯＮＴ−１０ ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　Ｆ＝１：ＦＯＮＴ＝ＦＯＮＴ−１ ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　Ｆ＝１：ＦＯＮＴ＝ＦＯＮＴ＋１ ＩＦ　Ｂ＞＝１６　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＦＯＮＴ＜−１　ＴＨＥＮ　ＦＯＮＴ＝−１ ＩＦ　ＦＯＮＴ＞９９　ＴＨＥＮ　ＦＯＮＴ＝９９ Ｆ＄＝”　”＊（２−ＬＥＮ（ＳＴＲ＄（ＦＯＮＴ）））＋ＳＴＲ＄（ＦＯＮＴ） ＬＯＣＡＴＥ　０，０：ＰＲＩＮＴ　”ＦＯＮＴ　ＳＥＴＴＩＮＧ” ＬＯＣＡＴＥ　０，２：ＰＲＩＮＴ　”ＦＯＮＴ　ＮＯ：”；Ｆ＄；”　　” ＬＯＣＡＴＥ　０，３：ＰＲＩＮＴ　”（↓：１０　ＤＯＷＮ／↑：１０　ＵＰ） ＬＯＣＡＴＥ　０，４：ＰＲＩＮＴ　”（←：　１　ＤＯＷＮ／→：　１　ＵＰ） ＬＯＣＡＴＥ　０，６：ＰＲＩＮＴ　”　１〜９９：ＯＦＦＩＣＩＡＬ　ＥＮＧＬＩＳＨ” ＬＯＣＡＴＥ　０，７：ＰＲＩＮＴ　”　０　　　：ＤＥＦＡＵＬＴ” ＬＯＣＡＴＥ　０，８：ＰＲＩＮＴ　”−１　　　：ＬＯＣＡＬ　ＣＵＳＴＯＭ” ＧＯＳＵＢ　＠ＢＴＮＯＦＦ ＧＯＳＵＢ　＠ＢＴＮＷＡＩＴ ＩＦ　Ｆ＝＝２　ＴＨＥＮ　ＲＥＴＵＲＮ ＧＯＴＯ　＠ＦＯＮＴＳＥＴ１ ＲＥＴＵＲＮ ＠ＤＥＢＵＧＣＬＳ Ｍ＄＝”　”＊３２ ＦＯＲ　Ｉ＝３　ＴＯ　２１ 　ＩＦ　Ｉ！＝１２　ＴＨＥＮ　ＬＯＣＡＴＥ　０，Ｉ：ＰＲＩＮＴ　Ｍ＄ 　ＩＦ　Ｉ＝＝１２　ＴＨＥＮ　ＬＯＣＡＴＥ　３１，Ｉ：ＰＲＩＮＴ　”　” ＮＥＸＴ ＲＥＴＵＲＮ ’−−ＢＵＴＴＯＮ　ＷＡＩＴ ＠ＢＴＮＷＡＩＴ ＩＦ　！（ＰＨＡＳＥ＋ＦＳＥＴＦ）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＩＴＬＥＬＯＧＯ ＩＦ　ＰＨＡＳＥ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＸＰＬＲＭ ＩＦ　ＴＣＨＳＴ　ＴＨＥＮ　ＲＥＴＵＲＮ ＶＳＹＮＣ　１ ＩＦ　！ＢＵＴＴＯＮ（）　ＴＨＥＮ　＠ＢＴＮＷＡＩＴ ＲＥＴＵＲＮ ’−−ＢＵＴＴＯＮ　ＯＦＦ ＠ＢＴＮＯＦＦ ＶＳＹＮＣ　１ ＩＦ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　＠ＢＴＮＯＦＦ ＲＥＴＵＲＮ ’−−ＴＯＵＣＨ ＠ＴＯＵＣＨ ＩＦ　！ＴＣＨＳＴ　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＭＤＥＡＤ＞０　ＴＨＥＮ　ＲＥＴＵＲＮ ＭＸ＝ＴＣＨＸ：ＭＹ＝ＴＣＨＹ ＩＦ　ＭＸ＜　１５　ＴＨＥＮ　ＭＸ＝　１５ ＩＦ　ＭＸ＞２４１　ＴＨＥＮ　ＭＸ＝２４１ ＩＦ　ＭＹ＜　２７　ＴＨＥＮ　ＭＹ＝　２７ ＩＦ　ＭＹ＞１７１　ＴＨＥＮ　ＭＹ＝１７１ ＲＥＴＵＲＮ ’−−ＢＧ　ＳＣＲＯＯＬ ＠ＢＧＳＣＲＬ ＩＦ　ＢＯＳＳＭＯＤＥ＝＝１　ＴＨＥＮ　＠ＢＧＳＣＲＬ３ ＩＦ　ＳＴＣＬＲ＝＝７　ＡＮＤ　ＢＧＣＮＧ＜＝６４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＧＳＣＲＬ２ ＠ＢＧＳＣＲＬ１ ＦＯＲ　Ｉ＝０　ＴＯ　１ 　Ｋ＝（Ｉ＋１）％２ 　ＢＧＸ（Ｉ）＝（ＢＧＸ（Ｉ）＋（Ｋ＋１）＊ＳＫＩＰ２＊ＬＥＶＥＬ） 　ＢＧＯＦＳ　Ｉ，ＢＧＸ（Ｉ），ＢＧＹ（Ｉ），４ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＢＧＳＣＲＬ２ Ｋ＝ＢＧＦＲ ＩＦ　ＢＧＣＨＫ（Ｋ）　ＴＨＥＮ　＠ＢＧＳＣＲＬ２ ＢＧＲＥＡＤ（Ｋ，（ＢＧＸ（Ｋ）／８＋３３）　ＡＮＤ　６３，２４），ＸＳ ＸＥ＝ＸＳ＋１ ＳＶ＝１ ＧＯＳＵＢ　＠ＢＧＰＵＴＦＲ ＢＧＣＮＧ＝ＢＧＣＮＧ＋１ ＲＥＴＵＲＮ ＠ＢＧＳＣＲＬ３ ＦＯＲ　Ｉ＝０　ＴＯ　１ 　ＩＦ　！ＢＧＣＨＫ（Ｉ）　ＴＨＥＮ　ＢＧＸ（Ｉ）＝ＢＧＸ（Ｉ）％５１２ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＢＧＴＩＴＬＥＣＮＧ ＳＶ＝０：ＸＳ＝０：ＸＥ＝６３ ＧＯＳＵＢ　＠ＢＧＰＵＴＦＲ ＲＥＴＵＲＮ ’−−ＩＮＩＴ ＠ＩＮＩＴ００ ＣＬＥＡＲ ＧＯＳＵＢ　＠ＨＩＳＣＯＲＥＳＥＴ ＡＣＬＳ：ＳＰＣＬＲ ＶＩＳＩＢＬＥ　１，１，１，１，１，１ ＧＰＡＧＥ　０：ＧＣＯＬＯＲ　０：ＧＰＲＩＯ　２ ＣＯＬＯＲ　０ ＢＲＥＰＥＡＴ　７，０，８ ＢＧＭＳＴＯＰ　 ＰＮＬＴＹＰＥ　”ＯＦＦ” ＲＥＴＵＲＮ ’−−ＢＯＯＴ　ＯＮＬＹ　ＲＯＵＴＩＮＥ ＠ＢＯＯＴ ＢＧＭＳＴＯＰ　 ＡＣＬＳ：ＣＬＥＡＲ ＦＯＮＴ＝４ ＧＯＳＵＢ　＠ＢＴＮ０ ＣＬＳ ＬＯＣＡＴＥ　９，１２：ＰＲＩＮＴ　”Ｎｏｗ　Ｌｏａｄｉｎｇ” ＧＯＳＵＢ　＠ＳＰＣＨＩＮＩＴ ＧＯＳＵＢ　＠ＦＯＮＴＩＮＩＴ ＲＥＴＵＲＮ ＠ＨＩＳＣＯＲＥＳＥＴ ＨＩＳＣＯＲＥ＝０：Ｈ＄＝”” ＩＦ　ＣＨＲ＄（ＣＨＫＣＨＲ（０，０））！＝”Ｓ”　ＴＨＥＮ　ＲＥＴＵＲＮ ＦＯＲ　Ｉ＝０　ＴＯ　４ 　Ｈ＄＝Ｈ＄＋ＣＨＲ＄（ＣＨＫＣＨＲ（Ｉ＋１４，０）） ＮＥＸＴ ＨＩＳＣＯＲＥ＝ＶＡＬ（Ｈ＄） ＲＥＴＵＲＮ ’−−ＳＰＲＩＴＥ　ＭＡＰ ’Г：０ ’Ｂ：１ ’Е：２−３１ ’・：３２−５０ ’○：６１−９０ ’−−ＨＥＮＳＵＵ　ＩＮＩＴ ＠ＨＥＮＩＮＩＴ ＰＧＶＥＲ＝１２０ ＰＨＡＳＥ＝０ ＳＣＯＲＥ＝０ ＳＣＯＲＥＭＡＸ＝９９９９９ ＳＴＡＲＴ＝０ ＦＰＳ＝０：ＦＮＯＷ＝ＭＡＩＮＣＮＴＬ：ＦＣＮＴ＝ＦＮＯＷ ＦＶＩＥＷ＄＝”−−” ＧＣＮＴ＝０ ＢＧＭＦ＝０：ＢＧＭＮＯ＝０ ＢＯＳＳＭＯＤＥ＝０：ＢＯＳＳＳＴ＝０：ＢＯＳＳＩＴＥＭ＝０ ＢＯＳＳＣＮＴ＝１００００：ＳＴＭＡＸＣＮＴ＝３００００ ＭＥＤＩＵＭＣＮＴ＝２００ ＳＫＩＰ１＝２：ＳＫＩＰ２＝４：ＳＫＩＰ３＝１６ ＳＴＣＬＲ＝０ ＭＥＭＦＩＬＥ＄＝”ＭＯＴＤＲＳＭ” ’’ ＤＥＢＵＧ＝０ ＤＥＢＵＧ２＝０ ＦＲＥＥＰＬＡＹ＝０ ＭＵＴＥＫＩ＝０ ＤＥＦＰＯＷ＝０ ＡＵＴＯＦＩＲＥ＝０ ＮＯＷＡＩＴ＝０ ＯＶＥＲＤＲＩＶＥ＝０ ＳＴＡＧＥＮＯ＝１ ＳＴＡＧＥＮＯＭＡＸ＝５２４２８７ ＬＥＶＥＬ＝１：ＬＥＶＥＬＵＰ＝０．２５ ＳＴＮＯ＝０：ＳＴＭＩ＝１００：ＳＴＭＪ＝３０ Ｉ＝ＳＴＭＩ：Ｊ＝ＳＴＭＪ ＤＩＭ　ＳＴＮ（Ｉ），ＳＴＴ（Ｉ），ＳＴＣ（Ｉ），ＳＴＤ（Ｉ，Ｊ），ＳＴＭＳＧ（Ｉ），ＳＴＭＧＣ（Ｉ） ＳＴＡＧＥＬＯＯＰ＝３：ＳＴＡＧＥＬＯＯＰＭＡＸ＝１００ ＳＴＡＧＥＭＯＤＥ＝０：ＳＴＡＧＥＭＯＤＥＭＡＸ＝２ ＭＬＩＦＥ＝３ ＭＰＯＷ＝０：ＭＢＡＲ＝０ ＭＸ＝−３２：ＭＹ＝９５ ＭＳＮ＝０：ＭＳＰ＝２５６：ＭＳＣ＝２：ＭＳＰＲＩ＝２ ＭＤＥＡＤ＝５９：ＭＦＲＥＥ＝６０ ＭＬＩＦＥ＝ＭＬＩＦＥ＋１ ＭＢＳＮ＝１：ＭＢＳＰ＝２８４：ＭＢＰＲＩ＝２ ＭＢＦ＝０ ＤＩＭ　ＭＢＳＣＢ（３） ＭＢＳＣＢ（０）＝４：ＭＢＳＣＢ（１）＝２：ＭＢＳＣＢ（２）＝１０ ＤＩＭ　ＭＳＰＤ（２） ＭＳＰＤ（０）＝３：ＭＳＰＤ（１）＝４ ＳＳＮＳＴ＝３２ ＳＳＰ＝２３６：ＳＳＣ＝４：ＳＳＰＲＩ＝２ ＳＣＮＴ＝０：ＳＳＰＤ＝２８：ＳＢＴＮ＝０：ＳＭＡＸ＝１６ ＤＩＭ　ＳＦ（ＳＭＡＸ），ＳＸ（ＳＭＡＸ），ＳＹ（ＳＭＡＸ），ＳＳＮ（ＳＭＡＸ） ＦＯＲ　Ｉ＝０　ＴＯ　ＳＭＡＸ−１ 　ＳＦ（Ｉ）＝０：ＳＳＮ（Ｉ）＝Ｉ＋ＳＳＮＳＴ ＮＥＸＴ ＢＧＦＲ＝０：ＢＧＢＫ＝１ ＤＩＭ　ＢＧＸ（２），ＢＧＹ（２） ＤＩＭ　ＢＧＣ（２，ＳＴＡＧＥＬＯＯＰ） ＦＯＲ　Ｉ＝０　ＴＯ　１ 　ＢＧＸ（Ｉ）＝０：ＢＧＹ（Ｉ）＝０ ＮＥＸＴ ＤＩＭ　ＢＧＮＢ（２） ＤＩＭ　ＢＧＮＦ（ＳＴＡＧＥＬＯＯＰ，２） ＤＩＭ　ＢＧＲ（ＳＴＡＧＥＬＯＯＰ） ＢＧＣ（ＢＧＦＲ，０）＝２ ＢＧＣ（ＢＧＦＲ，１）＝４ ＢＧＣ（ＢＧＦＲ，２）＝１２ ＦＯＲ　Ｉ＝０　ＴＯ　ＳＴＡＧＥＬＯＯＰ−１ 　ＢＧＣ（ＢＧＢＫ，Ｉ）＝６ ＮＥＸＴ ＢＧＮＢ（０）＝８５９：ＢＧＮＢ（１）＝８９１ ＢＧＮＦ（０，０）＝７８１：ＢＧＮＦ（０，１）＝７８１ ＢＧＮＦ（１，０）＝３７８：ＢＧＮＦ（１，１）＝４１０ ＢＧＮＦ（２，０）＝８２３：ＢＧＮＦ（２，１）＝８２３ ＢＧＲ（０）＝０：ＢＧＲ（１）＝６：ＢＧＲ（２）＝６ ＥＳＮＳＴ＝２ ＥＭＡＸ＝３１ ＥＰＲＩ＝２ Ｉ＝ＥＭＡＸ ＤＩＭ　ＥＳＮ（Ｉ），ＥＳＰ（Ｉ），ＥＳＣ（Ｉ），ＥＳＣ２（Ｉ） ＤＩＭ　ＥＦ（Ｉ），ＥＸ（Ｉ），ＥＹ（Ｉ），ＥＩＤ（Ｉ） ＤＩＭ　ＥＳＰＤ（Ｉ），ＥＳＣＯＲＥ（Ｉ），ＥＭＯＶＥ（Ｉ） ＤＩＭ　ＥＡＮＣ（Ｉ），ＥＡＮＴ（Ｉ），ＥＳＰＯＲＧ（Ｉ） ＤＩＭ　ＥＳＨＯＴ（Ｉ），ＥＨＰ（Ｉ） ＤＩＭ　ＥＸＶ（Ｉ），ＥＹＶ（Ｉ） ＤＩＭ　ＥＸＳ（Ｉ），ＥＹＳ（Ｉ） ＤＩＭ　ＥＸＪ（Ｉ），ＥＹＪ（Ｉ） ＤＩＭ　ＥＳＨＯＴＮＯ（Ｉ），ＥＳＴＮＯ（Ｉ），ＥＮＥＷ（Ｉ） ＤＩＭ　ＥＷＩＤ（Ｉ），ＥＨＩ（Ｉ），ＥＡＮＧ（Ｉ），ＥＳＵ（Ｉ） ＤＩＭ　ＥＲＥＨ（Ｉ），ＥＲＥＶ（Ｉ），ＥＳＣＬ（Ｉ） ＤＩＭ　ＥＳＨＯＴＦ（Ｉ），ＥＢＯＳＳ（Ｉ） ＦＯＲ　Ｉ＝０　ＴＯ　ＥＭＡＸ−１ 　ＥＳＮ（Ｉ）＝ＥＳＮＳＴ＋Ｉ：ＥＦ（Ｉ）＝０ 　ＥＳＨＯＴＦ（Ｉ）＝０ ＮＥＸＴ ＥＮＡＣＴＮＯ＝０ ＥＮＡＣＴＭＡＸ＝２：Ｉ＝ＥＮＡＣＴＭＡＸ ＤＩＭ　ＥＮＡＣＴ（Ｉ），ＥＮＭＩＮ（Ｉ），ＥＮＭＡＸ（Ｉ） ＦＯＲ　Ｉ＝０　ＴＯ　ＥＮＡＣＴＭＡＸ−１ 　ＥＮＡＣＴ（Ｉ）＝０ 　ＥＮＭＩＮ（Ｉ）＝１５＊Ｉ：ＥＮＭＡＸ（Ｉ）＝ＥＮＭＩＮ（Ｉ） ＮＥＸＴ ＢＭＡＸ＝４０ Ｉ＝ＢＭＡＸ ＤＩＭ　ＢＮＡＭＥ＄（Ｉ） ＤＩＭ　ＢＳＰ（Ｉ），ＢＳＣ（Ｉ），ＢＳＣ２（Ｉ），ＢＳＰＤ（Ｉ） ＤＩＭ　ＢＳＣＯＲＥ（Ｉ），ＢＡＮＣ（Ｉ），ＢＡＮＴ（Ｉ） ＤＩＭ　ＢＳＨＯＴ（Ｉ），ＢＨＰ（Ｉ），ＢＭＯＶＥ（Ｉ） ＤＩＭ　ＢＸＳ（Ｉ），ＢＹＳ（Ｉ） ＤＩＭ　ＢＸＪ（Ｉ），ＢＹＪ（Ｉ） ＤＩＭ　ＢＷＩＤ（Ｉ），ＢＨＩ（Ｉ），ＢＡＮＧ（Ｉ），ＢＳＵ（Ｉ） ＤＩＭ　ＢＲＥＨ（Ｉ），ＢＲＥＶ（Ｉ），ＢＳＣＬ（Ｉ） ＲＥＳＴＯＲＥ　＠ＥＮＤＡＴＡ ＦＯＲ　Ｉ＝０　ＴＯ　ＢＭＡＸ−１ 　ＲＥＡＤ　ＢＮＡＭＥ＄（Ｉ） 　ＲＥＡＤ　ＢＳＰ（Ｉ） 　ＲＥＡＤ　ＢＳＣ（Ｉ） 　ＲＥＡＤ　ＢＳＣ２（Ｉ） 　ＲＥＡＤ　ＢＳＰＤ（Ｉ） 　ＲＥＡＤ　ＢＳＣＯＲＥ（Ｉ） 　ＲＥＡＤ　ＢＭＯＶＥ（Ｉ） 　ＲＥＡＤ　ＢＡＮＣ（Ｉ） 　ＲＥＡＤ　ＢＡＮＴ（Ｉ） 　ＲＥＡＤ　ＢＳＨＯＴ（Ｉ） 　ＲＥＡＤ　ＢＨＰ（Ｉ） 　ＲＥＡＤ　ＢＸＳ（Ｉ） 　ＲＥＡＤ　ＢＹＳ（Ｉ） 　ＲＥＡＤ　ＢＸＪ（Ｉ） 　ＲＥＡＤ　ＢＹＪ（Ｉ） 　ＲＥＡＤ　ＢＷＩＤ（Ｉ） 　ＲＥＡＤ　ＢＨＩ（Ｉ） 　ＲＥＡＤ　ＢＡＮＧ（Ｉ） 　ＲＥＡＤ　ＢＳＵ（Ｉ） 　ＲＥＡＤ　ＢＲＥＨ（Ｉ） 　ＲＥＡＤ　ＢＲＥＶ（Ｉ） 　ＲＥＡＤ　ＢＳＣＬ（Ｉ） ＮＥＸＴ ＤＭＡＸ＝３０：ＤＮＯＷ＝−１：ＤＰＯＩＮＴ＝０：ＤＰＲＩ＝２ ＤＩＭ　ＤＳＮ（ＤＭＡＸ），ＤＳＰ（ＤＭＡＸ），ＤＳＣ（ＤＭＡＸ） ＤＩＭ　ＤＦ（ＤＭＡＸ），ＤＸ（ＤＭＡＸ），ＤＹ（ＤＭＡＸ） ＤＩＭ　ＤＳＰＤ（ＤＭＡＸ），ＤＳＤＤ（ＤＭＡＸ） ＦＯＲ　Ｉ＝０　ＴＯ　ＤＭＡＸ−１ 　ＤＳＮ（Ｉ）＝６１＋Ｉ：ＤＳＰ（Ｉ）＝２４８：ＤＳＣ（Ｉ）＝３：ＤＦ（Ｉ）＝０：ＤＳＰＤ（Ｉ）＝３：ＤＳＤＤ（Ｉ）＝０ ＮＥＸＴ ＤＩＭ　Ｈ＄（２４） ＲＥＴＵＲＮ ＠ＥＮＤＡＴＡ ’’ ’−−テキタ゛ン ’　　　　ＮＡＭＥ　　　，ＧＲＡ，イロ，イロ２，ＳＰＤ，スコア，ＭＶ，アニメＣ，アニメＴ，ＳＨＯＴ，ＨＰ　，Ｘ＿ＳＴ，Ｙ＿ＳＴ，Ｘ＿ＪＤＧ，Ｙ＿ＪＤＧ，ＷＩＤ，ＨＩ，ＡＮＧ，ＳＵ，Ｈ，Ｖ，ＳＣ　 ＤＡＴＡ　”テキタ゛ン”，２１４，　４，　−１，　　２，　　０，１０，　　　２，　　１２，　　−１，　−１，　　−１，　　−１，　　　　８，　　　　８，　１６，１６，　　０，９９，０，０，　　１ ＤＡＴＡ　”ファイヤ−”，２８４，　５，　−１，　　４，　　０，　０，　　　２，　　１２，　　−２，　−１，　　−１，　　−１，　　　３２，　　　１６，　３２，１６，１８０，９９，０，０，　　１ ＤＡＴＡ　”レ−サ゛−”，１６９，　３，　−１，　　６，　　０，　０，　　　０，　　　０，　　−４，　−１，　　−１，　　−１，　　　１６，　　　１６，　１６，１６，　　０，９９，０，０，　　１ ＤＡＴＡ　”ユウト゛ウ”，１４２，　５，　−１，　　２，　　０，１１，　　　２，　　１２，　　−８，　−１，　　−１，　　−１，　　　１６，　　　１６，　１６，１６，　　０，９９，０，０，　　１ ＤＡＴＡ　”ショット”　，２３６，　４，　−１，　１０，　　０，　０，　　　４，　　　３，　−１６，　−１，　　−１，　　−１，　　　１６，　　　１６，　１６，１６，　　０，９９，１，０，　　１ ＤＡＴＡ　””　　　　　，　　０，　０，　−１，　　０，　　０，　０，　　　０，　　　０，　−３２，　−１，　　　０，　　　０，　　　　０，　　　　０，　　０，　０，　　０，　０，０，０，　　０ ＤＡＴＡ　”ハ゜ワ−”　，２３２，１１，　−１，１．１，　　０，　１，　　　２，　　１２，　−６４，　−２，　　−１，　　−８，　　　１６，　　　１６，　１６，１６，　　０，　１，０，０，　　１ ＤＡＴＡ　”ハ゛リア”　，２３４，　３，　−１，１．１，　　０，　１，　　　２，　　１２，−１２８，　−２，　　−１，　　−８，　　　１６，　　　１６，　１６，１６，　　０，　１，０，０，　　１ ＤＡＴＡ　”１ＵＰ”　　，２５６，　２，　−１，１．１，　　０，　１，　　　０，　　　０，−２５６，　−２，　　−１，　　−８，　　　３２，　　　１６，　３２，１６，　　０，　１，０，０，０．７ ＤＡＴＡ　”スタ−”　　，１５６，　３，　−１，１．１，　　０，　１，　　　４，　　１２，−５１２，　−２，　　−１，　　−８，　　　１６，　　　１６，　１６，１６，　　０，　１，０，０，　　１ ’−−サ゛コテキ ’　　　　ＮＡＭＥ　　　，ＧＲＡ，イロ，イロ２，ＳＰＤ，スコア，ＭＶ，アニメＣ，アニメＴ，ＳＨＯＴ，ＨＰ　，Ｘ＿ＳＴ，Ｙ＿ＳＴ，Ｘ＿ＪＤＧ，Ｙ＿ＪＤＧ，ＷＩＤ，ＨＩ，ＡＮＧ，ＳＵ，Ｈ，Ｖ，ＳＣ　 ＤＡＴＡ　”セントウキ”，１７６，　２，　−１，　　３，　　１，　０，　　　２，　　１２，　　　０，　　１，　２５２，　９９９，　　　１６，　　　１６，　１６，１６，　　０，９９，０，０，　　１ ＤＡＴＡ　”セントウＳ”，１７６，　５，　−１，　　４，　　２，　０，　　　２，　　１２，　　　１，　　１，　２５２，　９９９，　　　１６，　　　１６，　１６，１６，　　０，９９，０，０，　　１ ＤＡＴＡ　”キライ”　　，１７４，　３，　−１，１．５，　　１，１２，　　　２，　　１２，　　　０，　　５，　２５２，　１００，　　　１６，　　　１６，　１６，１６，　　０，９９，０，０，　　１ ＤＡＴＡ　”サイクロン”，１８１，　３，　−１，　　４，　　１，２０，　　　３，　　１２，　　　０，　　１，　２５２，　９９９，　　　１６，　　　１６，　１６，１６，　　０，９９，０，０，　　１ ＤＡＴＡ　”チウエ”　　，１８４，１１，　−１，　　２，　　２，　０，　　　２，　　１２，　　　１，　　５，　２５２，　　３２，　　　１６，　　　１６，　１６，１６，　　０，９９，０，０，　　１ ＤＡＴＡ　”チシタ”　　，１８４，１１，　−１，　　２，　　２，　０，　　　２，　　１２，　　　１，　　５，　２５２，　１６７，　　　１６，　　　１６，　１６，１６，１８０，９９，０，０，　　１ ＤＡＴＡ　”ミサイル”　，２７２，１１，　−１，　　４，　　１，　２，　　　３，　　１２，　　　０，　　３，　２５２，　９９９，　　　３２，　　　１６，　３２，１６，　　０，９９，０，０，　　１ ＤＡＴＡ　”クラケ゛”　，２７８，１１，　−１，　−１，　　２，　０，　　　３，　　１２，　　　０，　　３，　　　０，　９９９，　　　３２，　　　１６，　３２，１６，　　０，９９，０，０，　　１ ＤＡＴＡ　”チュウミニ”，１３８，　２，　−１，　　１，　　１，３２，　　　０，　　　０，　　　２，　　１，　２５２，　９９９，　　　１６，　　　１６，　１６，１６，　　０，９９，０，０，　　１ ＤＡＴＡ　”カヘ゛”　　，２９８，１１，　−１，０．５，　　１，　０，　　　３，　　１２，　　　０，２５６，　２５２，　９９９，　　　１６，　　　３２，　１６，３２，　　０，９９，０，０，　　１ ’−−チュウホ゛ス ’　　　　ＮＡＭＥ　　　，ＧＲＡ，イロ，イロ２，ＳＰＤ，スコア，ＭＶ，アニメＣ，アニメＴ，ＳＨＯＴ，ＨＰ　，Ｘ＿ＳＴ，Ｙ＿ＳＴ，Ｘ＿ＪＤＧ，Ｙ＿ＪＤＧ，ＷＩＤ，ＨＩ，ＡＮＧ，ＳＵ，Ｈ，Ｖ，ＳＣ　 ＤＡＴＡ　”チュウアカ”，３７６，１２，　１１，　　１，　　５，３２，　　　０，　　　０，　　６７，　　５，　２５２，　１００，　　　３２，　　　３２，　３２，３２，　　０，　１，０，０，　　１ ＤＡＴＡ　”チュウアオ”，３７２，１２，　１１，　　１，　１０，３２，　　　０，　　　０，　１３３，　１０，　２５２，　１００，　　　３２，　　　３２，　３２，３２，　　０，　１，０，０，　　１ ＤＡＴＡ　”チュウ３”　，３８０，１３，　１１，　　１，　１５，３２，　　　０，　　　０，　２６５，　１５，　２５２，　１００，　　　３２，　　　３２，　３２，３２，　　０，　１，０，０，　　１ ＤＡＴＡ　””　　　　　，　　０，　０，　　０，　　０，　　０，　０，　　　０，　　　０，　　　０，　　０，　　　０，　　　０，　　　　０，　　　　０，　　０，　０，　　０，　０，０，０，　　０ ＤＡＴＡ　””　　　　　，　　０，　０，　　０，　　０，　　０，　０，　　　０，　　　０，　　　０，　　０，　　　０，　　　０，　　　　０，　　　　０，　　０，　０，　　０，　０，０，０，　　０ ＤＡＴＡ　””　　　　　，　　０，　０，　　０，　　０，　　０，　０，　　　０，　　　０，　　　０，　　０，　　　０，　　　０，　　　　０，　　　　０，　　０，　０，　　０，　０，０，０，　　０ ＤＡＴＡ　””　　　　　，　　０，　０，　　０，　　０，　　０，　０，　　　０，　　　０，　　　０，　　０，　　　０，　　　０，　　　　０，　　　　０，　　０，　０，　　０，　０，０，０，　　０ ＤＡＴＡ　””　　　　　，　　０，　０，　　０，　　０，　　０，　０，　　　０，　　　０，　　　０，　　０，　　　０，　　　０，　　　　０，　　　　０，　　０，　０，　　０，　０，０，０，　　０ ＤＡＴＡ　””　　　　　，　　０，　０，　　０，　　０，　　０，　０，　　　０，　　　０，　　　０，　　０，　　　０，　　　０，　　　　０，　　　　０，　　０，　０，　　０，　０，０，０，　　０ ＤＡＴＡ　”セントウＧ”，１７６，１０，　−１，　　６，　　１，　０，　　　２，　　１２，　５１２，　　１，　２５２，　９９９，　　　１６，　　　１６，　１６，１６，　　０，　１，０，０，　　１ ’−−ホ゛ス ’　　　　ＮＡＭＥ　　　，ＧＲＡ，イロ，イロ２，ＳＰＤ，スコア，ＭＶ，アニメＣ，アニメＴ，ＳＨＯＴ，ＨＰ　，Ｘ＿ＳＴ，Ｙ＿ＳＴ，Ｘ＿ＪＤＧ，Ｙ＿ＪＤＧ，ＷＩＤ，ＨＩ，ＡＮＧ，ＳＵ，Ｈ，Ｖ，ＳＣ　 ＤＡＴＡ　”ＢＩＧ２”　，４６４，１１，　１３，０．５，　１０，３１，　　　０，　　　０，　　６７，　５０，　２５２，　　５２，　　　６４，　　　６４，　６４，６４，　　０，　１，０，０，０．９ ＤＡＴＡ　”ＢＩＧ３”　，４８０，１１，　１３，０．５，　１０，３１，　　　０，　　　０，　１３１，　５０，　２５２，　１４７，　　　６４，　　　６４，　６４，６４，　　０，　１，０，０，０．９ ＤＡＴＡ　”ＢＩＧ１”　，４４８，１１，　１３，０．５，　５０，３１，　　　０，　　　０，　５２５，１００，　２５２，　１００，　　　６４，　　　６４，　６４，６４，　　０，　１，０，０，　　１ ＤＡＴＡ　”ニセシ゛キ”，２５６，１１，　−１，０．４，　５０，２１，　　　０，　　　０，　５２８，　　１，　２５２，　１００，　　　３２，　　　１６，　３２，１６，　　０，　１，１，０，　　１ ＤＡＴＡ　”ハ゛リア”　，２８４，　９，　　５，　　０，　１０，４１，　　　２，　　　３，　　　０，　９９，　２５２，　１００，　　　３２，　　　１６，　３２，１６，　　０，　１，１，０，　　２ ＤＡＴＡ　”ＢＯＳＳ１”，３７２，１２，　１１，　　１，　５０，３０，　　　０，　　　０，　５１７，　５０，　２５２，　１００，　　　３２，　　　３２，　３２，３２，　　０，　１，０，０，１．５ ＤＡＴＡ　””　　　　　，　　０，　０，　　０，　　０，　　０，　０，　　　０，　　　０，　　　０，　　０，　　　０，　　　０，　　　　０，　　　　０，　　０，　０，　　０，　０，０，０，　　０ ＤＡＴＡ　””　　　　　，　　０，　０，　　０，　　０，　　０，　０，　　　０，　　　０，　　　０，　　０，　　　０，　　　０，　　　　０，　　　　０，　　０，　０，　　０，　０，０，０，　　０ ＤＡＴＡ　””　　　　　，　　０，　０，　　０，　　０，　　０，　０，　　　０，　　　０，　　　０，　　０，　　　０，　　　０，　　　　０，　　　　０，　　０，　０，　　０，　０，０，０，　　０ ＤＡＴＡ　””　　　　　，　　０，　０，　　０，　　０，　　０，　０，　　　０，　　　０，　　　０，　　０，　　　０，　　　０，　　　　０，　　　　０，　　０，　０，　　０，　０，０，０，　　０ ＠ＳＰＣＨＩＮＩＴ ＤＩＭ　Ｄ＄（４），Ｄ２＄（１６） ’−−ＳＰＵ４−６　ＳＰＲＩＴＥ　ＩＮＩＴ ＦＯＲ　Ｋ＝０　ＴＯ　２ 　Ｓ＄＝”ＳＰＵ”＋ＳＴＲ＄（Ｋ＋４） 　ＩＥ＝３１ 　ＩＦ　Ｋ＝＝０　ＴＨＥＮ　ＩＥ＝１５ 　ＣＨＲＩＮＩＴ　Ｓ＄ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＩＥ 　　ＦＯＲ　Ｊ＝０　ＴＯ　３ 　　　Ｌ＝Ｊ＋２＋Ｉ＊８ 　　　ＣＨＲＲＥＡＤ（Ｓ＄，Ｌ），Ｄ＄（Ｊ） 　　ＮＥＸＴ 　　ＦＯＲ　Ｊ＝０　ＴＯ　１ 　　　ＳＷＡＰ　Ｄ＄（Ｊ），Ｄ＄（Ｊ＋２） 　　ＮＥＸＴ 　　ＦＯＲ　Ｊ＝０　ＴＯ　３ 　　　Ｌ＝Ｊ＋２＋Ｉ＊８ 　　　ＣＨＲＳＥＴ　Ｓ＄，Ｌ，Ｄ＄（Ｊ） 　　ＮＥＸＴ 　ＮＥＸＴ 　ＬＯＣＡＴＥ　２０＋Ｋ，１２：ＰＲＩＮＴ　”．” ＮＥＸＴ ’−−ＳＰＵ７　ＳＰＲＩＴＥ　ＩＮＩＴ Ｓ＄＝”ＳＰＵ７” ＣＨＲＩＮＩＴ　Ｓ＄ ＩＥ＝１５ ＦＯＲ　Ｉ＝０　ＴＯ　ＩＥ 　ＦＯＲ　Ｊ＝０　ＴＯ　１５ 　　Ｌ＝Ｊ＋Ｉ＊１６ 　　ＣＨＲＲＥＡＤ（Ｓ＄，Ｌ），Ｄ２＄（Ｊ） 　ＮＥＸＴ 　ＳＷＡＰ　Ｄ２＄（　２），Ｄ２＄（　４） 　ＳＷＡＰ　Ｄ２＄（　３），Ｄ２＄（　５） 　ＳＷＡＰ　Ｄ２＄（　４），Ｄ２＄（　８） 　ＳＷＡＰ　Ｄ２＄（　５），Ｄ２＄（　９） 　ＳＷＡＰ　Ｄ２＄（　６），Ｄ２＄（１２） 　ＳＷＡＰ　Ｄ２＄（　７），Ｄ２＄（１３） 　ＳＷＡＰ　Ｄ２＄（１０），Ｄ２＄（１２） 　ＳＷＡＰ　Ｄ２＄（１１），Ｄ２＄（１３） 　ＦＯＲ　Ｊ＝０　ＴＯ　１５ 　　Ｌ＝Ｊ＋Ｉ＊１６ 　　ＣＨＲＳＥＴ　Ｓ＄，Ｌ，Ｄ２＄（Ｊ） 　ＮＥＸＴ ＮＥＸＴ ’−−ＢＧＵ３　ＳＰＲＩＴＥ　ＩＮＩＴ Ｓ＄＝”ＢＧＵ３” ＣＨＲＩＮＩＴ　Ｓ＄ Ｋ＝９１ ＣＨＲＲＥＡＤ（Ｓ＄，Ｋ），Ｄ＄ Ｅ＄＝”” ＦＯＲ　Ｉ＝０　ＴＯ　６３ 　Ｃ＄＝ＭＩＤ＄（Ｄ＄，Ｉ，１） 　ＩＦ　Ｃ＄＝＝”Ｅ”　ＴＨＥＮ　ＣＮ＄＝”０”　ＥＬＳＥ　ＣＮ＄＝Ｃ＄ 　Ｅ＄＝Ｅ＄＋ＣＮ＄ ＮＥＸＴ ＣＨＲＳＥＴ　Ｓ＄，Ｋ，Ｅ＄ Ｋ＝１２３ ＣＨＲＲＥＡＤ（Ｓ＄，Ｋ），Ｄ＄ Ｅ＄＝”” ＦＯＲ　Ｉ＝０　ＴＯ　６３ 　Ｃ＄＝ＭＩＤ＄（Ｄ＄，Ｉ，１） 　ＩＦ　Ｃ＄＝＝”Ｅ”　ＯＲ　Ｃ＄＝＝”８”　ＴＨＥＮ　ＣＮ＄＝”０”　ＥＬＳＥ　ＣＮ＄＝Ｃ＄ 　Ｅ＄＝Ｅ＄＋ＣＮ＄ ＮＥＸＴ ＣＨＲＳＥＴ　Ｓ＄，Ｋ，Ｅ＄ ＲＥＴＵＲＮ ＠ＦＯＮＴＩＮＩＴ Ｓ＄＝”ＢＧＦ０” ＦＯＲ　Ｉ＝０　ＴＯ　１ 　ＢＧＰＡＧＥ　Ｉ 　ＣＨＲＩＮＩＴ　Ｓ＄ 　Ｆ＄＝”０”＊（２−ＬＥＮ（ＳＴＲ＄（ＦＯＮＴ）））＋ＳＴＲ＄（ＦＯＮＴ） 　ＩＦ　ＦＯＮＴ＞０　ＴＨＥＮ　ＬＯＡＤ　”ＢＧＦ０：ＳＢＦＴ＿Ｅ”＋Ｆ＄，０ ＮＥＸＴ ＩＦ　ＦＯＮＴ＞＝０　ＴＨＥＮ　ＲＥＴＵＲＮ ＦＯＲ　Ｋ＝３３　ＴＯ　１２８ 　Ｄ＄＝””：Ｅ＄＝”” 　ＣＨＲＲＥＡＤ（Ｓ＄，Ｋ），Ｄ＄ 　ＦＯＲ　Ｉ＝０　ＴＯ　７ 　　ＣＢ＄＝”０” 　　ＦＯＲ　Ｊ＝０　ＴＯ　７ 　　　Ｃ＄＝ＭＩＤ＄（Ｄ＄，Ｉ＊８＋Ｊ，１） 　　　ＩＦ　Ｃ＄！＝”Ｆ”　ＴＨＥＮ　ＣＮ＄＝ＣＢ＄　ＥＬＳＥ　ＣＮ＄＝Ｃ＄ 　　　Ｅ＄＝Ｅ＄＋ＣＮ＄ 　　　ＣＢ＄＝Ｃ＄ 　　ＮＥＸＴ 　ＮＥＸＴ 　ＦＯＲ　Ｉ＝０　ＴＯ　１ 　　ＢＧＰＡＧＥ　Ｉ 　　ＣＨＲＳＥＴ　Ｓ＄，Ｋ，Ｅ＄ 　ＮＥＸＴ ＮＥＸＴ ＲＥＴＵＲＮ ’−−ＳＰＲＩＴＥ　ＩＮＩＴ ＠ＳＰＩＮＩＴ ＳＰＳＥＴ　ＭＳＮ，ＭＳＰ，ＭＳＣ，０，０，ＭＳＰＲＩ，３２，１６ ＳＰＨＯＭＥ　ＭＳＮ，１５，７ ＳＰＣＯＬ　ＭＳＮ，−２，−１，４，２，ＴＲＵＥ，＆ＨＦ０ ＭＸ＝−３２ ＳＰＯＦＳ　ＭＳＮ，ＭＸ，ＭＹ，０ ＲＥＴＵＲＮ ’−−ＢＧ　ＩＮＩＴ ＠ＢＧＩＮＩＴ ＢＧＰＡＧＥ　０ ＢＧＣＬＩＰ　０，０，３１，２３ ＧＯＳＵＢ　＠ＢＧＰＵＴＢＫ ＳＶ＝０：ＸＳ＝０：ＸＥ＝６３ ＧＯＳＵＢ　＠ＢＧＰＵＴＦＲ ＦＯＲ　Ｉ＝０　ＴＯ　６３ 　ＢＧＰＵＴ　０，Ｉ，２４，Ｉ，０，０，０ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＢＧＰＵＴＢＫ Ｋ＝ＢＧＢＫ ＦＯＲ　Ｉ＝０　ＴＯ　６３ 　ＦＯＲ　Ｊ＝１　ＴＯ　２３ 　　ＸＲ＝ＲＮＤ（２）：ＹＲ＝ＲＮＤ（２） 　　Ｒ＝ＲＮＤ（２０） 　　ＩＦ　Ｒ＝＝２　ＴＨＥＮ　ＢＧＰＵＴ　Ｋ，Ｉ，Ｊ，ＢＧＮＢ（０），ＢＧＣ（Ｋ，Ｃ），ＸＲ，ＹＲ 　　ＩＦ　Ｒ＜＝１　ＴＨＥＮ　ＢＧＰＵＴ　Ｋ，Ｉ，Ｊ，ＢＧＮＢ（１），ＢＧＣ（Ｋ，Ｃ），ＸＲ，ＹＲ 　ＮＥＸＴ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＢＧＰＵＴＦＲ Ｋ＝ＢＧＦＲ ＸＲ＝０：ＹＲ＝０ Ｃ＝（ＳＴＡＧＥＮＯ−１＋ＳＶ）％ＳＴＡＧＥＬＯＯＰ ＦＯＲ　Ｉ＝ＸＳ　ＴＯ　ＸＥ 　ＢＧＲＥＡＤ（Ｋ，Ｉ，２５），ＣＰ 　ＩＦ　Ｃ！＝ＣＰ−１　ＴＨＥＮ　Ｊ＝４ 　ＦＯＲ　Ｊ＝０　ＴＯ　３ 　　Ｊ２＝（Ｊ＋２１）％２３＋１ 　　Ｉ２＝Ｊ２＞＝２２ 　　ＢＮ＝ＢＧＮＦ（Ｃ，Ｉ２）＋ＲＮＤ（ＢＧＲ（Ｃ）） 　　ＢＧＰＵＴ　Ｋ，Ｉ，Ｊ２，ＢＮ，ＢＧＣ（Ｋ，Ｃ），ＸＲ，ＹＲ 　ＮＥＸＴ 　ＢＧＰＵＴ　Ｋ，Ｉ，２５，Ｃ＋１，０，０，０ ＮＥＸＴ ＲＥＴＵＲＮ ’−−ＳＴＡＧＥ　ＩＮＩＴＩＡＬＩＺＥ ＠ＳＴＩＮＩＴ Ｉ＝０ ＠ＳＴＩＮＩＴ０１ ＩＦ　Ｉ＞＝ＳＴＭＩ　ＴＨＥＮ　＠ＳＴＩＮＩＴ０４ ＩＦ　！ＳＴＮ（Ｉ）　ＴＨＥＮ　＠ＳＴＩＮＩＴ０４ ＳＴＮ（Ｉ）＝０：ＳＴＴ（Ｉ）＝０：ＳＴＣ（Ｉ）＝０ ＳＴＭＳＧ（Ｉ）＝０：ＳＴＭＧＣ（Ｉ）＝０ Ｊ＝０ ＠ＳＴＩＮＩＴ０２ ＩＦ　Ｊ＞＝ＳＴＭＪ　ＴＨＥＮ　＠ＳＴＩＮＩＴ０３ ＩＦ　！ＳＴＤ（Ｉ，Ｊ）　ＡＮＤ　Ｊ＞０　ＴＨＥＮ　＠ＳＴＩＮＩＴ０３ ＳＴＤ（Ｉ，Ｊ）＝０ Ｊ＝Ｊ＋１ ＧＯＴＯ　＠ＳＴＩＮＩＴ０２ ＠ＳＴＩＮＩＴ０３ Ｉ＝Ｉ＋１ ＧＯＴＯ　＠ＳＴＩＮＩＴ０１ ＠ＳＴＩＮＩＴ０４ ＳＴＬＢＬ＄＝”＠ＳＴＤＡＴＡ” ＩＦ　ＳＴＡＧＥＭＯＤＥ＝＝０　ＴＨＥＮ　Ｓ＄＝”” ＩＦ　ＳＴＡＧＥＭＯＤＥ＝＝１　ＴＨＥＮ　Ｓ＄＝”＿ＢＯＳＳ” ＩＦ　ＳＴＡＧＥＭＯＤＥ＝＝２　ＴＨＥＮ　Ｓ＄＝”＿ＴＥＳＴ” ＳＴＬＢＬ＄＝ＳＴＬＢＬ＄＋Ｓ＄ ＲＥＳＴＯＲＥ　ＳＴＬＢＬ＄ Ｉ＝０：Ｊ＝０：ＳＴＮＯ＝０：ＳＴＣ（Ｉ）＝０ ＠ＳＴＩＮＩＴ１ ＲＥＡＤ　Ｓ ＩＦ　Ｓ＝＝９９９　ＴＨＥＮ　＠ＳＴＩＮＩＴ９９ ＩＦ　Ｓ＝＝　９９　ＴＨＥＮ　＠ＳＴＩＮＩＴ２ ＩＦ　Ｊ＝＝　　０　ＴＨＥＮ　ＳＴＮ（Ｉ）＝Ｓ ＩＦ　Ｊ＝＝　　１　ＴＨＥＮ　ＳＴＴ（Ｉ）＝Ｓ ＩＦ　Ｊ＞＝　　２　ＡＮＤ　Ｓ＜４０　ＴＨＥＮ　ＳＴＤ（Ｉ，Ｊ−２）＝Ｓ：ＳＴＣ（Ｉ）＝ＳＴＣ（Ｉ）＋１ ＩＦ　Ｊ＞＝　　２　ＡＮＤ　Ｓ＞＝７０　ＡＮＤ　Ｓ＜＝７９　ＴＨＥＮ　ＳＴＭＧＣ（Ｉ）＝Ｓ ＩＦ　Ｊ＞＝　　２　ＡＮＤ　Ｓ＞＝８０　ＡＮＤ　Ｓ＜＝８９　ＴＨＥＮ　ＳＴＭＳＧ（Ｉ）＝Ｓ Ｊ＝Ｊ＋１ ＧＯＴＯ　＠ＳＴＩＮＩＴ１ ＠ＳＴＩＮＩＴ２ Ｔ＝Ｊ−１：ＩＦ　Ｔ＜０　ＴＨＥＮ　Ｔ＝０ Ｉ＝Ｉ＋１：Ｊ＝０：ＳＴＣ（Ｉ）＝０ ＧＯＴＯ　＠ＳＴＩＮＩＴ１ ＠ＳＴＩＮＩＴ９９ ＲＥＴＵＲＮ ’’ ＠ＳＴＤＡＴＡ ＤＡＴＡ　　　１，　　　０，７１，９９ ＤＡＴＡ　　　１，　　１０，８１，９９ ＤＡＴＡ　　　１，　１５０，１０，１０，１０，９９ ＤＡＴＡ　　　１，　５００，２０，９９ ＤＡＴＡ　　　１，　８００，１０，１０，１０，１４，１５，９９ ＤＡＴＡ　　　１，１２００，１０，１０，２１，９９ ＤＡＴＡ　　　１，１５００，１３，１３，１３，９９ ＤＡＴＡ　　　１，２０００，１３，１３，２０，９９ ＤＡＴＡ　　　１，２５００，１０，１０，１０，１１，９９ ＤＡＴＡ　　　１，２７００，１０，１０，１０，１１，２９，９９ ＤＡＴＡ　　　１，３０００，７８，８２，９９ ＤＡＴＡ　　　１，３０１０，８２，９９ ＤＡＴＡ　　　１，３０５０，９９ ＤＡＴＡ　　　１，３１２０，７８，８２，９９ ＤＡＴＡ　　　１，３１３０，８２，９９ ＤＡＴＡ　　　１，３１７０，９９ ＤＡＴＡ　　　１，３３００，７４，９９ ＤＡＴＡ　　　１，３３１０，１２，３５，９９ ＤＡＴＡ　　　２，　　　０，７１，９９ ＤＡＴＡ　　　２，　　１０，８１，９９ ＤＡＴＡ　　　２，　１５０，１１，２１，９９ ＤＡＴＡ　　　２，　４５０，１１，１４，１５，９９ ＤＡＴＡ　　　２，　７５０，１３，１３，１４，１５，９９ ＤＡＴＡ　　　２，１０００，１３，１３，２０，９９ ＤＡＴＡ　　　２，１３００，１６，１６，９９ ＤＡＴＡ　　　２，１６００，１６，１６，２２，９９ ＤＡＴＡ　　　２，１９００，１０，１０，１１，１７，９９ ＤＡＴＡ　　　２，２０５０，１０，１０，１１，１７，２９，９９ ＤＡＴＡ　　　２，２２００，１７，１７，２１，９９ ＤＡＴＡ　　　２，２５００，１０，１０，１７，１７，９９ ＤＡＴＡ　　　２，２７００，１０，１０，２０，９９ ＤＡＴＡ　　　２，３０００，７８，８２，９９ ＤＡＴＡ　　　２，３０１０，８２，９９ ＤＡＴＡ　　　２，３０５０，９９ ＤＡＴＡ　　　２，３１２０，７８，８２，９９ ＤＡＴＡ　　　２，３１３０，８２，９９ ＤＡＴＡ　　　２，３１７０，９９ ＤＡＴＡ　　　２，３３００，７５，９９ ＤＡＴＡ　　　２，３３１０，３０，３１，３２，９９ ＤＡＴＡ　　　３，　　　０，７２，９９ ＤＡＴＡ　　　３，　　１０，８１，９９ ＤＡＴＡ　　　３，　１５０，１３，１３，１９，２１，９９ ＤＡＴＡ　　　３，　４５０，１８，１８，１９，９９ ＤＡＴＡ　　　３，　８００，１８，１８，１９，２０，９９ ＤＡＴＡ　　　３，１１００，１７，１７，１７，１９，９９ ＤＡＴＡ　　　３，１４００，１７，１７，１９，２２，９９ ＤＡＴＡ　　　３，１７００，１４，１５，１７，１７，１９，９９ ＤＡＴＡ　　　３，２０００，１４，１５，１７，１７，１９，２０，９９ ＤＡＴＡ　　　３，２３００，１６，１６，１７，１７，１９，１９，９９ ＤＡＴＡ　　　３，２５００，１６，１６，１６，１９，１９，９９ ＤＡＴＡ　　　３，２７００，１６，１６，１６，１９，１９，２１，９９ ＤＡＴＡ　　　３，３０００，７８，８２，９９ ＤＡＴＡ　　　３，３０１０，８２，９９ ＤＡＴＡ　　　３，３０５０，９９ ＤＡＴＡ　　　３，３１２０，７８，８２，９９ ＤＡＴＡ　　　３，３１３０，８２，９９ ＤＡＴＡ　　　３，３１７０，９９ ＤＡＴＡ　　　３，３３００，７６，９９ ＤＡＴＡ　　　３，３３１０，１６，１６，３３，３４，９９ ＤＡＴＡ　９９９ ’’ ＠ＳＴＤＡＴＡ＿ＢＯＳＳ ＤＡＴＡ　　　１，　　　０，７１，９９ ＤＡＴＡ　　　１，　　１０，９９ ＤＡＴＡ　　　１，　１００，７４，９９ ＤＡＴＡ　　　１，　１１０，１２，３５，９９ ＤＡＴＡ　　　２，　　　０，７１，９９ ＤＡＴＡ　　　２，　　１０，９９ ＤＡＴＡ　　　２，　１００，７５，９９ ＤＡＴＡ　　　２，　１１０，３０，３１，３２，９９ ＤＡＴＡ　　　３，　　　０，７２，９９ ＤＡＴＡ　　　３，　　１０，９９ ＤＡＴＡ　　　３，　１００，７６，９９ ＤＡＴＡ　　　３，　１１０，１６，１６，３３，３４，９９ ＤＡＴＡ　９９９ ’’ ＠ＳＴＤＡＴＡ＿ＴＥＳＴ ＤＡＴＡ　　　１，　　　０，７１，９９ ＤＡＴＡ　　　１，　　１０，９９ ＤＡＴＡ　　　１，　１００，２０，９９ ＤＡＴＡ　　　１，　４００，２１，９９ ＤＡＴＡ　　　１，　７００，２２，９９ ＤＡＴＡ　９９９ ’’ ’−−ＥＮＤ ＠ＥＮＤ Ｍ＄＝”　”＊３２ ＬＯＣＡＴＥ　０，１６：ＰＲＩＮＴ　Ｍ＄ Ｍ＄＝”ＧＯＯＤ　ＢＹＥ　！” ＬＯＣＡＴＥ　１１，１６：ＰＲＩＮＴ　Ｍ＄ Ｓ＄＝”ＢＧＦ０” ＦＯＲ　Ｉ＝１　ＴＯ　０　ＳＴＥＰ　−１ 　ＧＰＡＧＥ　Ｉ 　ＳＰＰＡＧＥ　Ｉ 　ＢＧＰＡＧＥ　Ｉ：ＣＨＲＩＮＩＴ　Ｓ＄ ＮＥＸＴ ＢＧＭＳＴＯＰ ＢＥＥＰ ＥＮＤ

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

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

• MOT（投稿者） : hatenaさんコメントしてくれました。編集したらコメント消えてしまったみたいで。すみません。 (2012/07/03 (火) 19:50:55)
• MOT（投稿者） : コメント部も編集の内容に入ってくるんですね。txtファイルからコピペで編集するとコメントが消えてしまいました。wikiの編集が初めてなものですみません。 (2012/07/03 (火) 19:56:59)
• MOT（投稿者） : hatenaさんの（消してしまった）コメント>リストを別ページにしたら？とのことですが、リスト含めて1ページに納まってる方が好みなので。 (2012/07/03 (火) 20:00:18)
• RND128 : QRコードリストの修正をしました。 (2012/07/03 (火) 20:25:37)
• MOT（投稿者） : 修正ありがとうございました。 (2012/07/03 (火) 23:18:29)
• ソイソース : ＱＲ実行したら、何箇所かエラーが……。行の途中で改行してしまってる場所があるようなので、手元でそこ修正したら動きました。 (2012/07/04 (水) 11:42:32)
• 名無しさん : 何行目ですか？ (2012/07/04 (水) 12:32:26)
• プチコンまとめWiki管理人 : リスト中に「И」が含まれてるので、プチコンmkIIがV2.0のままでは動かないと思います。バージョンアップしてみてください。 (2012/07/04 (水) 13:28:43)
• ソイソース : なるほど、バージョン依存の処理があるわけですね。了解。 (2012/07/04 (水) 22:23:48)
• 名無しさん : 正確には、プチコンのバグですね。最新版では治っている。 (2012/07/04 (水) 22:36:44)
• MOT（投稿者） : http://wiki.hosiken.jp/petc/?Bug#c34d0085　←これですね。確かに★いくつか使ってましたね。 (2012/07/04 (水) 23:55:51)
• MOT（投稿者） : この件だけでなく他の不具合も直っているようなので、できればV2.1にバージョンアップした方がよいですよ。 (2012/07/04 (水) 23:57:18)
• 名無しさん : フォントは「LOAD "(保存する名前)","1000"」とかでパッケージできる。 (2012/07/05 (木) 16:09:42)
• 名無しさん : ↑です。「LOAD」じゃなくて「SAVE」でした。 (2012/07/05 (木) 16:10:52)
• MOT（投稿者） : パッケージですか。その辺あまり意識してなかったです。説明書見てみたらパラメータが難しすぎる・・・orz (2012/07/06 (金) 00:09:58)
• MOT（投稿者） : http://wiki.hosiken.jp/petc/?Toukou%2F%A5%D1%A5%C3%A5%B1%A1%BC%A5%B8%A5%D1%A5%E9%A5%E1%A1%BC%A5%BF%C0%B8%C0%AE ←参考にさせてもらいました。なるほど、フォントも一緒にSAVEできるんですね。 (2012/07/06 (金) 00:53:46)
• MOT（投稿者） : とはいえ、このゲームに関してはパッケージはしないことにしようかと。QRコードの枚数増えてしまいますし。 (2012/07/06 (金) 00:59:21)
• 名も無き名無し : あ、裏技二つみっけ。フォントセッティングとSTAGE選択機能 (2012/07/06 (金) 19:06:15)
• MOT（投稿者） : 見つかってしまいましたかw (2012/07/07 (土) 00:13:58)
• ゆうしゃアシスタント : 裏技ポーズの時r。 (2012/07/07 (土) 10:29:49)
• 燻製 : Rボタンで (2012/07/07 (土) 10:57:15)
• 名も無き名無し : STAGE228行ってみたら即死だった件ｗ (2012/07/07 (土) 18:25:35)
• 名も無き名無し : 全ステージ数いくつだｗ (2012/07/07 (土) 18:27:39)
• MOT（投稿者） : Rボタンも見つかっちゃいましたか〜w (2012/07/07 (土) 19:14:54)
• MOT（投稿者） : 全ステージ数＞524287です (2012/07/07 (土) 19:17:34)
• 燻製 : ↑いや　間違えただけだろう流石にOver Frowするだろうし　あとRボタン以外に裏技ってあるんですか？ (2012/07/07 (土) 21:34:09)
• 名も無き名無し : タイトルにて、↑と↓でステージ変更　←と→でノーマル、ボス、テストモードができる　セレクト押しながらスタートボタンでプログラム起動するとフォントセッティング出来る（SBFT_E○○[選択した数字が入る]） (2012/07/07 (土) 23:18:37)
• 名も無き名無し : 「ネタバレ度ﾊﾟﾈｪ・・・」とか思ったら消して下さいｗ (2012/07/07 (土) 23:19:25)
• MOT（投稿者） : 紛らわしい書き方してしまいました。「＞」は不等号じゃなくてレスの意味です。STAGE524287がラストステージです。一応、OverFlowしないようになってますよ。 (2012/07/08 (日) 00:16:02)
• MOT（投稿者） : 昔のファミコンのゲームで、発売後にじょじょに裏技が発見されていくのが好きだったので、見つけてくれて書いてくれるのはうれしいです。むしろ、誰も見つけてくれなかったらさみしいな、と思ってましたw (2012/07/08 (日) 00:20:00)
• MOT（投稿者） : 動画掲載しました。ちょっとピンボケ気味ですが3回くらい撮り直したのでご容赦下さい。 (2012/07/08 (日) 02:00:39)
• 燻製 : まあ　改造でもしない限りオーバーフローする前にゲームオーバーするだろうけどw　なんか昔風なクリアできるかどうかじゃなくていいスコアがだせるか、っていう感じがいいですね (2012/07/08 (日) 02:07:03)
• ショルダー : あれだけのキャラを出して全く処理落ちしていませんね。素晴らしいです。 (2012/07/08 (日) 08:18:54)
• MOT（投稿者） : オーバーフローする前にゲームオーバー＞3週目くらいからだんだんきびしくなってきますからねw (2012/07/08 (日) 10:38:56)
• MOT（投稿者） : 昔風な〜いいですね＞ありがとうございます。クリアまで何回もリトライして攻略法を確立して、っていうのも普通に好きなのですが、このゲームでは1週目はサクッとクリアできる難易度にしたかったので。それと、やはりスコア稼ぎはあった方が楽しいかな、と。 (2012/07/08 (日) 10:47:18)
• MOT（投稿者） : 処理落ち〜＞ありがとうございます。処理落ち解決は苦労しました。でも実は、自機がフルパワーの時処理落ちする場面があります。汗。SPOFSの補完時間をうまく使うと処理落ちが軽減できるみたいです。 (2012/07/08 (日) 10:54:29)
• Lv100 : バグ見つけました。STAGE540、707にてボスが逃げてクリアになるバグを確認。 (2012/07/08 (日) 18:55:34)
• Lv100 : ↑これの最後らへん。 (2012/07/08 (日) 23:05:37)
• 燻製 : ↑BGMwわかってらっしゃるw　てかバグというより改造故の不具合なのでは？w (2012/07/08 (日) 23:30:41)
• Lv100 : ↑実際にやってみたけど、やっぱり逃げるよ。タイトルでえげつないほどステージを上げまくって。 (2012/07/08 (日) 23:38:59)
• MOT（投稿者） : (1)指摘＆実況頂きありがとうございます！チートを使った放置は私も開発時に行ってましたw これでOverFlowを2つほど潰しました。 (2012/07/09 (月) 00:01:31)
• MOT（投稿者） : (2)まず、ボスが画面外に出た時は倒したとみなしています。永パ防止のために、ボス戦が3分弱続くとボスが逃亡するようにしています。これをしておかないと、理論上、STAGE1でカンストまでいくことも可能ですからね。 (2012/07/09 (月) 00:01:52)
• MOT（投稿者） : (3)周回を重ねる毎に若干敵の動作スピードをアップしていますが、あまりに早くなりすぎるのもな〜と思い、10周でMAXとしています。つまり、11周は1周と同じスピードに戻るということです。 (2012/07/09 (月) 00:02:15)
• MOT（投稿者） : (4)ですが、このスピードをリセットするコードにバグがあり、11周はリセットされるのですが、21周、31周、・・・はリセットされないようになっていました。 (2012/07/09 (月) 00:02:36)
• MOT（投稿者） : (5)結果、スピードがむちゃくちゃ上がってしまい、ボスが画面外に飛び出してしまったんですね。で、画面外に出る⇒倒したとみなされ、クリアになったと。 (2012/07/09 (月) 00:02:55)
• MOT（投稿者） : (6)こちらの想定外という意味ではバグなのですが、スピードがむちゃくちゃ上がってしまうのは面白い（笑）ので、むしろこちらを採用しようと思います。つまり(3)の仕様を廃止するということです。 (2012/07/09 (月) 00:03:14)
• MOT（投稿者） : (7)動画の途中で敵が自爆するように見えるのは、スプライトの移動に補完時間を使っているため、爆発の位置が補完完了した移動位置まで行ってしまうためですね。本当はもっと遠くで破壊されています。 (2012/07/09 (月) 00:03:39)
• MOT（投稿者） : (8)（(3)の仕様を廃止する）修正版は近日公開します。それと、655行目のコメントの「SIN CAVE」の綴りが間違っているのが恥ずかしい（これじゃサインケイブだ）ので、合わせて修正します。 (2012/07/09 (月) 00:04:04)
• Lv100 : ちなみにこの動画は僕がうpした動画。 (2012/07/09 (月) 00:05:16)
• MOT(投稿者) : 動画のうpもありがとうございます。実況楽しませてもらいましたw (2012/07/09 (月) 00:18:12)
• Lv100 : ちなみに、半日ぐらい置いたらすごいことになってました。 (2012/07/09 (月) 13:49:22)
• MOT（投稿者） : ○数字は機種依存文字なんでしょうかね。スマホで見たら文字化けしてました。カッコ数字に変更しました。 (2012/07/10 (火) 00:10:07)
• MOT（投稿者） : ↑↑すごいことになってましたか。笑。DSの電池は充電しながらですよね。 (2012/07/10 (火) 00:12:24)
• MOT（投稿者） : スピードを無制限にアップさせると、ある時点でOverFlowが発生することが判明しました。なので100周を最大とし、101周でリセットがかかるようにしようと検討中です。 (2012/07/10 (火) 00:15:49)
• MOT（投稿者） : さらに違うバグも発覚。Lv100さんの動画でも19〜23秒辺りにチラチラ見えているのですが、前の面のボスのバリアが残ったままとなって、何度も登場してしまってますw。次バージョンでは修正します。 (2012/07/10 (火) 00:18:31)
• MOT(投稿者) : V1.0.1 公開しました。QRコード、リストを更新しました。良かったらお試し下さい。 (2012/07/12 (木) 00:21:44)
• MOT(投稿者) : 動画差替え。V1.0.1。ピンボケも解消しました。 (2012/07/14 (土) 01:40:28)
• MOT(投稿者) : ニコニコ動画への投稿動画を掲載しました。 (2012/07/18 (水) 00:15:02)
• Lv100 : 勝手ながらニコ動のほうのやつを見られるようにしました。 (2012/07/18 (水) 15:53:09)
• MOT(投稿者) : ↑ありがとうございます！ニコ動にこんなオプションがあるんですね。なにぶんWiki編集には詳しくなくて・・・助かります。 (2012/07/19 (木) 00:09:47)
• Joven : Fun game! keep the updates coming! (it reminds me of games like R-type, a brutally hard shooter that's still fun to play) (2012/07/25 (水) 19:51:06)
• MOT(投稿者) : ↑Thank you for playing ! It updated to the latest version. Please play, if good. (I also like horizontal shooting game). (2012/07/26 (木) 00:26:17)
• MOT(投稿者) : V1.1.0 公開しました。QRコード、リストを更新しました。良かったらお試し下さい。 (2012/07/26 (木) 00:26:42)
• MOT(投稿者) : 裏技もまとめて掲載しました。反転して見てください。 (2012/07/26 (木) 00:27:13)
• hata0401 : Oh! No! (2012/07/28 (土) 20:22:12)
• キービィ : プログラムリストは消した方がいいんじゃないでしょうか？長すぎてコメント探すのに苦労するので。 (2012/08/02 (木) 08:37:28)
• キービィ : 支障あるなら↑のコメは無しで。QR18枚もあるのか…本格派… (2012/08/02 (木) 08:41:37)
• MOT(投稿者) : ↑↑リストはなるべく載せたいと思ってまして・・・ページの上のリンクの「CHECKER FLAG (ひとことコメント)」 か、「ページの最後へ移動」（←追加しました）でどうでしょうか？コメントの頭と後ろには飛べると思います。 (2012/08/02 (木) 23:43:56)
• MOT(投稿者) : ↑↑ありがとうございます！バージョンアップする度に地味にQR増えていってますw (2012/08/02 (木) 23:45:43)
• MOT(投稿者) : 「ページの最後へ移動」→「ページの最後」に変更しました。 (2012/08/02 (木) 23:52:02)
• キービィ : 携帯ではどうしても今表示されてるページの先頭に行ってしまうようです。 (2012/08/03 (金) 07:30:14)
• MOT(投稿者) : 「プログラムリスト」を「CHECKER FLAG (ひとことコメント)」の後ろへ移動しました。これでいかがでしょう。私のスマホではPCと同じ画面が表示されるため動作確認ができませんので・・・ (2012/08/03 (金) 23:57:22)
• キービィ : MOTさん、何度もすみません^^;コメント欄探すの少し楽になりました。 (2012/08/04 (土) 11:05:55)
• MOT(投稿者) : ↑見やすくなって良かったです。 (2012/08/05 (日) 00:58:02)
• MOT(投稿者) : V1.2.0 公開しました。QRコード、リストを更新しました。良かったらお試し下さい。 (2012/08/05 (日) 00:58:31)
• 613 : 普通にＰＣのゲームでありそうなくらいのクオリティですね！凄い！ (2012/08/09 (木) 17:41:07)
• いずれ人類の支配者 : くおりていたかいねえｗｗ (2012/08/09 (木) 20:56:34)
• MOT(投稿者) : ↑↑↑ありがとうございます。そういってもらえると励みになります。 (2012/08/09 (木) 23:51:21)
• MOT(投稿者) : ↑↑↑最初のコメント、そういえばそうですねw 横もギリギリまで使ってます。 (2012/08/09 (木) 23:54:30)
• MOT(投稿者) : ↑↑↑ありがとうございます！！ (2012/08/09 (木) 23:55:27)
• マリオ死傷 : 裏技の、　自動連射、無敵、最強、フリープレイ　を使って放置し、寝て、次の日見たら、高速だったお (2012/08/15 (水) 13:04:41)
• 亞凸凹 : やっと更新しました！更新版乙です！！！ (2012/08/15 (水) 15:03:47)
• 亞凸凹 : スピードリセットがかかるのはちょっと残念でした (2012/08/15 (水) 15:10:25)
• MOT(投稿者) : ↑↑↑スクリーンセーバーとしてもお楽しみ頂けますw (2012/08/15 (水) 18:20:47)
• MOT(投稿者) : ↑↑↑更新ありがとうございます！　↑↑スピードリセットはOverFlow対策としてやむなくという感じですね・・・そこはご勘弁をm(__)m (2012/08/15 (水) 18:25:04)
• MOT(投稿者) : ページを更新しました。更新内容は履歴を参照ください。 (2012/08/26 (日) 01:00:06)
• MOT(投稿者) : youtubeの動画を最新版に差替えました。折りたたみ機能も使ってみました。 (2012/09/25 (火) 00:44:20)
• ぶらっく : おお！いいですネ！シューティングゲームはとても参考になります。これが任天堂ESHOPで発売されたら有料でも買いますw (2013/05/06 (月) 10:04:57)
• MOT(投稿者) : ありがとうございます〜そう言われるとうれしいです！ (2013/05/06 (月) 13:02:51)
• MOT(投稿者) : ニコニコ動画を最新版に差替えました。 (2013/06/29 (土) 19:55:41)
• MOT(投稿者) : QRコードの画質を向上させました。より読み込みやすくなったと思います。 (2013/09/30 (月) 01:01:58)

お名前: