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

パンくずリスト

• トップ
• Toukou
• 弾幕STG

2014年8月20日投稿 / 投稿者 : kyabetuさん / タグ : 投稿プログラム ゲーム シューティングゲーム 弾幕STG QRコード

今日来た人：1　　今まで来た人：3340

概要

弾幕成分たっぷり(?)のシューティングゲームです。

STAGEをクリアするごとに次のステージが遊べるようになります。

まぁ、やればわかる

+

少しネタバレになるかも

ステージは全部で11ステージあります 見たい人は反転して見てください 1STAGE攻略のコツ：上から来る弾を見て避けられる場所を予測する事 2STAGE攻略のコツ：自機狙いの弾が来る直前に相手の周りを弾に当たらないように回る 3STAGE攻略のコツ：1STAGE攻略のコツと同じ 4STAGE攻略のコツ：1STAGE攻略のコツ＋気合避け 5STAGE攻略のコツ：ジグザグに誘導すると避けやすい? ラストステージはルナティック級 +   1STAGEからやるのがめんどくさい人はこちら SELECTボタンを押しながら起動すると…

注意書き

初投稿なので色々ミスがあるかもです

東方の二次創作の部分があるので注意してください。

あとプログラムが汚いです

QR コード

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

QRコードは全部39枚あります

+

本体

+

SPLITE関係

+

フォント

+

BG関係

+

MEM

↑のQRコードを全部読み込んでいる状態で本体のQRコードが更新された場合は本体だけQRコードを読み込み上書きするだけで十分です。

プログラムリスト

+

1000行以上あるため注意

’シ゛ュンヒ゛ 　ＣＬＥＡＲ ＠ＳＴＡＲＴ 　ＩＦ　ＧＭ＝＝０　ＴＨＥＮ　ＣＬＥＡＲ 　ＩＦ　ＧＳＥＬ＝＝１　ＴＨＥＮ　ＣＬＥＡＲ 　ＡＣＬＳ 　ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ 　ＬＯＡＤ　”ＳＰＵ４：Ｓ４ＳＰＥＬＬ”，ＦＡＬＳＥ 　ＬＯＡＤ　”ＢＧＦ：ＢＦＳＰＥＬＬ”，ＦＡＬＳＥ 　ＢＧＰＡＧＥ　１ 　ＬＯＡＤ　”ＳＰＵ０：ＰＤＭＳ０”，ＦＡＬＳＥ 　ＬＯＡＤ　”ＳＰＵ５：ＰＤＭＳ５”，ＦＡＬＳＥ 　ＬＯＡＤ　”ＳＰＵ６：ＰＤＭＳ６”，ＦＡＬＳＥ 　ＬＯＡＤ　”ＣＯＬ１：ＰＤＭＣ”，ＦＡＬＳＥ 　ＣＯＬＯＲ　０ 　ＰＮＬＴＹＰＥ　”ＯＦＦ” 　ＧＰＡＧＥ　１：ＧＰＡＩＮＴ　０，０，１４：ＯＳＬ＝３：ＳＢ＝２０４８ 　ＬＯＡＤ　”ＭＥＭ：ＰＤＭＳＴＭ”，ＦＡＬＳＥ 　ＳＴＳＥＬＭ＝ＶＡＬ（ＭＥＭ＄） 　ＩＦ　ＳＴＳＥＬＭ＝＝０　ＴＨＥＮ　？”ＱＲコ−ト゛　ヲ　セ゛ンフ゛　ヨミコンテ゛　クタ゛サイ”：ＥＮＤ 　ＢＴ１＝ＢＵＴＴＯＮ（） 　ＩＦ　ＢＴ１　ＡＮＤ　ＳＢ　ＴＨＥＮ　ＳＴＳＥＬＭ＝１１ 　ＰＹ＝２００ 　ＰＸ＝１２０ 　ＳＰＳＥＴ　０，２８８，１１，０，０，１，１６，３２ 　ＳＰＳＥＴ　２，２８８，１２，０，０，１，１６，３２ 　ＳＰＯＦＳ　０，−１６，−１６ 　ＳＰＯＦＳ　２，−１６，−１６ 　ＢＧＭＳＴＯＰ 　ＩＦ　ＧＳＥＬ＝＝０　ＡＮＤ　ＧＭ＝＝１　ＴＨＥＮ　＠ＣＯＮ 　ＳＳＥＬ＝１ ＠ＢＧＧ 　ＤＩＭ　Ｘ（１１） 　ＤＩＭ　Ｙ（１１） 　ＤＩＭ　Ｃ（１００） 　ＤＩＭ　Ｓ（１１） 　ＤＩＭ　Ｇ（１１） 　ＤＩＭ　ＧＣ（１１） ＠ＴＩＣ 　ＴＩＣ＝ＲＮＤ（１５） 　ＩＦ　ＴＩＣ＝＝１　ＯＲ　ＴＩＣ＝＝０　ＯＲ　ＴＩＣ＝＝２　ＴＨＥＮ　＠ＴＩＣ 　ＩＦ　ＯＰＫＥＹ＝＝２　ＴＨＥＮ　ＯＰＫＥＹ＝０：ＧＯＴＯ　＠ＯＰＫＥＹ２ ＠ＣＯＮ ＠ＯＰＫＥＹ１ 　ＰＮＬＳＴＲ　８，１８，”←” 　ＰＮＬＳＴＲ　１２，１８，”→” 　ＰＮＬＳＴＲ　１０，１６，”↑” 　ＰＮＬＳＴＲ　１０，２０，”↓” 　ＰＮＬＳＴＲ　１０，１８，”П” 　ＧＰＡＧＥ　１ 　ＰＮＬＳＴＲ　２２，１８，”А” 　ＰＮＬＳＴＲ　２４，１６，”ショット” 　ＧＬＩＮＥ　１８０，１４５，１８９，１３６，１３ 　ＧＬＩＮＥ　１９０，１３６，２２８，１３６，１３ 　ＰＮＬＳＴＲ　１８，１８，”Х” 　ＰＮＬＳＴＲ　２０，２０，”Б” 　ＰＮＬＳＴＲ　２３，２０，”スロ−” 　ＧＬＩＮＥ　１６５，１６７，１６７，１６９，１３ 　ＧＬＩＮＥ　１６７，１６９，２０７，１６９，１３ 　ＰＮＬＳＴＲ　２０，１６，”Ф” 　ＰＮＬＳＴＲ　１７，１４，”н” 　ＰＮＬＳＴＲ　１３，１４，”К” 　ＰＮＬＳＴＲ　１，２，”ＳＣＯＲＥ” 　ＰＮＬＳＴＲ　１，４，”ＧＲＡＺＥ” 　ＢＳＨ＝１６：ＢＳＬ＝３２ ＧＯＳＵＢ　＠Ｐ ＩＦ　ＧＳＥＬ＝＝０　ＡＮＤ　ＧＭ＝＝１　ＴＨＥＮ　＠ＣＯＮ２ ＢＧＭＰＬＡＹ　１，２３ ＶＳＹＮＣ　４ ＢＧＭＰＬＡＹ　２，２３，８０ ＶＳＹＮＣ　４ ＢＧＭＰＬＡＹ　３，２３，６０ ＶＳＹＮＣ　３ ＢＧＭＰＬＡＹ　４，２３，３０ ＶＳＹＮＣ　３ ＢＧＭＰＬＡＹ　５，２３，４０ ＠ＴＩＴＬＥ 　ＶＳＹＮＣ　１ 　ＣＯＬＯＲ　ＴＩＣ−１ 　ＬＯＣＡＴＥ　５，３：？”┌─────────────────────┐” 　ＣＯＬＯＲ　ＴＩＣ＋１ 　ＬＯＣＡＴＥ　５，４：？”│　─│　　　　　──　　　─┐　┌─┐＝　│” 　ＣＯＬＯＲ　ＴＩＣ 　ＬＯＣＡＴＥ　５，５：？”│　─│　┐　─　─┬　　　　　││　│　　│” 　ＣＯＬＯＲ　ＴＩＣ＋１ 　ＬＯＣＡＴＥ　５，６：？”│　─┘　┴　　　─┘　┬┘──┘　─┘　　│” 　ＣＯＬＯＲ　ＴＩＣ−１ 　ＬＯＣＡＴＥ　５，７：？”└─────────────────────┘” 　ＣＯＬＯＲ　１５ 　ＬＯＣＡＴＥ　９，１３：？”ＰＵＳＨ　ＡＮＹ　ＢＵＴＴＵＮ” 　ＢＴ＝ＢＵＴＴＯＮ（２） 　ＩＦ　ＢＴ　ＡＮＤ　１６　ＴＨＥＮ　ＢＥＥＰ　８：ＧＯＴＯ　＠ＴＩＴＫＥＳＩ 　ＰＮＬＳＴＲ　２４，２３，ＴＩＭＥ＄ 　ＰＮＬＳＴＲ　０，２３，ＤＡＴＥ＄ 　ＧＯＳＵＢ　＠ＢＡＣＫ 　ＧＯＴＯ　＠ＴＩＴＬＥ ＠ＴＩＴＫＥＳＩ 　ＦＯＲ　ＴＩＹ＝０　ＴＯ　２３ 　ＰＮＬＳＴＲ　２４，２３，ＴＩＭＥ＄ 　ＬＯＣＡＴＥ　０，ＴＩＹ：？”　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　” 　ＮＥＸＴ 　ＳＴＳＥＬ＝ＳＴＳＥＬＭ ＠ＫＩＴＡＩ 　ＶＳＹＮＣ　１ 　ＢＴ＝ＢＵＴＴＯＮ（２） 　ＳＰＯＦＳ　０，９０，６０ 　ＳＰＯＦＳ　２，１５０，６０ 　ＩＦ　ＢＴ　ＡＮＤ　４　ＴＨＥＮ　ＳＳＥＬ＝１：ＢＥＥＰ　７ 　ＩＦ　ＳＳＥＬ＝＝１　ＴＨＥＮ　ＬＯＣＡＴＥ　１０，９：？”Й”：ＬＯＣＡＴＥ　１７，９：？”　”：ＰＣ＝１１ 　ＩＦ　ＢＴ　ＡＮＤ　８　ＴＨＥＮ　ＳＳＥＬ＝２：ＢＥＥＰ　７ 　ＩＦ　ＳＳＥＬ＝＝２　ＴＨＥＮ　ＬＯＣＡＴＥ　１７，９：？”Й”：ＬＯＣＡＴＥ　１０，９：？”　”：ＰＣ＝１２ 　ＩＦ　ＳＳＥＬ＝＝１　ＴＨＥＮ　ＬＯＣＡＴＥ　１１，１４：？”アタック　　　ИИ　”：ＬＯＣＡＴＥ　１１，１５：？”ハンテイ　　　ИИИ”：ＬＯＣＡＴＥ　１１，１６：？”スヒ゜−ト゛　ИИ　” 　ＩＦ　ＳＳＥＬ＝＝２　ＴＨＥＮ　ＬＯＣＡＴＥ　１１，１４：？”アタック　　　ИИИ”：ＬＯＣＡＴＥ　１１，１５：？”ハンテイ　　　И　　”：ＬＯＣＡＴＥ　１１，１６：？”スヒ゜−ト゛　ИИИ” 　ＰＮＬＳＴＲ　２４，２３，ＴＩＭＥ＄ 　ＧＯＳＵＢ　＠ＢＡＣＫ 　ＩＦ　ＳＳＥＬ＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＫＩＴＡＩ 　ＩＦ　ＢＴ　ＡＮＤ　１６　ＴＨＥＮ　ＢＥＥＰ　８：ＢＧＭＳＴＯＰ：ＧＯＴＯ　＠ＳＰ 　ＧＯＳＵＢ　＠ＳＴＳＥＬ 　ＧＯＴＯ　＠ＫＩＴＡＩ 　＠ＳＴＳＥＬ 　　ＩＦ　ＳＴＳＥＬ＝＝０　ＴＨＥＮ　ＳＴＳＥＬ＝１ 　　ＩＦ　ＳＴＳＥＬ＜＝９　ＴＨＥＮ　ＳＴＳＸ＝２０：ＬＯＣＡＴＥ　ＳＴＳＸ−１，３：？”　” 　　ＩＦ　ＳＴＳＥＬ＞＝１０　ＴＨＥＮ　ＳＴＳＸ＝１９：ＬＯＣＡＴＥ　ＳＴＳＸ−１，３：？”　” 　　ＩＦ　ＳＴＳＥＬ＞＝１００　ＴＨＥＮ　ＳＴＳＸ＝１８ 　　ＬＯＣＡＴＥ　１６，１：？”↑” 　　ＩＦ　ＳＴＳＥＬ＝＝ＳＴＳＥＬＭ　ＴＨＥＮ　ＬＯＣＡＴＥ　１６，１：？”　” 　　ＬＯＣＡＴＥ　１１，３：？”ＳＴＡＧＥ” 　　ＬＯＣＡＴＥ　ＳＴＳＸ，３：？ＳＴＳＥＬ 　　ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＬＯＣＡＴＥ　ＳＴＳＸ，３：？”ＥＸ　　” 　　ＬＯＣＡＴＥ　１６，５：？”↓” 　　ＩＦ　ＳＴＳＥＬ＝＝１　ＴＨＥＮ　ＬＯＣＡＴＥ　１６，５：？”　” 　　ＩＦ　ＢＴ　ＡＮＤ　１　ＴＨＥＮ　ＳＴＳＥＬ＝ＳＴＳＥＬ＋１：ＢＥＥＰ　３ 　　ＩＦ　ＢＴ　ＡＮＤ　２　ＴＨＥＮ　ＳＴＳＥＬ＝ＳＴＳＥＬ−１：ＢＥＥＰ　３ 　　ＩＦ　ＳＴＳＥＬ＞ＳＴＳＥＬＭ　ＴＨＥＮ　ＳＴＳＥＬ＝ＳＴＳＥＬ−１ 　　ＩＦ　ＳＴＳＥＬ＝＝８　ＴＨＥＮ　ＬＯＣＡＴＥ　１７，４：？”ク゛レイス゛　ナシ”　ＥＬＳＥ　ＬＯＣＡＴＥ　１７，４：？”　　　　　　　　　　　” 　　ＲＥＴＵＲＮ ＠ＣＯＮ２ ＠ＳＰ 　ＩＦ　ＧＳＥＬ＝＝０　ＡＮＤ　ＧＭ＝＝１　ＴＨＥＮ　ＥＬＳＥ　ＢＥＥＰ　７ 　ＶＳＹＮＣ　１ 　ＩＦ　ＳＴＳＥＬ＝＝０　ＴＨＥＮ　ＳＴＳＥＬ＝１ 　ＩＦ　ＳＴＳＥＬ＜＝９　ＴＨＥＮ　ＳＴＳＸ＝２９：ＬＯＣＡＴＥ　ＳＴＳＸ−１，３：？”　” 　ＩＦ　ＳＴＳＥＬ＞＝１０　ＴＨＥＮ　ＳＴＳＸ＝２８：ＬＯＣＡＴＥ　ＳＴＳＸ−１，３：？”　” 　ＩＦ　ＳＴＳＥＬ＞＝１００　ＴＨＥＮ　ＳＴＳＸ＝２７ 　ＳＴＳＥＬ＄＝ＳＴＲ＄（ＳＴＳＥＬ） 　ＬＯＣＡＴＥ　１１，３：？”　　　　　　　　　　　　” 　ＩＦ　ＳＴＳＥＬ！＝１１　ＴＨＥＮ　ＰＮＬＳＴＲ　２０，０，”ＳＴＡＧＥ”：ＰＮＬＳＴＲ　ＳＴＳＸ，０，ＳＴＳＥＬ＄ 　ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＰＮＬＳＴＲ　２０，０，”ＳＴＡＧＥ　　　ＥＸ” 　ＳＰＣＬＲ　２：ＳＰＣＬＲ　３ 　ＬＯＣＡＴＥ　１１，１４：？”　　　　　　　　　　” 　ＬＯＣＡＴＥ　１１，１５：？”　　　　　　　　　　” 　ＬＯＣＡＴＥ　１１，１６：？”　　　　　　　　　　” 　ＬＯＣＡＴＥ　１０，９：？”　　　　　　　　　　　” 　ＩＦ　ＳＳＥＬ＝＝２　ＴＨＥＮ　ＳＰＳＥＴ　０，２８８，１２，０，０，１，１６，３２ 　ＳＰＯＦＳ　０，ＰＸ，ＰＹ 　ＰＹ＝１６８ 　ＩＦ　ＰＹ＝＝１６８　ＴＨＥＮ　＠ＳＰＳＥＴ　 　ＧＯＳＵＢ　＠ＢＡＣＫ 　ＰＮＬＳＴＲ　２４，２３，ＴＩＭＥ＄ 　ＧＯＴＯ　＠ＳＰ ＠ＳＰＳＥＴ 　ＦＯＲ　ＩＩ＝０　ＴＯ　２５ 　　ＬＯＣＡＴＥ　０，ＩＩ：？”　　　　　　　　　　　　　　　　　　　　　　　　　　 　ＮＥＸＴ 　ＶＳＹＮＣ　３０ 　ＢＴ＝０ 　ＦＯＲ　Ｉ＝０　ＴＯ　９８ 　　ＳＰＳＥＴ　Ｉ，１４３，２，０，０，１ 　　ＳＰＨＯＭＥ　Ｉ，０，０ 　　ＳＰＯＦＳ　Ｉ，５００，５００ 　ＮＥＸＴ 　ＦＯＲ　Ｉ＝４　ＴＯ　９ 　　ＩＦ　ＳＳＥＬ＝＝１　ＴＨＥＮ　ＳＰＳＥＴ　Ｉ，４７，２，０，０，１ 　　ＩＦ　ＳＳＥＬ＝＝２　ＴＨＥＮ　ＳＰＳＥＴ　Ｉ，４７，０，０，０，１ 　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　ＳＰＣＯＬ　Ｉ，８，８，３，３，１，１ 　ＮＥＸＴ 　ＰＮＬＳＴＲ　２４，２３，ＴＩＭＥ＄ 　ＳＰＳＥＴ　９９，２８８，１２，０，０，１，１６，３２ 　ＩＦ　ＳＳＥＬ＝＝２　ＴＨＥＮ　ＳＰＳＥＴ　９９，１２８，１３，０，０，１，１６，３２ ＧＰＡＧＥ　０ ＢＧＰＡＧＥ　０ ＧＯＴＯ　＠Ｑ ＠ＢＧＭ ＩＦ　ＳＴＳＥＬ！＝１１　ＴＨＥＮ　ＢＧＭＰＬＡＹ　１，１３，１００：ＲＥＴＵＲＮ ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＢＧＭＰＬＡＹ　１，１２９ ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＶＳＹＮＣ　１ ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＢＧＭＰＬＡＹ　２，１２９，８０ ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＶＳＹＮＣ　５ ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＢＧＭＰＬＡＹ　３，１２９，６０ ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＶＳＹＮＣ　５ ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＢＧＭＰＬＡＹ　４，１２９，５０ ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＶＳＹＮＣ　５ ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＢＧＭＰＬＡＹ　５，１２９，４０ ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＶＳＹＮＣ　３ ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＢＧＭＰＬＡＹ　６，１２９，５０ ＲＥＴＵＲＮ ＠Ｑ ＩＦ　ＧＳＥＬ＝＝０　ＡＮＤ　ＧＭ＝＝１　ＴＨＥＮ　＠ＣＯＮ３ ＤＩＭ　ＥＷＸ（１００） ＤＩＭ　ＥＷＹ（１００） ＤＩＭ　ＥＷＣ（１００） ＤＩＭ　ＥＷＳ（１００） ＤＩＭ　ＥＷＥ（１００） ＤＩＭ　ＥＮＴ（１００） ＤＩＭ　ＥＷＧ（１００） ＤＩＭ　ＰＳ（２０） ＤＩＭ　ＰＳＸ（２０） ＤＩＭ　ＰＳＹ（２０） ＤＩＭ　Ａ（１００） ＤＩＭ　Ｂ（１００） ＤＩＭ　Ｄ（１００） ＤＩＭ　Ｅ（１００） ＤＩＭ　Ｔ（１００） ＤＩＭ　ＳＣ（１００） ＠ＣＯＮ３ 　ＳＰＳＥＴ　３，３６，０，０，０，０ 　ＩＦ　ＳＳＥＬ＝＝２　ＴＨＥＮ　ＳＰＳＥＴ　３，１４２，２，０，０，０ 　ＳＰＣＯＬ　３，２，２，６，６，０ 　ＩＦ　ＳＳＥＬ＝＝２　ＴＨＥＮ　ＳＰＣＯＬ　３，０，０，８，８，０ 　ＳＰＣＯＬ　９９，−７，０，２２，３２，１ 　ＳＰＯＦＳ　３，５００，５００：ＳＰＯＦＳ　９９，５００，５００ 　ＰＳＩ＝４ 　ＩＦ　ＳＳＥＬ＝＝１　ＴＨＥＮ　ＥＨＰＤ＝１．１ 　ＩＦ　ＳＳＥＬ＝＝２　ＴＨＥＮ　ＥＨＰＤ＝１．３ 　ＧＣＬＳ　 　ＰＮＬＳＴＲ　０，２３，”　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　” 　ＳＴＳＥＬ＄＝ＳＴＲ＄（ＳＴＳＥＬ） 　ＳＴＳＥＬ＄＝”＠Ｓ”＋ＳＴＳＥＬ＄ 　ＩＦ　ＳＴＳＥＬ＝＝３　ＴＨＥＮ　ＳＴＳＥＬ＄＝”＠Ｓ１” 　ＩＦ　ＳＴＳＥＬ！＝１１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＧＭ 　ＧＭ＝０ 　ＳＣ＝０ 　ＳＣＣ＝０ 　ＧＲ＝０ 　ＳＴ＝０ 　Ｐ＝０ 　Ａ＝０ 　Ａ２＝０ 　Ａ３＝０ 　Ｂ＝０ 　Ｃ＝０ 　Ｄ＝０ 　Ｏ＝０ 　ＳＴＤ＝０ 　ＡＡ＝０ 　ＩＩ＝０ 　ＥＮＴ＝０ 　ＥＮＴ１＝０ 　ＥＮＴ２＝０ 　ＥＮＴ３＝０ 　ＥＮＴ４＝０ 　ＥＮＴ５＝０ 　ＥＮＴ６＝０ 　ＥＮＴ７＝０ 　ＥＨＰＬ＝０ 　ＢＢ＝０ 　ＥＷＧ２＝０ 　ＳＴＤ２＝０ 　ＦＯＲ　Ｉ＝０　ＴＯ　１９ 　　ＰＳ（Ｉ）＝０ 　　ＮＥＸＴ 　ＦＯＲ　Ｉ＝０　ＴＯ　９ 　　ＡＡ（Ｉ）＝０ 　　ＢＢ（Ｉ）＝０ 　ＦＯＲ　Ｉ＝０　ＴＯ　９８ 　　Ａ（Ｉ）＝０　　 　　Ｂ（Ｉ）＝０ 　　Ｃ（Ｉ）＝０ 　　Ｄ（Ｉ）＝０ 　　Ｅ（Ｉ）＝０ 　　Ｔ（Ｉ）＝０ 　　ＳＣ（Ｉ）＝０ 　　ＥＷＧ（Ｉ）＝０ 　　ＮＥＸＴ ＠ＭＡＩＮ 　ＭＡＩＮ＝１ 　ＶＳＹＮＣ　１ 　ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＥＬＳＥ　＠ＳＴ１１Ｎ 　ＩＦ　Ｐ＝＝１００　ＴＨＥＮ　ＳＴ＝ＳＴ＋１　ＥＬＳＥ　Ｐ＝Ｐ＋１ 　ＧＯＴＯ　＠ＳＴ１１Ｙ 　＠ＳＴ１１Ｎ 　ＳＴ＝ＳＴ＋１ 　＠ＳＴ１１Ｙ 　ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＥＬＳＥ　＠ＳＴ１１ＮＢ 　ＩＦ　ＳＴ＞＝５０　ＴＨＥＮ　ＢＴ１＝ＢＵＴＴＯＮ（） 　ＩＦ　ＳＴ＞＝５０　ＴＨＥＮ　ＢＴ２＝ＢＵＴＴＯＮ（２） 　ＧＯＴＯ　＠ＳＴ１１ＹＢ 　＠ＳＴ１１ＮＢ 　ＢＴ１＝ＢＵＴＴＯＮ（） 　ＢＴ２＝ＢＵＴＴＯＮ（２） 　＠ＳＴ１１ＹＢ 　ＧＯＳＵＢ　＠ＳＨＯＴ 　ＧＯＳＵＢ　＠ＭＯＶＥ 　ＧＯＳＵＢ　＠ＳＴＡＧＥ 　ＧＯＳＵＢ　＠ＳＩＴＡＧＭ 　ＧＯＴＯ　＠ＭＡＩＮ ＠ＭＯＶＥ 　ＳＬＭＯ＝１ 　ＩＦ　ＰＸ＜＝−６　ＴＨＥＮ　ＰＸ＝−６ 　ＩＦ　ＰＸ＞＝２４６　ＴＨＥＮ　ＰＸ＝２４６ 　ＩＦ　ＰＹ＞＝１７０　ＴＨＥＮ　ＰＹ＝１７０ 　ＩＦ　ＰＹ＜＝−１５　ＴＨＥＮ　ＰＹ＝−１５ 　ＩＦ　ＢＴ１　ＡＮＤ　ＢＳＬ　ＴＨＥＮ　ＳＬＭＯ＝２ 　ＩＦ　ＢＴ１　ＡＮＤ　５１２　ＴＨＥＮ　ＳＬＭＯ＝２ 　ＩＦ　ＢＴ２＝＝４＜＝１５　ＴＨＥＮ　ＳＰＣＨＲ　９９，２８８，ＰＣ，０，０，０ 　＠ＳＨＭＯ 　ＳＰＯＦＳ　９９，ＰＸ，ＰＹ 　ＳＰＯＦＳ　３，ＰＸ，ＰＹ＋１０ 　ＩＦ　ＢＴ１　ＡＮＤ　４　ＴＨＥＮ　ＳＰＣＨＲ　９９，２９２，ＰＣ，０，０，０ 　ＩＦ　ＢＴ１　ＡＮＤ　８　ＴＨＥＮ　ＳＰＣＨＲ　９９，２９０，ＰＣ，０，０，０ 　ＩＦ　ＳＳＥＬ＝＝２　ＧＯＴＯ　＠ＭＯＶＥ２Ｐ 　ＩＦ　ＢＴ１　ＡＮＤ　１　ＴＨＥＮ　ＰＹ＝ＰＹ−３／ＳＬＭＯ 　ＩＦ　ＢＴ１　ＡＮＤ　２　ＴＨＥＮ　ＰＹ＝ＰＹ＋３／ＳＬＭＯ 　ＩＦ　ＢＴ１　ＡＮＤ　４　ＴＨＥＮ　ＰＸ＝ＰＸ−３／ＳＬＭＯ：ＰＨ＝１ 　ＩＦ　ＢＴ１　ＡＮＤ　８　ＴＨＥＮ　ＰＸ＝ＰＸ＋３／ＳＬＭＯ：ＰＭ＝１ 　ＧＯＴＯ　＠ＳＰＨＩＴ 　＠ＭＯＶＥ２Ｐ 　ＩＦ　ＢＴ１　ＡＮＤ　１　ＴＨＥＮ　ＰＹ＝ＰＹ−４／ＳＬＭＯ 　ＩＦ　ＢＴ１　ＡＮＤ　２　ＴＨＥＮ　ＰＹ＝ＰＹ＋４／ＳＬＭＯ 　ＩＦ　ＢＴ１　ＡＮＤ　４　ＴＨＥＮ　ＰＸ＝ＰＸ−４／ＳＬＭＯ：ＰＨ＝１ 　ＩＦ　ＢＴ１　ＡＮＤ　８　ＴＨＥＮ　ＰＸ＝ＰＸ＋４／ＳＬＭＯ：ＰＭ＝１ 　＠ＳＰＨＩＴ 　ＩＦ　ＣＬ＝＝１　ＴＨＥＮ　ＲＥＴＵＲＮ 　ＩＦ　ＳＰＨＩＴＳＰ（３，２）＝＝ＴＲＵＥ　ＴＨＥＮ　＠ＧＡＭＥＯＶＥＲ 　ＦＯＲ　Ｉ＝１０　ＴＯ　ＥＷＧＧ 　ＩＦ　ＳＰＨＩＴＳＰ（３，Ｉ）＝＝ＴＲＵＥ　ＴＨＥＮ　＠ＧＡＭＥＯＶＥＲ 　ＮＥＸＴ 　ＲＥＴＵＲＮ 　＠ＳＨＯＴ 　ＩＦ　ＰＳ（ＰＳＩ）＝＝１　ＴＨＥＮ　ＰＳＹ（ＰＳＩ）＝ＰＳＹ（ＰＳＩ）−２５ 　ＩＦ　ＰＳ（ＰＳＩ）＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　ＰＳＩ，ＰＳＸ（ＰＳＩ），ＰＳＹ（ＰＳＩ） 　ＩＦ　ＰＳＹ（ＰＳＩ）＜＝−１６　ＴＨＥＮ　ＰＳ（ＰＳＩ）＝０：ＰＳＯ（ＰＳＩ）＝０ 　ＩＦ　ＰＳＴ＝＝７　ＴＨＥＮ　ＥＬＳＥ　ＰＳＴ＝ＰＳＴ＋１：ＰＳＸ（ＰＳＩ）＝ＰＳＸ（ＰＳＩ）＋ＰＳＸＲ：ＲＥＴＵＲＮ 　ＩＦ　ＢＴ１　ＡＮＤ　ＢＳＨ　ＴＨＥＮ　ＰＳＨ＝１ 　ＩＦ　ＢＴ１　ＡＮＤ　２５６　ＴＨＥＮ　ＰＳＨ＝１ 　ＩＦ　ＰＳＨ＝＝１　ＴＨＥＮ　ＰＳＨ＝０：ＰＳＩ＝ＰＳＩ＋１：ＢＥＥＰ　９，０，４０ 　ＩＦ　ＰＳＩ＝＝９　ＴＨＥＮ　ＰＳＩ＝４ 　ＩＦ　ＢＴ１　ＡＮＤ　ＢＳＨ　ＴＨＥＮ　ＰＳＨ＝１ 　ＩＦ　ＢＴ１　ＡＮＤ　２５６　ＴＨＥＮ　ＰＳＨ＝１ 　ＩＦ　ＰＳＨ＝＝１　ＴＨＥＮ　ＰＨ＝０：ＧＯＳＵＢ　＠ＳＨＯＴ２ 　ＰＳＴ＝０ 　ＲＥＴＵＲＮ 　＠ＳＨＯＴ２ 　ＩＦ　ＳＳＥＬ＝＝１　ＡＮＤ　ＳＬＭＯ＝＝１　ＴＨＥＮ　ＰＳ（ＰＳＩ）＝１：ＰＳＸ（ＰＳＩ）＝ＰＸ：ＰＳＹ（ＰＳＩ）＝ＰＹ＋３：ＰＳＸＲ＝ＲＮＤ（１２）−６ 　ＩＦ　ＳＳＥＬ＝＝１　ＡＮＤ　ＳＬＭＯ＝＝２　ＴＨＥＮ　ＰＳ（ＰＳＩ）＝１：ＰＳＸ（ＰＳＩ）＝ＰＸ：ＰＳＹ（ＰＳＩ）＝ＰＹ＋３：ＰＳＸＲ＝ＲＮＤ（６）−３ 　ＩＦ　ＳＳＥＬ＝＝２　ＡＮＤ　ＳＬＭＯ＝＝１　ＴＨＥＮ　ＰＳ（ＰＳＩ）＝１：ＰＳＸ（ＰＳＩ）＝ＰＸ：ＰＳＹ（ＰＳＩ）＝ＰＹ＋３：ＰＳＸＲ＝ＲＮＤ（８）−４ 　ＩＦ　ＳＳＥＬ＝＝２　ＡＮＤ　ＳＬＭＯ＝＝２　ＴＨＥＮ　ＰＳ（ＰＳＩ）＝１：ＰＳＸ（ＰＳＩ）＝ＰＸ：ＰＳＹ（ＰＳＩ）＝ＰＹ＋３：ＰＳＸＲ＝ＲＮＤ（２）−１ 　ＲＥＴＵＲＮ ＠ＳＩＴＡＧＭ 　ＧＬＩＮＥ　０，１９０，２５５，１９０，０ 　ＧＬＩＮＥ　０，１９１，２５５，１９１，０ 　ＧＬＩＮＥ　０，１９０，ＥＨＰ／１．５１３，１９０，２ 　ＧＬＩＮＥ　０，１９１，ＥＨＰ／１．５，１９１，２ 　ＧＰＡＧＥ　１ 　ＩＦ　ＳＣ＞ＳＣＣ　ＴＨＥＮ　ＳＣＣ＝ＳＣＣ＋１０ 　ＩＦ　ＳＣ＜ＳＣＣ　ＴＨＥＮ　ＳＣＣ＝ＳＣＣ−１０ 　ＳＣＣ＄＝ＳＴＲ＄（ＳＣＣ） 　ＰＮＬＳＴＲ　８，２，ＳＣＣ＄ 　ＧＲ＄＝ＳＴＲ＄（ＧＲ） 　ＰＮＬＳＴＲ　８，４，ＧＲ＄ 　ＧＰＡＧＥ　０ 　ＲＥＴＵＲＮ ＠ＢＡＣＫ ＧＰＡＧＥ　０ ＦＯＲ　Ｉ＝０　ＴＯ　３ ＩＦ　Ｇ（Ｉ）＝＝０　ＴＨＥＮ　Ｘ（Ｉ）＝ＲＮＤ（２５６）：Ｙ（Ｉ）＝ＲＮＤ（１００）−１００：Ｃ（Ｉ）＝ＲＮＤ（１１）＋１：Ｓ（Ｉ）＝ＲＮＤ（４）＋１：Ｇ（Ｉ）＝１ ＩＦ　Ｇ（Ｉ）＝＝１　ＴＨＥＮ　ＧＢＯＸ　Ｘ（Ｉ），Ｙ（Ｉ）−Ｓ（Ｉ），Ｘ（Ｉ）＋１，Ｙ（Ｉ）−Ｓ（Ｉ）＋１，０ ＩＦ　Ｇ（Ｉ）＝＝１　ＴＨＥＮ　ＧＢＯＸ　Ｘ（Ｉ），Ｙ（Ｉ），Ｘ（Ｉ）＋１，Ｙ（Ｉ）＋１，Ｃ（Ｉ） ＩＦ　Ｇ（Ｉ）＝＝１　ＴＨＥＮ　Ｙ（Ｉ）＝Ｙ（Ｉ）＋Ｓ（Ｉ） ＩＦ　Ｙ（Ｉ）＞＝２１０　ＴＨＥＮ　Ｙ（Ｉ）＝０：Ｇ（Ｉ）＝０ ＮＥＸＴ 　ＲＥＴＵＲＮ ＠ＧＡＭＥＯＶＥＲ 　ＳＰＲＥＡＤ（Ｉ），Ｑ，Ｑ，Ｑ，Ｑ，Ｃ 　ＩＦ　Ｃ＝＝３８４　ＴＨＥＮ　ＲＥＴＵＲＮ 　ＢＥＥＰ　３７ 　ＳＰＯＦＳ　９９，５００，５００：ＳＰＳＥＴ　３，２４８，０，０，０，０，１６，１６：ＳＰＯＦＳ　３，ＰＸ，ＰＹ＋１０：ＳＰＡＮＩＭ　３，５，１０ 　ＦＯＲ　Ｉ＝４　ＴＯ　９　 　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　ＮＥＸＴ 　＠ＧＯ 　ＧＭ＝１ 　ＳＴ＝ＳＴ＋１ 　ＩＦ　ＧＭＴ＞＝２０　ＴＨＥＮ　ＧＢＴ１＝ＢＵＴＴＯＮ（）　ＥＬＳＥ　ＧＭＴ＝ＧＭＴ＋１ 　ＩＦ　ＧＢＴ１　ＡＮＤ　１　ＴＨＥＮ　ＧＳＥＬ＝０：ＢＥＥＰ　３ 　ＩＦ　ＧＢＴ１　ＡＮＤ　２　ＴＨＥＮ　ＧＳＥＬ＝１：ＢＥＥＰ　３ 　ＬＯＣＡＴＥ　２，１：？”　コンティニュ−” 　ＬＯＣＡＴＥ　２，３：？”　タイトルヘ” 　ＩＦ　ＧＳＥＬ＝＝０　ＴＨＥＮ　ＬＯＣＡＴＥ　０，１：？”　Й”：ＬＯＣＡＴＥ　０，３：？”　　” 　ＩＦ　ＧＳＥＬ＝＝１　ＴＨＥＮ　ＬＯＣＡＴＥ　０，１：？”　　”：ＬＯＣＡＴＥ　０，３：？”　Й” 　ＶＳＹＮＣ　２ 　ＧＯＳＵＢ　＠ＳＴＡＧＥ 　ＧＯＳＵＢ　＠ＢＡＣＫ 　ＧＯＳＵＢ　＠ＳＩＴＡＧＭ 　ＩＦ　ＧＢＴ１　ＡＮＤ　１６　ＴＨＥＮ　ＢＥＥＰ　８：ＧＯＴＯ　＠ＳＴＡＲＴ 　ＧＯＴＯ　＠ＧＯ ＠ＣＬＥＡＲ 　ＬＯＡＤ　”ＳＰＵ５：ＰＤＭＳ５”，ＦＡＬＳＥ 　ＳＰＳＥＴ　２，３５２，１１，０，０，０，３２，３２ 　ＳＰＯＦＳ　２，ＥＸ，ＥＹ 　ＳＰＡＮＩＭ　２，５，１０，１ 　ＢＥＥＰ　１３ 　＠ＣＬ 　　ＣＬ＝１ 　　ＶＳＹＮＣ　３ 　　Ｔ＝Ｔ＋１ 　　ＩＦ　Ｔ＝＝３０　ＴＨＥＮ　＠ＣＬ２ 　　ＧＯＳＵＢ　ＳＴＳＥＬ＄ 　　ＧＯＴＯ　＠ＣＬ 　＠ＣＬ２ 　　ＩＦ　ＳＴＳＥＬ＝＝ＳＴＳＥＬＭ　ＴＨＥＮ　ＥＬＳＥ　ＧＯＴＯ　＠ＳＴＡＲＴ 　　ＳＴＳＥＬＭ＝ＳＴＳＥＬＭ＋１ 　　ＭＥＭ＄＝ＳＴＲ＄（ＳＴＳＥＬＭ） 　　ＳＡＶＥ　”ＭＥＭ：ＰＤＭＳＴＭ” 　　ＧＯＴＯ　＠ＳＴＡＲＴ ＠ＳＴＡＧＥ 　ＩＦ　ＳＴＳＥＬ！＝１１　ＴＨＥＮ　ＳＰＣＯＬ　２，０，０，１４，１６，１ 　ＩＦ　ＳＴＳＥＬ＝＝１１　ＴＨＥＮ　ＳＰＣＯＬ　２，１５，５，２８，４１，１：ＧＯＴＯ　＠ＳＴ１１ 　ＩＦ　ＳＰＨＩＴＳＰ（２，ＰＳＩ）＝＝ＴＲＵＥ　ＡＮＤ　ＰＳＯ（ＰＳＩ）＝＝０　ＴＨＥＮ　ＰＳＯ（ＰＳＩ）＝１：ＥＨＰ＝ＥＨＰ−ＥＨＰＤ：ＢＥＥＰ　１１，０，７０：ＳＣ＝ＳＣ＋２０ 　ＧＯＳＵＢ　ＳＴＳＥＬ＄ 　ＩＦ　ＥＨＰ＜＝０　ＴＨＥＮ　＠ＣＬＥＡＲ 　ＲＥＴＵＲＮ 　＠ＳＴ１１ 　　ＩＦ　ＳＴ＜６０　ＴＨＥＮ　＠ＳＴ１１Ａ 　　ＩＦ　ＳＰＨＩＴＳＰ（２，ＰＳＩ）＝＝ＴＲＵＥ　ＡＮＤ　ＰＳＯ（ＰＳＩ）＝＝０　ＴＨＥＮ　ＰＳＯ（ＰＳＩ）＝１：ＥＨＰ＝ＥＨＰ−ＥＨＰＤ：ＢＥＥＰ　１１，０，６５：ＳＣ＝ＳＣ＋２０ 　　＠ＳＴ１１Ａ 　　ＧＯＳＵＢ　ＳＴＳＥＬ＄ 　　ＩＦ　ＥＨＰＬ＝＝６　ＴＨＥＮ　＠ＣＬＥＡＲ 　　ＲＥＴＵＲＮ 　＠Ｓ１ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＸ＝１１２：ＥＹ＝５０：ＳＰＳＣＡＬＥ　２，２００：ＳＰＣＨＲ　２，１７８＋ＲＮＤ（２）＊３，ＲＮＤ（１５）＋１，０，０，１ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　２，ＥＸ，ＥＹ：ＳＰＡＮＩＭ　２，３，１０ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＨＰ＝２５０：ＧＯＳＵＢ　＠Ｓ１＿２ 　　ＩＦ　ＳＴ＞＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１＿３ 　　ＧＯＳＵＢ　＠ＥＮＥＭＹ 　　ＧＯＳＵＢ　＠ＧＲＡＺＥ 　　ＲＥＴＵＲＮ 　＠Ｓ１＿２ 　　ＥＷＧＧ＝３０ 　　ＩＦ　ＳＴＳＥＬ＝＝３　ＴＨＥＮ　ＥＷＧＧ＝２０ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　ＥＷＧＧ 　　ＥＷＳ（Ｉ）＝ＲＮＤ（１）＋１＋（ＲＮＤ（９）／１０）＋（ＲＮＤ（９）／１００） 　　ＥＷＸ（Ｉ）＝ＲＮＤ（２４５） 　　ＥＷＹ（Ｉ）＝ＲＮＤ（１８０）−１８０ 　　ＥＷＣ（Ｉ）＝ＲＮＤ（１５） 　　ＩＦ　ＳＴＳＥＬ＝＝１　ＴＨＥＮ　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　ＩＦ　ＳＴＳＥＬ＝＝３　ＴＨＥＮ　ＳＰＳＥＴ　Ｉ，１６，ＥＷＣ（Ｉ），０，０，１，３２，３２ 　　ＩＦ　ＳＴＳＥＬ＝＝１　ＴＨＥＮ　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　ＩＦ　ＳＴＳＥＬ＝＝３　ＴＨＥＮ　ＳＰＣＯＬ　Ｉ，０，０，２５，２２，０ 　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　　 　＠Ｓ１＿３ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　ＥＷＧＧ 　　ＥＷＹ（Ｉ）＝ＥＷＹ（Ｉ）＋ＥＷＳ（Ｉ） 　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　ＩＦ　ＥＷＹ（Ｉ）＞＝１９０　ＡＮＤ　ＥＨＰ＜＝１５０　ＴＨＥＮ　ＥＷＳ（Ｉ）＝ＲＮＤ（２）＋１＋（ＲＮＤ（５）／１０）＋（ＲＮＤ（５）／１００） 　　ＩＦ　ＥＷＹ（Ｉ）＞＝１９０　ＡＮＤ　ＥＨＰ＜＝７０　ＴＨＥＮ　ＥＷＳ（Ｉ）＝ＲＮＤ（３）＋１＋（ＲＮＤ（５）／１０）＋（ＲＮＤ（５）／１００） 　　ＩＦ　ＥＷＹ（Ｉ）＞＝１９０　ＴＨＥＮ　ＥＷＸ（Ｉ）＝ＲＮＤ（２４５）：ＥＷＹ（Ｉ）＝−３２：ＥＷＧ（Ｉ）＝０ 　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ２ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＸ＝１１２：ＥＹ＝５０：ＳＰＳＣＡＬＥ　２，２００：ＳＰＣＨＲ　２，１７８＋ＲＮＤ（２）＊３，ＲＮＤ（１５）＋１，０，０，１ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　２，ＥＸ，ＥＹ：ＳＰＡＮＩＭ　２，３，１０ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＨＰ＝３００：ＧＯＳＵＢ　＠Ｓ２＿２ 　　ＩＦ　ＳＴ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ２＿３ 　　ＩＦ　ＳＴ＝＝６０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ２＿４ 　　ＩＦ　ＳＴ＜２５０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＲＡＺＥ 　　ＩＦ　ＳＴ＝＝２５０　ＴＨＥＮ　ＳＴ＝１：ＧＯＳＵＢ　＠Ｓ２＿２ 　　ＧＯＳＵＢ　＠ＥＮＥＭＹ 　　ＲＥＴＵＲＮ 　　 　＠Ｓ２＿２ 　　ＩＦ　ＥＨＰ＜＝３００　ＴＨＥＮ　ＥＷＧＧ＝２０ 　　ＩＦ　ＥＨＰ＜＝２００　ＴＨＥＮ　ＥＷＧＧ＝２５ 　　ＩＦ　ＥＨＰ＜＝１５０　ＴＨＥＮ　ＥＷＧＧ＝３０ 　　ＩＦ　ＥＨＰ＜＝８０　ＴＨＥＮ　ＥＷＧＧ＝４０ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　ＥＷＧＧ 　　ＥＷＧ（Ｉ）＝０ 　　ＥＷＳ（Ｉ）＝ＲＮＤ（５０） 　　ＥＷＸ（Ｉ）＝ＲＮＤ（２５０＋ＥＷＧＧ／２） 　　ＥＷＹ（Ｉ）＝ＲＮＤ（２２０＋ＥＷＧＧ／２）−５０ 　　ＥＷＣ（Ｉ）＝ＲＮＤ（１５） 　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　ＳＰＯＦＳ　Ｉ，ＥＸ，ＥＹ 　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ２＿３ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　ＥＷＧＧ 　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），５０＋ＥＷＳ（Ｉ） 　　ＩＦ　ＳＰＨＩＴＳＰ（９９，Ｉ）＝＝ＴＲＵＥ　ＡＮＤ　ＥＷＧ（Ｉ）＝＝０　ＴＨＥＮ　ＥＷＧ（Ｉ）＝１：ＧＲ＝ＧＲ＋１：ＳＣ＝ＳＣ＋１００：ＢＥＥＰ　２３，−１０００ 　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ２＿４ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　ＥＷＧＧ 　　　ＥＷＸ（Ｉ）＝ＰＸ＋ＣＯＳ（ＡＴＡＮ（ＰＹ−ＥＷＹ（Ｉ），ＰＸ−ＥＷＸ（Ｉ）））＊１０００ 　　　ＥＷＹ（Ｉ）＝ＰＹ＋ＳＩＮ（ＡＴＡＮ（ＰＹ−ＥＷＹ（Ｉ），ＰＸ−ＥＷＸ（Ｉ）））＊１０００ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），５００ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ４ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＸ＝１１２：ＥＹ＝５０：ＳＰＳＣＡＬＥ　２，２００：ＳＰＣＨＲ　２，１７８＋ＲＮＤ（２）＊３，ＲＮＤ（１５）＋１，０，０，１ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　２，ＥＸ，ＥＹ：ＳＰＡＮＩＭ　２，３，１０ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＨＰ＝２００：ＧＯＳＵＢ　＠Ｓ４２ 　　ＩＦ　ＳＴ＞＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ４３ 　　ＩＦ　ＥＨＰ＜＝１５０　ＴＨＥＮ　ＳＴＤ＝２ 　　ＩＦ　ＥＨＰ＜＝１００　ＴＨＥＮ　ＳＴＤ＝４ 　　ＩＦ　ＥＨＰ＜＝５０　ＴＨＥＮ　ＳＴＤ＝６ 　　ＲＥＴＵＲＮ 　＠Ｓ４２ 　　ＥＷＧＧ＝４９ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　２９ 　　　ＥＷＸ（Ｉ）＝ＲＮＤ（１００）−１１６ 　　　ＥＷＹ（Ｉ）＝ＲＮＤ（３９０）−１００ 　　　ＥＷＳ（Ｉ）＝ＲＮＤ（２）＋０．５ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１５） 　　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝３０　ＴＯ　４９ 　　　ＥＷＸ（Ｉ）＝ＲＮＤ（１００）＋２６０ 　　　ＥＷＹ（Ｉ）＝ＲＮＤ（３９０）−１００ 　　　ＥＷＳ（Ｉ）＝ＲＮＤ（２）＋０．５ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１５） 　　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ４３ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　ＥＷＧＧ 　　　ＥＷＹ（Ｉ）＝ＥＷＹ（Ｉ）＋ＥＷＳ（Ｉ） 　　　ＩＦ　ＳＰＨＩＴＳＰ（９９，Ｉ）＝＝ＴＲＵＥ　ＡＮＤ　ＥＷＧ（Ｉ）＝＝０　ＴＨＥＮ　ＥＷＧ（Ｉ）＝１：ＧＲ＝ＧＲ＋１：ＳＣ＝ＳＣ＋１００：ＢＥＥＰ　２３：ＢＥＥＰ　２３：ＢＥＥＰ　２３ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１９＋ＳＴＤ 　　　ＥＷＸ（Ｉ）＝ＥＷＸ（Ｉ）＋ＥＷＳ（Ｉ） 　　　ＩＦ　ＥＷＹ（Ｉ）＞＝１９０　ＯＲ　ＥＷＸ（Ｉ）＞＝２６０　ＴＨＥＮ　ＥＷＸ（Ｉ）＝−１６：ＥＷＹ（Ｉ）＝ＲＮＤ（３９０）−１００：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝３０　ＴＯ　３９＋ＳＴＤ 　　　ＥＷＸ（Ｉ）＝ＥＷＸ（Ｉ）−ＥＷＳ（Ｉ） 　　　ＩＦ　ＥＷＹ（Ｉ）＞＝１９０　ＯＲ　ＥＷＸ（Ｉ）＜＝−１６　ＴＨＥＮ　ＥＷＸ（Ｉ）＝２６０：ＥＷＹ（Ｉ）＝ＲＮＤ（３９０）−１００：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ５ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＸ＝１１２：ＥＹ＝−１：ＳＰＳＣＡＬＥ　２，２００：ＳＰＣＨＲ　２，１７８＋ＲＮＤ（２）＊３，ＲＮＤ（１５）＋１，０，０，０ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　２，ＥＸ，ＥＹ：ＳＰＡＮＩＭ　２，３，１０ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＨＰ＝２００：ＧＯＳＵＢ　＠Ｓ５２ 　　ＩＦ　ＳＴ＞＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ５３ 　　ＩＦ　ＳＴ＞＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ５４ 　　ＧＯＳＵＢ　＠ＧＲＡＺＥ 　　ＩＦ　ＥＨＰ＜＝１００　ＴＨＥＮ　ＥＷＳ＝０．７ 　　ＩＦ　ＥＨＰ＜＝５０　ＴＨＥＮ　ＥＷＳ＝１ 　　ＲＥＴＵＲＮ 　＠Ｓ５２ 　　ＥＷＧＧ＝５０ 　　ＥＷＳ＝０．５ 　　ＥＷＣ＝ＲＮＤ（１４） 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１３ 　　　Ａ（Ｉ）＝（Ｉ−１０）＊９０＋４５ 　　　ＳＰＳＥＴ　Ｉ，１６，ＥＷＣ，０，０，１，３２，３２ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＳＰＣＯＬ　Ｉ，０，０，２５，２２，０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１４　ＴＯ　１７ 　　　Ａ（Ｉ）＝（Ｉ−１４）＊９０＋９０ 　　　ＳＰＳＥＴ　Ｉ，１６，ＥＷＣ＋１，０，０，１，３２，３２ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＳＰＣＯＬ　Ｉ，０，０，２５，２２，０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１８　ＴＯ　２１ 　　　Ａ（Ｉ）＝（Ｉ−１８）＊９０＋４５ 　　　ＳＰＳＥＴ　Ｉ，１６，ＥＷＣ＋２，０，０，１，３２，３２ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＳＰＣＯＬ　Ｉ，０，０，２５，２２，０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝２２　ＴＯ　５０ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ，ＥＹ 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ５３ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１３ 　　　ＥＷＸ（Ｉ）＝ＥＸ＋ＣＯＳ（ＲＡＤ（Ａ（Ｉ）））＊５０ 　　　ＥＷＹ（Ｉ）＝ＥＹ＋ＳＩＮ（ＲＡＤ（Ａ（Ｉ）））＊５０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１４　ＴＯ　１７ 　　　ＥＷＸ（Ｉ）＝ＥＸ＋ＳＩＮ（ＲＡＤ（Ａ（Ｉ）））＊１００ 　　　ＥＷＹ（Ｉ）＝ＥＹ＋ＣＯＳ（ＲＡＤ（Ａ（Ｉ）））＊１００ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１８　ＴＯ　２１ 　　　ＥＷＸ（Ｉ）＝ＥＸ＋ＣＯＳ（ＲＡＤ（Ａ（Ｉ）））＊１５０ 　　　ＥＷＹ（Ｉ）＝ＥＹ＋ＳＩＮ（ＲＡＤ（Ａ（Ｉ）））＊１５０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　２１ 　　　Ａ（Ｉ）＝Ａ（Ｉ）＋ＥＷＳ 　　　ＩＦ　Ａ（Ｉ）＞＝３６０　ＴＨＥＮ　Ａ（Ｉ）＝０：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　　　 　＠Ｓ５４ 　　ＩＦ　ＥＮＴ＞＝１００−ＳＴＬ／５　ＴＨＥＮ　ＥＮＴ＝０：ＳＴＬ＝ＳＴＬ＋１　ＥＬＳＥ　ＥＮＴ＝ＥＮＴ＋１：ＲＥＴＵＲＮ 　　ＦＯＲ　Ｉ＝２２　ＴＯ　５０ 　　ＥＷＧ（Ｉ）＝０ 　　ＥＷＸ（Ｉ）＝ＰＸ＋ＣＯＳ（ＡＴＡＮ（ＰＹ−ＥＷＹ（Ｉ），ＰＸ−ＥＷＸ（Ｉ）））＊ＲＮＤ（１００）−５０ 　　ＥＷＹ（Ｉ）＝ＰＹ＋ＳＩＮ（ＡＴＡＮ（ＰＹ−ＥＷＹ（Ｉ），ＰＸ−ＥＷＸ（Ｉ）））＊ＲＮＤ（１００）−５０ 　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），１００−ＳＴＬ／５ 　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ６ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１９ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＮＥＸＴ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＸ＝１１２：ＥＹ＝５０：ＳＰＳＣＡＬＥ　２，２００：ＳＰＣＨＲ　２，１７８＋ＲＮＤ（２）＊３，ＲＮＤ（１５）＋１，０，０，１ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　２，ＥＸ，ＥＹ：ＳＰＡＮＩＭ　２，３，１０ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＨＰ＝２５０：ＧＯＳＵＢ　＠Ｓ６２ 　　ＩＦ　ＳＴ＝＝５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ６３ 　　ＩＦ　ＳＴ＝＝１００　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ６４ 　　ＩＦ　ＳＴ＝＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ６５ 　　ＩＦ　ＳＴ＞＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ６６ 　　ＩＦ　ＥＨＰ＜＝２００　ＴＨＥＮ　ＳＴＤ＝６ 　　ＩＦ　ＥＨＰ＜＝１５０　ＴＨＥＮ　ＳＴＤ＝４ 　　ＩＦ　ＥＨＰ＜＝１００　ＴＨＥＮ　ＳＴＤ＝２ 　　ＩＦ　ＥＨＰ＜＝５０　ＴＨＥＮ　ＳＴＤ＝０ 　　ＧＯＳＵＢ　＠ＧＲＡＺＥ 　　ＲＥＴＵＲＮ 　＠Ｓ６２ 　　ＳＴＤ＝８ 　　ＥＷＧＧ＝３９ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１９ 　　　ＳＰＳＥＴ　Ｉ，３８４，０，０，０，０，３２，６４ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＳＰＣＯＬ　Ｉ，０，０，２８，６４，１ 　　　ＳＰＳＣＡＬＥ　Ｉ，２００ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝２０　ＴＯ　ＥＷＧＧ 　　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋８，ＥＹ＋８ 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　　 　＠Ｓ６３ 　　ＢＥＥＰ　３６ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１９−ＳＴＤ　ＳＴＥＰ　２ 　　　ＥＷＸ（Ｉ）＝ＲＮＤ（２００） 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），０ 　　　ＳＰＯＦＳ　Ｉ＋１，ＥＷＸ（Ｉ），６４ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ６４ 　　ＢＥＥＰ　３８：ＢＥＥＰ　３８ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１９−ＳＴＤ 　　　ＳＰＣＨＲ　Ｉ，３９２，０，０，０，０ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ６５ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１９ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＳＰＣＨＲ　Ｉ，３８４，０，０，０，０ 　　　ＮＥＸＴ 　　ＳＴ＝２ 　　ＲＥＴＵＲＮ 　＠Ｓ６６ 　　ＩＦ　ＥＮＴ＝＝１００　ＴＨＥＮ　ＥＮＴ＝０　ＥＬＳＥ　ＥＮＴ＝ＥＮＴ＋１：ＲＥＴＵＲＮ 　　ＦＯＲ　Ｉ＝２０　ＴＯ　３９ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ，ＥＹ 　　　Ａ＝Ａ＋２３ 　　　ＩＦ　Ａ＞＝３６０　ＴＨＥＮ　Ａ＝０ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＥＷＸ（Ｉ）＝ＥＸ＋ＣＯＳ（ＲＡＤ（Ａ））＊２００ 　　　ＥＷＹ（Ｉ）＝ＥＹ＋ＳＩＮ（ＲＡＤ（Ａ））＊２００ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ）＋１６，１００：ＢＥＥＰ　４３，０，２０ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ７ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＸ＝１１２：ＥＹ＝５０：ＳＰＳＣＡＬＥ　２，２００：ＳＰＣＨＲ　２，１７８＋ＲＮＤ（２）＊３，ＲＮＤ（１５）＋１，０，０，１ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　２，ＥＸ，ＥＹ：ＳＰＡＮＩＭ　２，３，１０ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＨＰ＝３００：ＧＯＳＵＢ　＠Ｓ７２ 　　ＧＯＳＵＢ　＠Ｓ７３ 　　ＧＯＳＵＢ　＠Ｓ７４ 　　ＧＯＳＵＢ　＠Ｓ７５ 　　ＧＯＳＵＢ　＠Ｓ７６ 　　ＩＦ　ＥＨＰ＜＝１００　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ７７ 　　ＧＯＳＵＢ　＠ＧＲＡＺＥ 　　ＧＯＳＵＢ　＠ＥＮＥＭＹ 　　ＲＥＴＵＲＮ 　＠Ｓ７２ 　　ＥＷＧＧ＝２２ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　ＥＷＧＧ 　　　ＥＷＳ（Ｉ）＝ＲＮＤ（３）＋１ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１５） 　　　ＳＰＳＥＴ　Ｉ，１６，ＥＷＣ（Ｉ），０，０，１，３２，３２ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＳＰＣＯＬ　Ｉ，０，０，２５，２２，０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１５ 　　　ＥＷＸ（Ｉ）＝ＲＮＤ（２２０） 　　　ＥＷＹ（Ｉ）＝−３２ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１６　ＴＯ　２１ 　　　ＥＷＸ（Ｉ）＝−３２ 　　　ＥＷＹ（Ｉ）＝ＲＮＤ（１７５） 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　　ＳＰＳＥＴ　２２，３５，ＥＷＣ（Ｉ），０，０，１ 　　　ＳＰＣＯＬ　２２，０，０，８，８，０ 　　　ＳＰＯＦＳ　２２，ＰＸ，−３２ 　　ＲＥＴＵＲＮ 　＠Ｓ７３ 　ＩＦ　ＥＨＰ＜＝３００　ＴＨＥＮ　ＥＷＧ２＝１０ 　ＩＦ　ＥＨＰ＜＝２８０　ＴＨＥＮ　ＥＷＧ２＝１１ 　ＩＦ　ＥＨＰ＜＝２００　ＴＨＥＮ　ＥＷＧ２＝１２ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　ＥＷＧ２ 　　　ＩＦ　ＥＷＥ（Ｉ）＝＝０　ＴＨＥＮ　ＥＷＹ（Ｉ）＝ＥＷＹ（Ｉ）＋ＥＷＳ（Ｉ） 　　　ＩＦ　ＥＷＥ（Ｉ）＝＝１　ＴＨＥＮ　ＥＷＹ（Ｉ）＝ＥＷＹ（Ｉ）−ＥＷＳ（Ｉ）　　　 　　　ＩＦ　ＥＷＹ（Ｉ）＜＝−２０　ＴＨＥＮ　ＥＷＥ（Ｉ）＝０：ＥＷＧ（Ｉ）＝０ 　　　ＩＦ　ＥＷＹ（Ｉ）＞＝１８０　ＴＨＥＮ　ＥＷＥ（Ｉ）＝１：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ７４ 　ＩＦ　ＥＨＰ＜＝３００　ＴＨＥＮ　ＥＷＧ２＝１６ 　ＩＦ　ＥＨＰ＜＝２６０　ＴＨＥＮ　ＥＷＧ２＝１７ 　ＩＦ　ＥＨＰ＜＝１８０　ＴＨＥＮ　ＥＷＧ２＝１８ 　　ＦＯＲ　Ｉ＝１６　ＴＯ　ＥＷＧ２ 　　　ＩＦ　ＥＷＥ（Ｉ）＝＝０　ＴＨＥＮ　ＥＷＸ（Ｉ）＝ＥＷＸ（Ｉ）＋ＥＷＳ（Ｉ） 　　　ＩＦ　ＥＷＥ（Ｉ）＝＝１　ＴＨＥＮ　ＥＷＸ（Ｉ）＝ＥＷＸ（Ｉ）−ＥＷＳ（Ｉ）　　　 　　　ＩＦ　ＥＷＸ（Ｉ）＜＝−２０　ＴＨＥＮ　ＥＷＥ（Ｉ）＝０：ＥＷＧ（Ｉ）＝０ 　　　ＩＦ　ＥＷＸ（Ｉ）＞＝２４６　ＴＨＥＮ　ＥＷＥ（Ｉ）＝１：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ７５ 　ＩＦ　ＥＨＰ＜＝３００　ＴＨＥＮ　ＥＷＧ２＝１３ 　ＩＦ　ＥＨＰ＜＝２４０　ＴＨＥＮ　ＥＷＧ２＝１４ 　ＩＦ　ＥＨＰ＜＝１６０　ＴＨＥＮ　ＥＷＧ２＝１５ 　　ＦＯＲ　Ｉ＝１３　ＴＯ　ＥＷＧ２ 　　　ＩＦ　ＥＷＥ（Ｉ）＝＝０　ＴＨＥＮ　ＥＷＹ（Ｉ）＝ＥＷＹ（Ｉ）＋ＥＷＳ（Ｉ） 　　　ＩＦ　ＥＷＥ（Ｉ）＝＝１　ＴＨＥＮ　ＥＷＹ（Ｉ）＝ＥＷＹ（Ｉ）−ＥＷＳ（Ｉ）　　　 　　　ＩＦ　ＥＷＹ（Ｉ）＜＝−２０　ＴＨＥＮ　ＥＷＥ（Ｉ）＝０：ＥＷＧ（Ｉ）＝０ 　　　ＩＦ　ＥＷＹ（Ｉ）＞＝１８０　ＴＨＥＮ　ＥＷＥ（Ｉ）＝１：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ７６ 　ＩＦ　ＥＨＰ＜＝３００　ＴＨＥＮ　ＥＷＧ２＝１９ 　ＩＦ　ＥＨＰ＜＝２２０　ＴＨＥＮ　ＥＷＧ２＝２０ 　ＩＦ　ＥＨＰ＜＝１４０　ＴＨＥＮ　ＥＷＧ２＝２１ 　　ＦＯＲ　Ｉ＝１９　ＴＯ　ＥＷＧ２ 　　　ＩＦ　ＥＷＥ（Ｉ）＝＝０　ＴＨＥＮ　ＥＷＸ（Ｉ）＝ＥＷＸ（Ｉ）＋ＥＷＳ（Ｉ） 　　　ＩＦ　ＥＷＥ（Ｉ）＝＝１　ＴＨＥＮ　ＥＷＸ（Ｉ）＝ＥＷＸ（Ｉ）−ＥＷＳ（Ｉ）　　　 　　　ＩＦ　ＥＷＸ（Ｉ）＜＝−２０　ＴＨＥＮ　ＥＷＥ（Ｉ）＝０：ＥＷＧ（Ｉ）＝０ 　　　ＩＦ　ＥＷＸ（Ｉ）＞＝２４６　ＴＨＥＮ　ＥＷＥ（Ｉ）＝１：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ７７ 　　ＥＷＣ（２２）＝ＲＮＤ（１５） 　　ＳＰＣＨＲ　２２，３５，ＥＷＣ（２２），０，０，１ 　　ＩＦ　Ｓ４７＝＝０　ＡＮＤ　ＥＨＰ＜＝６０　ＴＨＥＮ　ＦＯＲ　Ｉ＝１０　ＴＯ　ＥＷＧＧ 　　ＩＦ　ＥＨＰ＜＝６０　ＴＨＥＮ　ＥＷＳ（Ｉ）＝ＥＷＳ（Ｉ）＋１ 　　ＩＦ　Ｓ４７＝＝０　ＡＮＤ　ＥＨＰ＜＝６０　ＴＨＥＮ　Ｓ４７＝１：ＮＥＸＴ 　　ＩＦ　ＳＴＴ＝＝１００　ＴＨＥＮ　ＳＴＴ＝０　ＥＬＳＥ　ＳＴＴ＝ＳＴＴ＋１：ＲＥＴＵＲＮ 　　　ＥＷＸ（２２）＝ＰＸ＋ＣＯＳ（ＡＴＡＮ（ＰＹ−ＥＷＹ（Ｉ），ＰＸ−ＥＷＸ（Ｉ）））＊２ 　　　ＥＷＹ（２２）＝ＰＹ＋ＳＩＮ（ＡＴＡＮ（ＰＹ−ＥＷＹ（Ｉ），ＰＸ−ＥＷＸ（Ｉ）））＊２ 　　　ＳＰＯＦＳ　２２，ＥＷＸ（２２），ＥＷＹ（２２），１００ 　　ＲＥＴＵＲＮ 　＠Ｓ８ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＸ＝１１２：ＥＹ＝５０：ＳＰＳＣＡＬＥ　２，２００：ＳＰＣＨＲ　２，１７８＋ＲＮＤ（２）＊３，ＲＮＤ（１５）＋１，０，０，１ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　２，ＥＸ，ＥＹ：ＳＰＡＮＩＭ　２，３，１０ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＨＰ＝１００：ＧＯＳＵＢ　＠Ｓ８２ 　　ＩＦ　ＳＴ＞＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ８３ 　　ＩＦ　ＥＨＰ＜＝１００　ＴＨＥＮ　ＳＴＤ＝１ 　　ＩＦ　ＥＨＰ＜＝５０　ＴＨＥＮ　ＳＴＤ＝２ 　　ＲＥＴＵＲＮ 　＠Ｓ８２ 　　ＥＷＧＧ＝６１ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　６１ 　　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋８，ＥＹ＋８ 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　　ＮＥＸＴ 　　ＦＯＲ　ＩＩ＝０　ＴＯ　５０　ＳＴＥＰ　１０ 　　　ＦＯＲ　Ｉ＝１０＋ＩＩ　ＴＯ　１９＋ＩＩ 　　　　Ａ（Ｉ）＝（Ｉ−１０−ＩＩ）＊３６ 　　　　ＮＥＸＴ 　　　ＮＥＸＴ 　　Ｂ（０）＝０ 　　Ｂ（１）＝４０ 　　Ｂ（２）＝１７０：ＢＢ（２）＝１ 　　Ｂ（３）＝１７０：ＢＢ（３）＝１ 　　ＲＥＴＵＲＮ 　＠Ｓ８３ 　　ＦＯＲ　Ｉ＝０　ＴＯ　３ 　　　ＩＦ　ＢＢ（Ｉ）＝＝０　ＡＮＤ　ＳＴＤ＝＝１　ＴＨＥＮ　Ｂ（Ｉ）＝Ｂ（Ｉ）＋０．７ 　　　ＩＦ　ＢＢ（Ｉ）＝＝１　ＡＮＤ　ＳＴＤ＝＝１　ＴＨＥＮ　Ｂ（Ｉ）＝Ｂ（Ｉ）−０．７ 　　　ＩＦ　ＢＢ（Ｉ）＝＝０　ＡＮＤ　ＳＴＤ＝＝２　ＴＨＥＮ　Ｂ（Ｉ）＝Ｂ（Ｉ）＋１ 　　　ＩＦ　ＢＢ（Ｉ）＝＝１　ＡＮＤ　ＳＴＤ＝＝２　ＴＨＥＮ　Ｂ（Ｉ）＝Ｂ（Ｉ）−１ 　　　ＩＦ　Ｂ（Ｉ）＞＝１７０　ＴＨＥＮ　ＢＢ（Ｉ）＝１ 　　　ＩＦ　Ｂ（Ｉ）＜＝０　ＴＨＥＮ　ＢＢ（Ｉ）＝０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１９ 　　　ＥＷＸ（Ｉ）＝ＥＸ＋８＋ＣＯＳ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ（０） 　　　ＥＷＹ（Ｉ）＝ＥＹ＋８＋ＳＩＮ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ（０） 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝２０　ＴＯ　２９ 　　　ＥＷＸ（Ｉ）＝ＥＸ＋８＋ＳＩＮ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ（１） 　　　ＥＷＹ（Ｉ）＝ＥＹ＋８＋ＣＯＳ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ（１） 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝３０　ＴＯ　３９ 　　　ＥＷＸ（Ｉ）＝ＥＸ＋８＋ＣＯＳ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ（２） 　　　ＥＷＹ（Ｉ）＝ＥＹ＋８＋ＳＩＮ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ（２） 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝４０　ＴＯ　４９ 　　　ＥＷＸ（Ｉ）＝ＥＸ＋８＋ＳＩＮ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ（３） 　　　ＥＷＹ（Ｉ）＝ＥＹ＋８＋ＣＯＳ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ（３） 　　　ＮＥＸＴ 　　　ＩＦ　ＥＮＴ＝＝１００　ＴＨＥＮ　ＥＮＴ＝０　ＥＬＳＥ　ＥＮＴ＝ＥＮＴ＋１：ＧＯＴＯ　＠Ｓ８３２ 　　　ＢＥＥＰ　４３ 　　ＦＯＲ　Ｉ＝５０　ＴＯ　６１ 　　　ＩＦ　ＥＨＰ＜＝５０　ＴＨＥＮ　ＳＰＳＥＴ　Ｉ，１６，０，０，０，０，３２，３２：ＳＰＯＦＳ　Ｉ，ＥＸ＋８，ＥＹ＋８：ＳＰＣＯＬ　Ｉ，０，０，２５，２２，０ 　　　Ａ＝Ａ＋３０ 　　　ＩＦ　Ａ＞＝３６０　ＴＨＥＮ　Ａ＝ＲＮＤ（３０）：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋８，ＥＹ＋８ 　　　ＩＦ　ＳＴＤ！＝２　ＴＨＥＮ　ＥＷＸ（Ｉ）＝ＥＸ＋ＣＯＳ（ＲＡＤ（Ａ））＊２２０ 　　　ＩＦ　ＳＴＤ！＝２　ＴＨＥＮ　ＥＷＹ（Ｉ）＝ＥＹ＋ＳＩＮ（ＲＡＤ（Ａ））＊２２０ 　　　ＩＦ　ＳＴＤ＝＝２　ＴＨＥＮ　ＥＷＸ（Ｉ）＝ＥＸ−２０＋ＣＯＳ（ＲＡＤ（Ａ））＊２２０ 　　　ＩＦ　ＳＴＤ＝＝２　ＴＨＥＮ　ＥＷＹ（Ｉ）＝ＥＹ−１３＋ＳＩＮ（ＲＡＤ（Ａ））＊２２０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），１１０ 　　　ＮＥＸＴ 　　＠Ｓ８３２ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　４９ 　　　Ａ（Ｉ）＝Ａ（Ｉ）＋０．８ 　　　ＩＦ　Ａ（Ｉ）＞＝３６０　ＴＨＥＮ　Ａ（Ｉ）＝０：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ９ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＸ＝１１２：ＥＹ＝７０：ＳＰＳＣＡＬＥ　２，２００：ＳＰＣＨＲ　２，１７８＋ＲＮＤ（２）＊３，ＲＮＤ（１５）＋１，０，０，１ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　２，ＥＸ，ＥＹ：ＳＰＡＮＩＭ　２，３，１０ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＨＰ＝９０：ＧＯＳＵＢ　＠Ｓ９２ 　　ＩＦ　ＳＴ＞＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ９３ 　　ＩＦ　ＳＴ＞＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ９４ 　　ＩＦ　ＥＨＰ＜＝７０　ＴＨＥＮ　ＳＴＤ＝５０ 　　ＩＦ　ＥＨＰ＜＝５０　ＴＨＥＮ　ＳＴＤ＝１００ 　　ＩＦ　ＥＨＰ＜＝３０　ＴＨＥＮ　ＳＴＤ＝５０：ＳＴＤ２＝１ 　　ＧＯＳＵＢ　＠ＧＲＡＺＥ 　　ＲＥＴＵＲＮ 　＠Ｓ９２ 　　ＥＷＧＧ＝７７ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　７７ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，０ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　　ＮＥＸＴ 　　Ｏ＝９ 　　ＲＥＴＵＲＮ 　　 　＠Ｓ９３ 　　ＩＦ　Ｔ＝＝１　ＯＲ　ＳＴＤ２＝＝１　ＴＨＥＮ　Ｔ＝０　ＥＬＳＥ　Ｔ＝Ｔ＋１：ＲＥＴＵＲＮ 　　Ｏ＝Ｏ＋１ 　　ＩＦ　Ｏ＝＝５９　ＴＨＥＮ　Ｏ＝１０ 　　Ａ＝Ａ＋４０−ＳＴＤ２ 　　ＩＦ　Ａ＞＝３６０　ＴＨＥＮ　Ａ＝ＳＴＬ：ＳＴＬ＝ＳＴＬ＋５：ＥＷＧ（Ｉ）＝０ 　　ＩＦ　ＳＴＬ＞＝４０　ＴＨＥＮ　ＳＴＬ＝０ 　　ＥＷＸ（Ｏ）＝ＥＸ＋ＣＯＳ（ＲＡＤ（Ａ））＊３００ 　　ＥＷＹ（Ｏ）＝ＥＹ＋ＳＩＮ（ＲＡＤ（Ａ））＊３００ 　　ＳＰＯＦＳ　Ｏ，ＥＸ＋８，ＥＹ＋８ 　　ＳＰＯＦＳ　Ｏ，ＥＷＸ（Ｏ）＋１０，ＥＷＹ（Ｏ）＋１０，１００ 　　ＲＥＴＵＲＮ 　＠Ｓ９４ 　　ＩＦ　ＥＮＴ＞＝２００−ＳＴＤ　ＴＨＥＮ　ＥＮＴ＝０　ＥＬＳＥ　ＥＮＴ＝ＥＮＴ＋１：ＲＥＴＵＲＮ 　　ＦＯＲ　Ｉ＝６０　ＴＯ　７７ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋８，ＥＹ＋８ 　　　ＡＡ＝ＡＡ＋２０ 　　　ＩＦ　ＡＡ＞＝３６０　ＴＨＥＮ　ＡＡ＝０：ＥＷＧ（Ｉ）＝０ 　　　ＥＷＸ（Ｉ）＝ＥＸ＋ＣＯＳ（ＲＡＤ（ＡＡ））＊３００ 　　　ＥＷＹ（Ｉ）＝ＥＹ＋ＳＩＮ（ＲＡＤ（ＡＡ））＊３００ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），２００−ＳＴＤ／２：ＢＥＥＰ　４３，０，４０ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１０ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＸ＝１１２：ＥＹ＝７０：ＳＰＳＣＡＬＥ　２，２００：ＳＰＣＨＲ　２，１７８＋ＲＮＤ（２）＊３，ＲＮＤ（１５）＋１，０，０，１ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　２，ＥＸ，ＥＹ：ＳＰＡＮＩＭ　２，３，１０ 　　ＩＦ　ＳＴ＝＝１　ＴＨＥＮ　ＥＨＰ＝２３０：ＧＯＳＵＢ　＠Ｓ１０＿２ 　　ＩＦ　ＳＴ＞＝２　ＡＮＤ　ＥＨＰ＜＝２３０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１０＿３ 　　ＩＦ　ＳＴ＞＝２　ＡＮＤ　ＥＨＰ＜＝２００　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１０＿４ 　　ＩＦ　ＳＴ＞＝２　ＡＮＤ　ＥＨＰ＜＝１７０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１０＿５ 　　ＩＦ　ＳＴ＞＝２　ＡＮＤ　ＥＨＰ＜＝１３０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１０＿６ 　　ＩＦ　ＳＴ＞＝２　ＡＮＤ　ＥＨＰ＜＝１００　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１０＿７ 　　ＩＦ　ＳＴ＞＝２　ＡＮＤ　ＥＨＰ＜＝４０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１０＿８ 　　ＧＯＳＵＢ　＠ＧＲＡＺＥ 　　ＲＥＴＵＲＮ 　＠Ｓ１０＿２ 　　ＥＷＧＧ＝６０ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１４ 　　　ＥＷＸ（Ｉ）＝ＲＮＤ（２４５） 　　　ＥＷＹ（Ｉ）＝ＲＮＤ（２６０）−２９２ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＥＷＳ（Ｉ）＝ＲＮＤ（２）＋１ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１２ 　　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１３　ＴＯ　１４ 　　　ＳＰＳＥＴ　Ｉ，１６，ＥＷＣ（Ｉ），０，０，１，３２，３２ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＳＰＣＯＬ　Ｉ，０，０，２５，２２，０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１５　ＴＯ　１７ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，０ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋８，ＥＹ＋８ 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１８　ＴＯ　２０ 　　　ＥＷＸ（Ｉ）＝ＲＮＤ（５０）−６６ 　　　ＥＷＹ（Ｉ）＝ＲＮＤ（４００）−２００ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝２１　ＴＯ　２３ 　　　ＥＷＸ（Ｉ）＝ＲＮＤ（５０）＋２６０ 　　　ＥＷＹ（Ｉ）＝ＲＮＤ（４００）−２００ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　　ＮＥＸＴ　 　　ＦＯＲ　Ｉ＝２４　ＴＯ　２６ 　　　Ａ（Ｉ）＝（Ｉ−２４）＊１２０ 　　　ＳＰＳＥＴ　Ｉ，１６，ＥＷＣ（Ｉ），０，０，１，３２，３２ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＳＰＣＯＬ　Ｉ，０，０，２５，２２，０ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝２７　ＴＯ　２８ 　　　ＳＰＳＥＴ　Ｉ，３８４，０，０，０，０，３２，６４ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＳＰＣＯＬ　Ｉ，０，０，２８，６４，１ 　　　ＳＰＳＣＡＬＥ　Ｉ，２００ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝２９　ＴＯ　６０ 　　　ＳＰＳＥＴ　Ｉ，３５，０，０，０，０ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，０ 　　　ＮＥＸＴ 　　　Ｏ＝２９ 　　ＲＥＴＵＲＮ 　＠Ｓ１０＿３ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１４ 　　　ＥＷＹ（Ｉ）＝ＥＷＹ（Ｉ）＋ＥＷＳ（Ｉ） 　　　ＩＦ　ＥＷＹ（Ｉ）＞＝２００　ＴＨＥＮ　ＥＷＸ（Ｉ）＝ＲＮＤ（２４５）：ＥＷＹ（Ｉ）＝−３５：ＥＷＳ（Ｉ）＝ＲＮＤ（２）＋１：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１０＿４ 　　ＦＯＲ　Ｉ＝１５　ＴＯ　１７ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＣＨＲ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，０ 　　　ＮＥＸＴ 　　ＩＦ　ＥＮＴ４＝＝１００　ＴＨＥＮ　ＥＮＴ４＝０　ＥＬＳＥ　ＥＮＴ４＝ＥＮＴ４＋１：ＲＥＴＵＲＮ 　　ＦＯＲ　Ｉ＝１５　ＴＯ　１７ 　　　ＥＷＧ（Ｉ）＝０ 　　　Ｂ（Ｉ）＝ＲＮＤ（１００）−５０ 　　　ＥＷＸ（Ｉ）＝ＰＸ＋ＣＯＳ（ＡＴＡＮ（ＰＹ−ＥＷＹ（Ｉ），ＰＸ−ＥＷＸ（Ｉ）））＊Ｂ（Ｉ） 　　　ＥＷＹ（Ｉ）＝ＰＹ＋ＳＩＮ（ＡＴＡＮ（ＰＹ−ＥＷＹ（Ｉ），ＰＸ−ＥＷＸ（Ｉ）））＊Ｂ（Ｉ） 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），１５０ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１０＿５ 　　ＦＯＲ　Ｉ＝１８　ＴＯ　２０ 　　　ＥＷＸ（Ｉ）＝ＥＷＸ（Ｉ）＋０．５ 　　　ＥＷＹ（Ｉ）＝ＥＷＹ（Ｉ）＋０．５ 　　　ＩＦ　ＥＷＹ（Ｉ）＞＝１９０　ＴＨＥＮ　ＥＷＸ（Ｉ）＝ＲＮＤ（５０）−６６：ＥＷＹ（Ｉ）＝ＲＮＤ（４００）−２００：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝２１　ＴＯ　２３ 　　　ＥＷＸ（Ｉ）＝ＥＷＸ（Ｉ）−０．５ 　　　ＥＷＹ（Ｉ）＝ＥＷＹ（Ｉ）＋０．５ 　　　ＩＦ　ＥＷＹ（Ｉ）＞＝１９０　ＴＨＥＮ　ＥＷＸ（Ｉ）＝ＲＮＤ（５０）＋２５０：ＥＷＹ（Ｉ）＝ＲＮＤ（４００）−２００：ＥＷＧ（Ｉ）＝０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１０＿６ 　　　ＩＦ　Ｂ＞＝９３　ＴＨＥＮ　Ｂ＝９３　ＥＬＳＥ　Ｂ＝Ｂ＋０．４ 　　ＦＯＲ　Ｉ＝２４　ＴＯ　２６ 　　　ＩＦ　Ａ（Ｉ）＞＝３６０　ＴＨＥＮ　Ａ（Ｉ）＝０：ＥＷＧ（Ｉ）＝０　ＥＬＳＥ　Ａ（Ｉ）＝Ａ（Ｉ）＋１ 　　　ＥＷＸ（Ｉ）＝ＥＸ＋ＳＩＮ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ 　　　ＥＷＹ（Ｉ）＝ＥＹ＋ＣＯＳ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＩＦ　Ａ（Ｉ）！＝０　ＴＨＥＮ　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１０＿７ 　　　ＥＮＴ７＝ＥＮＴ７＋１ 　　　ＥＷＧ（２７）＝０：ＥＷＧ（２８）＝０ 　　　ＩＦ　ＥＮＴ７＝＝５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１０＿７２ 　　　ＩＦ　ＥＮＴ７＝＝１２０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１０＿７３ 　　　ＩＦ　ＥＮＴ７＝＝１７０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１０＿７４ 　　　ＲＥＴＵＲＮ 　　　＠Ｓ１０＿７２ 　　　　ＢＥＥＰ　３６ 　　　　ＥＷＸ（２７）＝ＲＮＤ（２００）＋２０ 　　　　ＳＰＯＦＳ　２７，ＥＷＸ（２７），−１０ 　　　　ＳＰＯＦＳ　２８，ＥＷＸ（２７），７０ 　　　　ＥＷＥ７＝１ 　　　ＲＥＴＵＲＮ 　　　＠Ｓ１０＿７３ 　　　　ＢＥＥＰ　３８ 　　　　ＳＰＣＨＲ　２７，３９２，０，０，０，０ 　　　　ＳＰＣＨＲ　２８，３９２，０，０，０，０ 　　　　ＲＥＴＵＲＮ 　　　　 　　　＠Ｓ１０＿７４ 　　　　ＳＰＯＦＳ　２７，５００，５００ 　　　　ＳＰＯＦＳ　２８，５００，５００ 　　　　ＳＰＣＨＲ　２７，３８４，０，０，０，０ 　　　　ＳＰＣＨＲ　２８，３８４，０，０，０，０ 　　　　ＥＮＴ７＝０ 　　　　ＲＥＴＵＲＮ 　＠Ｓ１０＿８ 　　ＩＦ　Ｔ＝＝４　ＯＲ　ＳＴＤ２＝＝１　ＴＨＥＮ　Ｔ＝０　ＥＬＳＥ　Ｔ＝Ｔ＋１：ＲＥＴＵＲＮ 　　Ｏ＝Ｏ＋１ 　　ＩＦ　Ｏ＝＝６０　ＴＨＥＮ　Ｏ＝２９ 　　Ａ＝Ａ＋５０ 　　ＩＦ　Ａ＞＝３６０　ＴＨＥＮ　Ａ＝ＳＴＬ：ＳＴＬ＝ＳＴＬ＋５：ＥＷＧ（Ｉ）＝０ 　　ＩＦ　ＳＴＬ＞＝５０　ＴＨＥＮ　ＳＴＬ＝０ 　　ＥＷＸ（Ｏ）＝ＥＸ＋ＣＯＳ（ＲＡＤ（Ａ））＊３００ 　　ＥＷＹ（Ｏ）＝ＥＹ＋ＳＩＮ（ＲＡＤ（Ａ））＊３００ 　　ＳＰＯＦＳ　Ｏ，ＥＸ＋８，ＥＹ＋８ 　　ＳＰＯＦＳ　Ｏ，ＥＷＸ（Ｏ）＋１０，ＥＷＹ（Ｏ）＋１０，２００ 　　ＲＥＴＵＲＮ 　＠Ｓ１１ 　　ＩＦ　Ｐ＝＝１　ＴＨＥＮ　ＬＯＡＤ　”ＳＰＵ５：ＰＤＭＨＵ”，ＦＡＬＳＥ：ＳＰＳＥＴ　２，３６８，０，０，０，０，６４，６４ 　　ＩＦ　Ｐ＝＝１　ＴＨＥＮ　ＥＸ＝９６：ＥＹ＝−１００：ＳＰＯＦＳ　２，ＥＸ，ＥＹ：ＬＯＡＤ　”ＣＯＬ０：ＰＤＭＣ”，ＦＡＬＳＥ 　　ＩＦ　Ｐ＝＝１　ＴＨＥＮ　ＥＨＰ＝１２０：Ｑ＝５：ＥＨＰＬ＝０：ＬＯＡＤ　”ＢＧＵ０：Ｂ０ＴＵＫＩ”，ＦＡＬＳＥ：ＬＯＡＤ　”ＳＣＵ０：ＴＵＫＩ”，ＦＡＬＳＥ 　　ＩＦ　Ｐ＝＝１００　ＡＮＤ　ＳＴ＜＝５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿２ 　　ＩＦ　ＥＨＰ＜＝０　ＴＨＥＮ　ＥＨＰＬ＝ＥＨＰＬ＋１：ＳＴ＝５０：ＥＨＰＴ＝１：ＳＣ＝ＳＣ＋（ＥＷＧＧ＊５０）：Ｌ＝０ 　　ＩＦ　ＥＨＰ＜＝０　ＡＮＤ　ＳＰＥ＝＝０　ＴＨＥＮ　ＥＨＰ＝１００：ＢＥＥＰ　１３：ＢＥＥＰ　１３：ＢＥＥＰ　１３：ＬＯＣＡＴＥ　１０，０：？”　　　　　　　　　　　　　　　　　　　　　　　　” 　　ＩＦ　ＥＨＰ＜＝０　ＡＮＤ　ＳＰＥ＝＝１　ＴＨＥＮ　ＥＨＰ＝１００：ＢＥＥＰ　１３：ＢＥＥＰ　１３：ＢＥＥＰ　１３：ＳＰＥ＝０：ＧＯＳＵＢ　＠ＳＰＥＬＬ 　　ＩＦ　ＥＨＰＬ＝＝０　ＡＮＤ　ＳＴ＝＝６０　ＴＨＥＮ　ＳＰＣＨＲ　２，３２０，０，０，０，０：ＳＰＡＮＩＭ　２，４，１０：ＧＯＳＵＢ　＠ＢＧＭ 　　ＩＦ　ＳＴ＝＝６０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿３ 　　ＩＦ　ＥＨＰＴ＝＝１　ＡＮＤ　ＥＨＰＴＴ＜＝５０　ＴＨＥＮ　ＥＨＰＴＴ＝ＥＨＰＴＴ＋１：ＧＯＴＯ　＠Ｓ１１＿１ 　　ＥＨＰＬ＄＝ＳＴＲ＄（ＥＨＰＬ） 　　ＥＨＰＬ＄＝”＠ＥＨＰＬ”＋ＥＨＰＬ＄ 　　ＧＯＴＯ　ＥＨＰＬ＄ 　　＠ＥＨＰＬ０ 　　ＩＦ　ＥＨＰＬ＝＝０　ＡＮＤ　ＳＴ＞５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿４ 　　ＩＦ　ＥＨＰＬ＝＝０　ＡＮＤ　ＳＴ＞５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿５ 　　ＩＦ　ＥＨＰＬ＝＝０　ＡＮＤ　ＳＴ＞５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿６：ＧＯＴＯ　＠Ｓ１１＿１ 　　＠ＥＨＰＬ１ 　　ＩＦ　ＥＨＰＬ＝＝１　ＡＮＤ　ＳＴ＝＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿７ 　　ＩＦ　ＥＨＰＬ＝＝１　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿８ 　　ＩＦ　ＥＨＰＬ＝＝１　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿９：ＧＯＴＯ　＠Ｓ１１＿１ 　　＠ＥＨＰＬ２ 　　ＩＦ　ＥＨＰＬ＝＝２　ＡＮＤ　ＳＴ＝＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿１０ 　　ＩＦ　ＥＨＰＬ＝＝２　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿１１：ＧＯＴＯ　＠Ｓ１１＿１ 　　＠ＥＨＰＬ３ 　　ＩＦ　ＥＨＰＬ＝＝３　ＡＮＤ　ＳＴ＝＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿１２ 　　ＩＦ　ＥＨＰＬ＝＝３　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿１３ 　　ＩＦ　ＥＨＰＬ＝＝３　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿１４ 　　ＩＦ　ＥＨＰＬ＝＝３　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿１５：ＧＯＴＯ　＠Ｓ１１＿１ 　　＠ＥＨＰＬ４ 　　ＩＦ　ＥＨＰＬ＝＝４　ＡＮＤ　ＳＴ＝＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿１６ 　　ＩＦ　ＥＨＰＬ＝＝４　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿１７ 　　ＩＦ　ＥＨＰＬ＝＝４　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿１８ 　　ＩＦ　ＥＨＰＬ＝＝４　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿１９ 　　ＩＦ　ＥＨＰＬ＝＝４　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿２０ 　　ＩＦ　ＥＨＰＬ＝＝４　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿２１：ＧＯＴＯ　＠Ｓ１１＿１ 　　＠ＥＨＰＬ５ 　　ＩＦ　ＥＨＰＬ＝＝５　ＡＮＤ　ＳＴ＝＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿２２ 　　ＩＦ　ＥＨＰＬ＝＝５　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿２３ 　　ＩＦ　ＥＨＰＬ＝＝５　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿２４ 　　ＩＦ　ＥＨＰＬ＝＝５　ＡＮＤ　ＳＴ＞＝１５０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｓ１１＿２５ 　　＠ＥＨＰＬ６ 　＠Ｓ１１＿１ 　　ＩＦ　ＧＭ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＲＡＺＥ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿２ 　　Ｑ＝Ｑ−０．１ 　　ＥＹ＝ＥＹ＋Ｑ／１．０１ 　　ＳＰＯＦＳ　２，ＥＸ，ＥＹ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿３ 　　ＥＷＧＧ＝５３ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　９６ 　　　ＳＰＳＥＴ　Ｉ，３５，０，０，０，１ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋２５，ＥＹ＋１５ 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，１ 　　　ＮＥＸＴ 　　ＥＮＴ１＝０ 　　ＥＮＴ２＝３３ 　　ＥＮＴ３＝６６ 　　ＦＯＲ　Ｉ＝４８　ＴＯ　５３ 　　　Ｂ（Ｉ）＝４０＊（Ｉ−４８）＋６０ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿４ 　　ＳＰＥ＝１ 　　ＩＦ　ＥＮＴ１＝＝１００　ＴＨＥＮ　ＥＮＴ１＝０　ＥＬＳＥ　ＥＮＴ１＝ＥＮＴ１＋１：ＲＥＴＵＲＮ 　　ＢＥＥＰ　４３　 　　ＦＯＲ　Ｉ＝１０　ＴＯ　２８ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＣＨＲ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，０ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋２５，ＥＹ＋１５ 　　　Ａ＝Ａ＋２０ 　　　ＩＦ　Ａ＞＝３６０　ＴＨＥＮ　Ａ＝ＲＮＤ（１５） 　　　ＥＷＸ（Ｉ）＝ＥＸ＋２５＋ＣＯＳ（ＲＡＤ（Ａ））＊２００ 　　　ＥＷＹ（Ｉ）＝ＥＹ＋５＋ＳＩＮ（ＲＡＤ（Ａ））＊２００ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），１００ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿５ 　　ＩＦ　ＥＮＴ２＝＝１００　ＴＨＥＮ　ＥＮＴ２＝０　ＥＬＳＥ　ＥＮＴ２＝ＥＮＴ２＋１：ＲＥＴＵＲＮ 　　ＢＥＥＰ　４３ 　　ＦＯＲ　Ｉ＝２９　ＴＯ　４７ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＣＨＲ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋２５，ＥＹ＋１５ 　　　Ａ＝Ａ＋２０ 　　　ＩＦ　Ａ＞＝３６０　ＴＨＥＮ　Ａ＝ＲＮＤ（１５） 　　　ＥＷＸ（Ｉ）＝ＥＸ＋２５＋ＣＯＳ（ＲＡＤ（Ａ））＊２００ 　　　ＥＷＹ（Ｉ）＝ＥＹ＋５＋ＳＩＮ（ＲＡＤ（Ａ））＊２００ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），１００ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿６ 　　ＩＦ　ＥＮＴ３＞＝１００＋ＥＨＰ／３　ＴＨＥＮ　ＥＮＴ３＝０　ＥＬＳＥ　ＥＮＴ３＝ＥＮＴ３＋１：ＲＥＴＵＲＮ 　　ＢＥＥＰ　４３ 　　ＦＯＲ　Ｉ＝４８　ＴＯ　５２ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＣＨＲ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，０ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋２５，ＥＹ＋１５ 　　　Ａ＝Ａ＋２０ 　　　ＩＦ　Ａ＞＝３６０　ＴＨＥＮ　Ａ＝０ 　　　ＥＷＸ（Ｉ）＝ＰＸ＋ＣＯＳ（ＡＴＡＮ（ＰＹ−ＥＹ，ＰＸ−２０−ＥＸ））＊Ｂ（Ｉ） 　　　ＥＷＹ（Ｉ）＝ＰＹ＋ＳＩＮ（ＡＴＡＮ（ＰＹ−ＥＹ，ＰＸ−２０−ＥＸ））＊Ｂ（Ｉ） 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），１００＋ＥＨＰ／４ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿７ 　　ＳＰＥ＝０ 　　ＥＨＰ＝１００ 　　ＥＷＧＧ＝８１ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　８１ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＮＥＸＴ 　　ＬＯＣＡＴＥ　１８，０：？”━┃┛テ゛ストリュクシオン┗” 　　Ｉ＝１０ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿８ 　　ＩＦ　Ｌ＝＝１　ＴＨＥＮ　ＲＥＴＵＲＮ 　　ＩＦ　Ｔ＞＝２５＋ＥＨＰ／１０　ＴＨＥＮ　Ｔ＝０　ＥＬＳＥ　Ｔ＝Ｔ＋１：ＲＥＴＵＲＮ 　　Ａ＝０ 　　ＢＥＥＰ　６０ 　　ＦＯＲ　Ｉ＝１０＋ＩＩ　ＴＯ　１７＋ＩＩ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＥＷＸ（Ｉ）＝ＰＸ＋ＣＯＳ（ＲＡＤ（Ａ））＊１１０ 　　　ＥＷＹ（Ｉ）＝ＰＹ＋１０＋ＳＩＮ（ＲＡＤ（Ａ））＊１１０ 　　　Ａ＝Ａ＋４５ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　Ａ＝０ 　　Ｌ＝１ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿９ 　　ＩＦ　Ｌ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ 　　ＩＦ　Ｔ＞＝２５＋ＥＨＰ／１０　ＴＨＥＮ　Ｔ＝０　ＥＬＳＥ　Ｔ＝Ｔ＋１：ＲＥＴＵＲＮ 　　ＢＥＥＰ　４３ 　　ＦＯＲ　Ｉ＝１０＋ＩＩ　ＴＯ　１７＋ＩＩ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＥＷＸ（Ｉ）＝ＰＸ＋ＣＯＳ（ＡＴＡＮ（ＰＹ−ＥＷＹ（Ｉ），ＰＸ−ＥＷＸ（Ｉ）））＊１３０ 　　　ＥＷＹ（Ｉ）＝ＰＹ＋ＳＩＮ（ＡＴＡＮ（ＰＹ−ＥＷＹ（Ｉ），ＰＸ−ＥＷＸ（Ｉ）））＊１３０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），３５０＋ＥＨＰ／１０ 　　　ＮＥＸＴ 　　Ｌ＝０ 　　ＩＩ＝ＩＩ＋８ 　　ＩＦ　ＩＩ＞＝７３　ＴＨＥＮ　ＩＩ＝０ 　　　ＥＷＣ＝ＲＮＤ（１６） 　　ＦＯＲ　Ｉ＝１０＋ＩＩ　ＴＯ　１７＋ＩＩ 　　　ＳＰＣＨＲ　Ｉ，３５，ＥＷＣ，０，０，０ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿１０ 　　ＳＰＥ＝１ 　　ＥＷＧＧ＝８１ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　９６ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋２５，ＥＹ＋１５ 　　　ＮＥＸＴ 　　Ａ＝０ 　　Ｉ＝０ 　　ＩＩ＝０ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿１１ 　　　ＩＦ　Ｔ＞＝１０　ＴＨＥＮ　Ｔ＝０　ＥＬＳＥ　Ｔ＝Ｔ＋１：ＲＥＴＵＲＮ 　　ＦＯＲ　Ｉ＝１０＋ＩＩ　ＴＯ　２１＋ＩＩ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＣＨＲ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，０ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋２５，ＥＹ＋１５ 　　　Ａ＝Ａ＋３０ 　　　ＩＦ　Ａ＞＝３６０　ＴＨＥＮ　Ａ＝ＲＮＤ（３０） 　　　ＥＷＸ（Ｉ）＝ＥＸ＋２５＋ＣＯＳ（ＲＡＤ（Ａ））＊３００ 　　　ＥＷＹ（Ｉ）＝ＥＹ＋５＋ＳＩＮ（ＲＡＤ（Ａ））＊３００ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），１００＋ＥＨＰ／２ 　　　ＮＥＸＴ 　　ＩＩ＝ＩＩ＋１２ 　　ＩＦ　ＩＩ＞＝６１　ＴＨＥＮ　ＩＩ＝０ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿１２ 　　ＳＰＥ＝０ 　　ＥＷＧＧ＝６６ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　９６ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　２４ 　　　ＳＰＳＥＴ　Ｉ，１６，０，０，０，１，３２，３２ 　　　ＳＰＣＯＬ　Ｉ，０，０，２５，２２，０ 　　　ＥＷＸ（Ｉ）＝ＲＮＤ（２４２）−５ 　　　ＥＷＹ（Ｉ）＝ＲＮＤ（２００）−２２０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＦＯＲ　Ｉ＝２５　ＴＯ　６６ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＣＨＲ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　　ＮＥＸＴ 　　ＬＯＣＡＴＥ　１８，０：？”━┃┛エクスフ゜ロシ゛オン┗” 　　Ｏ＝２５ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿１３ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　２４ 　　　ＩＦ　ＥＷＹ（Ｉ）＞＝２００　ＴＨＥＮ　ＥＷＸ（Ｉ）＝ＲＮＤ（２４３）：ＥＷＹ（Ｉ）＝ＲＮＤ（３０）−６０：Ｄ（Ｉ）＝０：ＥＷＧ（Ｉ）＝０：ＳＰＣＨＲ　Ｉ，１６，０，０，０，１ 　　　ＩＦ　Ｄ（Ｉ）＝＝０　ＴＨＥＮ　ＥＷＹ（Ｉ）＝ＥＷＹ（Ｉ）＋２．５−ＥＨＰ／５０ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿１４ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　２４ 　　　ＩＦ　ＥＷＹ（Ｉ）＜＝１０　ＴＨＥＮ　＠Ｓ１１＿１４＿２ 　　　ＩＦ　ＥＷＸ（Ｉ）＞＝ＰＸ−４０　ＡＮＤ　ＥＷＸ（Ｉ）＜＝ＰＸ＋４０　ＴＨＥＮ　＠Ｓ１１＿１４＿２ 　　　ＩＦ　ＥＷＹ（Ｉ）＞＝ＰＹ−４０　ＡＮＤ　ＥＷＹ（Ｉ）＜＝ＰＹ＋４０　ＴＨＥＮ　＠Ｓ１１＿１４＿２ 　　　ＩＦ　ＲＮＤ（ＥＨＰ／２＋２５）！＝０　ＴＨＥＮ　＠Ｓ１１＿１４＿２ 　　　ＢＥＥＰ　２４：ＢＥＥＰ　２４：ＢＥＥＰ　２４ 　　　Ｄ（Ｉ）＝１ 　　　ＳＰＣＨＲ　Ｉ，１６，２，０，０，１ 　　　＠Ｓ１１＿１４＿２ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿１５ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　２４ 　　　ＩＦ　Ｄ（Ｉ）！＝１　ＴＨＥＮ　＠Ｓ１１＿１５＿２ 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＴＨＥＮ　Ｔ（Ｉ）＝Ｔ（Ｉ）＋１ 　　　ＩＦ　Ｔ（Ｉ）＞＝５　ＴＨＥＮ　Ｔ（Ｉ）＝０　ＥＬＳＥ　ＧＯＴＯ　＠Ｓ１１＿１５＿２ 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＴＨＥＮ　ＥＷＸ（Ｏ）＝ＥＷＸ（Ｉ）＋ＣＯＳ（ＲＡＤ（ＲＮＤ（３６０）））＊（ＲＮＤ（１００）＋１５０） 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＴＨＥＮ　ＥＷＹ（Ｏ）＝ＥＷＹ（Ｉ）＋ＳＩＮ（ＲＡＤ（ＲＮＤ（３６０）））＊（ＲＮＤ（１００）＋１５０） 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＡＮＤ　ＥＨＰ＜＝５０　ＴＨＥＮ　ＥＷＸ（Ｏ＋１）＝ＥＷＸ（Ｉ）＋ＣＯＳ（ＲＡＤ（ＲＮＤ（３６０）））＊（ＲＮＤ（１００）＋１５０） 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＡＮＤ　ＥＨＰ＜＝５０　ＴＨＥＮ　ＥＷＹ（Ｏ＋１）＝ＥＷＹ（Ｉ）＋ＳＩＮ（ＲＡＤ（ＲＮＤ（３６０）））＊（ＲＮＤ（１００）＋１５０） 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　Ｏ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　Ｏ，ＥＷＸ（Ｏ），ＥＷＹ（Ｏ），１４０ 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＡＮＤ　ＥＨＰ＜＝５０　ＴＨＥＮ　ＳＰＯＦＳ　Ｏ＋１，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＡＮＤ　ＥＨＰ＜＝５０　ＴＨＥＮ　ＳＰＯＦＳ　Ｏ＋１，ＥＷＸ（Ｏ＋１），ＥＷＹ（Ｏ＋１），１４０ 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＴＨＥＮ　ＥＷＹ（Ｉ）＝５００ 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　Ｉ，５００，ＥＷＹ（Ｉ） 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＴＨＥＮ　Ｏ＝Ｏ＋１：ＥＷＧ（Ｏ）＝０ 　　　ＩＦ　Ｄ（Ｉ）＝＝１　ＡＮＤ　ＥＨＰ＜＝５０　ＴＨＥＮ　Ｏ＝Ｏ＋１：ＥＷＧ（Ｏ）＝０ 　　　ＩＦ　Ｏ＞＝６６　ＴＨＥＮ　Ｏ＝２５ 　　　＠Ｓ１１＿１５＿２ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿１６ 　　ＳＰＥ＝１ 　　ＥＸ＝９６：ＥＹ＝２１．４０２ 　　ＳＰＯＦＳ　２，ＥＸ，ＥＹ，４０ 　　ＥＷＧＧ＝３１ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　９６ 　　　ＳＰＳＥＴ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，１ 　　　ＮＥＸＴ 　　Ａ（１１）＝１８０ 　　Ｔ１＝０ 　　Ｔ２＝３３ 　　Ｔ３＝６６ 　　Ｔ４＝９９ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿１７ 　　ＩＦ　Ｔ＝＝５０　ＴＨＥＮ　ＥＬＳＥ　Ｔ＝Ｔ＋１：ＲＥＴＵＲＮ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　１１ 　　　Ａ（Ｉ）＝Ａ（Ｉ）＋１ 　　　ＩＦ　Ａ（Ｉ）＞＝３６０　ＴＨＥＮ　Ａ（Ｉ）＝０ 　　　ＩＦ　Ｂ＞＝５０　ＴＨＥＮ　Ｂ＝５０　ＥＬＳＥ　Ｂ＝Ｂ＋０．４ 　　　ＥＷＸ（Ｉ）＝ＥＸ＋２５＋ＣＯＳ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ 　　　ＥＷＹ（Ｉ）＝ＥＹ＋１５＋ＳＩＮ（ＲＡＤ（Ａ（Ｉ）））＊Ｂ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ） 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿１８ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　２９ 　　　ＥＷＣ（Ｉ）＝ＲＮＤ（１６） 　　　ＳＰＣＨＲ　Ｉ，３５，ＥＷＣ（Ｉ），０，０，１ 　　　ＮＥＸＴ 　　ＩＦ　Ｔ１＞＝８０＋ＥＨＰ／２　ＴＨＥＮ　Ｔ１＝０：ＢＥＥＰ　６０　ＥＬＳＥ　Ｔ１＝Ｔ１＋１：ＲＥＴＵＲＮ 　　ＦＯＲ　Ｉ＝１２　ＴＯ　１６ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（１０），ＥＷＹ（１０） 　　　Ｂ（Ｉ）＝（Ｉ−１１）＊４０＋１６０ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＥＷＸ（Ｉ）＝ＥＷＸ（１０）＋ＣＯＳ（ＡＴＡＮ（ＰＹ−ＥＷＹ（１０），ＰＸ＋ＲＮＤ（２０）−１０−ＥＷＸ（１０）））＊Ｂ（Ｉ） 　　　ＥＷＹ（Ｉ）＝ＥＷＹ（１０）＋ＳＩＮ（ＡＴＡＮ（ＰＹ−ＥＷＹ（１０），ＰＸ＋ＲＮＤ（２０）−１０−ＥＷＸ（１０）））＊Ｂ（Ｉ） 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），８０＋ＥＨＰ／２ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿１９ 　　ＩＦ　Ｔ２＞＝８０＋ＥＨＰ／２　ＴＨＥＮ　Ｔ２＝０：ＢＥＥＰ　６０　ＥＬＳＥ　Ｔ２＝Ｔ２＋１：ＲＥＴＵＲＮ 　　ＦＯＲ　Ｉ＝１７　ＴＯ　２１ 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（１１），ＥＷＹ（１１） 　　　Ｂ（Ｉ）＝（Ｉ−１６）＊４０＋１６０ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＥＷＸ（Ｉ）＝ＥＷＸ（１１）＋ＣＯＳ（ＡＴＡＮ（ＰＹ−ＥＷＹ（１１），ＰＸ＋ＲＮＤ（２０）−１０−ＥＷＸ（１１）））＊Ｂ（Ｉ） 　　　ＥＷＹ（Ｉ）＝ＥＷＹ（１１）＋ＳＩＮ（ＡＴＡＮ（ＰＹ−ＥＷＹ（１１），ＰＸ＋ＲＮＤ（２０）−１０−ＥＷＸ（１１）））＊Ｂ（Ｉ） 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），８０＋ＥＨＰ／２ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿２０ 　　ＩＦ　Ｔ３＞＝８０＋ＥＨＰ／２　ＴＨＥＮ　Ｔ３＝０：ＢＥＥＰ　６０　ＥＬＳＥ　Ｔ３＝Ｔ３＋１：ＲＥＴＵＲＮ 　　ＦＯＲ　Ｉ＝２２　ＴＯ　２６ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋２５，ＥＹ＋１５ 　　　Ｂ（Ｉ）＝（Ｉ−２１）＊３０＋３０ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＥＷＸ（Ｉ）＝ＰＸ＋ＣＯＳ（ＡＴＡＮ（ＰＹ−ＥＹ，ＰＸ−２０−ＥＸ））＊Ｂ（Ｉ） 　　　ＥＷＹ（Ｉ）＝ＰＹ＋ＳＩＮ（ＡＴＡＮ（ＰＹ−ＥＹ，ＰＸ−２０−ＥＸ））＊Ｂ（Ｉ） 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），８０＋ＥＨＰ／２ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿２１ 　　ＩＦ　Ｔ４＞＝８０＋ＥＨＰ／２　ＴＨＥＮ　Ｔ４＝０：ＢＥＥＰ　６０　ＥＬＳＥ　Ｔ４＝Ｔ４＋１：ＲＥＴＵＲＮ 　　ＦＯＲ　Ｉ＝２７　ＴＯ　３１ 　　　ＳＰＯＦＳ　Ｉ，ＥＸ＋２５，ＥＹ＋１５ 　　　Ｂ（Ｉ）＝（Ｉ−２６）＊３０＋３０ 　　　ＥＷＧ（Ｉ）＝０ 　　　ＥＷＸ（Ｉ）＝ＰＸ＋ＣＯＳ（ＡＴＡＮ（ＰＹ−ＥＹ，ＰＸ−２０−ＥＸ））＊Ｂ（Ｉ） 　　　ＥＷＹ（Ｉ）＝ＰＹ＋ＳＩＮ（ＡＴＡＮ（ＰＹ−ＥＹ，ＰＸ−２０−ＥＸ））＊Ｂ（Ｉ） 　　　ＳＰＯＦＳ　Ｉ，ＥＷＸ（Ｉ），ＥＷＹ（Ｉ），８０＋ＥＨＰ／２ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿２２ 　　ＳＰＥ＝０ 　　ＥＷＧＧ＝９６ 　　ＬＯＣＡＴＥ　２２，０：？”┛アルカンシエル┗” 　　ＦＯＲ　Ｉ＝１０　ＴＯ　９６ 　　　ＳＰＳＥＴ　Ｉ，３５，０，０，０，１ 　　　ＳＰＣＯＬ　Ｉ，０，０，８，８，１ 　　　ＳＰＯＦＳ　Ｉ，５００，５００ 　　　ＮＥＸＴ 　　ＳＰＯＦＳ　２，９６，−１００，５０ 　　Ｄ＝１０ 　　Ａ（１）＝１９０：ＡＡ（１）＝１ 　　ＦＯＲ　Ｉ＝１０　ＴＯ　９６ 　　ＥＷＳ（Ｉ）＝ＲＮＤ（３）＋（ＲＮＤ（３）／１０）＋（ＲＮＤ（３）／１００） 　　ＮＥＸＴ 　　ＬＯＣＡＴＥ　０，０：？”４０” 　　ＴＴＴ＝４０ 　　Ａ２＝０．００１ 　　ＳＬＤ＝０．５ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿２３ 　　ＩＦ　Ａ２＞＝１５　ＴＨＥＮ　Ａ２＝１５　ＥＬＳＥ　Ａ２＝Ａ２＋Ａ２ 　　ＩＦ　ＴＴＴ＜＝−１　ＴＨＥＮ　ＥＨＰ＝−１ 　　ＩＦ　ＧＭ＝＝０　ＡＮＤ　ＴＴ＞＝５０　ＡＮＤ　ＴＴＴ＜＝５　ＡＮＤ　ＴＴＴ＞＝１　ＴＨＥＮ　ＢＥＥＰ　２ 　　ＩＦ　ＧＭ＝＝０　ＡＮＤ　ＴＴ＞＝５０　ＴＨＥＮ　ＴＴＴ＝ＴＴＴ−１：ＬＯＣＡＴＥ　０，０：？ＴＴＴ；”　”：ＴＴ＝０　ＥＬＳＥ　ＴＴ＝ＴＴ＋１ 　　ＩＦ　Ｔ＞＝３　ＴＨＥＮ　Ｔ＝０　ＥＬＳＥ　Ｔ＝Ｔ＋１：ＲＥＴＵＲＮ 　　　ＩＦ　ＡＡ（０）＝＝０　ＴＨＥＮ　Ａ（０）＝Ａ（０）＋２０−ＲＮＤ（１０） 　　　ＩＦ　ＡＡ（０）＝＝１　ＴＨＥＮ　Ａ（０）＝Ａ（０）−２０＋ＲＮＤ（１０） 　　　ＩＦ　ＡＡ（１）＝＝０　ＴＨＥＮ　Ａ（１）＝Ａ（１）＋Ａ２−ＲＮＤ（７） 　　　ＩＦ　ＡＡ（１）＝＝１　ＴＨＥＮ　Ａ（１）＝Ａ（１）−Ａ２＋ＲＮＤ（８） 　　ＦＯＲ　ＡＡＡ＝０　ＴＯ　１ 　　　ＩＦ　Ａ（ＡＡＡ）＞＝３４０　ＴＨＥＮ　ＡＡ（ＡＡＡ）＝１ 　　　ＩＦ　Ａ（ＡＡＡ）＜＝２０　ＴＨＥＮ　ＡＡ（ＡＡＡ）＝０ 　　　ＮＥＸＴ 　　ＥＷＸ（Ｄ）＝１２３＋ＣＯＳ（ＲＡＤ（Ａ（０）））＊１２９ 　　ＥＷＸ（Ｄ＋１）＝１２３＋ＣＯＳ（ＲＡＤ（Ａ（１）））＊１２９ 　　ＥＷＹ（Ｄ）＝０：ＥＷＹ（Ｄ＋１）＝１８０ 　　ＥＷＣ＝ＲＮＤ（１６） 　　ＳＰＣＨＲ　Ｄ，３５，ＥＷＣ，０，０，０ 　　ＳＰＯＦＳ　Ｄ，ＥＷＸ（Ｄ），ＥＷＹ（Ｄ） 　　ＳＰＯＦＳ　Ｄ，ＥＷＸ（Ｄ），１９０，３９０−ＥＷＳ（Ｄ）＊１２０ 　　ＳＰＣＨＲ　Ｄ＋１，３５，ＥＷＣ，０，０，０ 　　ＳＰＯＦＳ　Ｄ＋１，ＥＷＸ（Ｄ＋１），ＥＷＹ（Ｄ＋１） 　　ＳＰＯＦＳ　Ｄ＋１，ＥＷＸ（Ｄ＋１），−２０，４００−ＥＷＳ（Ｄ＋１）＊１２０ 　　ＥＷＧ（Ｄ）＝０ 　　ＥＷＧ（Ｄ＋１）＝０ 　　Ｄ＝Ｄ＋２ 　　ＩＦ　Ｄ＞＝９５　ＴＨＥＮ　Ｄ＝１０ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿２４ 　　ＲＥＴＵＲＮ 　＠Ｓ１１＿２５ 　　ＩＦ　ＴＴＴ＝＝３０　ＡＮＤ　ＴＴ＝＝０　ＴＨＥＮ　ＳＬＤ＝０．０８：ＧＯＴＯ　＠Ｓ１１＿２５＿２ 　　ＩＦ　ＴＴＴ＝＝２０　ＡＮＤ　ＴＴ＝＝０　ＴＨＥＮ　ＳＬＤ＝０．１：ＧＯＴＯ　＠Ｓ１１＿２５＿２ 　　ＩＦ　ＴＴＴ＝＝１０　ＡＮＤ　ＴＴ＝＝０　ＴＨＥＮ　ＳＬＤ＝０．１２：ＧＯＴＯ　＠Ｓ１１＿２５＿２ 　　ＲＥＴＵＲＮ 　　＠Ｓ１１＿２５＿２ 　　　ＦＯＲ　Ｉ＝０　ＴＯ　ＥＷＧＧ 　　　　ＥＷＳ（Ｉ）＝ＳＬＤ＋ＲＮＤ（３）＋（ＲＮＤ（３）／１０）＋（ＲＮＤ（３）／１００） 　　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠ＳＰＥＬＬ 　　ＳＰＳＥＴ　０，３０４，０，０，０，０，６４，３２ 　　ＳＰＳＣＡＬＥ　０，２００ 　　ＳＰＳＥＴ　１，３０４，０，０，０，０，６４，３２ 　　ＳＰＳＣＡＬＥ　１，２００ 　　ＳＰＯＦＳ　０，２６０，０ 　　ＳＰＯＦＳ　１，−１０４，１７０ 　　ＳＰＯＦＳ　０，−１０４，０，１００ 　　ＳＰＯＦＳ　１，２６０，１７０，１００ 　　ＲＥＴＵＲＮ 　＠ＧＲＡＺＥ 　　ＦＯＲ　Ｇ＝１０　ＴＯ　ＥＷＧＧ 　　　ＳＰＲＥＡＤ（Ｇ），Ｗ，Ｗ，Ｗ，Ｗ，Ｃ 　　　ＩＦ　Ｃ＝＝３８４　ＴＨＥＮ　＠ＧＲＡＺＥ２ 　　　ＩＦ　ＳＰＨＩＴＳＰ（９９，Ｇ）＝＝ＴＲＵＥ　ＡＮＤ　ＥＷＧ（Ｇ）＝＝０　ＴＨＥＮ　ＥＷＧ（Ｇ）＝１：ＧＲ＝ＧＲ＋１：ＳＣ＝ＳＣ＋１００：ＢＥＥＰ　２３：ＢＥＥＰ　２３：ＢＥＥＰ　２３ 　　　＠ＧＲＡＺＥ２ 　　　ＮＥＸＴ 　　ＲＥＴＵＲＮ 　＠ＥＮＥＭＹ 　　ＩＦ　ＥＮＴ＞＝１５０　ＴＨＥＮ　ＥＮＴ＝０　ＥＬＳＥ　ＥＮＴ＝ＥＮＴ＋１：ＲＥＴＵＲＮ 　　ＥＸ＝ＲＮＤ（２２０） 　　ＥＹ＝ＲＮＤ（１００） 　　ＳＰＯＦＳ　２，ＥＸ，ＥＹ，１００ 　　ＲＥＴＵＲＮ ＢＧＭＣＬＥＡＲ　 ＠Ｐ ＤＡＴＡ　”：０Ｔ１６０ ＤＡＴＡ　”［Ｏ４＠２５ ＤＡＴＡ　”［［＜Ｄ１６−＞Ｂ１６−Ｆ１６］４＜Ｃ８Ｒ１６Ｃ１６Ｒ８Ｃ８＞ ＤＡＴＡ　”［＜Ｄ１６−＞Ｂ１６−Ｆ１６］４＜Ｅ８−Ｒ１６Ｅ１６−Ｒ８Ｅ８−＞］２ ＤＡＴＡ　”［＜Ｄ１６−＞Ｂ１６−Ｆ１６］４＜Ｃ８Ｒ１６Ｃ１６Ｒ８Ｃ８＞ ＤＡＴＡ　”［＜Ｄ１６−＞Ｂ１６−Ｆ１６］４＜Ｅ８−Ｒ１６Ｅ１６−Ｒ８Ｅ８−＞ ＤＡＴＡ　”［＜Ｄ１６−＞Ｂ１６−Ｆ１６］４＜Ｃ８Ｒ１６Ｃ１６Ｒ８Ｃ８＞ ＤＡＴＡ　”［＜Ｄ１６−＞Ｂ１６−Ｆ１６］４＜Ｅ８−Ｒ１６Ｅ１６−Ｒ８Ｅ８−＞ ＤＡＴＡ　”＠２９ ＤＡＴＡ　”Ｆ８Ｒ８Ｄ８−Ｒ８Ｅ８Ｒ８Ｃ８Ｒ８ ＤＡＴＡ　”Ｇ８Ｒ８Ｅ８Ｒ８Ｅ８−Ｒ８Ｇ８−Ｒ８ ＤＡＴＡ　”Ｆ８Ｒ８Ｄ８−Ｒ８Ｅ８Ｒ８Ｃ８Ｒ８ ＤＡＴＡ　”Ｇ８Ｒ８Ｅ８Ｒ８Ｅ２− ＤＡＴＡ　”Ｆ８Ｒ８Ｄ８−Ｒ８Ｅ８Ｒ８Ｃ８Ｒ８ ＤＡＴＡ　”Ｇ８Ｒ８Ｅ８Ｒ８Ｅ８−Ｒ８Ｇ８−Ｒ８ ＤＡＴＡ　”Ｆ８Ｒ８Ｄ８−Ｒ８Ｅ８Ｒ８Ｃ８Ｒ８ ＤＡＴＡ　”Ｇ８Ｒ８Ｅ８Ｒ８Ｅ２−＞ ＤＡＴＡ　”＠２６ ＤＡＴＡ　”Ｏ４［Ｂ８−Ｒ８＜Ｆ８Ｒ８Ｃ８Ｒ８Ｆ８Ｒ８ ＤＡＴＡ　”Ｄ８−Ｒ８Ｅ８−Ｆ８Ｅ８−Ｒ８Ｇ８Ｒ８ ＤＡＴＡ　”Ｂ８−Ｆ８＜Ｃ８Ｄ８−Ｃ８Ｄ１６−Ｃ１６＞Ｂ８−Ａ８− ＤＡＴＡ　”Ｆ８Ａ８−Ｅ８−Ｆ８Ｄ２−＞ ＤＡＴＡ　”Ｂ８−Ｒ８＜Ｆ８Ｒ８Ｃ８Ｒ８Ｆ８Ｒ８ ＤＡＴＡ　”Ｄ８−Ｒ８Ｅ８−Ｆ８Ｅ８−Ｒ８Ｇ８Ｒ８ ＤＡＴＡ　”Ｂ８−Ｆ８＜Ｃ８Ｄ８−Ｃ８Ｄ１６−Ｃ１６＞Ｂ８−Ａ８− ＤＡＴＡ　”Ｂ１−］２＞ ＤＡＴＡ　”＠３０ ＤＡＴＡ　”［Ｂ１２−Ｆ１２Ｅ１２−］４ ＤＡＴＡ　”［Ｂ１２−Ｆ１２Ｅ１２−］４ ＤＡＴＡ　”［Ａ１２Ｆ１２Ｄ１２］４ ＤＡＴＡ　”［Ａ１２Ｆ１２Ｄ１２］４ ＤＡＴＡ　”［Ａ１２Ｆ１２Ｄ１２］２［Ｇ１２Ｅ１２Ｃ１２］２ ＤＡＴＡ　”Ｆ１２Ｄ１２＞Ａ１２＜Ｅ１２Ｆ１２Ｇ１２ＤＲ８＞Ａ１６＜Ｃ１６ ＤＡＴＡ　”［Ｄ１２＞Ａ１２Ｆ１２＜］２［Ｅ１２Ｃ１２＞Ｇ１２＜］２ ＤＡＴＡ　”Ｅ１２Ｄ１２−＞Ａ１２＜Ｅ１２Ｆ１２Ｇ１２ＡＲ ＤＡＴＡ　”［Ａ１２Ｆ１２Ｄ１２］２［Ｇ１２Ｅ１２Ｃ１２］２ ＤＡＴＡ　”Ｆ１２Ｄ１２＞Ａ１２＜Ｅ１２Ｆ１２Ｇ１２ＤＲ８＞Ａ１６＜Ｃ１６ ＤＡＴＡ　”［Ｄ１２＞Ａ１２Ｆ１２＜］２［Ｅ１２Ｃ１２＞Ｇ１２＜］２ ＤＡＴＡ　”［Ｅ１２Ｄ１２−＞Ｇ１２＜］２Ａ８Ｒ１６Ａ１６Ｒ８Ａ８ ＤＡＴＡ　”＠２４ ＤＡＴＡ　”＜＜Ｄ２−Ｃ２ ＤＡＴＡ　”Ｅ２Ｅ２− ＤＡＴＡ　”Ｒ８Ｄ８−Ｒ８Ｄ８−Ｒ８Ｃ８Ｒ８Ｃ８ ＤＡＴＡ　”Ｒ８Ｅ８Ｒ８Ｅ８Ｒ８Ｅ８−Ｒ８Ｅ８− ＤＡＴＡ　”Ｒ８Ｄ８−Ｒ８Ｄ８−Ｒ８Ｃ８Ｒ８Ｃ８ ＤＡＴＡ　”Ｒ８Ｅ８Ｒ８Ｅ８Ｒ８Ｅ８−Ｒ８Ｅ８− ＤＡＴＡ　”Ｒ８Ｄ８−Ｒ８Ｄ８−Ｒ８Ｃ８Ｒ８Ｃ８ ＤＡＴＡ　”Ｒ８Ｅ８Ｒ８Ｅ８Ｒ８Ｅ８−Ｒ８Ｅ８−＞＞ ＤＡＴＡ　”Ｆ８Ｒ８Ｄ８−Ｒ８Ｅ８Ｒ８Ｃ８Ｒ８ ＤＡＴＡ　”Ｇ８Ｒ８Ｅ８Ｒ８Ｅ８−Ｒ８Ｇ８−Ｒ８ ＤＡＴＡ　”Ｆ８Ｒ８Ｄ８−Ｒ８Ｅ８Ｒ８Ｃ８Ｒ８ ＤＡＴＡ　”Ｇ８Ｒ８Ｅ８Ｒ８Ｅ２− ＤＡＴＡ　”Ｆ８Ｒ８Ｄ８−Ｒ８Ｅ８Ｒ８Ｃ８Ｒ８ ＤＡＴＡ　”Ｇ８Ｒ８Ｅ８Ｒ８Ｅ８−Ｒ８Ｇ８−Ｒ８ ＤＡＴＡ　”Ｆ８Ｒ８Ｄ８−Ｒ８Ｅ８Ｒ８Ｃ８Ｒ８ ＤＡＴＡ　”Ｇ８Ｒ８Ｅ８Ｒ８Ｅ２−＞ ＤＡＴＡ　”Ｒ１＜ ＤＡＴＡ　”＠２６ ＤＡＴＡ　”Ｂ８−Ｒ８＜Ｆ８Ｒ８Ｃ８Ｒ８Ｆ８Ｒ８ ＤＡＴＡ　”Ｄ８−Ｒ８Ｅ８−Ｆ８Ｅ８−Ｒ８Ｇ８Ｒ８ ＤＡＴＡ　”Ｂ８−Ｆ８＜Ｃ８Ｄ８−Ｃ８Ｄ１６−Ｃ１６＞Ｂ８−Ａ８− ＤＡＴＡ　”Ｆ８Ａ８−Ｅ８−Ｆ８Ｄ２−＞ ＤＡＴＡ　”Ｂ８−Ｒ８＜Ｆ８Ｒ８Ｃ８Ｒ８Ｆ８Ｒ８ ＤＡＴＡ　”Ｄ８−Ｒ８Ｅ８−Ｆ８Ｅ８−Ｒ８Ｇ８Ｒ８ ＤＡＴＡ　”Ｂ８−Ｆ８＜Ｃ８Ｄ８−Ｃ８Ｄ１６−Ｃ１６＞Ｂ８−Ａ８− ＤＡＴＡ　”Ｂ１−＞ ＤＡＴＡ　”Ｂ８−Ｒ８＜Ｆ８Ｒ８Ｃ８Ｒ８Ｆ８Ｒ８ ＤＡＴＡ　”Ｄ８−Ｒ８Ｅ８−Ｆ８Ｅ８−Ｒ８Ｇ８Ｒ８ ＤＡＴＡ　”Ｂ８−Ｆ８＜Ｃ８Ｄ８−Ｃ８Ｄ１６−Ｃ１６＞Ｂ８−Ａ８− ＤＡＴＡ　”Ｆ８Ａ８−Ｅ８−Ｆ８Ｄ２−＞ ＤＡＴＡ　”Ｂ８−Ｒ８＜Ｆ８Ｒ８Ｃ８Ｒ８Ｆ８Ｒ８ ＤＡＴＡ　”Ｄ８−Ｒ８Ｅ８−Ｆ８Ｅ８−Ｒ８Ｇ８Ｒ８ ＤＡＴＡ　”Ｂ８−Ｆ８＜Ｃ８Ｄ８−Ｃ８Ｄ１６−Ｃ１６＞Ｂ８−Ａ８− ＤＡＴＡ　”Ｂ１−＞ ＤＡＴＡ　”］ ’−−− ＤＡＴＡ　”：１ ＤＡＴＡ　”［Ｏ３＠２７ ＤＡＴＡ　”［Ｒ２．Ｅ８−Ｒ１６Ｅ１６−Ｒ８Ｅ８− ＤＡＴＡ　”Ｒ２．Ｇ８−Ｒ１６Ｇ１６−Ｒ８Ｇ８−］４ ＤＡＴＡ　”［Ｒ１］７＜Ｇ８Ｒ８Ｅ８Ｒ８Ｅ２−＞ ＤＡＴＡ　”［Ｏ４Ｆ８Ｒ８＜Ｄ８−＞Ｒ８Ａ８−Ｒ８＜Ｄ８−＞Ｒ８ ＤＡＴＡ　”Ｂ８−Ｒ８＜Ｃ８Ｄ８−Ｃ８Ｒ８Ｅ８−Ｒ８ ＤＡＴＡ　”Ｆ８Ｄ８−Ａ８−Ｂ８−Ａ８−Ｂ１６−Ａ１６−Ｄ８−Ｄ８− ＤＡＴＡ　”Ｄ８−Ｆ８Ｃ８Ｄ８−＞Ｂ２− ＤＡＴＡ　”Ｆ８Ｒ８＜Ｄ８−＞Ｒ８Ａ８−Ｒ８＜Ｄ８−＞Ｒ８ ＤＡＴＡ　”Ｂ８−Ｒ８＜Ｃ８Ｄ８−Ｃ８Ｒ８Ｅ８−Ｒ８ ＤＡＴＡ　”Ｆ８Ｄ８−Ａ８−Ｂ８−Ａ８−Ｂ１６−Ａ１６−Ｄ８−Ｄ８− ＤＡＴＡ　”Ｆ１］２ ＤＡＴＡ　”Ｏ４［Ｒ１］１１Ｒ２Ｆ８Ｒ１６Ｆ１６Ｒ８Ｆ８ ＤＡＴＡ　”Ｏ５Ｒ１Ｒ１［Ｒ８Ｆ８Ｒ８Ｆ８Ｒ８Ｅ８Ｒ８Ｅ８ ＤＡＴＡ　”Ｒ８Ｇ８Ｒ８Ｇ８Ｒ８Ｇ８−Ｒ８Ｇ８−］３ ＤＡＴＡ　”［Ｒ１］７Ｇ８Ｒ８Ｅ８Ｒ８Ｅ２−Ｒ１ ＤＡＴＡ　”［Ｏ４Ｆ８Ｒ８＜Ｄ８−＞Ｒ８Ａ８−Ｒ８＜Ｄ８−＞Ｒ８ ＤＡＴＡ　”Ｂ８−Ｒ８＜Ｃ８Ｄ８−Ｃ８Ｒ８Ｅ８−Ｒ８ ＤＡＴＡ　”Ｆ８Ｄ８−Ａ８−Ｂ８−Ａ８−Ｂ１６−Ａ１６−Ｄ８−Ｄ８− ＤＡＴＡ　”Ｄ８−Ｆ８Ｃ８Ｄ８−＞Ｂ２− ＤＡＴＡ　”Ｆ８Ｒ８＜Ｄ８−＞Ｒ８Ａ８−Ｒ８＜Ｄ８−＞Ｒ８ ＤＡＴＡ　”Ｂ８−Ｒ８＜Ｃ８Ｄ８−Ｃ８Ｒ８Ｅ８−Ｒ８ ＤＡＴＡ　”Ｆ８Ｄ８−Ａ８−Ｂ８−Ａ８−Ｂ１６−Ａ１６−Ｄ８−Ｄ８− ＤＡＴＡ　”Ｆ１］２ ＤＡＴＡ　”］ ’−−− ＤＡＴＡ　”：２＠２７ ＤＡＴＡ　”＞＞［［Ｂ−．＜Ｆ８＆Ｆ８Ｂ８−＞Ｃ２ ＤＡＴＡ　”Ｂ−．＜Ｆ８＆Ｆ８Ｂ８−Ｅ２−］２ ＤＡＴＡ　”＞Ｇ−．＜Ｄ８−＆Ｄ８−Ｇ８−Ｃ２ ＤＡＴＡ　”＞Ｇ−．＜Ｄ８−＆Ｄ８−Ｇ８−Ａ２ ＤＡＴＡ　”＞Ｂ−．＜Ｆ８＆Ｆ８Ｂ８−Ｃ２ ＤＡＴＡ　”＞Ｂ−．＜Ｆ８＆Ｆ８Ｂ８−Ｅ２− ＤＡＴＡ　”Ｏ２［［Ｂ８−＜Ｆ８＞］２［Ａ８＜Ｇ８＞］２ ＤＡＴＡ　”［Ｃ８Ｇ８］２［Ｂ８＜Ｇ８−＞］２ ＤＡＴＡ　”［Ｂ８−＜Ｆ８＞］２［Ａ８−Ｇ８］２ ＤＡＴＡ　”［Ｃ８Ｇ８］２［Ｂ８＜Ｇ８−＞］２］２ ＤＡＴＡ　”Ｏ３［Ｇ２−Ａ２−Ｂ２−Ｇ２Ｇ２−Ａ２−Ｂ１−］４ ＤＡＴＡ　”Ｏ２Ｂ１−＆Ｂ１−＜Ｄ１＆Ｄ２．Ｄ８Ｃ８ ＤＡＴＡ　”Ｏ３［Ｂ８−＜Ｆ８＞］２［Ｃ８Ｇ８］２ ＤＡＴＡ　”［Ｄ８Ａ８］３Ｃ８Ｇ８ ＤＡＴＡ　”［Ｂ８−＜Ｆ８＞］２［Ｃ８Ｇ８］２ ＤＡＴＡ　”［Ｄ８−Ｇ８］２［Ｄ８−Ｇ８］２ ＤＡＴＡ　”［Ｂ８−＜Ｆ８＞］２［Ｃ８Ｇ８］２ ＤＡＴＡ　”［Ｄ８Ａ８］２Ｄ８Ａ８Ｃ８Ｇ８ ＤＡＴＡ　”［Ｂ８−＜Ｆ８＞］２［Ｃ８Ｇ８］２ ＤＡＴＡ　”［Ｄ８−Ｇ８］２Ｄ８Ｒ１６Ｄ１６Ｒ８Ｄ８ ＤＡＴＡ　”Ｏ２［［Ｂ８−＜Ｆ８＞］２［Ａ８＜Ｇ８＞］２ ＤＡＴＡ　”［Ｃ８Ｇ８］２［Ｂ８＜Ｇ８−＞］２ ＤＡＴＡ　”［Ｂ８−＜Ｆ８＞］２［Ａ８−Ｇ８］２ ＤＡＴＡ　”［Ｃ８Ｇ８］２［Ｂ８＜Ｇ８−＞］２］４Ｒ１ ＤＡＴＡ　”Ｏ３［Ｇ２−Ａ２−Ｂ２−Ｇ２Ｇ２−Ａ２−Ｂ１−］４］ ＤＡＴＡ　０ ＢＧＭＳＥＴＤ　１２９，＠Ｐ ＲＥＴＵＲＮ

集計

選択肢	投票
簡単すぎる	3
まあまあ	2
満身創痍	7
(ﾟ∀ﾟ)ｱﾋｬﾋｬﾋｬﾋｬ	27

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

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

• 名無しさん : パッケージしてほしかった (2014/08/20 (水) 23:58:27)
• kyabetu : パッケージ化は試したんですがなかなかできなくて諦めました。許せ (2014/08/21 (木) 02:35:27)
• kyabetu : バグがあったので直してます (2014/08/21 (木) 07:39:58)
• kyabetu : 本体を更新しました(バグ取り) (2014/08/21 (木) 12:16:55)
• 名無しさん : コンテニューが欲しいw (2014/08/22 (金) 16:39:56)
• kyabetu : 本体を更新しました(名無しさんの要望であるコンティニューをつけました) (2014/08/22 (金) 20:54:47)
• kyabetu : ページの更新(1から5までの攻略のコツ？を載せました) (2014/08/22 (金) 21:22:58)
• ↑3の名無しさん : ↑2よっしゃー! (2014/08/22 (金) 23:19:21)
• kyabetu : 本体を更新しました(コンティニュー機能のバグ取り) (2014/08/23 (土) 14:06:20)
• kyabetu : 本体を更新しました(EXステージのバグ取り) (2014/08/29 (金) 17:46:53)
• 名無しさん : 投票の数www (2014/08/30 (土) 22:22:52)
• kyabetu : 本体とページを更新しました(ステージ調整とページの集計) (2014/09/03 (水) 19:34:22)

お名前: