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

パンくずリスト

• トップ
• Toukou
• NaのmkII作品集

2020年4月14日投稿 / 投稿者 : Na / タグ : 投稿プログラム ゲーム 実用ツール 音楽 QRコード mkII専用

概要

mkIIで作った過去作品を投稿する気になったので投稿しました。
投稿日は2020年になってますが、作ったのはプチコンを始めた頃〜1年ぐらい前までのものです。

スロットゲーム

• たぶんmkIIで最初に作ったゲームです。
• 初代プチコンの公式プログラムリストのスロットゲームの改造です。
• Y,X,Aボタンで止めます。
• プログラムリストに隠しコマンド書いてあるんだけどこれは何()

+

プログラムリスト(73行)

＠ＲＥＳＥＴ ＣＬＥＡＲ ＤＩＭ　ＮＵＭ（４） ＷＡＩＴ　２０ ＩＦ　ＢＧＭＣＨＫ（）＝＝０　ＴＨＥＮ　ＢＧＭＰＬＡＹ　１４ ＣＯＬ＝ＲＮＤ（１１）＋２ ＮＵＭ（１）＝ＲＮＤ（１０） ＮＵＭ（２）＝ＲＮＤ（１０） ＮＵＭ（３）＝ＲＮＤ（１０） ＠ＬＯＯＰ ＣＬＳ ＩＦ　ＢＴＹ＝＝０　ＴＨＥＮ　ＮＵＭ（１）＝ＮＵＭ（１）＋１ ＩＦ　ＢＴＸ＝＝０　ＴＨＥＮ　ＮＵＭ（２）＝ＮＵＭ（２）＋１ ＩＦ　ＢＴＡ＝＝０　ＴＨＥＮ　ＮＵＭ（３）＝ＮＵＭ（３）＋１ ＦＯＲ　Ｚ＝１　ＴＯ　３ 　　　　ＩＦ　ＮＵＭ（Ｚ）＝＝１０　ＴＨＥＮ　ＮＵＭ（Ｚ）＝０ ＮＥＸＴ ＬＯＣＡＴＥ　１０，１０ ＰＲＩＮＴ　”Жスロット　ケ゛−ムЖ” ＬＯＣＡＴＥ　１０，１１ ＰＲＩＮＴ　”　　┌─┬─┬─┐” ＬＯＣＡＴＥ　１０，１２ ＰＲＩＮＴ　”　　│”； ＣＯＬＯＲ　ＣＯＬ ＰＲＩＮＴ　ＮＵＭ（１）； ＣＯＬＯＲ　１５ ＰＲＩＮＴ　”│”； ＣＯＬＯＲ　ＣＯＬ ＰＲＩＮＴ　ＮＵＭ（２）； ＣＯＬＯＲ　１５ ＰＲＩＮＴ　”│”； ＣＯＬＯＲ　ＣＯＬ ＰＲＩＮＴ　ＮＵＭ（３）； ＣＯＬＯＲ　１５ ＰＲＩＮＴ　”│” ＬＯＣＡＴＥ　１０，１３ ＰＲＩＮＴ　”　　└─┴─┴─┘” ＬＯＣＡＴＥ　１０，１４ ＰＲＩＮＴ　”　　　Х　Ф　А” ’Кн↑テ゛　スヘ゜シャル　モ−ト゛ ＩＦ　ＢＵＴＴＯＮ（０）＝＝７６９　ＴＨＥＮ　ＳＰＣＭＤ＝ＮＯＴ　ＳＰＣＭＤ ＩＦ　ＢＵＴＴＯＮ（０）　ＡＮＤ　１２８　ＴＨＥＮ　ＢＴＹ＝１ ＩＦ　ＢＵＴＴＯＮ（０）　ＡＮＤ　６４　ＴＨＥＮ　ＢＴＸ＝１ ＩＦ　ＢＵＴＴＯＮ（０）　ＡＮＤ　１６　ＴＨＥＮ　ＢＴＡ＝１ ＩＦ　（ＢＴＹ＋ＢＴＸ＋ＢＴＡ）＝＝３　ＴＨＥＮ　ＧＯＴＯ　＠ＳＴＰ ＩＦ　ＳＰＣＭＤ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＶＳＹＮＣ　７　ＥＬＳＥ　ＶＳＹＮＣ　３０ ＧＯＴＯ　＠ＬＯＯＰ ＠ＳＴＰ ＧＯＳＵＢ　＠ＡＴＲＨＺＲ ＢＧＭＶＯＬ　０，５０ ＩＦ　ＡＴＲ＝＝０　ＴＨＥＮ　ＢＧＭＰＬＡＹ　１，６ ＩＦ　ＡＴＲ＝＝２　ＴＨＥＮ　ＢＧＭＰＬＡＹ　１，４ ＩＦ　ＡＴＲ＝＝３　ＴＨＥＮ　ＢＧＭＰＬＡＹ　１，５ ＠ＰＬＳ ＩＦ　ＢＧＭＣＨＫ（１）＝＝ＴＲＵＥ　ＴＨＥＮ　＠ＰＬＳ ＢＧＭＶＯＬ　０，１２７ ＬＯＣＡＴＥ　１０，１６ ＰＲＩＮＴ　”　　ツツ゛ケル＝А” ＬＯＣＡＴＥ　１０，１７ ＰＲＩＮＴ　”　　　ヤメル　＝Б” ＠ＣＨＫ ＩＦ　ＢＵＴＴＯＮ（０）＝＝１６　ＴＨＥＮ　＠ＲＥＳＥＴ ＩＦ　ＢＵＴＴＯＮ（０）＝＝３２　ＴＨＥＮ　＠ＯＷＡＲＩ ＧＯＴＯ　＠ＣＨＫ ＠ＡＴＲＨＺＲ ＩＦ　ＮＵＭ（１）＝＝ＮＵＭ（２）　ＴＨＥＮ　ＡＴＲ＝ＡＴＲ＋１ ＩＦ　ＮＵＭ（２）＝＝ＮＵＭ（３）　ＴＨＥＮ　ＡＴＲ＝ＡＴＲ＋１ ＩＦ　ＮＵＭ（３）＝＝ＮＵＭ（１）　ＴＨＥＮ　ＡＴＲ＝ＡＴＲ＋１ ＩＦ　ＡＴＲ＝＝１　ＴＨＥＮ　ＡＴＲ＝２ ＲＥＴＵＲＮ ＠ＯＷＡＲＩ ＥＮＤ

アナログ時計

• グラフィックで作った時計です。以上。

+

プログラムリスト(83行)

ＣＥＮＴＥＲＸ＝２５６／２ ＣＥＮＴＥＲＹ＝１９２／２ Ｒ＝１９２／３ ＣＯＬ＝１５ ＡＣＬＳ ’ＬＯＣＡＴＥ　９，８：？”タタ゛イマ　ノ　ニチシ゛ハ” ＬＯＣＡＴＥ　１０，２２：？”ＳＥＬＥＣＴ　テ゛オワル” ’ＬＯＣＡＴＥ　１５，５：？”１２” ’ＬＯＣＡＴＥ　１５，１９：？”６” ’ＬＯＣＡＴＥ　２３，１２：？”３” ’ＬＯＣＡＴＥ　９，１２：？”９” ＠１ 　ＬＯＣＡＴＥ　１１，１：？ＤＡＴＥ＄ 　’ＬＯＣＡＴＥ　１１，１１：？ＴＩＭＥ＄ 　 　ＨＯＵＲ＝ＶＡＬ（ＬＥＦＴ＄（ＴＩＭＥ＄，２）） 　ＭＩＮ＝ＶＡＬ（ＭＩＤ＄（ＴＩＭＥ＄，３，２）） 　ＳＥＣ＝ＶＡＬ（ＲＩＧＨＴ＄（ＴＩＭＥ＄，２）） 　ＨＯＵＲ＝ＨＯＵＲ＋ＭＩＮ／６０＋ＳＥＣ／３６００ 　ＭＩＮ＝ＭＩＮ＋ＳＥＣ／６０ 　ＧＣＬＳ　０ 　ＧＣＯＬＯＲ　ＣＯＬ 　ＧＣＩＲＣＬＥ　ＣＥＮＴＥＲＸ，ＣＥＮＴＥＲＹ，Ｒ ＠ＤＡＴ ’Ｘ，ホセイ，Ｙ，ホセイ，キャラ 　ＤＡＴＡ　９０，−８，８，１ 　ＤＡＴＡ　９０，０，８，２ 　ＤＡＴＡ　６０，−８，６，１ 　ＤＡＴＡ　３０，−９，１，２ 　ＤＡＴＡ　０，−１０，−４，３ 　ＤＡＴＡ　３３０，−９，−８，４ 　ＤＡＴＡ　３００，−８，−１０，５ 　ＤＡＴＡ　２７０，−４，−１２，６ 　ＤＡＴＡ　２４０，１，−１０，７ 　ＤＡＴＡ　２１０，２，−８，８ 　ＤＡＴＡ　１８０，３，−４，９ 　ＤＡＴＡ　１５０，２，１，１ 　ＤＡＴＡ　１５０，１０，１，０ 　ＤＡＴＡ　１２０，−２，６，１ 　ＤＡＴＡ　１２０，６，６，１ 　ＲＥＳＴＯＲＥ　＠ＤＡＴ 　ＦＯＲ　Ｉ＝１　ＴＯ　１５ 　　ＲＥＡＤ　Ｔ，Ｘ，Ｙ，Ｃ 　　ＧＰＵＴＣＨＲ　ＣＯＳ（ＲＡＤ（Ｔ））＊Ｒ＋Ｘ＋ＣＥＮＴＥＲＸ，ＣＥＮＴＥＲＹ−ＳＩＮ（ＲＡＤ（Ｔ））＊Ｒ＋Ｙ，”ＢＧＦ”，ＡＳＣ（ＳＴＲ＄（Ｃ）），０，１ 　ＮＥＸＴ ’ＨＯＵＲ 　ＤＥＧＲ＝ＨＯＵＲ／１２＊（−３６０）＋９０＋３６０ 　ＩＦ　ＤＥＧＲ＜０　ＴＨＥＮ　ＤＥＧＲ＝ＤＥＧＲ＋３６０ 　ＩＦ　ＤＥＧＲ＞３６０　ＴＨＥＮ　ＤＥＧＲ＝ＤＥＧＲ−３６０ 　ＴＨＥＴＡ＝ＲＡＤ（ＤＥＧＲ） 　ＬＯＮＧ＝Ｒ＊１／２ 　Ｘ＝ＣＯＳ（ＴＨＥＴＡ）＊ＬＯＮＧ＋ＣＥＮＴＥＲＸ 　Ｙ＝ＣＥＮＴＥＲＹ−ＳＩＮ（ＴＨＥＴＡ）＊ＬＯＮＧ 　ＧＬＩＮＥ　ＣＥＮＴＥＲＸ，ＣＥＮＴＥＲＹ，Ｘ，Ｙ ’ＭＩＮＵＴＥ 　ＤＥＧＲ＝ＭＩＮ／６０＊（−３６０）＋９０＋３６０ 　ＩＦ　ＤＥＧＲ＜０　ＴＨＥＮ　ＤＥＧＲ＝ＤＥＧＲ＋３６０ 　ＩＦ　ＤＥＧＲ＞３６０　ＴＨＥＮ　ＤＥＧＲ＝ＤＥＧＲ−３６０ 　ＴＨＥＴＡ＝ＲＡＤ（ＤＥＧＲ） 　ＬＯＮＧ＝Ｒ＊９／１０ 　Ｘ＝ＣＯＳ（ＴＨＥＴＡ）＊ＬＯＮＧ＋ＣＥＮＴＥＲＸ 　Ｙ＝ＣＥＮＴＥＲＹ−ＳＩＮ（ＴＨＥＴＡ）＊ＬＯＮＧ 　ＧＬＩＮＥ　ＣＥＮＴＥＲＸ，ＣＥＮＴＥＲＹ，Ｘ，Ｙ ’ＭＩＮＵＴＥ 　ＤＥＧＲ＝ＳＥＣ／６０＊（−３６０）＋９０＋３６０ 　ＩＦ　ＤＥＧＲ＜０　ＴＨＥＮ　ＤＥＧＲ＝ＤＥＧＲ＋３６０ 　ＩＦ　ＤＥＧＲ＞３６０　ＴＨＥＮ　ＤＥＧＲ＝ＤＥＧＲ−３６０ 　ＴＨＥＴＡ＝ＲＡＤ（ＤＥＧＲ） 　ＬＯＮＧ＝Ｒ＊９／１０ 　Ｘ＝ＣＯＳ（ＴＨＥＴＡ）＊ＬＯＮＧ＋ＣＥＮＴＥＲＸ 　Ｙ＝ＣＥＮＴＥＲＹ−ＳＩＮ（ＴＨＥＴＡ）＊ＬＯＮＧ 　ＧＬＩＮＥ　ＣＥＮＴＥＲＸ，ＣＥＮＴＥＲＹ，Ｘ，Ｙ ＶＳＹＮＣ　１０ ＧＯＴＯ　＠１

ビンボール

• 「ピンボール」ではない
• 左右キーで水の入ったビンを操作して上から落ちてくるボールを避けるという謎ゲームです
• ボールに当たったあと一定時間たつと終了になります

+

プログラムリスト(118行)

ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ ＬＯＡＤ　”ＳＰＵ０：ＢＩＮ”，ＦＡＬＳＥ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＠ＴＩＴＬＥ ＢＧＭＳＴＯＰ：ＣＬＳ：ＳＰＣＬＲ　 ＳＰＳＥＴ　０，１６，０，０，０，０，６４，６４ ＳＰＯＦＳ　０，０，０：ＳＰＳＣＡＬＥ　０，１５０ ＳＰＳＥＴ　１，３２，０，０，０，０，６４，６４ ＳＰＯＦＳ　１，１９２，９６：ＳＰＳＣＡＬＥ　１，１５０ ＳＰＯＦＳ　０，４０，３０，２００ ＳＰＯＦＳ　１，１３６，３０，２００ ’ＬＯＣＡＴＥ　９，５　：？”┛　　┛┛┠ ’ＬＯＣＡＴＥ　９，６　：？”┣┏━　　　━┳ ’ＬＯＣＡＴＥ　９，７　：？”┛　　　　　　┗ ’ＬＯＣＡＴＥ　９，８　：？”┫┠┠　　┠┗ ’ＬＯＣＡＴＥ　９，１０：？”┠┨┠┛┛　　　　　　┓ ’ＬＯＣＡＴＥ　９，１１：？”　┻　　　　　　　┻　┛ ’ＬＯＣＡＴＥ　９，１２：？”┻┻┻　　┏┏┏　┻　┛┳ ’ＬＯＣＡＴＥ　９，１３：？”┛┻　┛　　　　　┗　┯━ ＢＧＭＰＬＡＹ　０，９，７５ ＴＡＬＫ　”ヒ゛ンホ゛−ル＿＿＿＿ヒ゜ンホ゛−ルシ゛ャナイヨ？” ＷＡＩＴ　２００ ＬＯＣＡＴＥ　９，１７：？”ＰＲＥＳＳ　А　ＢＵＴＴＯＮ ＠ＡＢＴ ＩＦ　ＢＵＴＴＯＮ（）！＝１６　ＴＨＥＮ　＠ＡＢＴ ’シ゛ュンヒ゛ ＢＧＭＳＴＯＰ：ＣＬＥＡＲ：ＷＡＴＥＲ＝１０００ ＬＯＡＤ　”ＭＥＭ：ＢＩＮ”，ＦＡＬＳＥ：ＨＩ＝ＶＡＬ（ＭＥＭ＄） ＧＯＳＵＢ　＠ＰＲＴ ＳＰＳＥＴ　０，１，０，０，０，０，３２，８ ＢＸ＝６４：ＢＹ＝１４４：ＳＰＯＦＳ　０，ＢＸ，ＢＹ ＳＰＳＥＴ　１，０，０，０，０，０：ＳＰＯＦＳ　１，−２０，０ ＳＰＳＥＴ　２，０，０，０，０，０：ＳＰＯＦＳ　２，−２０，０ ＦＯＲ　Ｉ＝３　ＴＯ　５ 　ＳＰＳＥＴ　Ｉ，２，０，０，０，０ 　ＳＰＡＮＩＭ　Ｉ，４，１５ 　ＳＰＯＦＳ　Ｉ，ＲＮＤ（１４５），ＲＮＤ（１７７） ＮＥＸＴ ’ＳＰＡＮＩＭ　１，２，１５ ＶＳＹＮＣ　０ ＢＥＥＰ　０：ＶＳＹＮＣ　６０ ＢＥＥＰ　０：ＶＳＹＮＣ　６０ ＢＥＥＰ　０：ＶＳＹＮＣ　６０ ＢＥＥＰ　３２ ＢＧＭＰＬＡＹ　２ ’スタ−ト ＠ＬＯＯＰ ＶＳＹＮＣ　１ Ｂ＝ＢＵＴＴＯＮ（） ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＩＧＩ ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＨＩＤＡＲＩ ＧＯＳＵＢ　＠ＢＩＮＣＨＫ ＧＯＳＵＢ　＠ＢＡＬＬＣＨＫ ＧＯＳＵＢ　＠ＡＴＲＨＮＴ ＩＦ　ＦＬＯＯＲ（ＷＡＴＥＲ）＜＝０　ＴＨＥＮ　＠ＥＭＰＴＹ ＧＯＴＯ　＠ＬＯＯＰ ＠ＥＭＰＴＹ ＷＡＴＥＲ＝０：ＧＯＳＵＢ　＠ＰＲＴ ＢＧＭＰＬＡＹ　６ ＠ＢＧＭ１ ＩＦ　ＢＧＭＣＨＫ（）　ＴＨＥＮ　＠ＢＧＭ１ ＭＥＭ＄＝ＳＴＲ＄（ＳＣＯＲＥ） ＩＦ　ＳＣＯＲＥ＞ＨＩ　ＴＨＥＮ　ＳＡＶＥ　”ＭＥＭ：ＢＩＮ” ＧＯＴＯ　＠ＴＩＴＬＥ ＠ＭＩＧＩ ＢＸ＝ＢＸ＋１：ＳＰＯＦＳ　０，ＢＸ，ＢＹ，１ ＲＥＴＵＲＮ ＠ＨＩＤＡＲＩ ＢＸ＝ＢＸ−１：ＳＰＯＦＳ　０，ＢＸ，ＢＹ，１ ＲＥＴＵＲＮ ＠ＢＩＮＣＨＫ ＩＦ　ＢＸ＜０　ＴＨＥＮ　ＢＸ＝０ ’１６０−３２＝１２８ ＩＦ　ＢＸ＞１２８　ＴＨＥＮ　ＢＸ＝１２８ ＳＰＯＦＳ　０，ＢＸ，ＢＹ ＲＥＴＵＲＮ ＠ＢＡＬＬＣＨＫ ＴＭ＝（ＴＭ＋１）　ＡＮＤ　６３ ＩＦ　ＴＭ！＝０　ＴＨＥＮ　ＲＥＴＵＲＮ ’１６０−１６＝１４４ ＢＥＥＰ　６ ＳＣＯＲＥ＝ＳＣＯＲＥ＋５ ＬＸ＝ＲＮＤ（１４５） ＳＰＯＦＳ　１，ＬＸ，−１６ ＳＰＯＦＳ　１，ＬＸ，１９２，６４ ＬＸ２＝ＲＮＤ（１４５） ＳＰＯＦＳ　２，ＬＸ２，−１６ ＳＰＯＦＳ　２，ＬＸ２，１９２，６４ ＲＥＴＵＲＮ ＠ＡＴＲＨＮＴ ＩＦ　ＳＰＨＩＴＳＰ（０，１）　ＴＨＥＮ　ＢＥＥＰ　１３：ＳＰＥＥＤ＝ＳＰＥＥＤ＋１０：ＳＰＯＦＳ　１，−２０，−２０ ＩＦ　ＳＰＨＩＴＳＰ（０，２）　ＴＨＥＮ　ＢＥＥＰ　１３：ＳＰＥＥＤ＝ＳＰＥＥＤ＋１０：ＳＰＯＦＳ　２，−２０，−２０ ＦＯＲ　Ｉ＝１　ＴＯ　２ 　ＦＯＲ　Ｊ＝３　ＴＯ　５ 　　ＩＦ　ＳＰＨＩＴＳＰ（Ｉ，Ｊ）　ＴＨＥＮ　ＢＥＥＰ　７：ＳＣＯＲＥ＝ＳＣＯＲＥ＋３０：ＳＰＯＦＳ　Ｉ，−２０，−２０ 　ＮＥＸＴ ＮＥＸＴ ＷＡＴＥＲ＝ＷＡＴＥＲ−ＳＰＥＥＤ／６０ ＧＯＳＵＢ　＠ＰＲＴ：ＲＥＴＵＲＮ ＠ＰＲＴ ＣＬＳ ＬＯＣＡＴＥ　２２，５　：？”ＨＩＳＣＯＲＥ：” ＬＯＣＡＴＥ　２２，８　：？”ＳＣＯＲＥ　　：” ＬＯＣＡＴＥ　２２，１１：？”ＳＰＥＥＤ　　：” ＬＯＣＡＴＥ　２２，１４：？”ＷＡＴＥＲ　　：” ＬＯＣＡＴＥ　２４，６：？ＨＩ ＬＯＣＡＴＥ　２４，９：？ＳＣＯＲＥ ＬＯＣＡＴＥ　２４，１２：？ＳＰＥＥＤ；”ｍＬ／ｓ” ＬＯＣＡＴＥ　２４，１５：？ＦＬＯＯＲ（ＷＡＴＥＲ）；”ｍＬ” ＦＯＲ　Ｉ＝０　ＴＯ　２３ 　ＬＯＣＡＴＥ　２０，Ｉ：？”з”； ＮＥＸＴ ＲＥＴＵＲＮ

STOP CAR

• レースゲーム...ではなく、ゴールの線にどれだけ近いところで車を停止できるかというゲームです。
• メニューでは左右キーで選択、Aで決定、Bで戻る(上下キーが使えそうな気がするけど使えません)
• ゲーム中は左右で移動、Aでアクセル、Bでブレーキ
• コインをとると+100点、他の車(?)に当たると減点です
• 地味にランキングが実装されてるけど...

+

プログラムリスト(327行)

＠ＢＥＧ ＢＧＭＳＴＯＰ：ＡＣＬＳ：ＣＬＥＡＲ：ＳＹＳＢＥＥＰ＝０ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＳＰＥＥＤ＝０：ＣＡＲＸ＝９６：ＣＯＬ＝７ ＤＩＭ　ＭＯＤＥ（３），ＭＯＤＥＨＩ（３，２），ＨＩ＄（１１，２），ＨＩＶ（１１，４） ＲＥＳＴＯＲＥ　＠Ｄ ＦＯＲ　Ｉ＝０　ＴＯ　２ 　ＦＯＲ　Ｊ＝０　ＴＯ　１ 　　ＲＥＡＤ　ＭＯＤＥＨＩ（Ｉ，Ｊ） 　ＮＥＸＴ ＮＥＸＴ ＠Ｄ ＤＡＴＡ　０，７，０，５，０，１５ ＭＯＤＥ（２）＝ＲＮＤ（１６） ＬＯＡＤ”ＳＰＵ０：０ＣＡＲ”，０ ＬＯＡＤ”ＳＰＵ１：１ＣＡＲ＿ＳＰ”，０ ＬＯＡＤ”ＢＧＵ０：０ＣＡＲ”，０ ＬＯＡＤ”ＢＧＵ１：１ＣＡＲ”，０ ＬＯＡＤ”ＢＧＵ２：２ＣＡＲ”，０ ＬＯＡＤ”ＳＣＵ１：１ＣＡＲ”，０ ＬＯＡＤ”ＳＣＵ０：０ＣＡＲ”，０ ＬＯＡＤ”ＭＥＭ：ＣＡＲ”，０ ＬＯＡＤ”ＳＰＳ０Ｌ：０ＣＡＲ”，０ ＬＯＡＤ”ＳＰＳ１Ｌ：１ＣＡＲ＿ＳＰ”，０ ＢＧＯＦＳ　０，−２５６，−４８ ＢＧＯＦＳ　１，−１１２，０ ＢＧＹ＝０ ＳＰＳＥＴ　０，６２，ＭＯＤＥ（２），０，０，０ ＳＰＳＣＡＬＥ　０，２００ ＳＰＯＦＳ　０，２０８，１２８ ＳＰＨＯＭＥ　０，８，０ ＬＯＣＡＴＥ　１３，１８：？”ＰＲＥＳＳ　А ＣＯＬＯＲ　３ ＰＮＬＳＴＲ　３，２，”ＤＡＴＥ　　　　　　　　　ＮＡＭＥ　　　　ＳＣＯＲＥ ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　２１，０，”Ｒｅｓｅｔ＝ＳＴＡＲＴ ’＄１＝ＤＡＴＥ，０＝ＣＡＲ，１＝ＵＳＥＲ，２＝ＳＣＯＲＥ，３＝ＣＯＵＲＳＥ ＦＯＲ　Ｉ＝０　ＴＯ　９ 　ＨＩ＄（Ｉ，０）＝ＭＩＤ＄（ＭＥＭ＄，Ｉ＊１８，１８） 　ＨＩ＄（Ｉ，１）＝ＭＩＤ＄（ＭＥＭ＄，Ｉ＊１８，１０） 　ＨＩＶ（Ｉ，０）＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＭＥＭ＄，Ｉ＊１８＋１０，１）） 　ＨＩＶ（Ｉ，１）＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＭＥＭ＄，Ｉ＊１８＋１１，１）） 　ＨＩＶ（Ｉ，２）＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＭＥＭ＄，Ｉ＊１８＋１２，５）） 　ＨＩＶ（Ｉ，３）＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＭＥＭ＄，Ｉ＊１８＋１７，１）） 　ＧＯＳＵＢ　＠ＰＮＳ ＮＥＸＴ ＢＧＭＰＬＡＹ　１５ ＠ＴＩＴＬＥ ＶＳＹＮＣ　１ ＶＳ＝１＋ＶＳ　ＡＮＤ　７ ＢＧＹ＝ＢＧＹ−０．２ ＢＧＯＦＳ　１，−１１２，ＢＧＹ＊１０，１ ＩＦ　ＶＳ＞１　ＴＨＥＮ　＠ＳＫ１ ＳＴＯＣＨＲ＝（ＲＮＤ（８）＋１）＊６４−３２−４ ＢＧＰＵＴ　０，３８，６２，ＳＴＯＣＨＲ，０，０，０ ＢＧＰＵＴ　０，３９，６２，ＳＴＯＣＨＲ＋１，０，０，０ ＢＧＰＵＴ　０，４０，６２，ＳＴＯＣＨＲ＋２，０，０，０ ＢＧＰＵＴ　０，４１，６２，ＳＴＯＣＨＲ＋３，０，０，０ ＢＧＰＵＴ　０，３８，６３，ＳＴＯＣＨＲ＋３２，０，０，０ ＢＧＰＵＴ　０，３９，６３，ＳＴＯＣＨＲ＋３３，０，０，０ ＢＧＰＵＴ　０，４０，６３，ＳＴＯＣＨＲ＋３４，０，０，０ ＢＧＰＵＴ　０，４１，６３，ＳＴＯＣＨＲ＋３５，０，０，０ ＠ＳＫ１ ＩＦ　ＢＵＴＴＯＮ（２）＝＝１０２４　ＴＨＥＮ　＠ＲＥＳＥＴ ＩＦ　ＢＵＴＴＯＮ（２）！＝１６　ＴＨＥＮ　＠ＴＩＴＬＥ ＣＬＳ ＣＯＬＯＲ　３ ＰＮＬＳＴＲ　３，２，”ＤＡＴＥ　　　　　　　　　ＮＡＭＥ　　　　ＳＣＯＲＥ ＣＯＬＯＲ　０ ＦＯＲ　Ｉ＝０　ＴＯ　９ 　ＧＯＳＵＢ　＠ＰＮＳ ＮＥＸＴ ＢＧＯＦＳ　０，−２５６，１４４，２０ ＢＧＹ＝ＢＧＹ−４ ＢＧＯＦＳ　１，−１１２，ＢＧＹ＊１０，２０ ＷＡＩＴ　２０ ＳＰＳＥＴ　１，６４，０，０，０，０，３２，１６ ＳＰＯＦＳ　１，８０，４８ ＳＰＳＥＴ　２，６６，０，０，０，０，３２，１６ ＳＰＯＦＳ　２，１１２，４８ ＭＯＤＥ（０）＝０ ＳＰＳＥＴ　３，９６，０，０，０，０，３２，１６ ＳＰＯＦＳ　３，８０，９６ ＳＰＳＥＴ　７，１１１，０，０，０，０ ＳＰＯＦＳ　７，１１６，９６ ＭＯＤＥ（１）＝０ ＳＰＳＥＴ　４，１１２＋ＭＯＤＥ（２），０，０，０，０ ＳＰＯＦＳ　４，１００，１４４ ＭＮＯ＝０ ＳＰＳＥＴ　５，６０，０，０，０，０，８，８ ＳＰＳＥＴ　６，６１，０，０，０，０，８，８ ＠ＭＯＤＥ ＶＳＹＮＣ　１ ＢＧＹ＝ＢＧＹ−０．２ ＢＧＯＦＳ　１，−１１２，ＢＧＹ＊１０，１ ＩＦ　ＢＵＴＴＯＮ（２）＝＝４　ＴＨＥＮ　ＭＯＤＥ（ＭＮＯ）＝ＭＯＤＥ（ＭＮＯ）−１ ＩＦ　ＢＵＴＴＯＮ（２）＝＝８　ＴＨＥＮ　ＭＯＤＥ（ＭＮＯ）＝ＭＯＤＥ（ＭＮＯ）＋１ ＩＦ　ＭＯＤＥＨＩ（ＭＮＯ，０）＞ＭＯＤＥ（ＭＮＯ）　ＴＨＥＮ　ＭＯＤＥ（ＭＮＯ）＝ＭＯＤＥＨＩ（ＭＮＯ，０） ＩＦ　ＭＯＤＥＨＩ（ＭＮＯ，１）＜ＭＯＤＥ（ＭＮＯ）　ＴＨＥＮ　ＭＯＤＥ（ＭＮＯ）＝ＭＯＤＥＨＩ（ＭＮＯ，１） ＳＰＣＨＲ　１，ＭＯＤＥ（０）＊４＋６４ ＳＰＣＨＲ　２，ＭＯＤＥ（０）＊４＋６６ ＳＰＣＨＲ　３，ＭＯＤＥ（１）＊２＋９６ ＳＰＣＨＲ　４，ＭＯＤＥ（２）＋１１２ ＳＰＣＨＲ　０，６２，ＭＯＤＥ（２），０，０，０ ＩＦ　ＢＵＴＴＯＮ（２）＝＝１６　ＴＨＥＮ　ＭＮＯ＝ＭＮＯ＋１ ＩＦ　ＢＵＴＴＯＮ（２）＝＝３２　ＡＮＤ　ＭＮＯ＞０　ＴＨＥＮ　ＭＮＯ＝ＭＮＯ−１ ＳＰＯＦＳ　５，４０，（ＭＮＯ＋１）＊８＊６＋４ ＳＰＯＦＳ　６，１７６，（ＭＮＯ＋１）＊８＊６＋４ ＩＦ　ＭＮＯ！＝３　ＴＨＥＮ　＠ＭＯＤＥ ＢＧＭＰＬＡＹ　４ ＠ＢＧＭ１ ＩＦ　ＢＧＭＣＨＫ（）　ＴＨＥＮ　＠ＢＧＭ１ ＳＰＣＬＲ　１：ＳＰＣＬＲ　２：ＳＰＣＬＲ　３：ＳＰＣＬＲ　４ ＳＰＣＬＲ　５：ＳＰＣＬＲ　６：ＳＰＣＬＲ　７ ＢＧＯＦＳ　０，０，１４４，２７４ ＢＧＯＦＳ　１，０，ＢＧＹ＊１０，１２０ ＳＰＯＦＳ　０，ＣＡＲＸ，１２８，１２０ ＷＡＩＴ　２３０ ＣＯＬＯＲ　ＣＯＬ ＦＯＲ　Ｉ＝０　ＴＯ　２３ 　ＦＯＲ　Ｊ＝２０　ＴＯ　３１ 　　ＬＯＣＡＴＥ　Ｊ，Ｉ：？”В”； 　ＮＥＸＴ ＮＥＸＴ ＣＯＬＯＲ　０ ＲＥＳＴＯＲＥ　＠ＭＥＴ ＦＯＲ　Ｉ＝１　ＴＯ　ＭＯＤＥ（１） 　ＲＥＡＤ　ＤＵＭＭＹ ＮＥＸＴ ＲＥＡＤ　ＭＥＴＯＲ ＳＴＡＲＴ＝ＭＥＴＯＲ ＣＯＧ＝ＳＴＡＲＴ＋（２０８／６） ＠ＭＥＴ ＤＡＴＡ　１００，２００，５００，１０００，２０００，５０００ ＳＰＳＥＴ　１，５８，０，０，０，０ ＳＰＯＦＳ　１，ＲＮＤ（２５６），−１６ ＧＯＳＵＢ　＠ＰＲＴ ＢＥＥＰ　０：ＷＡＩＴ　６０ ＢＥＥＰ　０：ＷＡＩＴ　６０ ＢＥＥＰ　０：ＷＡＩＴ　６０ ＢＥＥＰ　０，４０９６ ＢＧＭＰＬＡＹ　０ ＠ＬＯＯＰ ＶＳＹＮＣ　１ ＶＳ＝１＋ＶＳ　ＡＮＤ　３ ＶＳＣ＝１＋ＶＳＣ　ＡＮＤ　６３ ＴＩ＝ＴＩ＋１ ＩＦ　ＴＩ＞６００００　ＴＨＥＮ　ＴＩ＝９９９．９９＊６０ ＳＰＥＥＤＭＦ＝ＳＰＥＥＤ／３．６／６０ ＭＥＴＯＲ＝ＭＥＴＯＲ−ＳＰＥＥＤＭＦ ＩＦ　ＭＥＴＯＲ＜−９９９９９　ＴＨＥＮ　ＭＥＴＯＲ＝−９９９９９ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　１６　ＴＨＥＮ　ＳＰＥＥＤ＝（ＳＰＥＥＤ＋０．０５）＊１．００５＋（ＳＰＥＥＤ＝＝０） ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　３２　ＴＨＥＮ　ＳＰＥＥＤ＝ＳＰＥＥＤ−０．１ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　４　ＴＨＥＮ　ＣＡＲＸ＝ＣＡＲＸ−（ＳＰＥＥＤ／１００） ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　８　ＴＨＥＮ　ＣＡＲＸ＝ＣＡＲＸ＋（ＳＰＥＥＤ／１００） ＳＰＥＥＤ＝ＳＰＥＥＤ−０．００３ ＩＦ　ＳＰＥＥＤ＞１８０　ＴＨＥＮ　ＳＰＥＥＤ＝１８０ ＩＦ　ＦＬＯＯＲ（ＳＰＥＥＤ）＝＝０　ＴＨＥＮ　ＳＰＥＥＤ＝０ ＩＦ　ＳＰＥＥＤ＜０　ＴＨＥＮ　ＳＰＥＥＤ＝０ ’ＩＦ　ＣＡＲＸ＜８０　ＴＨＥＮ　ＣＡＲＸ＝８０ ’ＩＦ　ＣＡＲＸ＞１１２　ＴＨＥＮ　ＣＡＲＸ＝１１２ ＩＦ　（ＣＡＲＸ＜９０　ＯＲ　ＣＡＲＸ＞１３４）ＡＮＤ　ＳＰＥＥＤ＞１１　ＴＨＥＮ　ＳＰＥＥＤ＝ＳＰＥＥＤ＊０．９５ ＳＰＯＦＳ　０，ＣＡＲＸ，１２８，１ ＧＯＳＵＢ　＠ＰＲＴ ＩＦ　ＶＳ＝＝１　ＴＨＥＮ　ＢＥＥＰ　０，−８１９２＋ＳＰＥＥＤ／１８０＊８１９２，５０ ＧＯＳＵＢ　＠ＣＯＩＮ ＩＦ　ＭＥＴＯＲ＝＝ＳＴＡＲＴ　ＯＲ　ＳＰＥＥＤ！＝０　ＴＨＥＮ　＠ＬＯＯＰ ＩＦ　ＡＢＳ（ＭＥＴＯＲ）＜１　ＴＨＥＮ　ＢＧＭＰＬＡＹ　５　ＥＬＳＥ　ＢＧＭＰＬＡＹ　６ ＳＣＯＲＥ０＝ＦＬＯＯＲ（ＡＢＳ（ＭＥＴＯＲ）／ＳＴＡＲＴ＊−１００００＋１００００） ＳＣＯＲＥ１＝ＦＬＯＯＲ（０−ＴＩ／ＳＴＡＲＴ＊５０） ＳＣＯＲＥ＝ＣＯＩＳＣ＋ＳＣＯＲＥ０＋ＳＣＯＲＥ１ ’ＩＦ　ＳＣＯＲＥ＜−９９９９　ＴＨＥＮ　ＳＣＯＲＥ＝−９９９９ ＣＯＬＯＲ　１３ ＬＯＣＡＴＥ　２１，１２：？”　　ＳＣＯＲＥ　　　” ＣＯＬＯＲ　９ ＬＯＣＡＴＥ　２１，１３：？”ＧＯＡＬ：　　　　　” ＬＯＣＡＴＥ　２１，１４：？”ＴＩＭＥ：　　　　　” ＬＯＣＡＴＥ　２１，１５：？”ＣＯＩＮ：　　　　　” ＬＯＣＡＴＥ　２１，１７：？”ＴＯＴＡＬ　　　　　” ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　２１，１６：？”──────────” ＠ＳＣ ＩＦ　ＢＧＭＣＨＫ（）　ＴＨＥＮ　＠ＳＣ ＷＡＩＴ　３０：ＶＳＹＮＣ　０ ＦＯＲ　Ｉ＝０　ＴＯ　ＳＣＯＲＥ０−１　ＳＴＥＰ　ＳＣＯＲＥ０／２０ 　ＬＣＴ＝ＬＥＮ（ＳＴＲ＄（ＦＬＯＯＲ（Ｉ））） 　ＬＯＣＡＴＥ　３１−ＬＣＴ，１３：？ＦＬＯＯＲ（Ｉ） 　ＢＥＥＰ　７，０，３０：ＶＳＹＮＣ　３ ＮＥＸＴ ＬＣＴ＝ＬＥＮ（ＳＴＲ＄（ＳＣＯＲＥ０）） ＬＯＣＡＴＥ　３１−ＬＣＴ，１３：？ＦＬＯＯＲ（ＳＣＯＲＥ０） ＶＳＹＮＣ　１０ ＦＯＲ　Ｉ＝０　ＴＯ　ＳＣＯＲＥ１−１　ＳＴＥＰ　ＳＣＯＲＥ１／２０ 　ＬＣＴ＝ＬＥＮ（ＳＴＲ＄（ＦＬＯＯＲ（Ｉ））） 　ＬＯＣＡＴＥ　３１−ＬＣＴ，１４：？ＦＬＯＯＲ（Ｉ） 　ＢＥＥＰ　７，０，５０：ＶＳＹＮＣ　３ ＮＥＸＴ ＬＣＴ＝ＬＥＮ（ＳＴＲ＄（ＳＣＯＲＥ１）） ＬＯＣＡＴＥ　３１−ＬＣＴ，１４：？ＳＣＯＲＥ１ ＶＳＹＮＣ　１０ ＦＯＲ　Ｉ＝０　ＴＯ　ＣＯＩＳＣ−１　ＳＴＥＰ　ＣＯＩＳＣ／２０ 　ＬＣＴ＝ＬＥＮ（ＳＴＲ＄（ＦＬＯＯＲ（Ｉ））） 　ＬＯＣＡＴＥ　３１−ＬＣＴ，１５：？ＦＬＯＯＲ（Ｉ） 　ＢＥＥＰ　７，０，５０：ＶＳＹＮＣ　３ ＮＥＸＴ ＬＣＴ＝ＬＥＮ（ＳＴＲ＄（ＣＯＩＳＣ）） ＬＯＣＡＴＥ　３１−ＬＣＴ，１５：？ＣＯＩＳＣ ＶＳＹＮＣ　３０ ＦＯＲ　Ｉ＝０　ＴＯ　ＳＣＯＲＥ−１　ＳＴＥＰ　ＳＣＯＲＥ／１００ 　ＬＣＴ＝ＬＥＮ（ＳＴＲ＄（ＦＬＯＯＲ（Ｉ））） 　ＬＯＣＡＴＥ　３１−ＬＣＴ，１７：？ＦＬＯＯＲ（Ｉ） 　ＢＥＥＰ　７，０，５０：ＶＳＹＮＣ　３ ＮＥＸＴ ＬＣＴ＝ＬＥＮ（ＳＴＲ＄（ＳＣＯＲＥ）） ＬＯＣＡＴＥ　３１−ＬＣＴ，１７：？ＳＣＯＲＥ ＢＥＥＰ　５，２０４８ ＨＩ＄（１０，１）＝ＤＡＴＥ＄ ＨＩＶ（１０，０）＝ＭＯＤＥ（２） ＨＩＶ（１０，１）＝ＭＯＤＥ（０） ＨＩＶ（１０，２）＝ＦＬＯＯＲ（ＳＣＯＲＥ） ＨＩＶ（１０，３）＝ＭＯＤＥ（１） ＨＩ＄（１０，０）＝ＤＡＴＥ＄＋ＨＥＸ＄（ＭＯＤＥ（２））＋ＨＥＸ＄（ＭＯＤＥ（０））＋ＨＥＸ＄（ＳＣＯＲＥ，５）＋ＨＥＸ＄（ＭＯＤＥ（１）） ＢＫＨＩ＄＝ＨＩ＄（１０，０） Ｉ＝９ ＠ＳＣＣＨＫ ＩＦ　ＨＩＶ（Ｉ，２）＞ＨＩＶ（Ｉ＋１，２）　ＴＨＥＮ　＠ＳＡＶ ＳＷＡＰ　ＨＩ＄（Ｉ，０），ＨＩ＄（Ｉ＋１，０） ＳＷＡＰ　ＨＩ＄（Ｉ，１），ＨＩ＄（Ｉ＋１，１） ＳＷＡＰ　ＨＩＶ（Ｉ，０），ＨＩＶ（Ｉ＋１，０） ＳＷＡＰ　ＨＩＶ（Ｉ，１），ＨＩＶ（Ｉ＋１，１） ＳＷＡＰ　ＨＩＶ（Ｉ，２），ＨＩＶ（Ｉ＋１，２） ＳＷＡＰ　ＨＩＶ（Ｉ，３），ＨＩＶ（Ｉ＋１，３） ＩＦ　Ｉ＞０　ＴＨＥＮ　Ｉ＝Ｉ−１：ＧＯＴＯ　＠ＳＣＣＨＫ ＠ＳＡＶ ＦＯＲ　Ｉ＝０　ＴＯ　９ 　ＧＯＳＵＢ　＠ＰＮＳ ＮＥＸＴ ＭＥＭ＄＝”” ＦＯＲ　Ｉ＝０　ＴＯ　９ 　ＭＥＭ＄＝ＭＥＭ＄＋ＨＩ＄（Ｉ，０） ＮＥＸＴ ＣＨＲＩＮＩＴ　”ＳＰＳ１Ｌ” ＠ＳＡＶＣＨＫ ＳＡＶＥ”ＭＥＭ：ＣＡＲ” ＩＦ　ＲＥＳＵＬＴ＝＝ＣＡＮＣＥＬ　ＴＨＥＮ　＠ＳＡＶＣＨＫ ＬＯＡＤ”ＳＰＳ１Ｌ：１ＣＡＲ＿ＳＰ”，０ ＠ＢＵＴＮ ＶＳＹＮＣ　１ ＩＦ　ＢＵＴＴＯＮ（１）＝＝１６　ＴＨＥＮ　＠ＢＥＧ ＧＯＴＯ　＠ＢＵＴＮ ’ＥＮＤ ’−−ＳＵＢＲＯＵＴＩＮＥ−− ＠ＣＯＩＮ ＣＯＴ＝ＣＯＴ＋１ ＩＦ　ＣＯＴ＝＝３０　ＴＨＥＮ　ＰＲＴＣＯ＄＝”” ＩＦ　ＳＰＨＩＴＳＰ（０，１）＝＝０　ＴＨＥＮ　＠ＳＥＴ ＳＰＲＥＡＤ（１），ＤＵＭＭＹ１，ＤＵＭＭＹ２，ＤＵＭＭＹ３，ＤＵＭＭＹ４，ＣＨ１ ＩＦ　ＣＨ１＝＝６２　ＴＨＥＮ　ＰＲＴＣＯ＄＝”−５００”：ＣＯＩＳＣ＝ＣＯＩＳＣ−５００：ＢＥＥＰ　１３　ＥＬＳＥ　ＰＲＴＣＯ＄＝”＋１００”：ＣＯＩＳＣ＝ＣＯＩＳＣ＋１００：ＢＥＥＰ　７ ＳＰＯＦＳ　１，０，−１６ ＣＯＴ＝０ ＧＯＴＯ　＠ＳＥＴ２ ＠ＳＥＴ ＩＦ　ＣＯＧ−ＭＥＴＯＲ＜２０８／６　ＴＨＥＮ　ＲＥＴＵＲＮ ＠ＳＥＴ２ ＣＯＧ＝ＭＥＴＯＲ ＣＯＸ＝ＲＮＤ（２５６） ＳＰＯＦＳ　１，ＣＯＸ，−１６ ＣＨ１＝ＲＮＤ（２） ＣＨ１＝（０＝＝ＣＨ１）＊５８＋（１＝＝ＣＨ１）＊６２ ＳＰＣＨＲ　１，ＣＨ１ ＩＦ　ＣＨ１＝＝６２　ＴＨＥＮ　ＳＰＡＮＩＭ　１，１，１，１　ＥＬＳＥ　ＳＰＡＮＩＭ　１，２，１５，０ ’ＳＰＯＦＳ　１，ＲＮＤ（２５６），２０８，６４ ＲＥＴＵＲＮ ＠ＰＲＴ ＣＯＬＯＲ　ＣＯＬ ＬＯＣＡＴＥ　２１，５：？”В”＊１１ ＬＯＣＡＴＥ　２１，７：？”В”＊１１ ＬＯＣＡＴＥ　２１，９：？”В”＊１１ ＬＯＣＡＴＥ　２１，１２：？”В”＊１１ ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　２１，５：？”ＧＯＡＬ＝”；ＡＢＳ（ＦＬＯＯＲ（ＭＥＴＯＲ））；”ｍ” ＬＯＣＡＴＥ　２１，７：？”ＳＰＥＥＤ＝”；ＦＬＯＯＲ（ＳＰＥＥＤ）；”ｋｍ” ＬＯＣＡＴＥ　２１，９：？”ＴＩＭＥ＝”；ＦＬＯＯＲ（ＴＩ／６０＊１００）／１００ ＬＯＣＡＴＥ　２１，１２：？ＰＲＴＣＯ＄ ＢＧＹ＝ＦＬＯＯＲ（ＭＥＴＯＲ＊６） ＢＧＯＦＳ　１，０，ＢＧＹ，１ ＳＰＯＦＳ　１，ＣＯＸ，（ＣＯＧ−ＭＥＴＯＲ）＊６−１６，１ ＩＦ　ＢＧＹ＜１４４　ＡＮＤ　ＢＧＹ＞−７０　ＴＨＥＮ　ＢＧＯＦＳ　０，０，ＢＧＹ，１ ＲＥＴＵＲＮ ＠ＰＮＳ ＩＦ　ＨＩ＄（Ｉ，０）＝＝ＢＫＨＩ＄　ＴＨＥＮ　ＣＯＬＯＲ　１３　ＥＬＳＥ　ＣＯＬＯＲ　Ｉ＋２ ＰＮＬＳＴＲ　（９！＝Ｉ），Ｉ＊２＋４，ＳＴＲ＄（Ｉ＋１） ＩＦ　ＨＩ＄（Ｉ，０）＝＝ＢＫＨＩ＄　ＴＨＥＮ　ＣＯＬＯＲ　１３　ＥＬＳＥ　ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　３，Ｉ＊２＋４，ＨＩ＄（Ｉ，１） ＩＦ　ＨＩ＄（Ｉ，１）＝＝”−”＊１０　ＴＨＥＮ　ＲＥＴＵＲＮ ＰＮＬＳＴＲ　２４，Ｉ＊２＋４，”　”＊７ ＰＮＬＳＴＲ　２４，Ｉ＊２＋４，ＳＴＲ＄（ＨＩＶ（Ｉ，２）） ＳＰＰＡＧＥ　１ ＳＰＳＥＴ　Ｉ＊４＋１，６４＋ＨＩＶ（Ｉ，１）＊４，０，０，０，０，３２，１６ ＳＰＳＥＴ　Ｉ＊４＋２，６６＋ＨＩＶ（Ｉ，１）＊４，０，０，０，０，３２，１６ ＳＰＯＦＳ　Ｉ＊４＋１，８＊１６−４，８＊（Ｉ＊２＋４）−８ ＳＰＯＦＳ　Ｉ＊４＋２，８＊１６＋３２−４，８＊（Ｉ＊２＋４）−８ ’ＳＰＳＣＡＬＥ　Ｉ＊４＋１，５０ ＳＰＳＥＴ　Ｉ＊４＋０，６２，ＨＩＶ（Ｉ，０），０，０，０ ＳＰＯＦＳ　Ｉ＊４＋０，８＊１４−４，８＊（Ｉ＊２＋４）−４ ＳＰＰＡＧＥ　０ ＲＥＴＵＲＮ ＠ＲＥＳＥＴ ＭＥＭ＄＝”−−−−−−−−−−００Ｆ０００００”＊１０ ＳＡＶＥ”ＭＥＭ：ＣＡＲ” ＩＦ　ＲＥＳＵＬＴ＝＝ＴＲＵＥ　ＴＨＥＮ　＠ＢＥＧ　ＥＬＳＥ　＠ＴＩＴＬＥ

プチトゥーン

• スプラトゥーンもどき
• DS1台で2人プレイです。
• 1分間で下画面を多く塗った方が勝ちです。イカとかボムとかスペシャルとかはありません
• 1Pは十字キーで移動、Lボタンで塗ります
• 2PはABXYボタンで移動、Rボタンで塗ります
• プレイヤーを倒すという概念はありません

+

プログラムリスト(196行)

ＡＣＬＳ：ＣＬＥＡＲ ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＬＯＡＤ”ＣＯＬ１Ｌ：ＰＴＯＯＮ”，０ ＬＯＡＤ”ＣＯＬ２Ｌ：ＰＴＯＯＮ”，０ ＬＯＡＤ”ＣＯＬ２：ＰＴＯＯＮ”，０ ＬＯＡＤ”ＳＰＳ０Ｌ：ＳＰ１”，０ ＬＯＡＤ”ＢＧＵ０：ＰＴＯＯＮ”，０ ＠ＳＥＴ ’シタカ゛メン　ヒ゛ョウカ゛ ＧＰＡＧＥ　１，２，１ ＢＣ＝ＲＮＤ（２５６） ＧＣＬＳ　ＢＣ Ｐ１ＳＣＸ＝１００：Ｐ１ＳＣＹ＝１００ Ｐ２ＳＣＸ＝１５５：Ｐ２ＳＣＹ＝１００ ’ＳＩＺＥ＝８ ＠ＣＬ Ｐ１ＣＯＬ＝ＲＮＤ（１２）＋１：Ｐ２ＣＯＬ＝ＲＮＤ（１２）＋１ ＩＦ　Ｐ１ＣＯＬ＝＝Ｐ２ＣＯＬ　ＴＨＥＮ　＠ＣＬ ＬＯＡＤ”ＳＣＵ０：０ＰＴＯＯＮ”，０ ＢＧＭＰＬＡＹ　１４ ＬＯＣＡＴＥ　９，１９：？”Ｐｒｅｓｓ　А　Ｂｕｔｔｏｎ” ＰＮＬＳＴＲ　１，３，”＊＊＊　Ｈｏｗ　ｔｏ　Ｐｌａｙ　”＋ＣＨＲ＄（３４）＋”フ゜チトゥ−ン”＋ＣＨＲ＄（３４）＋”？　＊＊＊” ＰＮＬＳＴＲ　５，５，”１Ｐｌａｙｅｒ：” ＰＮＬＳＴＲ　７，６，　　”П　　・・・イト゛ウ” ＰＮＬＳＴＲ　７，７，　　”К　　・・・ハッシャ” ＰＮＬＳＴＲ　５，９，”２Ｐｌａｙｅｒ：” ＰＮＬＳＴＲ　６，１０，”АБФХ・・・イト゛ウ” ＰＮＬＳＴＲ　７，１１，　”н　　・・・ハッシャ” ＰＮＬＳＴＲ　５，１４，”１フ゜ンノ　ナカテ゛、テ゛キルタ゛ケ　ヒロイ ＰＮＬＳＴＲ　５，１６，”メンセキヲ　ヌッタ　ホウカ゛　カチ。 ＠ＢＴＮＰＰＰＰＰ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　１６　ＴＨＥＮ　ＥＬＳＥ　＠ＢＴＮＰＰＰＰＰ ＳＰＰＡＧＥ　１ ＳＰＳＥＴ　０，０，Ｐ１ＣＯＬ，０，０，０ ＳＰＳＥＴ　１，０，Ｐ２ＣＯＬ，１，０，０ ＳＰＨＯＭＥ　０，１６，１６ ＳＰＨＯＭＥ　１，０，１６ ＳＰＯＦＳ　０，Ｐ１ＳＣＸ，Ｐ１ＳＣＹ ＳＰＯＦＳ　１，Ｐ２ＳＣＸ，Ｐ２ＳＣＹ ＧＰＡＧＥ　１，２，２ ＣＬＳ ＧＯＳＵＢ　＠ＣＬＳＬ ＢＧＭＳＴＯＰ ＴＧＣ＝４　’Ｔｉｍｅ　Ｇｒａｐｈ　Ｃｏｌｏｒ ＧＰＡＧＥ　０ ＧＬＩＮＥ　０，７，２５５，７，ＴＧＣ ＬＯＣＡＴＥ　１５，０：？３：ＢＥＥＰ　０：ＷＡＩＴ　６０ ＬＯＣＡＴＥ　１５，０：？２：ＢＥＥＰ　０：ＷＡＩＴ　６０ ＬＯＣＡＴＥ　１５，０：？１：ＢＥＥＰ　０：ＷＡＩＴ　６０ ＢＥＥＰ　０，４０９６ ＢＧＭＰＬＡＹ　２ ＠ＭＡＩＮ ＴＩＭＥ＝ＴＩＭＥ＋１ ＶＳＹＮＣ　１ ＧＰＡＧＥ　１，２，２ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　１　ＴＨＥＮ　Ｐ１ＳＣＹ＝Ｐ１ＳＣＹ−１ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　２　ＴＨＥＮ　Ｐ１ＳＣＹ＝Ｐ１ＳＣＹ＋１ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　４　ＴＨＥＮ　Ｐ１ＳＣＸ＝Ｐ１ＳＣＸ−１ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　８　ＴＨＥＮ　Ｐ１ＳＣＸ＝Ｐ１ＳＣＸ＋１ ＩＦ　Ｐ１ＳＣＸ＜０　ＴＨＥＮ　Ｐ１ＳＣＸ＝０ ＩＦ　Ｐ１ＳＣＸ＞２５５　ＴＨＥＮ　Ｐ１ＳＣＸ＝２５５ ＩＦ　Ｐ１ＳＣＹ＜０　ＴＨＥＮ　Ｐ１ＳＣＹ＝０ ＩＦ　Ｐ１ＳＣＹ＞１９１　ＴＨＥＮ　Ｐ１ＳＣＹ＝１９１ ＳＰＯＦＳ　０，Ｐ１ＳＣＸ，Ｐ１ＳＣＹ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　２５６　ＴＨＥＮ　Ｐ１ＭＯＤＥ＝１　ＥＬＳＥ　Ｐ１ＭＯＤＥ＝０ ’ＩＦ　Ｐ１ＢＯＭ！＝０　ＴＨＥＮ　Ｐ１ＢＯＭ＝Ｐ１ＢＯＭ−１ ＤＯＴＸ＝Ｐ１ＳＣＸ＋ＲＮＤ（１０）＋１０ ＤＯＴＹ＝Ｐ１ＳＣＹ＋ＲＮＤ（２０）−１０ ＩＦ　Ｐ１ＭＯＤＥ＝＝１　ＴＨＥＮ　ＧＣＩＲＣＬＥ　ＤＯＴＸ，ＤＯＴＹ，２，Ｐ１ＣＯＬ ＩＦ　Ｐ１ＭＯＤＥ＝＝１　ＴＨＥＮ　ＧＰＡＩＮＴ　ＤＯＴＸ，ＤＯＴＹ，Ｐ１ＣＯＬ ＩＦ　Ｐ１ＭＯＤＥ＝＝１　ＴＨＥＮ　ＢＥＥＰ　１，０，３２ ’ＩＦ　Ｐ１ＭＯＤＥ＝＝１　ＡＮＤ　Ｐ１ＢＯＭ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＯＭ ’ＧＯＳＵＢ　＠Ｐ１ＧＲＰ ’ＣＬＳ ’ＬＯＣＡＴＥ　２４，２３：？”ホ゛ム：”；Ｐ１ＢＯＭ； ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　６４　ＴＨＥＮ　Ｐ２ＳＣＹ＝Ｐ２ＳＣＹ−１ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　３２　ＴＨＥＮ　Ｐ２ＳＣＹ＝Ｐ２ＳＣＹ＋１ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　１６　ＴＨＥＮ　Ｐ２ＳＣＸ＝Ｐ２ＳＣＸ＋１ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　１２８　ＴＨＥＮ　Ｐ２ＳＣＸ＝Ｐ２ＳＣＸ−１ ＩＦ　Ｐ２ＳＣＸ＜０　ＴＨＥＮ　Ｐ２ＳＣＸ＝０ ＩＦ　Ｐ２ＳＣＸ＞２５５　ＴＨＥＮ　Ｐ２ＳＣＸ＝２５５ ＩＦ　Ｐ２ＳＣＹ＜０　ＴＨＥＮ　Ｐ２ＳＣＹ＝０ ＩＦ　Ｐ２ＳＣＹ＞１９１　ＴＨＥＮ　Ｐ２ＳＣＹ＝１９１ ＳＰＯＦＳ　１，Ｐ２ＳＣＸ，Ｐ２ＳＣＹ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　５１２　ＴＨＥＮ　Ｐ２ＭＯＤＥ＝１　ＥＬＳＥ　Ｐ２ＭＯＤＥ＝０ ＤＯＴＸ＝Ｐ２ＳＣＸ−ＲＮＤ（１０）−１０ ＤＯＴＹ＝Ｐ２ＳＣＹ＋ＲＮＤ（２０）−１０ ＩＦ　Ｐ２ＭＯＤＥ＝＝１　ＴＨＥＮ　ＧＣＩＲＣＬＥ　ＤＯＴＸ，ＤＯＴＹ，２，Ｐ２ＣＯＬ ＩＦ　Ｐ２ＭＯＤＥ＝＝１　ＴＨＥＮ　ＧＰＡＩＮＴ　ＤＯＴＸ，ＤＯＴＹ，Ｐ２ＣＯＬ ＩＦ　Ｐ２ＭＯＤＥ＝＝１　ＴＨＥＮ　ＢＥＥＰ　１，０，３２ ’ＣＬＳ ’？Ｐ１ＣＯＬ ’？Ｐ２ＣＯＬ ’？Ｐ２ＳＣＸ ’？Ｐ２ＳＣＹ ’１フ゜ン ＣＬＳ：ＬＯＣＡＴＥ　１１，０：？”ノコリ：”；６０−ＦＬＯＯＲ（ＴＩＭＥ／６０）；”ヒ゛ョウ” ＧＰＡＧＥ　０ ＧＬＩＮＥ　０，７，２５５，７，０ ＧＬＩＮＥ　０，７，２５６−（ＴＩＭＥ／（６０＊６０）＊２５６），７，ＴＧＣ ＩＦ　ＴＩＭＥ＝＝６０＊３０　ＴＨＥＮ　ＣＯＬＯＲ　３：ＴＧＣ＝１４ ’ＢＧＭスヒ゜−ト゛アッフ゜シ゛カン ＳＰＤＵＰ＝４５ ＩＦ　ＴＩＭＥ＝＝６０＊ＳＰＤＵＰ　ＴＨＥＮ　ＢＧＭＰＬＡＹ　２９：ＣＯＬＯＲ　１３：ＴＧＣ＝２ ＩＦ　ＴＩＭＥ！＝６０＊６０　ＴＨＥＮ　＠ＭＡＩＮ ＧＰＡＧＥ　０，０，０ ＧＣＬＳ　 ＢＧＣＬＲ　 ＢＧＭＰＬＡＹ　８ ＠ＫＥＫＫＡ ＳＰＤ＝３０ ＦＯＲ　Ｊ＝０　ＴＯ　１９１ 　　　　ＦＯＲ　Ｉ＝０　ＴＯ　２５５　ＳＴＥＰ　ＳＰＤ 　　　　　　　　ＧＰＡＧＥ　１，２，２ 　　　　　　　　ＦＯＲ　Ｐ＝０　ＴＯ　ＳＰＤ−１ 　　　　　　　　　　　　ＧＣＯＬ＝ＧＳＰＯＩＴ（Ｉ＋Ｐ，Ｊ） 　　　　　　　　　　　　ＩＦ　ＧＣＯＬ＝＝Ｐ１ＣＯＬ　ＴＨＥＮ　Ｐ１ＳＣＯＲＥ＝Ｐ１ＳＣＯＲＥ＋１ 　　　　　　　　　　　　ＩＦ　ＧＣＯＬ＝＝Ｐ２ＣＯＬ　ＴＨＥＮ　Ｐ２ＳＣＯＲＥ＝Ｐ２ＳＣＯＲＥ＋１ 　　　　　　　　ＮＥＸＴ 　　　　　　　　ＣＬＳ 　　　　　　　　ＣＯＬＯＲ　１３ 　　　　　　　　ＬＯＣＡＴＥ　１１，０：？”ノコリ：０ヒ゛ョウ” 　　　　　　　　ＣＯＬＯＲ　０ 　　　　　　　　ＬＯＣＡＴＥ　０，６：？Ｐ１ＳＣＯＲＥ；”Ｄｏｔｓ” 　　　　　　　　ＬＯＣＡＴＥ　２８−ＬＥＮ（ＳＴＲ＄（Ｐ２ＳＣＯＲＥ）），６：？Ｐ２ＳＣＯＲＥ；”Ｄｏｔｓ” 　　　　　　　　ＬＯＣＡＴＥ　１０，５：？”−−−Ｒｅｓｕｌｔ−−− 　　　　　　　　ＧＰＡＧＥ　０，０，０ 　　　　　　　　ＧＦＩＬＬ　０，５６，Ｐ１ＳＣＯＲＥ／１９２，７９，Ｐ１ＣＯＬ 　　　　　　　　ＧＦＩＬＬ　２５５，５６，２５６−Ｐ２ＳＣＯＲＥ／１９２，７９，Ｐ２ＣＯＬ 　　　　　　　　　　　　　　　　　　　　　　　’＝Ｐ２ＳＣＯＲＥ／（２５６＊１９２）＊２５６ 　　　　　　　　ＶＳＹＮＣ　１ 　　　　ＮＥＸＴ ＮＥＸＴ ＳＣＭＡＸ＝Ｐ１ＳＣＯＲＥ＋Ｐ２ＳＣＯＲＥ ＧＦＩＬＬ　０，５６，Ｐ１ＳＣＯＲＥ／ＳＣＭＡＸ＊２５６，８０，Ｐ１ＣＯＬ ＧＦＩＬＬ　２５５，５６，２５６−Ｐ２ＳＣＯＲＥ／ＳＣＭＡＸ＊２５６，８０，Ｐ２ＣＯＬ ＩＦ　Ｐ１ＳＣＯＲＥ＞Ｐ２ＳＣＯＲＥ　ＴＨＥＮ　ＬＯＣＡＴＥ　０，１０：？”Ｗｉｎ！　　　　　　　　　　　из　　　　　　　　Ｌｏｓｅ．．．” ＩＦ　Ｐ２ＳＣＯＲＥ＞Ｐ１ＳＣＯＲＥ　ＴＨＥＮ　ＬＯＣＡＴＥ　０，１０：？”Ｌｏｓｅ．．．　　　　　　　　из　　　　　　　　　　　Ｗｉｎ！” ＢＧＭＰＬＡＹ　４ ＬＯＣＡＴＥ　９，１９：？”Ｐｒｅｓｓ　А　Ｂｕｔｔｏｎ” ＠ＢＴＮＢＢＢＢＢ ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　１６　ＴＨＥＮ　ＥＬＳＥ　＠ＢＴＮＢＢＢＢＢ ＧＣＬＳ　 ＣＬＳ：ＷＡＩＴ　１０ ＧＯＴＯ　＠ＳＥＴ ＠ＣＬＳＬ 　’シタカ゛メンＣＬＳ 　ＦＯＲ　ＣＬＳＬ＿Ｉ＝０　ＴＯ　２３ 　　ＰＮＬＳＴＲ　０，ＣＬＳＬ＿Ｉ，”　”＊３２ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＢＯＭ ’ハ゛クタ゛ン（ハイキョ） ＧＣＩＲＣＬＥ　Ｐ１ＳＣＸ＋４００／ＳＩＺＥ，Ｐ１ＳＣＹ＋９６／ＳＩＺＥ，２０，１ ＢＥＥＰ　１３，０，３２ ＧＰＡＩＮＴ　Ｐ１ＳＣＸ＋４００／ＳＩＺＥ，Ｐ１ＳＣＹ＋９６／ＳＩＺＥ，２，１ ＧＣＩＲＣＬＥ　Ｐ１ＳＣＸ＋４００／ＳＩＺＥ，Ｐ１ＳＣＹ＋９６／ＳＩＺＥ，２０，２ Ｐ１ＢＯＭ＝１８０ ＲＥＴＵＲＮ ＠Ｐ１ＧＲＰ ’カクタ゛イ　ヒョウシ゛（ハイキョ） ＦＯＲ　Ｉ＝０　ＴＯ　２５５　ＳＴＥＰ　ＳＩＺＥ 　ＦＯＲ　Ｊ＝０　ＴＯ　１９１　ＳＴＥＰ　ＳＩＺＥ 　　Ｉ２＝Ｉ／ＳＩＺＥ＋Ｐ１ＳＣＸ：Ｊ２＝Ｊ／ＳＩＺＥ＋Ｐ１ＳＣＹ ＧＰＡＧＥ　１，２，２ 　　ＣＬ＝ＧＳＰＯＩＴ（Ｉ２，Ｊ２） ＧＰＡＧＥ　０，０，０ 　　ＧＦＩＬＬ　Ｉ，Ｊ，Ｉ＋ＳＩＺＥ，Ｊ＋ＳＩＺＥ，ＣＬ 　ＮＥＸＴ　Ｊ ＮＥＸＴ　Ｉ ＲＥＴＵＲＮ 廃墟とは? 没って意味かな

(CHR:SP1の中身はSPU1と同じです)

SKAT STG

• サンプルゲーム3(SIMPLE STG)の改造です。
• 敵を倒すと周りの敵も誘爆して倒せます。
• 自機のHPが1000なので、まず死にません。
• スコアが下画面に表示されます。
• ステージクリアするごとにセーブできます。

+

プログラムリスト(597行)

’┌──────────────────┐ ’│シュ−ティンク゛サンフ゜ル　ｖ１．１│ ’└──────────────────┘ ’スフ゜ライト　ワリアテ ’　　０~：Г　ｍｙｓｈｉｐ ’　　８~：↑　ｍｙｓｈｏｔ ’　１６~：Е　ｅｎｅｍｙ ’　２４~：↓　ｅｎｓｈｏｔ ’　６４~：●　ｅｘｐｌｏｓｉｏｎ ’　７２~：Н　ｂｏｓｓ ＠ＩＮＩＴ　’ショキカ 　ＣＬＥＡＲ 　ＵＮＵＳＥＤ＝−４０９６ 　ＰＨＡＳＥ＝０ 　ＳＴＡＧＥ＝１ 　ＰＨＡＳＣＮＴ＝０ 　ＣＯＭＢＯ＝０ 　ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ 　ＴＩＴＭＤ＝０ 　ＢＧＭＣＨＮＧ＝ＦＡＬＳＥ 　’カ゛メン 　ＡＣＬＳ 　ＢＧＭＰＬＡＹ　２３ 　ＶＩＳＩＢＬＥ　０，１，０，０，０，０ 　ＰＮＬＴＹＰＥ　”ＯＦＦ” 　ＶＳＹＮＣ　１ 　’フ゜レイヤ− 　ＳＣＯＲＥ＝０ 　ＳＣＯＲＥＨ＝０ 　ＭＹＸ＝１２０　：　ＭＹＹ＝１９２　：　ＭＹＳＰＤ＝３ 　ＭＹＣＮＴ＝０　：　ＭＹＳＴＡＴ＝１ 　ＭＹＨＰ＝１０００ 　ＳＰＳＥＴ　０，２８８，１１，０，０，１ 　ＳＰＯＦＳ　０，ＭＹＸ，ＭＹＹ 　ＳＰＳＥＴ　１，２８９，１１，０，０，１ 　ＳＰＯＦＳ　１，ＭＹＸ，ＭＹＹ＋１０ 　’ショット 　ＭＳＨＭＡＸ＝４ 　ＭＳＨＣＮＴ＝０ 　ＤＩＭ　ＭＹＳＨＯＴＸ（４），ＭＹＳＨＯＴＹ（４） 　ＦＯＲ　Ｉ＝０　ＴＯ　３ 　　ＭＹＳＨＯＴＸ（Ｉ）　＝　ＵＮＵＳＥＤ 　　ＭＹＳＨＯＴＹ（Ｉ）　＝　０ 　　ＳＰＳＥＴ　Ｉ＋８，２２３，１２，０，０，１ 　　ＳＰＯＦＳ　Ｉ＋８，−１６，−１６ 　ＮＥＸＴ 　’ハイケイ 　ＤＩＭ　ＳＴＡＲＸ（１６），ＳＴＡＲＹ（１６） 　ＤＩＭ　ＳＴＡＲＳＰＤ（１６） 　ＦＯＲ　Ｉ＝０　ＴＯ　１５ 　　ＳＴＡＲＸ（Ｉ）　＝　ＲＮＤ（２５６） 　　ＳＴＡＲＹ（Ｉ）　＝　ＲＮＤ（１９２） 　　ＳＴＡＲＳＰＤ（Ｉ）　＝　（ＲＮＤ（１６）＋１）／４ 　ＮＥＸＴ 　’テキ 　ＤＩＭ　ＥＮＭＸ（８），ＥＮＭＹ（８），ＥＮＭＣＮＴ（８），ＥＮＭＨＰ（８） 　ＧＥＮＭＣＮＴ＝０　：　ＥＮＭＭＡＸ＝８ 　ＦＯＲ　Ｉ＝０　ＴＯ　７ 　　ＥＮＭＸ（Ｉ）　＝　ＵＮＵＳＥＤ 　　ＥＮＭＹ（Ｉ）　＝　０ 　　ＥＮＭＨＰ（Ｉ）　＝　０ 　　ＳＰＳＥＴ　Ｉ＋１６，１７８，１１，０，０，１ 　　ＳＰＡＮＩＭ　Ｉ＋１６，３，４，０ 　　ＳＰＯＦＳ　Ｉ＋１６，−１６，−１６ 　ＮＥＸＴ 　’テキタ゛ン 　ＤＩＭ　ＥＮＳＨＯＴＸ（３２），ＥＮＳＨＯＴＹ（３２），ＥＮＳＨＤＩＲ（３２） 　ＥＳＨＴＣＮＴ＝０　：　ＥＳＨＴＭＡＸ＝３２ 　ＦＯＲ　Ｉ＝０　ＴＯ　３１ 　　ＥＮＳＨＯＴＸ（Ｉ）　＝　ＵＮＵＳＥＤ 　　ＥＮＳＨＯＴＹ（Ｉ）　＝　０ 　　ＳＰＳＥＴ　Ｉ＋２４，２１４，０，０，０，１ 　　ＳＰＡＮＩＭ　Ｉ＋２４，２，４，０ 　　ＳＰＯＦＳ　Ｉ＋２４，−１６，−１６ 　ＮＥＸＴ 　’ハ゛クハツ 　ＤＩＭ　ＥＸＰＸ（４），ＥＸＰＹ（４），ＥＸＰＣＮＴ（４） 　ＧＥＸＰＣＮＴ＝０　：　ＥＸＰＭＡＸ＝４ 　ＦＯＲ　Ｉ＝０　ＴＯ　３ 　　ＥＸＰＸ（Ｉ）　＝　ＵＮＵＳＥＤ 　　ＥＸＰＹ（Ｉ）　＝　０ 　　ＥＸＰＣＮＴ（Ｉ）　＝　０ 　　ＳＰＳＥＴ　Ｉ＋６４，２４８，０，０，０，１ 　　ＳＰＯＦＳ　Ｉ＋６４，−１６，−１６ 　ＮＥＸＴ 　’ホ゛ス 　ＳＰＳＥＴ　７２，３４０，１１，０，０，１ 　ＳＰＳＥＴ　７３，３４１，１１，０，０，１ 　ＳＰＳＥＴ　７４，３４２，１１，０，０，１ 　ＳＰＳＥＴ　７５，３４３，１１，０，０，１ 　ＳＰＯＦＳ　７２，−１６，−１６ 　ＳＰＯＦＳ　７３，−１６，−１６ 　ＳＰＯＦＳ　７４，−１６，−１６ 　ＳＰＯＦＳ　７５，−１６，−１６ 　ＢＯＳＳＸ＝ＵＮＵＳＥＤ 　ＢＯＳＳＹ＝０ 　ＢＯＳＳＨＰ＝０ 　ＢＯＳＳＣＮＴ＝０ 　’ロ−ト゛ 　ＬＯＡＤ　”ＭＥＭ：ＳＫＡＴＳＴＧ”，ＦＡＬＳＥ 　ＩＦ　ＭＥＭ＄！＝””　ＴＨＥＮ　ＳＣＯＲＥＨ＝ＶＡＬ（ＬＥＦＴ＄（ＭＥＭ＄，５）） 　ＩＦ　ＭＥＭ＄！＝””　ＴＨＥＮ　ＳＣＯＲＥ＝ＶＡＬ（ＭＩＤ＄（ＭＥＭ＄，５，５）） 　ＩＦ　ＭＥＭ＄！＝””　ＴＨＥＮ　ＳＴＡＧＥ＝ＶＡＬ（ＭＩＤ＄（ＭＥＭ＄，１０，５）） 　ＩＦ　ＭＥＭ＄＝＝””　ＴＨＥＮ　ＴＩＴＭＤ＝１ 　ＶＩＳＩＢＬＥ　１，１，０，０，１，１ ＠ＭＡＩＮ　’メインル−フ゜ 　ＯＬＤＢＴＮ　＝　ＢＴＮ 　ＢＴＮ　＝　ＢＵＴＴＯＮ（） 　ＯＮ　ＰＨＡＳＥ　ＧＯＳＵＢ　＠ＴＩＴＬＥ，＠ＧＡＭＥ，＠ＢＯＳＳＳＣＮ，＠ＧＡＭＥＯＶＥＲ，＠ＧＣＬＥＡＲ 　ＰＨＡＳＣＮＴ＝ＰＨＡＳＣＮＴ＋１ 　ＶＳＹＮＣ　１ ＧＯＴＯ　＠ＭＡＩＮ ＠ＡＮＹＢＴＮ 　Ｒ＝０ 　ＩＦ　ＯＬＤＢＴＮ　ＴＨＥＮ　ＲＥＴＵＲＮ 　ＩＦ　ＢＴＮ　ＴＨＥＮ　Ｒ＝ＢＴＮ ＲＥＴＵＲＮ ＠ＴＩＴＬＥ 　ＧＯＳＵＢ　＠ＡＮＹＢＴＮ 　ＬＯＣＡＴＥ　６，４：ＰＲＩＮＴ”┗┫┻　┗┳┏┓┏┣━┗┫┃╋┏┳┏┫ 　ＬＯＣＡＴＥ　６，５：ＰＲＩＮＴ”┫┓┻┗　┻　┛　┛　┫┓　┻　┻┳┠ 　ＬＯＣＡＴＥ　６，６：ＰＲＩＮＴ”┓┻┻┃┓┻┏┛　┛　┓┻　┻　┻　┻ 　ＬＯＣＡＴＥ　６，７：ＰＲＩＮＴ”┃━┃　┃┃　━　━　┃━　┃　　┏━ 　ＩＦ　ＰＨＡＳＣＮＴ＜２　ＴＨＥＮ　ＲＥＴＵＲＮ 　ＩＦ　ＭＥＭ＄！＝””　ＴＨＥＮ　ＬＯＣＡＴＥ　７，１６：？”Ｃｏｎｔｉｎｕｅ（ＳＴＡＧＥ　”；ＳＴＡＧＥ；”）” 　ＬＯＣＡＴＥ　７，１７：？”Ｎｅｗ　Ｇａｍｅ 　ＩＦ　ＴＩＴＭＤ＝＝０　ＴＨＥＮ　ＬＯＣＡＴＥ　６，１６：？”→”：ＬＯＣＡＴＥ　６，１７：？”　” 　ＩＦ　ＴＩＴＭＤ＝＝１　ＴＨＥＮ　ＬＯＣＡＴＥ　６，１６：？”　”：ＬＯＣＡＴＥ　６，１７：？”→” 　ＩＦ　Ｒ＝＝１　ＡＮＤ　ＭＥＭ＄！＝””　ＴＨＥＮ　ＴＩＴＭＤ＝０ 　ＩＦ　Ｒ＝＝２　ＴＨＥＮ　ＴＩＴＭＤ＝１ 　ＩＦ　Ｒ＝＝１６　ＡＮＤ　ＴＩＴＭＤ＝＝１　ＴＨＥＮ　ＳＣＯＲＥ＝０：ＳＣＯＲＥＨ＝０：ＳＴＡＧＥ＝１ 　ＩＦ　Ｒ＝＝１６　ＴＨＥＮ　ＰＨＡＳＥ　＝　１：ＢＧＭＰＬＡＹ　２３：ＰＨＡＳＣＮＴ＝０：ＣＬＳ ＲＥＴＵＲＮ ＠ＧＡＭＥ 　ＩＦ　ＰＨＡＳＣＮＴ＜６０　ＴＨＥＮ　ＬＯＣＡＴＥ　１１，１１：ＰＲＩＮＴ　”ＳＴＡＧＥ　”；ＳＴＡＧＥ 　ＩＦ　ＰＨＡＳＣＮＴ＝＝６０　ＴＨＥＮ　ＬＯＣＡＴＥ　１１，１１：ＰＲＩＮＴ　”　　　　　　　　　　” 　ＧＯＳＵＢ　＠ＤＩＳＰＢＧ 　ＧＯＳＵＢ　＠ＤＩＳＰＳＣＯＲ 　ＧＯＳＵＢ　＠ＥＮＳＨＯＴ 　ＧＯＳＵＢ　＠ＥＮＥＭＹ 　ＧＯＳＵＢ　＠ＭＹＳＨＯＴ 　ＧＯＳＵＢ　＠ＭＹＳＨＩＰ 　ＧＯＳＵＢ　＠ＥＸＰＬＳＩＯＮ 　ＩＦ　ＰＨＡＳＣＮＴ＝＝１２００　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＯＢＯＳＳ ＲＥＴＵＲＮ ＠ＴＯＢＯＳＳ 　ＰＨＡＳＥ＝２ 　ＰＨＡＳＣＮＴ＝０ 　ＩＦ　ＢＧＭＣＨＮＧ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＢＧＭＳＴＯＰ 　ＢＯＳＳＸ＝１１２ 　ＢＯＳＳＹ＝−３２ 　ＢＯＳＳＨＰ＝５５＋５＊ＳＴＡＧＥ 　ＢＯＳＳＣＮＴ＝１ 　ＴＡＲＧＥＴＸ＝１１２ 　ＳＰＣＨＲ　７２，３４０ 　ＳＰＣＨＲ　７３，３４１ 　ＳＰＣＨＲ　７４，３４２ 　ＳＰＣＨＲ　７５，３４３ ＲＥＴＵＲＮ ＠ＢＯＳＳＳＣＮ 　ＣＯＬＯＲ　１３ 　ＩＦ　ＰＨＡＳＣＮＴ＜６０　ＴＨＥＮ　ＬＯＣＡＴＥ　１２，１１：ＰＲＩＮＴ　”ＷＡＲＮＩＮＧ！！” 　ＩＦ　ＰＨＡＳＣＮＴ＝＝６０　ＴＨＥＮ　ＬＯＣＡＴＥ　１２，１１：ＰＲＩＮＴ　”　　　　　　　　　” 　ＣＯＬＯＲ　０ 　ＩＦ　ＰＨＡＳＣＮＴ＝＝１２０　ＡＮＤ　ＢＧＭＣＨＮＧ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＢＧＭＰＬＡＹ　１３ 　ＧＯＳＵＢ　＠ＤＩＳＰＢＧ 　ＧＯＳＵＢ　＠ＤＩＳＰＳＣＯＲ 　ＧＯＳＵＢ　＠ＥＮＳＨＯＴ 　ＧＯＳＵＢ　＠ＥＮＥＭＹ 　ＧＯＳＵＢ　＠ＭＹＳＨＯＴ 　ＧＯＳＵＢ　＠ＭＹＳＨＩＰ 　ＧＯＳＵＢ　＠ＥＸＰＬＳＩＯＮ 　ＧＯＳＵＢ　＠ＢＯＳＳ ＲＥＴＵＲＮ ＠ＢＯＳＳ　’ホ゛ス 　ＩＦ　ＢＯＳＳＨＰ＝＝０　ＴＨＥＮ　＠ＢＯＳＳＴＨＲＵ 　’ホ゛スノ　ウコ゛キ 　ＩＦ　ＢＯＳＳＣＮＴ％１２０＝＝０　ＴＨＥＮ　ＴＡＲＧＥＴＸ＝ＲＮＤ（１６０）＋３２ 　ＩＦ　ＢＯＳＳＸ＞ＴＡＲＧＥＴＸ　ＴＨＥＮ　ＢＯＳＳＸ＝ＢＯＳＳＸ−１ 　ＩＦ　ＢＯＳＳＸ＜ＴＡＲＧＥＴＸ　ＴＨＥＮ　ＢＯＳＳＸ＝ＢＯＳＳＸ＋１ 　ＩＦ　ＢＯＳＳＣＮＴ＜８０　ＴＨＥＮ　ＢＯＳＳＹ＝ＢＯＳＳＹ＋１：ＧＯＴＯ　＠ＢＯＳＨＴＨＲＵ 　ＩＦ　ＢＯＳＳＣＮＴ％３０＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＯＳＳＳＨＯＴ 　＠ＢＯＳＨＴＨＲＵ 　ＳＰＯＦＳ　７２，ＢＯＳＳＸ，ＢＯＳＳＹ 　ＳＰＯＦＳ　７３，ＢＯＳＳＸ＋１６，ＢＯＳＳＹ 　ＳＰＯＦＳ　７４，ＢＯＳＳＸ，ＢＯＳＳＹ＋１６ 　ＳＰＯＦＳ　７５，ＢＯＳＳＸ＋１６，ＢＯＳＳＹ＋１６ 　’ハンテイ 　ＦＯＲ　Ｉ＝０　ＴＯ　３ 　　ＩＦ　ＢＯＳＳＸ−８＞ＭＹＳＨＯＴＸ（Ｉ）　ＴＨＥＮ　＠ＢＯＳＳＪＤＮＸ 　　ＩＦ　ＢＯＳＳＸ＋２４＜ＭＹＳＨＯＴＸ（Ｉ）　ＴＨＥＮ　＠ＢＯＳＳＪＤＮＸ 　　ＩＦ　ＢＯＳＳＹ−８＞ＭＹＳＨＯＴＹ（Ｉ）　ＴＨＥＮ　＠ＢＯＳＳＪＤＮＸ 　　ＩＦ　ＢＯＳＳＹ＋８＜ＭＹＳＨＯＴＹ（Ｉ）　ＴＨＥＮ　＠ＢＯＳＳＪＤＮＸ 　　ＢＯＳＳＨＰ＝ＢＯＳＳＨＰ−１ 　　ＭＹＳＨＯＴＹ（Ｉ）＝−１６ 　　ＳＰＯＦＳ　Ｉ＋８，０，−１６ 　　ＢＥＥＰ　０ 　　ＩＦ　ＢＯＳＳＨＰ＝＝０　ＡＮＤ　ＢＧＭＣＨＮＧ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＢＧＭＳＴＯＰ　 　　ＩＦ　ＢＯＳＳＨＰ＝＝０　ＴＨＥＮ　ＢＯＳＳＣＮＴ＝０：ＳＣＯＲＥ＝ＳＣＯＲＥ＋１００＋ＦＬＯＯＲ（ＣＯＭＢＯ／１０） 　　＠ＢＯＳＳＪＤＮＸ 　ＮＥＸＴ 　＠ＢＯＳＳＴＨＲＵ 　ＢＯＳＳＣＮＴ＝ＢＯＳＳＣＮＴ＋１ 　ＩＦ　ＢＯＳＳＨＰ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＯＳＳＥＸＰ ＲＥＴＵＲＮ ＠ＢＯＳＳＳＨＯＴ 　ＤＩＲ　＝　（ＲＮＤ（２５６）−１２８）＊ＰＩ（）／５１２ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＳＴＡＧＥ 　　ＩＦ　Ｉ＝＝６　ＴＨＥＮ　ＲＥＴＵＲＮ 　　ＩＦ　ＥＮＳＨＯＴＸ（ＥＳＨＴＣＮＴ）！＝ＵＮＵＳＥＤ　ＴＨＥＮ　ＲＥＴＵＲＮ 　　ＥＮＳＨＯＴＸ（ＥＳＨＴＣＮＴ）＝ＢＯＳＳＸ＋８ 　　ＥＮＳＨＯＴＹ（ＥＳＨＴＣＮＴ）＝ＢＯＳＳＹ＋８ 　　ＥＮＳＨＤＩＲ（ＥＳＨＴＣＮＴ）＝（ＲＮＤ（２５６）−１２８）＊ＰＩ（）／５１２ 　　ＳＰＯＦＳ　ＥＳＨＴＣＮＴ＋２４，ＥＮＳＨＯＴＸ（ＥＳＨＴＣＮＴ），ＥＮＳＨＯＴＹ（ＥＳＨＴＣＮＴ） 　　ＥＳＨＴＣＮＴ＝ＥＳＨＴＣＮＴ＋１ 　　ＩＦ　ＥＳＨＴＣＮＴ＞＝ＥＳＨＴＭＡＸ　ＴＨＥＮ　ＥＳＨＴＣＮＴ＝０ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＣＮＴＮＵＥ 　ＬＯＣＡＴＥ　１２，１４：？”Ｃｏｎｔｉｎｕｅ？” 　ＬＯＣＡＴＥ　１５，１６：？”Ｙｅｓ” 　ＬＯＣＡＴＥ　１５，１７：？”Ｎｏ” 　ＩＦ　ＢＵＴＴＯＮ（）＝＝１　ＴＨＥＮ　ＴＩＴＭＤ＝０ 　ＩＦ　ＢＵＴＴＯＮ（）＝＝２　ＴＨＥＮ　ＴＩＴＭＤ＝１ 　ＩＦ　ＴＩＴＭＤ＝＝０　ＴＨＥＮ　ＬＯＣＡＴＥ　１４，１６：？”→”：ＬＯＣＡＴＥ　１４，１７：？”　” 　ＩＦ　ＴＩＴＭＤ＝＝１　ＴＨＥＮ　ＬＯＣＡＴＥ　１４，１６：？”　”：ＬＯＣＡＴＥ　１４，１７：？”→” 　ＩＦ　ＢＵＴＴＯＮ（）＝＝１６　ＡＮＤ　ＴＩＴＭＤ＝＝１　ＴＨＥＮ　＠ＩＮＩＴ 　ＩＦ　ＢＵＴＴＯＮ（）＝＝１６　ＡＮＤ　ＴＩＴＭＤ＝＝０　ＡＮＤ　ＢＧＭＣＨＮＧ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＢＧＭＰＬＡＹ　２３ 　ＩＦ　ＢＵＴＴＯＮ（）＝＝１６　ＡＮＤ　ＴＩＴＭＤ＝＝０　ＴＨＥＮ　ＰＨＡＳＥ＝１：ＰＨＡＳＣＮＴ＝０：ＳＴＡＧＥ＝ＳＴＡＧＥ＋１：ＣＬＳ ＲＥＴＵＲＮ ＠ＢＯＳＳＥＸＰ　’ホ゛ス　キエル 　ＩＦ　ＢＯＳＳＣＮＴ＜６４　ＴＨＥＮ　ＢＥＥＰ　１３ 　ＩＦ　ＢＯＳＳＣＮＴ＝＝１　ＴＨＥＮ　＠ＢＯＳＳＥＸＰ１ 　ＩＦ　ＢＯＳＳＣＮＴ＝＝１６　ＴＨＥＮ　＠ＢＯＳＳＥＸＰ２ 　ＩＦ　ＢＯＳＳＣＮＴ＝＝３２　ＴＨＥＮ　＠ＢＯＳＳＥＸＰ３ 　ＩＦ　ＢＯＳＳＣＮＴ＝＝４８　ＴＨＥＮ　＠ＢＯＳＳＥＸＰ４ 　ＩＦ　ＢＯＳＳＣＮＴ＝＝６４　ＴＨＥＮ　＠ＢＯＳＳＣＬＲ 　ＩＦ　ＢＯＳＳＣＮＴ＝＝１２８　ＴＨＥＮ　ＳＴＡＧＥ＝ＳＴＡＧＥ＋１：ＧＯＳＵＢ　＠ＳＡＶ：ＳＴＡＧＥ＝ＳＴＡＧＥ−１：ＴＩＴＭＤ＝０ 　ＩＦ　ＢＯＳＳＣＮＴ＞＝１２８　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＮＴＮＵＥ 　ＲＥＴＵＲＮ 　＠ＢＯＳＳＥＸＰ１ 　ＳＰＣＨＲ　７２，３５２ 　ＳＰＣＨＲ　７３，３５３ 　ＳＰＣＨＲ　７４，３５４ 　ＳＰＣＨＲ　７５，３５５ 　ＲＥＴＵＲＮ 　＠ＢＯＳＳＥＸＰ２ 　ＳＰＣＨＲ　７２，３５６ 　ＳＰＣＨＲ　７３，３５７ 　ＳＰＣＨＲ　７４，３５８ 　ＳＰＣＨＲ　７５，３５９ 　ＲＥＴＵＲＮ 　＠ＢＯＳＳＥＸＰ３ 　ＳＰＣＨＲ　７２，３６０ 　ＳＰＣＨＲ　７３，３６１ 　ＳＰＣＨＲ　７４，３６２ 　ＳＰＣＨＲ　７５，３６３ 　ＲＥＴＵＲＮ 　＠ＢＯＳＳＥＸＰ４ 　ＳＰＣＨＲ　７２，３６４ 　ＳＰＣＨＲ　７３，３６５ 　ＳＰＣＨＲ　７４，３６６ 　ＳＰＣＨＲ　７５，３６７ 　ＲＥＴＵＲＮ 　＠ＢＯＳＳＣＬＲ 　ＳＰＯＦＳ　７２，−１６，−１６ 　ＳＰＯＦＳ　７３，−１６，−１６ 　ＳＰＯＦＳ　７４，−１６，−１６ 　ＳＰＯＦＳ　７５，−１６，−１６ ＲＥＴＵＲＮ ＠ＳＡＶ 　ＭＥＭ＄＝ＬＥＦＴ＄（ＳＴＲ＄（ＳＣＯＲＥＨ）＋”　　　　”，５） 　ＭＥＭ＄＝ＭＥＭ＄＋ＬＥＦＴ＄（ＳＴＲ＄（ＳＣＯＲＥ）＋”　　　　”，５） 　ＭＥＭ＄＝ＭＥＭ＄＋ＬＥＦＴ＄（ＳＴＲ＄（ＳＴＡＧＥ）＋”　　　　”，５） 　ＳＡＶＥ　”ＭＥＭ：ＳＫＡＴＳＴＧ” ＲＥＴＵＲＮ ＠ＧＡＭＥＯＶＥＲ 　ＦＯＲ　Ｉ＝０　ＴＯ　９９ 　　ＳＰＣＬＲ　Ｉ 　ＮＥＸＴ 　ＧＬＩＮＥ　ＭＹＸ＋８，ＭＹＹ＋８，ＲＮＤ（２５６），ＲＮＤ（２５６），ＲＮＤ（２５６） 　ＧＣＩＲＣＬＥ　ＭＹＸ＋８，ＭＹＹ＋８，ＲＮＤ（１００）＋２，ＲＮＤ（２５６） 　ＬＯＣＡＴＥ　１２，１２：ＰＲＩＮＴ　”ＧＡＭＥ　ＯＶＥＲ” 　ＧＯＳＵＢ　＠ＡＮＹＢＴＮ 　ＩＦ　Ｒ　ＡＮＤ　１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＡＶ：ＧＯＴＯ　＠ＩＮＩＴ ＲＥＴＵＲＮ ＠ＤＩＳＰＢＧ　’ハイケイ　ヒョウシ゛ 　ＦＯＲ　Ｉ＝０　ＴＯ　７ 　　ＧＰＳＥＴ　ＳＴＡＲＸ（Ｉ），ＳＴＡＲＹ（Ｉ），０ 　　ＳＴＡＲＹ（Ｉ）＝ＳＴＡＲＹ（Ｉ）＋ＳＴＡＲＳＰＤ（Ｉ） 　　ＧＰＳＥＴ　ＳＴＡＲＸ（Ｉ），ＳＴＡＲＹ（Ｉ），ＳＴＡＧＥ％２５６ 　　ＩＦ　ＳＴＡＲＹ（Ｉ）　＞　１９２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＴＡＲＩＮＩＴ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＳＴＡＲＩＮＩＴ　’ホシノイチ　モト゛ス 　ＳＴＡＲＸ（Ｉ）　＝　ＲＮＤ（２５６） 　ＳＴＡＲＹ（Ｉ）　＝　０ 　ＳＴＡＲＳＰＤ（Ｉ）　＝　（ＲＮＤ（１６）＋１）／４ ＲＥＴＵＲＮ ＠ＥＮＳＨＯＴ　’テキ　ショット 　ＦＯＲ　Ｉ＝０　ＴＯ　３１ 　　ＩＦ　ＥＮＳＨＯＴＸ（Ｉ）＝＝ＵＮＵＳＥＤ　ＴＨＥＮ　＠ＥＳＨＴＨＲＵ 　　ＥＮＳＨＯＴＸ（Ｉ）＝ＥＮＳＨＯＴＸ（Ｉ）＋ＳＩＮ（ＥＮＳＨＤＩＲ（Ｉ））＊２ 　　ＥＮＳＨＯＴＹ（Ｉ）＝ＥＮＳＨＯＴＹ（Ｉ）＋ＣＯＳ（ＥＮＳＨＤＩＲ（Ｉ））＊２ 　　ＳＰＯＦＳ　Ｉ＋２４，ＥＮＳＨＯＴＸ（Ｉ），ＥＮＳＨＯＴＹ（Ｉ），２ 　　ＩＦ　ＥＮＳＨＯＴＸ（Ｉ）＞２５６　ＴＨＥＮ　ＥＮＳＨＯＴＸ（Ｉ）＝ＵＮＵＳＥＤ 　　ＩＦ　ＥＮＳＨＯＴＸ（Ｉ）＜−１６　ＴＨＥＮ　ＥＮＳＨＯＴＸ（Ｉ）＝ＵＮＵＳＥＤ 　　ＩＦ　ＥＮＳＨＯＴＹ（Ｉ）＞１９２　ＴＨＥＮ　ＥＮＳＨＯＴＸ（Ｉ）＝ＵＮＵＳＥＤ 　　ＩＦ　ＥＮＳＨＯＴＹ（Ｉ）＜−１６　ＴＨＥＮ　ＥＮＳＨＯＴＸ（Ｉ）＝ＵＮＵＳＥＤ 　　＠ＥＳＨＴＨＲＵ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＥＮＥＭＹ　’テキ 　ＩＦ　ＰＨＡＳＥ！＝１　ＴＨＥＮ　＠ＧＥＮＭＴＨＲＵ 　ＩＦ　ＭＡＩＮＣＮＴＬ％１６　ＴＨＥＮ　＠ＧＥＮＭＴＨＲＵ 　ＩＦ　ＥＮＭＸ（ＧＥＮＭＣＮＴ）！＝ＵＮＵＳＥＤ　ＴＨＥＮ　＠ＧＥＮＭＴＨＲＵ 　　ＥＮＭＸ（ＧＥＮＭＣＮＴ）　＝　ＲＮＤ（２４０） 　　ＥＮＭＹ（ＧＥＮＭＣＮＴ）　＝　−１６ 　　ＥＮＭＨＰ（ＧＥＮＭＣＮＴ）＝　１ 　　ＥＮＭＣＮＴ（ＧＥＮＭＣＮＴ）　＝　０ 　　ＳＰＯＦＳ　ＧＥＮＭＣＮＴ＋１６，ＥＮＭＸ（ＧＥＮＭＣＮＴ），−１６ 　　ＧＥＮＭＣＮＴ＝ＧＥＮＭＣＮＴ＋１ 　　ＩＦ　ＧＥＮＭＣＮＴ＞＝ＥＮＭＭＡＸ　ＴＨＥＮ　ＧＥＮＭＣＮＴ＝０ 　＠ＧＥＮＭＴＨＲＵ 　ＦＯＲ　Ｉ＝０　ＴＯ　７ 　　ＩＦ　ＥＮＭＸ（Ｉ）＝＝ＵＮＵＳＥＤ　ＴＨＥＮ　＠ＥＮＭＴＨＲＵ 　　ＥＮＭＹ（Ｉ）　＝　ＥＮＭＹ（Ｉ）＋０．７５ 　　ＥＮＭＣＮＴ（Ｉ）　＝　ＥＮＭＣＮＴ（Ｉ）＋１ ’　　ＩＦ　ＥＮＭＹ（Ｉ）＞１９２　ＴＨＥＮ　ＥＮＭＸ（Ｉ）＝ＵＮＵＳＥＤ 　　ＩＦ　ＥＮＭＹ（Ｉ）＜１９２　ＴＨＥＮ　＠ＥＮＧＬＴＨＲＵ 　　　ＭＹＸ＝ＥＮＭＸ（Ｉ） 　　　ＭＹＹ＝ＥＮＭＹ（Ｉ） 　　　ＧＭＯＶＦＬＧ＝ＴＲＵＥ 　　　ＰＨＡＳＥ＝３ 　　　ＢＧＭＰＬＡＹ　６ 　　　ＳＰＯＦＳ　０，−１６，−１６ 　　　ＳＰＯＦＳ　１，−１６，−１６ 　＠ＥＮＧＬＴＨＲＵ 　　ＩＦ　ＥＮＭＣＮＴ（Ｉ）％１６＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＥＮＭＳＨＯＴ 　　’ハンテイ 　　Ｊ＝０ 　　＠ＥＮＭＪＵＤＧＥ 　　　ＩＦ　ＭＹＳＨＯＴＸ（Ｊ）＝＝ＵＮＵＳＥＤ　ＴＨＥＮ　＠ＥＮＭＪＤＧＮＸ 　　　ＩＦ　ＥＮＭＸ（Ｉ）−８＞ＭＹＳＨＯＴＸ（Ｊ）　ＴＨＥＮ　＠ＥＮＭＪＤＧＮＸ 　　　ＩＦ　ＥＮＭＸ（Ｉ）＋８＜ＭＹＳＨＯＴＸ（Ｊ）　ＴＨＥＮ　＠ＥＮＭＪＤＧＮＸ 　　　ＩＦ　ＥＮＭＹ（Ｉ）−８＞ＭＹＳＨＯＴＹ（Ｊ）　ＴＨＥＮ　＠ＥＮＭＪＤＧＮＸ 　　　ＩＦ　ＥＮＭＹ（Ｉ）＋８＜ＭＹＳＨＯＴＹ（Ｊ）　ＴＨＥＮ　＠ＥＮＭＪＤＧＮＸ 　　　ＥＮＭＨＰ（Ｉ）＝ＥＮＭＨＰ（Ｉ）−１ 　　　ＥＮＭＹ（Ｉ）＝ＥＮＭＹ（Ｉ）−３ 　　　ＭＹＳＨＯＴＹ（Ｊ）＝−３２ 　　　ＳＰＯＦＳ　Ｊ＋８，−３２，０ 　　　ＩＦ　ＥＮＭＨＰ（Ｉ）＞０　ＴＨＥＮ　＠ＥＮＭＪＤＧＮＸ 　　　Ｐ１＝ＥＮＭＸ（Ｉ）：Ｐ２＝ＥＮＭＹ（Ｉ） 　　　ＧＯＳＵＢ　＠ＧＥＮＥＸＰ 　　　ＣＯＭＢＯ＝ＣＯＭＢＯ＋１ 　　　ＳＣＯＲＥ＝ＳＣＯＲＥ＋１＋ＦＬＯＯＲ（ＣＯＭＢＯ／１００） 　　　ＦＯＲ　Ｋ＝０　ＴＯ　７ 　　　　ＩＦ　ＥＮＭＸ（Ｋ）＝＝ＵＮＵＳＥＤ　ＴＨＥＮ　＠ＧＥＮＭＣＭＢ 　　　　ＩＦ　Ｋ＝＝Ｉ　ＴＨＥＮ　＠ＧＥＮＭＣＭＢ 　　　　ＩＦ　ＡＢＳ（ＥＮＭＸ（Ｋ）−ＥＮＭＸ（Ｉ））＞６４　ＴＨＥＮ　＠ＧＥＮＭＣＭＢ 　　　　ＩＦ　ＡＢＳ（ＥＮＭＹ（Ｋ）−ＥＮＭＹ（Ｉ））＞６４　ＴＨＥＮ　＠ＧＥＮＭＣＭＢ 　　　　ＥＮＭＨＰ（Ｋ）＝０ 　　　　Ｐ１＝ＥＮＭＸ（Ｋ）：Ｐ２＝ＥＮＭＹ（Ｋ） 　　　　ＧＯＳＵＢ　＠ＧＥＮＥＸＰ 　　　　ＥＮＭＸ（Ｋ）＝ＵＮＵＳＥＤ 　　　　ＳＰＯＦＳ　Ｋ＋１６，ＥＮＭＸ（Ｋ），ＥＮＭＹ（Ｋ） 　　　　ＣＯＭＢＯ＝ＣＯＭＢＯ＋１ 　　　　ＳＣＯＲＥ＝ＳＣＯＲＥ＋１＋ＦＬＯＯＲ（ＣＯＭＢＯ／１００） 　　　　＠ＧＥＮＭＣＭＢ 　　　ＮＥＸＴ 　　　ＥＮＭＸ（Ｉ）＝ＵＮＵＳＥＤ 　　　＠ＥＮＭＪＤＧＮＸ 　　　Ｊ＝Ｊ＋１ 　　ＩＦ　Ｊ＜＝３　ＴＨＥＮ　＠ＥＮＭＪＵＤＧＥ 　　ＳＰＯＦＳ　Ｉ＋１６，ＥＮＭＸ（Ｉ），ＥＮＭＹ（Ｉ），２ 　　＠ＥＮＭＴＨＲＵ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＧＥＮＭＳＨＯＴ　’テキタ゛ン　ハッシャ 　ＦＯＲ　Ｊ＝０　ＴＯ　ＳＴＡＧＥ 　　ＩＦ　Ｊ＝＝６　ＧＯＴＯ　＠ＥＮＳＨＴＨＲＵ 　　ＩＦ　ＥＮＳＨＯＴＸ（ＥＳＨＴＣＮＴ）！＝ＵＮＵＳＥＤ　ＴＨＥＮ　＠ＥＮＳＨＴＨＲＵ 　　ＥＮＳＨＯＴＸ（ＥＳＨＴＣＮＴ）＝ＥＮＭＸ（Ｉ） 　　ＥＮＳＨＯＴＹ（ＥＳＨＴＣＮＴ）＝ＥＮＭＹ（Ｉ） 　　ＥＮＳＨＤＩＲ（ＥＳＨＴＣＮＴ）＝ＲＮＤ（１０２４）＊ＰＩ（）／５１２ 　　ＳＰＯＦＳ　ＥＳＨＴＣＮＴ＋２４，ＥＮＳＨＯＴＸ（ＥＳＨＴＣＮＴ），ＥＮＳＨＯＴＹ（ＥＳＨＴＣＮＴ） 　　ＥＳＨＴＣＮＴ＝ＥＳＨＴＣＮＴ＋１ 　　ＩＦ　ＥＳＨＴＣＮＴ＞＝ＥＳＨＴＭＡＸ　ＴＨＥＮ　ＥＳＨＴＣＮＴ＝０ 　　＠ＥＮＳＨＴＨＲＵ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＧＥＮＥＸＰ　’ハ゛クハツ　セイセイ 　ＢＥＥＰ　１１ 　ＥＸＰＸ（ＧＥＸＰＣＮＴ）＝Ｐ１ 　ＥＸＰＹ（ＧＥＸＰＣＮＴ）＝Ｐ２ 　ＥＸＰＣＮＴ（ＧＥＸＰＣＮＴ）＝０ 　ＳＰＯＦＳ　ＧＥＸＰＣＮＴ＋６４，Ｐ１，Ｐ２ 　ＳＰＡＮＩＭ　ＧＥＸＰＣＮＴ＋６４，４，８，１ 　ＧＥＸＰＣＮＴ＝ＧＥＸＰＣＮＴ＋１ 　ＩＦ　ＧＥＸＰＣＮＴ＞＝ＥＸＰＭＡＸ　ＴＨＥＮ　ＧＥＸＰＣＮＴ＝０ ＲＥＴＵＲＮ ＠ＭＹＳＨＯＴ　’シ゛キ　ショット 　ＦＯＲ　Ｉ＝０　ＴＯ　３ 　　ＩＦ　ＭＹＳＨＯＴＸ（Ｉ）＝＝ＵＮＵＳＥＤ　ＴＨＥＮ　＠ＭＹＳＨＴＨＲ 　　ＭＹＳＨＯＴＹ（Ｉ）　＝　ＭＹＳＨＯＴＹ（Ｉ）−８ 　　ＳＰＯＦＳ　Ｉ＋８，ＭＹＳＨＯＴＸ（Ｉ），ＭＹＳＨＯＴＹ（Ｉ），２ 　　ＩＦ　ＭＹＳＨＯＴＹ（Ｉ）　＜　−１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＲＭＶＭＹＳＨＴ 　　＠ＭＹＳＨＴＨＲ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＲＭＶＭＹＳＨＴ　’ショット　ケス 　ＭＹＳＨＯＴＸ（Ｉ）　＝　ＵＮＵＳＥＤ ＲＥＴＵＲＮ ＠ＥＸＰＬＳＩＯＮ　’ハ゛クハツ 　ＦＯＲ　Ｉ＝０　ＴＯ　３ 　　ＩＦ　ＥＸＰＣＮＴ（Ｉ）　＝＝　２０　ＴＨＥＮ　ＳＰＯＦＳ　Ｉ＋６４，−１６，−１６ 　　ＥＸＰＣＮＴ（Ｉ）＝ＥＸＰＣＮＴ（Ｉ）＋１ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＤＩＳＰＳＣＯＲ　’スコア　ヒョウシ゛ 　ＩＦ　ＭＹＨＰ＜＝２５０　ＡＮＤ　ＢＧＭＣＨＮＧ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＢＧＭＣＨＮＧ＝ＴＲＵＥ：ＢＧＭＰＬＡＹ　２９ 　ＩＦ　ＳＣＯＲＥ＞＝１０００００　ＴＨＥＮ　ＳＣＯＲＥ＝ＳＣＯＲＥ−１０００００：ＳＣＯＲＥＨ＝ＳＣＯＲＥＨ＋１ 　 　ＬＯＣＡＴＥ　１１，０ 　ＩＦ　ＰＨＡＳＥ＝＝２　ＴＨＥＮ　ＰＲＩＮＴ　”ＢＯＳＳ　Ｌｖ．”；ＲＩＧＨＴ＄（”　　”＋ＳＴＲ＄（ＳＴＡＧＥ），２）　ＥＬＳＥ　ＰＲＩＮＴ　”　　　　　　　　　　” 　 　ＧＰＡＧＥ　０ 　ＧＬＩＮＥ　８８，９，１６８，９，０ 　ＧＣＯＬＯＲ　２ 　ＩＦ　ＢＯＳＳＨＰ＞＝（５５＋５＊ＳＴＡＧＥ）／４　ＴＨＥＮ　ＧＣＯＬＯＲ　８ 　ＩＦ　ＢＯＳＳＨＰ＞＝（５５＋５＊ＳＴＡＧＥ）／２　ＴＨＥＮ　ＧＣＯＬＯＲ　４ 　ＩＦ　ＢＯＳＳＨＰ＞０　ＴＨＥＮ　ＧＬＩＮＥ　８８，９，８８＋ＢＯＳＳＨＰ＊８０／（５５＋５＊ＳＴＡＧＥ），９ 　ＰＮＬＳＴＲ　０，０，”ＳＨＩＰ：” 　ＰＮＬＳＴＲ　２３，０，ＲＩＧＨＴ＄（”　　　”＋ＳＴＲ＄（ＭＹＨＰ），４）＋”／１０００” 　ＧＰＡＧＥ　１ 　ＧＬＩＮＥ　０，９，２５６，９，０ 　ＧＣＯＬＯＲ　２ 　ＩＦ　ＭＹＨＰ＞＝２５０　ＴＨＥＮ　ＧＣＯＬＯＲ　８ 　ＩＦ　ＭＹＨＰ＞＝５００　ＴＨＥＮ　ＧＣＯＬＯＲ　４ 　ＧＬＩＮＥ　０，９，２５６＊ＭＹＨＰ／１０００，９ 　ＳＣＸ＝４：ＳＣＶ＝ＦＬＯＯＲ（ＳＣＯＲＥＨ／１００） 　ＧＯＳＵＢ　＠ＤＩＳＰＳＣＲＬ 　ＳＣＸ＝７：ＳＣＶ＝ＦＬＯＯＲ（ＳＣＯＲＥＨ％１００／１０） 　ＧＯＳＵＢ　＠ＤＩＳＰＳＣＲＬ 　ＳＣＸ＝１０：ＳＣＶ＝ＦＬＯＯＲ（ＳＣＯＲＥＨ％１０） 　ＧＯＳＵＢ　＠ＤＩＳＰＳＣＲＬ 　ＳＣＸ＝１３：ＳＣＶ＝ＦＬＯＯＲ（ＳＣＯＲＥ／１００００） 　ＧＯＳＵＢ　＠ＤＩＳＰＳＣＲＬ 　ＳＣＸ＝１６：ＳＣＶ＝ＦＬＯＯＲ（ＳＣＯＲＥ％１００００／１０００） 　ＧＯＳＵＢ　＠ＤＩＳＰＳＣＲＬ 　ＳＣＸ＝１９：ＳＣＶ＝ＦＬＯＯＲ（ＳＣＯＲＥ％１０００／１００） 　ＧＯＳＵＢ　＠ＤＩＳＰＳＣＲＬ 　ＳＣＸ＝２２：ＳＣＶ＝ＦＬＯＯＲ（ＳＣＯＲＥ％１００／１０） 　ＧＯＳＵＢ　＠ＤＩＳＰＳＣＲＬ 　ＳＣＸ＝２５：ＳＣＶ＝ＦＬＯＯＲ（ＳＣＯＲＥ％１０） 　ＧＯＳＵＢ　＠ＤＩＳＰＳＣＲＬ 　ＰＮＬＳＴＲ　１３，６，”ＳＣＯＲＥ” 　ＰＮＬＳＴＲ　４，１６，”ＳＴＡＧＥ　”＋ＳＴＲ＄（ＳＴＡＧＥ） 　ＰＮＬＳＴＲ　８，１９，”Е　”＊ＦＬＯＯＲ（ＣＯＭＢＯ／１００＋１） 　ＰＮＬＳＴＲ　２４，１９，”　　　　　　　　” 　ＧＰＡＧＥ　０ ＲＥＴＵＲＮ ＠ＤＩＳＰＳＣＲＬ 　ＳＣＹ＝８ 　ＩＦ　ＳＣＶ＝＝０　ＴＨＥＮ　ＳＣ１＄＝”┗┏┓”：ＳＣ２＄＝”┛　┛”：ＳＣ３＄＝”┛　┛”：ＳＣ４＄＝”┃┏　” 　ＩＦ　ＳＣＶ＝＝１　ＴＨＥＮ　ＳＣ１＄＝”┳┛　”：ＳＣ２＄＝”　┛　”：ＳＣ３＄＝”　┛　”：ＳＣ４＄＝”┃┏　” 　ＩＦ　ＳＣＶ＝＝２　ＴＨＥＮ　ＳＣ１＄＝”┗┏┓”：ＳＣ２＄＝”　┳━”：ＳＣ３＄＝”┳━　”：ＳＣ４＄＝”┏┏━” 　ＩＦ　ＳＣＶ＝＝３　ＴＨＥＮ　ＳＣ１＄＝”┗┏┓”：ＳＣ２＄＝”　┠━”：ＳＣ３＄＝”┓　┛”：ＳＣ４＄＝”┃┏　” 　ＩＦ　ＳＣＶ＝＝４　ＴＨＥＮ　ＳＣ１＄＝”　┨　”：ＳＣ２＄＝”┗┻　”：ＳＣ３＄＝”┏╋━”：ＳＣ４＄＝”　┃　” 　ＩＦ　ＳＣＶ＝＝５　ＴＨＥＮ　ＳＣ１＄＝”┣┏━”：ＳＣ２＄＝”┏┏┓”：ＳＣ３＄＝”┓　┛”：ＳＣ４＄＝”┃┏　” 　ＩＦ　ＳＣＶ＝＝６　ＴＨＥＮ　ＳＣ１＄＝”┳┏　”：ＳＣ２＄＝”┯┠　”：ＳＣ３＄＝”┛　┛”：ＳＣ４＄＝”┃┏　” 　ＩＦ　ＳＣＶ＝＝７　ＴＨＥＮ　ＳＣ１＄＝”┏┏┛”：ＳＣ２＄＝”　┳━”：ＳＣ３＄＝”　┛　”：ＳＣ４＄＝”　━　” 　ＩＦ　ＳＣＶ＝＝８　ＴＨＥＮ　ＳＣ１＄＝”┗┏┓”：ＳＣ２＄＝”┫┠━”：ＳＣ３＄＝”┛　┛”：ＳＣ４＄＝”┃┏　” 　ＩＦ　ＳＣＶ＝＝９　ＴＨＥＮ　ＳＣ１＄＝”┗┏┓”：ＳＣ２＄＝”┫┠┛”：ＳＣ３＄＝”　┳━”：ＳＣ４＄＝”┃━　” 　ＰＮＬＳＴＲ　ＳＣＸ，ＳＣＹ，ＳＣ１＄ 　ＰＮＬＳＴＲ　ＳＣＸ，ＳＣＹ＋１，ＳＣ２＄ 　ＰＮＬＳＴＲ　ＳＣＸ，ＳＣＹ＋２，ＳＣ３＄ 　ＰＮＬＳＴＲ　ＳＣＸ，ＳＣＹ＋３，ＳＣ４＄ ＲＥＴＵＲＮ ＠ＭＹＳＨＩＰ　’フ゜レイヤ− 　ＩＦ　ＭＹＣＮＴ＜２４　ＴＨＥＮ　ＭＹＹ＝ＭＹＹ−２ 　ＩＦ　ＭＹＣＮＴ＝＝１２８　ＴＨＥＮ　ＭＹＳＴＡＴ＝０ 　ＳＰＣＨＲ　０，２８８：ＳＰＣＨＲ　１，２８９ 　ＩＦ　ＢＴＮ　ＡＮＤ　１　ＴＨＥＮ　ＭＹＹ＝ＭＹＹ−ＭＹＳＰＤ 　ＩＦ　ＢＴＮ　ＡＮＤ　２　ＴＨＥＮ　ＭＹＹ＝ＭＹＹ＋ＭＹＳＰＤ 　ＩＦ　ＢＴＮ　ＡＮＤ　４　ＴＨＥＮ　ＭＹＸ＝ＭＹＸ−ＭＹＳＰＤ：ＳＰＣＨＲ　０，２９２：ＳＰＣＨＲ　１，２９３ 　ＩＦ　ＢＴＮ　ＡＮＤ　８　ＴＨＥＮ　ＭＹＸ＝ＭＹＸ＋ＭＹＳＰＤ：ＳＰＣＨＲ　０，２９０：ＳＰＣＨＲ　１，２９１ 　ＩＦ　ＭＹＸ＜０　ＴＨＥＮ　ＭＹＸ＝０ 　ＩＦ　ＭＹＸ＞２３９　ＴＨＥＮ　ＭＹＸ＝２３９ 　ＩＦ　ＭＹＹ＜０　ＴＨＥＮ　ＭＹＹ＝０ 　ＩＦ　ＭＹＹ＞１７５　ＴＨＥＮ　ＭＹＹ＝１７５ 　ＩＦ　ＭＹＣＮＴ％４　ＴＨＥＮ　＠ＧＭＳＨＴＨＲＵ 　ＩＦ　ＢＴＮ　ＡＮＤ　１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＥＮＭＹＳＨＴ 　＠ＧＭＳＨＴＨＲＵ 　ＦＯＲ　Ｉ＝０　ＴＯ　３１ 　　ＩＦ　ＥＮＳＨＯＴＸ（Ｉ）＝＝ＵＮＵＳＥＤ　ＴＨＥＮ　＠ＥＳＪＤＴＨＲＵ 　　ＩＦ　ＥＮＳＨＯＴＸ（Ｉ）＜ＭＹＸ−８　ＴＨＥＮ　＠ＥＳＪＤＴＨＲＵ 　　ＩＦ　ＥＮＳＨＯＴＸ（Ｉ）＞ＭＹＸ＋８　ＴＨＥＮ　＠ＥＳＪＤＴＨＲＵ 　　ＩＦ　ＥＮＳＨＯＴＹ（Ｉ）＜ＭＹＹ−８　ＴＨＥＮ　＠ＥＳＪＤＴＨＲＵ 　　ＩＦ　ＥＮＳＨＯＴＹ（Ｉ）＞ＭＹＹ＋８　ＴＨＥＮ　＠ＥＳＪＤＴＨＲＵ 　　ＢＥＥＰ　１１ 　　ＭＹＨＰ＝ＭＹＨＰ−１ 　　ＩＦ　ＭＹＨＰ＞０　ＴＨＥＮ　＠ＥＳＪＤＴＨＲＵ 　　ＧＭＯＶＦＬＧ＝ＴＲＵＥ 　　ＰＨＡＳＥ＝３ 　　ＢＧＭＰＬＡＹ　６ 　　ＳＰＯＦＳ　０，−１６，−１６ 　　ＳＰＯＦＳ　１，−１６，−１６ 　　ＲＥＴＵＲＮ 　　＠ＥＳＪＤＴＨＲＵ 　ＮＥＸＴ 　ＳＰＯＦＳ　０，ＭＹＸ，ＭＹＹ−５，２ 　ＳＰＯＦＳ　１，ＭＹＸ，ＭＹＹ＋５，２ 　ＭＹＣＮＴ＝ＭＹＣＮＴ＋１ ＲＥＴＵＲＮ ＠ＧＥＮＭＹＳＨＴ　’ショット　セイセイ 　Ｍ＝ＭＳＨＣＮＴ 　ＩＦ　ＭＹＳＨＯＴＸ（Ｍ）！＝ＵＮＵＳＥＤ　ＴＨＥＮ　ＲＥＴＵＲＮ 　ＢＥＥＰ　９ 　ＭＹＳＨＯＴＸ（Ｍ）＝ＭＹＸ 　ＭＹＳＨＯＴＹ（Ｍ）＝ＭＹＹ 　ＳＰＯＦＳ　Ｍ＋８，ＭＹＸ，ＭＹＹ 　ＭＳＨＣＮＴ＝ＭＳＨＣＮＴ＋１ 　ＩＦ　ＭＳＨＣＮＴ＞＝ＭＳＨＭＡＸ　ＴＨＥＮ　ＭＳＨＣＮＴ＝０ ＲＥＴＵＲＮ ’┌─────────────────────────┐ ’│オワリ　　　　　　　　　　　　　　　　　　　　　　│ ’└─────────────────────────┘

電子ピアノ

• わぁぃ@さんの電子ピアノの改造です。
• 楽器はピアノだけになっています。
• BEEPではなくMMLで再生するようになっています。
• 右上のRecLv.(?)をタッチして録音する音符の長さを設定します。
• Bでメトロノーム、Aで再生、Xで録音です。

+

プログラムリスト(185行)

＠ＩＮＩＴ ＶＩＳＩＢＬＥ　０，１，１，０，１，１ ＰＮＬＴＹＰＥ”ＯＦＦ” ＣＬＳ：ＢＧＭＳＴＯＰ ＦＯＲ　Ｃ＝０　ＴＯ　１ ＳＰＰＡＧＥ　Ｃ：ＳＰＣＬＲ ＢＧＰＡＧＥ　Ｃ：ＧＯＳＵＢ　＠ＢＧＣＬＲ ＧＰＡＧＥ　１−Ｃ：ＧＣＬＳ　０ ＮＥＸＴ ＧＰＡＧＥ　０，０，０ ＩＦ　Ｆ＄！＝””　ＴＨＥＮ　ＬＯＡＤ”ＧＲＰ０：”＋Ｆ＄，０ ＣＬＥＡＲ ＤＩＭ　ＲＭ＄（１２），ＲＬＣ（４） ＢＧＭＳＥＴ　１２８，”Ｔ１Ｌ１Ｎ＄０” ＤＡＴＡ”Ｃ”，”１”，”Ｄ”，”２”，”Ｅ”，”Ｆ”，”３”，”Ｇ”，”４”，”Ａ”，”５”，”Ｂ” ＤＡＴＡ　０，”　”，１，３ ＤＡＴＡ　０，”　”，１７，３ ＤＡＴＡ　０，”　”，９，３ ＤＡＴＡ　０，”　”，１，２ ＤＡＴＡ　０，”　”，２４，１ ＤＡＴＡ”Ｃ１１２２ＥＦ３３４４５５Ｂ” ＤＡＴＡ”Ｃ１１２２ＥＦ３３４４５５Ｂ” ＤＡＴＡ”Ｃ１１２２ＥＦ３３４４５５Ｂ” ’ＤＡＴＡ”９１１２２９９３３４４５５９” ’ＤＡＴＡ”９１１２２９９３３４４５５９” ’ＤＡＴＡ”９１１２２９９３３４４５５９” ＤＡＴＡ”ＣＣＤＤＥＥＦＦＧＧＡＡＢＢ” ＤＡＴＡ”ＣＣＤＤＥＥＦＦＧＧＡＡＢＢ” ＤＡＴＡ”ＣＣＤＤＥＥＦＦＧＧＡＡＢＢ” ＤＡＴＡ”ＣＣＤＤＥＥＦＦＧＧＡＡＢＢ” ＦＯＲ　Ｉ＝０　ＴＯ　１１ ＲＥＡＤ　ＲＭ＄（Ｉ） ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　７６７ ＰＲＩＮＴ”　”； ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　４ ＲＥＡＤ　ＢＭ（Ｉ），ＢＭ＄（Ｉ），ＢＸ（Ｉ），ＢＹ（Ｉ） 　ＬＯＣＡＴＥ　ＢＸ（Ｉ），ＢＹ（Ｉ） 　ＦＯＲ　Ｊ＝０　ＴＯ　１＋（Ｉ＝＝４）＊２ 　　ＰＲＩＮＴ　ＢＭ＄（Ｉ）； 　ＮＥＸＴ ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　６ ＲＥＡＤ　Ｐ＄ ＬＯＣＡＴＥ　０，Ｉ＋１０ ＰＲＩＮＴ　ＭＩＤ＄（Ｐ＄，１０，４）；Ｐ＄；Ｐ＄ ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　３１ 　ＦＯＲ　Ｊ＝０　ＴＯ　２３ 　　Ｃ＄＝ＣＨＲ＄（ＣＨＫＣＨＲ（Ｉ，Ｊ）） 　　Ｃ＝（（（Ｃ＄！＝”　”）＊１５）−（（ＶＡＬ（Ｃ＄）＞０　ＡＮＤ　ＶＡＬ（Ｃ＄）＜９）））＊（ＡＳＣ（Ｃ＄）＞３２） 　　ＢＧＰＵＴ　０，Ｉ，Ｊ，Ｃ，０，０，０ 　　ＩＦ　Ｃ＄！＝”　”　ＡＮＤ　Ｉ％２＋（ＶＡＬ（Ｃ＄）＞０）　ＴＨＥＮ　ＰＮＬＳＴＲ　Ｉ，Ｊ，”и　”，２ 　ＮＥＸＴ ＮＥＸＴ ’ＰＮＬＳＴＲ　２４，１，”［ＥＸＩＴ］” ’ＰＮＬＳＴＲ　２，６，”йййййййй” ’ＰＮＬＳＴＲ　１２，６，”йййййййй” ＰＮＬＳＴＲ　２２，６，”йййййййй” ＰＮＬＳＴＲ　２２，２，”ＲｅｃＬｖ．：” ’ＳＰＳＥＴ　０，９４，０，０，１，０ ’ＳＰＯＦＳ　０，５７，４５：Ｖ＝１００ Ｖ＝１２７ ’ＳＰＳＥＴ　１，９４，０，０，１，０ ’ＳＰＯＦＳ　１，１１９，４５：Ｅ＝６４ Ｅ＝０ ＳＰＳＥＴ　０，９４，０，０，１，０ ＳＰＯＦＳ　０，２１１，４５：Ｏ＝１２０ ＲＬ＝０ ＲＬＣ（０）＝２：ＲＬＣ（１）＝４：ＲＬＣ（２）＝３：ＲＬＣ（３）＝６ ＠ＬＯＯＰ ＯＴＣ＝ＴＣ ＴＣ＝ＴＣＨＳＴ：ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ ＯＢ＝Ｂ：Ｂ＝ＢＵＴＴＯＮ（） Ｉ＝０：Ｇ＝０：Ｗ＝Ｗ＋１ ’１３’３９’’→１０’００’’ ’ＰＮＬＳＴＲ　２０，２０，ＧＫ＄ ’ＰＮＬＳＴＲ　２，３，”Ｖｏｌ．：”＋ＳＴＲ＄（Ｖ）＋”　　” ’ＰＮＬＳＴＲ　１２，３，”Ｅｎｖ．：”＋ＳＴＲ＄（Ｅ）＋”　　” ’ＰＮＬＳＴＲ　２２，１，”Б：メトロノ−ム ＰＮＬＳＴＲ　２２，４，”Ｔｅｍ．：”＋ＳＴＲ＄（Ｏ）＋”　　” ＰＮＬＳＴＲ　１，２０，”А：Ｒｅｃ．　　Ф：Ｐｌａｙ” ’ＣＵＲ＝Ｔ＊Ｒ＋Ｓ＊Ｐ ’ＣＵＭ＄＝ＲＩＧＨＴ＄（”　”＋ＳＴＲ＄（ＦＬＯＯＲ（ＣＵＲ／３６００）），２）＋”：” ’ＣＵＳ＄＝ＲＩＧＨＴ＄（”０”＋ＳＴＲ＄（ＦＬＯＯＲ（ＣＵＲ％３６００／６０）），２） ’ＳＴＴ＄＝”　　　　　” ’ＩＦ　Ｐ　ＴＨＥＮ　ＳＴＴ＄＝”Ｐｌａｙ　” ’ＩＦ　Ｒ　ＴＨＥＮ　ＳＴＴ＄＝”Ｒｅｃ．　” ’ＰＮＬＳＴＲ　１，２２，ＳＴＴ＄＋ＣＵＭ＄＋ＣＵＳ＄＋”／１０：００　　　　　” ＩＦ　ＲＬ＝＝０　ＴＨＥＮ　ＰＮＬＳＴＲ　２８，２，”　８” ＩＦ　ＲＬ＝＝１　ＴＨＥＮ　ＰＮＬＳＴＲ　２８，２，”１６” ＩＦ　ＲＬ＝＝２　ＴＨＥＮ　ＰＮＬＳＴＲ　２８，２，”１２” ＩＦ　ＲＬ＝＝３　ＴＨＥＮ　ＰＮＬＳＴＲ　２８，２，”２４” ＩＦ　Ｗ＞＝５２４２８７　ＴＨＥＮ　Ｗ＝０ ＩＦ　ＴＣ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＨＫ ＩＦ　１−ＴＣ　ＴＨＥＮ　ＢＧＭＳＴＯＰ　０ ＩＦ　（１−ＯＴＣ）＊ＴＣ＊（ＴＹ＞８）＊（ＴＹ＜３２）＊（ＴＸ＞１６０）＊（ＴＸ＜２４８）　ＴＨＥＮ　ＲＬ＝（ＲＬ＋１）％４ ＩＦ　（ＴＹ＜４５）＋（ＴＹ＞５５）　ＴＨＥＮ　＠ＴＳＫＩＰ ’ＩＦ　（ＴＸ＞７）＊（ＴＸ＜７３）　ＴＨＥＮ　Ｖ＝（ＴＸ−８）＊２：ＳＰＯＦＳ　０，７＋Ｖ／２，４５：ＩＦ　Ｖ＞１２７　ＴＨＥＮ　Ｖ＝１２７ ’ＩＦ　（ＴＸ＞８７）＊（ＴＸ＜１５３）　ＴＨＥＮ　Ｅ＝（ＴＸ−８８）＊２：ＳＰＯＦＳ　１，８７＋Ｅ／２，４５ ＩＦ　（ＴＸ＞１６７）＊（ＴＸ＜２３３）＊（１−Ｒ）　ＴＨＥＮ　Ｏ＝（ＴＸ−１６８）＊２＋３２：ＳＰＯＦＳ　０，１６７＋（Ｏ−３２）／２，４５ ＠ＴＳＫＩＰ ＢＰ＝１ ＩＦ　（ＲＬ＜２）＊Ｈ＊（Ｗ％（ＦＬＯＯＲ（３６００／Ｏ／２）＊２）＝＝０）　ＴＨＥＮ　ＢＥＥＰ　４９，４０９６，１２７：ＢＰ＝０ ＩＦ　（ＲＬ＞＝２）＊Ｈ＊（Ｗ％（ＦＬＯＯＲ（３６００／Ｏ／３）＊３）＝＝０）　ＴＨＥＮ　ＢＥＥＰ　４９，４０９６，１２７：ＢＰ＝０ ＩＦ　（ＲＬ＜２）＊ＢＰ＊Ｈ＊（Ｗ％ＦＬＯＯＲ（３６００／Ｏ／２）＝＝０）　ＴＨＥＮ　ＢＥＥＰ　４９，０，６０ ＩＦ　（ＲＬ＞＝２）＊ＢＰ＊Ｈ＊（Ｗ％ＦＬＯＯＲ（３６００／Ｏ／３）＝＝０）　ＴＨＥＮ　ＢＥＥＰ　４９，０，６０ ’Ｆ＝（Ｂ＝＝８）−（Ｂ＝＝４） ＩＦ　Ｂ＝＝ＯＢ　ＴＨＥＮ　＠ＢＳＫＩＰ ＩＦ　（Ｂ＝＝１６）＊（１−Ｒ）＊（１−Ｐ）　ＴＨＥＮ　ＧＣＬＳ　０：Ｒ＝１：Ｈ＝１：ＧＯＴＯ　＠ＢＳＫＩＰ ＩＦ　（Ｂ＝＝６４）＊（１−Ｒ）＊（１−Ｐ）　ＴＨＥＮ　Ｐ＝１：Ｈ＝０：ＧＯＴＯ　＠ＢＳＫＩＰ ＩＦ　（Ｂ＝＝１６）＊Ｒ　ＴＨＥＮ　Ｒ＝０：Ｔ＝０：Ｈ＝０：ＧＯＴＯ　＠ＢＳＫＩＰ ＩＦ　（Ｂ＝＝６４）＊Ｐ　ＴＨＥＮ　Ｐ＝０：Ｓ＝０：ＧＯＴＯ　＠ＢＳＫＩＰ ＩＦ　Ｂ＝＝３２　ＴＨＥＮ　Ｈ＝１−Ｈ：Ｗ＝−１ ＩＦ　Ｂ＝＝１２８　ＴＨＥＮ　Ｎ＝（Ｎ＋１）＊（Ｎ＜２） ＩＦ　Ｂ＝＝１０２４　ＴＨＥＮ　＠ＳＡＶ ＠ＢＳＫＩＰ ＩＦ　Ｔ＞４９１３９　ＴＨＥＮ　Ｒ＝０：Ｔ＝０ ＩＦ　Ｓ＞４９１３９　ＴＨＥＮ　Ｐ＝０：Ｓ＝０ ＩＦ　Ｒ＊（（Ｗ＋１０）％ＦＬＯＯＲ（３６００／Ｏ／ＲＬＣ（ＲＬ））＝＝０）　ＴＨＥＮ　Ｔ＝Ｔ＋１ ＩＦ　Ｒ＊Ｉ＊（ＯＩ！＝Ｉ）　ＴＨＥＮ　ＧＰＳＥＴ　（Ｔ＋１）％２５６，（Ｔ＋１）／２５６，Ｉ ＩＦ　Ｒ＊Ｉ＊（ＯＩ＝＝Ｉ）＊（ＧＳＰＯＩＴ（（Ｔ＋１）％２５６，（Ｔ＋１）／２５６）＝＝０）　ＴＨＥＮ　ＧＰＳＥＴ　（Ｔ＋１）％２５６，（Ｔ＋１）／２５６，１ ＩＦ　Ｐ＊（Ｗ％ＦＬＯＯＲ（３６００／Ｏ／ＲＬＣ（ＲＬ））＝＝０）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＬＡＹ２：Ｓ＝Ｓ＋１ ＶＳＹＮＣ　１ ＯＩ＝Ｉ ＧＯＴＯ　＠ＬＯＯＰ ＠ＣＨＫ ＩＦ　Ｉ＜５　ＴＨＥＮ　ＩＦ　ＣＨＫＣＨＲ（ＴＸ／８，ＴＹ／８）＝＝ＡＳＣ（ＢＭ＄（Ｉ））　ＴＨＥＮ　Ｂ＝ＢＭ（Ｉ）：Ｇ＝１ ＩＦ　（Ｉ＞１１）＋（Ｇ＝＝１）　ＴＨＥＮ　Ｉ＝０：ＲＥＴＵＲＮ ＩＦ　ＣＨＫＣＨＲ（ＴＸ／８，ＴＹ／８）＝＝ＡＳＣ（ＲＭ＄（Ｉ））　ＴＨＥＮ　＠ＰＬＡＹ Ｉ＝Ｉ＋１ ＧＯＴＯ　＠ＣＨＫ ＠ＰＬＡＹ Ｉ＝Ｉ＋ＦＬＯＯＲ（（ＴＸ−３２）／１１２）＊１２ ’ＩＦ　（Ｉ＋５０）！＝ＯＩ　ＴＨＥＮ　ＢＥＥＰ　２２，（Ｉ＋Ｆ）＊４０９６／１２＋ＲＮＤ（Ｅ）−Ｅ／２，Ｖ ＩＦ　（Ｉ＋５０）！＝ＯＩ　ＴＨＥＮ　ＢＧＭＰＬＡＹ　０，１２８：ＢＧＭＳＥＴＶ　０，０，Ｉ＋６４ ＰＮＬＳＴＲ　０，０，ＳＴＲ＄（Ｉ）＋”　” Ｉ＝Ｉ＋５０ ＲＥＴＵＲＮ ＠ＰＬＡＹ２ Ｍ＝ＧＳＰＯＩＴ（Ｓ％２５６，Ｓ／２５６） ＩＦ　Ｍ＝＝０　ＴＨＥＮ　ＢＧＭＳＴＯＰ　１：ＲＥＴＵＲＮ ＩＦ　Ｍ＜２６　ＯＲ　Ｍ＞７４　ＴＨＥＮ　ＲＥＴＵＲＮ ’ＢＥＥＰ　２２，（Ｍ−５０）＊４０９６／１２ ＢＧＭＰＬＡＹ　１，１２８：ＢＧＭＳＥＴＶ　１，０，Ｍ＋１４ ＲＥＴＵＲＮ ＠ＢＧＣＬＲ ＦＯＲ　Ｉ＝０　ＴＯ　３１ 　ＦＯＲ　Ｊ＝０　ＴＯ　２３ 　　ＢＧＰＵＴ　０，Ｉ，Ｊ，０，０，０，０ 　ＮＥＸＴ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＥＸＩＴ ＰＮＬＴＹＰＥ”ＫＹＡ” ＣＬＳ：ＳＰＣＬＲ：ＧＯＳＵＢ　＠ＢＧＣＬＲ ＣＬＥＡＲ ＶＩＳＩＢＬＥ　１，１，１，１，１，１ ＥＮＤ ＠ＳＡＶ ＣＬＳ ＩＮＰＵＴ　”ファイルメイハ？　”；Ｆ＄ ＳＡＶＥ　”ＧＲＰ０：”＋Ｆ＄ ＧＯＴＯ　＠ＩＮＩＴ ＠ＣＯＮＶ Ｈ＝０ ＭＥＭ＄＝”Ｔ”＋ＳＴＲ＄（Ｏ）＋”Ｖ”＋ＳＴＲ＄（Ｖ） Ｍ＝０：ＭＭＲ＝１ ＦＯＲ　Ｉ＝０　ＴＯ　ＴＴＴ＋１ 　ＯＭ＝Ｍ 　Ｍ＝ＧＳＰＯＩＴ（Ｉ％２５６，Ｉ／２５６） 　ＩＦ　ＯＭ＝＝Ｍ　ＴＨＥＮ　ＭＭＲ＝ＭＭＲ＋１ 　ＩＦ　ＯＭ＝＝０　ＡＮＤ　Ｍ！＝０　ＡＮＤ　ＭＭＲ＜３２　ＴＨＥＮ　ＭＥＭ＄＝ＭＥＭ＄＋”Ｒ”＋ＳＴＲ＄（ＦＬＯＯＲ（３２／ＭＭＲ＋０．５））：ＭＭＲ＝１ 　ＩＦ　（ＯＭ＝＝０）＊（Ｍ！＝０）＊（ＭＭＲ＞＝３２）ＴＨＥＮ　ＭＥＭ＄＝ＭＥＭ＄＋”Ｒ１”＊ＦＬＯＯＲ（ＭＭＲ／３２）＋”Ｒ”＋ＳＴＲ＄（ＦＬＯＯＲ（３２／（ＭＭＲ％３２）＋．５））：ＭＭＲ＝１ ’　ＩＦ　ＯＭ＝＝０　ＡＮＤ　Ｍ！＝０　ＴＨＥＮ　ＭＥＭ＄＝ＭＥＭ＄＋”Ｒ１６”＊ＭＭＲ：ＭＭＲ＝１ 　ＩＦ　ＯＭ！＝Ｍ　ＡＮＤ　ＯＭ！＝０　ＴＨＥＮ　ＭＥＭ＄＝ＭＥＭ＄＋”Ｌ”＋ＳＴＲ＄（ＦＬＯＯＲ（３２／ＭＭＲ＋０．５））＋”Ｎ”＋ＳＴＲ＄（ＯＭ＋１０）：ＭＭＲ＝１ ＮＥＸＴ ＢＧＭＰＬＡＹ　ＭＥＭ＄ ＡＣＬＳ ＩＮＰＵＴ　”ファイルメイハ？　”；Ｆ＄ ＳＡＶＥ　”ＭＥＭ：”＋Ｆ＄ ＲＥＴＵＲＮ

MML EDITOR

• 上の「電子ピアノ」の録音データを編集できるようにしたいと思って作りました。
• 3号のVisual MMLの原型です。
• MMLエディタと言いながらMMLのインポートはできません。
• MMLエクスポートすると大量のMEMが出力される残念仕様(GRPの方がファイル数少なくて済む)
• ロードとセーブはGRP形式です
• 動作がとても重いです。
• 操作方法
  • 十字キー:カーソル移動
  • キーボードをタッチ:音符入力
    • キーボードを長押ししながら十字キーを押すと音符を伸ばすことができます
  • Y:音符削除
  • X:音長変更
  • L+十字:範囲選択してコピー
  • R:貼り付け
  • A:現在の小節を再生
  • B:最初から再生
  • START:ファイルメニュー
• midi⇔MMLED用GRPの相互変換をするツールまで作ってあったりする→mid2mmled.zip
  • 出力されたbinファイルをDSPCBMPで変換するとptcになったと思います

+

プログラムリスト(1273行)

＠ＩＮＩＴ ＡＣＬＳ：ＣＬＥＡＲ：ＲＥＳＴＯＲＥ　＠ＩＮＩＴ ＳＹＳＢＥＥＰ＝０ ＬＯＡＤ　”ＢＧＵ１Ｕ：ＭＭＬＥＤ”，０ ＬＯＡＤ　”ＢＧＵ１Ｌ：ＭＭＬＥＤ”，０ ＬＯＡＤ　”ＢＧＦ０Ｕ：ＭＭＬＥＤ”，０ ＬＯＡＤ　”ＢＧＦ０Ｌ：ＭＭＬＥＤ”，０ ＶＩＳＩＢＬＥ　１，１，１，１，１，０ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＧＰＡＧＥ　０，０，０ Ｕ＿Ｌ＝１ Ｕ＿ＣＵＲ＝２ Ｕ＿ＮＯＴＥ＝４’ケ゛ンサ゛イノハ゜−トノミ Ｕ＿ＮＯＴＥＡＬＬ＝４＋８ Ｕ＿ＡＬＬ＝１５ Ｎ＿ＯＦＦ＝０ Ｎ＿ＣＯＮＴ＝２５５ Ｎ＿Ｎ＝１ ＶＳＣＮＴ＝８ ＫＢＤＹ１＝１７：ＫＢＤＹ２＝２１ ＫＢＤＯ＝２ ＫＢＤＳＣＲＬ＝１４＊２＊８ Ｃ０＝１２ ＧＥＮＡＬＬ＝０ ＰＡＲＴＣＮＴ＝８ ’ＩＮＩＴ４，ＢＰＭ１，Ｉｎｓｔ１ｘ８，ＥｎｄＰｏｓ２ ＭＥＴＡＬＥＮ＝４＋１＋１＊ＰＡＲＴＣＮＴ＋２ ＰＡＲＴＬＥＮ＝ＦＬＯＯＲ（（２５６＊１９２−ＭＥＴＡＬＥＮ）／ＰＡＲＴＣＮＴ） ＭＰＯＳ＝０ ＭＴＩＣＫ＝９６ ＥＮＤＰＯＳ＝−１ ＰＡＲＴ＝０ ＴＥＭ＝１２０ ＶＳＩ＝０ ＳＥＬ＝０：ＳＥＬ＿Ｓ＝−１ ＬＤＰＡＧＥ＝０ ＤＩＭ　ＤＮ［２，１４］，ＤＣ［２，１４］，ＤＰ［１２］，ＤＮＴ＄［１２］ ＤＩＭ　ＶＳＴＥＰ［ＶＳＣＮＴ］，ＶＳＴＥＰ＄［ＶＳＣＮＴ］ ＤＩＭ　ＳＰＨ［６］，ＯＬＤＳＰＨ［６］，ＳＰＣ［６］ ＤＩＭ　ＧＡＫＫＩ［ＰＡＲＴＣＮＴ］ ＤＩＭ　ＣＨＧＰＦＬＧ［４］ ＤＩＭ　ＩＮＩＴＦＬＧ［４］ ＤＩＭ　ＯＣＴＣＯＬ［１１］ ＦＯＲ　Ｉ＝０　ＴＯ　１３：ＲＥＡＤ　ＤＮ［０，Ｉ］：ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　１３：ＲＥＡＤ　ＤＣ［０，Ｉ］：ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　１３：ＲＥＡＤ　ＤＮ［１，Ｉ］：ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　１３：ＲＥＡＤ　ＤＣ［１，Ｉ］：ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　１１：ＲＥＡＤ　ＤＰ［Ｉ］：ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　１１：ＲＥＡＤ　ＤＮＴ＄［Ｉ］：ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　ＶＳＣＮＴ−１：ＲＥＡＤ　ＶＳＴＥＰ［Ｉ］：ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　ＶＳＣＮＴ−１：ＲＥＡＤ　ＶＳＴＥＰ＄［Ｉ］：ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　３：ＲＥＡＤ　Ｃ＄：ＩＮＩＴＦＬＧ［Ｉ］＝ＡＳＣ（Ｃ＄）：ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　１０：ＲＥＡＤ　ＯＣＴＣＯＬ［Ｉ］：ＮＥＸＴ ＤＡＴＡ　０，１，１，３，３，４，５，６，６，８，８，１０，１０，１１ ＤＡＴＡ　１，０，０，０，０，１，１，０，０，０，０，０，０，１ ＤＡＴＡ　０，０，２，２，４，４，５，５，７，７，９，９，１１，１１ ＤＡＴＡ　１，１，１，１，１，１，１，１，１，１，１，１，１，１ ＤＡＴＡ　１，０，１，０，１，１，０，１，０，１，０，１ ＤＡＴＡ　”Ｃ”，”Ｃ＃”，”Ｄ”，”Ｄ＃”，”Ｅ”，”Ｆ”，”Ｆ＃”，”Ｇ”，”Ｇ＃”，”Ａ”，”Ａ＃”，”Ｂ” ＤＡＴＡ　２４，１２，６，３，１６，８，４，９６ ＤＡＴＡ　”４　　а　”，”８　　б　”，”１６　в　”，”３２　г　”，”６　　ад”，”１２　бд”，”２４　вд”，”１　　Ю　” ＤＡＴＡ　”Ｍ”，”Ｍ”，”Ｌ”，”Ｅ” ＤＡＴＡ　１４，１０，１１，９，４，０，３，７，１２，１３，８ Ｃ１２＄＝ＣＨＲ＄（３） Ｃ１６＄＝ＣＨＲ＄（４） Ｃ２４＄＝ＣＨＲ＄（５） Ｃ２Ｄ＄＝ＣＨＲ＄（１０） Ｃ４Ｄ＄＝ＣＨＲ＄（１１） Ｃ６Ｄ＄＝ＣＨＲ＄（１４） Ｃ８Ｄ＄＝ＣＨＲ＄（１５） Ｃ１２Ｄ＄＝ＣＨＲ＄（２３２） Ｃ１６Ｄ＄＝ＣＨＲ＄（２３３） ＣＣＳ＄＝ＣＨＲ＄（２３４） ＣＤＳ＄＝ＣＨＲ＄（２３５） ＣＦＳ＄＝ＣＨＲ＄（２３６） ＣＧＳ＄＝ＣＨＲ＄（２３７） ＣＡＳ＄＝ＣＨＲ＄（２３８） ＢＧＰＡＧＥ　０ ＦＯＲ　Ｙ＝５　ＴＯ　１９　ＳＴＥＰ　２ 　ＢＧＦＩＬＬ　０，０，Ｙ＋１，３１，Ｙ＋１，２５６＋２２，０，０，０　’Т 　ＦＯＲ　Ｘ＝０　ＴＯ　３１　ＳＴＥＰ　８ 　　ＢＧＰＵＴ　０，Ｘ，Ｙ，２５６＋２３，０，０，０　’У 　　ＩＦ　Ｙ＜１９　ＴＨＥＮ　ＢＧＰＵＴ　０，Ｘ，Ｙ＋１，２５６＋２１，０，０，０　’С 　ＮＥＸＴ ＮＥＸＴ ＢＧＰＡＧＥ　１ ＦＯＲ　Ｘ＝０　ＴＯ　６３ 　ＩＦ　ＤＮ［０，Ｘ％１４］＝＝ＤＮ［０，（Ｘ＋１）％１４］　ＴＨＥＮ　Ｃ＄＝”　”　ＥＬＳＥ　Ｃ＄＝”и” 　ＢＧＦＩＬＬ　０，Ｘ，ＫＢＤＹ１，Ｘ，ＫＢＤＹ２−１，ＡＳＣ（Ｃ＄）＋２５６，ＤＣ［０，Ｘ％１４］，０，０ 　ＩＦ　ＤＮ［１，Ｘ％１４］＝＝ＤＮ［１，（Ｘ＋１）％１４］　ＴＨＥＮ　Ｃ＄＝”　”　ＥＬＳＥ　Ｃ＄＝”и” 　ＢＧＦＩＬＬ　０，Ｘ，ＫＢＤＹ２，Ｘ，２３，ＡＳＣ（Ｃ＄）＋２５６，ＤＣ［１，Ｘ％１４］，０，０ ＮＥＸＴ ＧＯＳＵＢ　＠ＫＢＤＵＰＤ ＢＧＯＦＳ　０，ＫＢＤＳＣＲＬ，０ ＢＧＯＦＳ　１，ＫＢＤＳＣＲＬ，０ ＳＰＰＡＧＥ　１ ＳＰＣ［０］＝１００ ＳＰＳＥＴ　０，ＳＰＣ［０］，０，０，０，０ ＳＰＨＯＭＥ　０，８，８ ＳＰＯＦＳ　０，０＋８，ＫＢＤＹ１＊８−１６＋８ ＳＰＡＮＧＬＥ　０，９０ ＳＰＣＯＬ　０，−８，−８，１６，１６，０ ＳＰＣ［１］＝１００ ＳＰＳＥＴ　１，ＳＰＣ［１］，０，０，０，０ ＳＰＨＯＭＥ　１，８，８ ＳＰＯＦＳ　１，２５６−１６＋８，ＫＢＤＹ１＊８−１６＋８−１ ＳＰＡＮＧＬＥ　１，２７０ ＳＰＣＯＬ　１，−８，−８，１６，１６，０ ＳＰＣ［２］＝９２ ＳＰＳＥＴ　２，ＳＰＣ［２］，０，０，０，０ ＳＰＯＦＳ　２，２１＊８＋４，５＊８−４ ＳＰＣ［３］＝９３ ＳＰＳＥＴ　３，ＳＰＣ［３］，０，０，０，０ ＳＰＯＦＳ　３，２７＊８＋４，５＊８−４ ＳＰＣ［４］＝１００ ＳＰＳＥＴ　４，ＳＰＣ［４］，０，０，０，０ ＳＰＨＯＭＥ　４，８，８ ＳＰＯＦＳ　４，１７＊８＋８，１１＊８＋８ ＳＰＡＮＧＬＥ　４，９０ ＳＰＣＯＬ　４，−８，−８，１５，１６，０ ＳＰＣ［５］＝１００ ＳＰＳＥＴ　５，ＳＰＣ［５］，０，０，０，０ ＳＰＨＯＭＥ　５，８，８ ＳＰＯＦＳ　５，１９＊８＋８−２，１１＊８＋８−１ ＳＰＡＮＧＬＥ　５，２７０ ＳＰＣＯＬ　５，−７，−８，１５，１６，０ ＢＲＥＰＥＡＴ　０，２０，５ ＢＲＥＰＥＡＴ　１，２０，５ ＢＲＥＰＥＡＴ　２，２０，５ ＢＲＥＰＥＡＴ　３，２０，５ ＢＲＥＰＥＡＴ　７，２０，５ Ｕ＝Ｕ＿ＡＬＬ ＣＥ＝０ ＠ＬＯＯＰ ＩＦ　ＣＥ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＨＫＥＮＤ ＩＦ　Ｕ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＰＤＡＴＥ Ｕ＝０ ＣＥ＝０ Ｂ＝ＢＵＴＴＯＮ（１） Ｂ０＝ＢＵＴＴＯＮ（０） ＢＨ＝Ｂ０ ＩＦ　ＯＬＤＢ０　ＴＨＥＮ　ＯＬＤＢ０＝Ｂ０：Ｂ０＝０　ＥＬＳＥ　ＯＬＤＢ０＝Ｂ０ ＴＳＴ＝ＴＣＨＳＴ ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ ＩＦ　Ｂ　ＡＮＤ　１０２４　ＴＨＥＮ　＠ＭＥＮＵ ＩＦ　（Ｂ　ＡＮＤ　１）＞０　ＡＮＤ　！ＳＥＬ　ＡＮＤ　ＰＡＲＴ＞０　ＴＨＥＮ　ＰＡＲＴ＝ＰＡＲＴ−１：Ｕ＝Ｕ　ＯＲ　Ｕ＿ＣＵＲ　ＯＲ　Ｕ＿Ｌ ＩＦ　（Ｂ　ＡＮＤ　２）＞０　ＡＮＤ　！ＳＥＬ　ＡＮＤ　ＰＡＲＴ＜ＰＡＲＴＣＮＴ−１　ＴＨＥＮ　ＰＡＲＴ＝ＰＡＲＴ＋１：Ｕ＝Ｕ　ＯＲ　Ｕ＿ＣＵＲ　ＯＲ　Ｕ＿Ｌ ＩＦ　（Ｂ　ＡＮＤ　８）＞０　ＡＮＤ　！ＰＬＡＹ　ＡＮＤ　ＢＧＭＣＨＫ（０）　ＴＨＥＮ　ＰＮ＝Ｎ＿ＣＯＮＴ：ＧＯＳＵＢ　＠ＡＵＴＯＰＵＴ ＩＦ　（Ｂ　ＡＮＤ　８）＊（ＰＬＡＹ＝＝０）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＵＲ１Ｒ ＩＦ　（Ｂ　ＡＮＤ　４）＊（ＰＬＡＹ＝＝０）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＵＲ１Ｌ ＩＦ　！（ＢＨ　ＡＮＤ　２５６）　ＯＲ　ＰＬＡＹ　ＴＨＥＮ　ＳＥＬ＝０：ＧＯＴＯ　＠ＢＬＳＫＩＰ ＩＦ　！ＳＥＬ　ＴＨＥＮ　ＳＥＬ＝１：ＳＥＬ＿Ｓ＝ＭＰＯＳ：ＳＥＬ＿Ｅ＝ＭＰＯＳ：ＳＥＬ＿Ｐ＝ＰＡＲＴ：Ｕ＝Ｕ　ＯＲ　Ｕ＿ＣＵＲ ＠ＢＬＳＫＩＰ ＩＦ　！（Ｂ０　ＡＮＤ　５１２）　ＴＨＥＮ　＠ＢＲＳＫＩＰ ＩＦ　ＳＥＬ＿Ｓ＜０　ＴＨＥＮ　＠ＢＲＳＫＩＰ ＳＳ＝ＳＥＬ＿Ｓ ＳＥＬ＝０ Ｕ＝Ｕ　ＯＲ　Ｕ＿ＮＯＴＥ　ＯＲ　Ｕ＿ＣＵＲ ＧＥＴＰＡＲＴ＝ＳＥＬ＿Ｐ：ＳＥＴＰＡＲＴ＝ＰＡＲＴ ＠ＰＳＴＬＯＯＰ ＩＦ　ＳＳ＞＝ＳＥＬ＿Ｅ　ＴＨＥＮ　ＧＯＴＯ　＠ＢＲＳＫＩＰ ＧＥＴＰＯＳ＝ＳＳ：ＳＥＴＰＯＳ＝ＭＰＯＳ ＧＯＳＵＢ　＠ＧＧＥＴ ＳＥＴＶＡＬ＝ＧＥＴＶＡＬ ＧＯＳＵＢ　＠ＧＳＥＴ ＩＦ　ＭＰＯＳ＞ＥＮＤＰＯＳ　ＴＨＥＮ　ＥＮＤＰＯＳ＝ＭＰＯＳ：ＣＥ＝１ ＳＳ＝ＳＳ＋１ ＭＰＯＳ＝ＭＰＯＳ＋１ ＧＯＴＯ　＠ＰＳＴＬＯＯＰ ＠ＢＲＳＫＩＰ ＩＦ　！（Ｂ　ＡＮＤ　１２８）　ＴＨＥＮ　＠ＢＹＳＫＩＰ ＩＦ　ＰＬＡＹ　ＴＨＥＮ　＠ＢＹＳＫＩＰ ＰＮ＝Ｎ＿ＯＦＦ ＧＯＳＵＢ　＠ＡＵＴＯＰＵＴ ’ＣＥ＝１ Ｕ＝Ｕ　ＯＲ　Ｕ＿ＮＯＴＥ ＠ＢＹＳＫＩＰ ＩＦ　！（Ｂ　ＡＮＤ　１６）　ＴＨＥＮ　＠ＢＡＳＫＩＰ ＩＦ　ＰＬＡＹ　ＴＨＥＮ　＠ＢＡＳＫＩＰ ＧＯＳＵＢ　＠ＧＥＮＭＭＬ ’ＬＯＣＡＴＥ　０，２２：？”　”＊３２＊２； ’ＬＯＣＡＴＥ　０，２２：？ＭＥＭ＄；ＭＭＬ＄； ＢＧＭＳＥＴ　１２９，ＭＥＭ＄，ＭＭＬ＄ ＢＧＭＰＬＡＹ　１，１２９ ＠ＢＡＳＫＩＰ ＩＦ　Ｂ０　ＡＮＤ　６４　ＴＨＥＮ　ＶＳＩ＝（ＶＳＩ＋１）％ＶＳＣＮＴ：Ｕ＝Ｕ　ＯＲ　Ｕ＿Ｌ　ＯＲ　Ｕ＿ＣＵＲ：ＧＯＳＵＢ　＠ＣＵＲ１Ｒ：ＧＯＳＵＢ　＠ＣＵＲ１Ｌ ＩＦ　！（Ｂ０　ＡＮＤ　３２）　ＴＨＥＮ　＠ＢＢＳＫＩＰ ＩＦ　ＰＬＡＹ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＬＡＹＳＴＰ　ＥＬＳＥ　ＧＯＳＵＢ　＠ＰＬＡＹＳＴＲＴ ＠ＢＢＳＫＩＰ ＩＦ　！ＰＬＡＹ　ＴＨＥＮ　＠ＮＯＰＬＡＹ 　ＰＣＮＴ＝（ＭＡＩＮＣＮＴＬ−ＰＴＩＭＥ）／６０／６０＊ＴＥＭ／４＊ＭＴＩＣＫ／ＶＳＴＥＰ［ＶＳＩ］ 　ＭＰＯＳ２＝ＭＴＩＣＫ＊（ＰＬＡＹＭＥＡＳ−１）＋ＶＳＴＥＰ［ＶＳＩ］＊ＦＬＯＯＲ（ＰＣＮＴ） 　ＩＦ　ＭＰＯＳ！＝ＭＰＯＳ２　ＡＮＤ　ＭＰＯＳ２＜ＰＬＡＹＭＥＡＳ＊ＭＴＩＣＫ　ＴＨＥＮ　ＭＰＯＳ＝ＭＰＯＳ２：Ｕ＝Ｕ　ＯＲ　Ｕ＿ＣＵＲ 　ＩＦ　ＢＧＭＣＨＫ（０）　ＴＨＥＮ　＠ＮＯＰＬＡＹ 　　ＩＦ　ＰＬＡＹＭＥＡＳ＊ＭＴＩＣＫ＞ＥＮＤＰＯＳ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＬＡＹＳＴＰ：ＧＯＴＯ　＠ＮＯＰＬＡＹ　　 　　ＰＬＡＹＣＨ＝ＰＬＡＹＣＨ＋１ 　　ＩＦ　ＰＬＡＹＣＨ＞＝８　ＴＨＥＮ　ＰＬＡＹＣＨ＝２ 　　ＢＧＭＳＥＴ　１２８＋ＰＬＡＹＣＨ，ＭＥＭ＄，ＭＭＬ＄ 　　ＢＧＭＳＥＴ　１２９，”Ｔ”＋ＳＴＲ＄（ＴＥＭ）＋”Ｒ１” 　　ＢＧＭＰＬＡＹ　０，１２９ 　　ＢＧＭＰＬＡＹ　ＰＬＡＹＣＨ，１２８＋ＰＬＡＹＣＨ 　　Ｕ＝Ｕ　ＯＲ　Ｕ＿ＣＵＲ 　　ＭＰＯＳ＝ＰＬＡＹＭＥＡＳ＊ＭＴＩＣＫ 　　ＰＬＡＹＭＥＡＳ＝ＰＬＡＹＭＥＡＳ＋１ 　　’ＭＰＯＳ＝ＰＬＡＹＭＥＡＳ＊ＭＴＩＣＫ 　　ＰＴＩＭＥ＝ＭＡＩＮＣＮＴＬ 　　ＩＦ　ＰＬＡＹＭＥＡＳ＊ＭＴＩＣＫ＜＝ＥＮＤＰＯＳ　ＴＨＥＮ　ＭＰＯＳ＝ＭＰＯＳ＋ＭＴＩＣＫ：ＧＯＳＵＢ　＠ＧＥＮＭＭＬ：ＭＰＯＳ＝ＭＰＯＳ−ＭＴＩＣＫ 　　’ＬＯＣＡＴＥ　０，２２：？”　”＊３２＊２； 　　’ＬＯＣＡＴＥ　０，２２：？ＭＥＭ＄；ＭＭＬ＄； ＠ＮＯＰＬＡＹ ＦＯＲ　Ｉ＝０　ＴＯ　５ 　ＳＰＨ［Ｉ］＝ＳＰＨＩＴＲＣ（Ｉ，ＴＸ，ＴＹ，１，１）＊ＴＳＴ ＮＥＸＴ ＢＧＰＡＧＥ　１ ＩＦ　！ＳＰＨ［０］　ＴＨＥＮ　＠ＳＰＳＫＩＰ０ ＫＢＤＳＣＲＬ＝ＫＢＤＳＣＲＬ−４ ＩＦ　ＫＢＤＯ＜＝−２　ＡＮＤ　ＫＢＤＳＣＲＬ／８＜１４　ＴＨＥＮ　ＫＢＤＳＣＲＬ＝１４＊８ ＩＦ　ＫＢＤＳＣＲＬ＞＝０　ＴＨＥＮ　＠ＳＰＳＫＩＰ０ ＫＢＤＳＣＲＬ＝ＫＢＤＳＣＲＬ＋１４＊２＊８ ＫＢＤＯ＝ＫＢＤＯ−２ ＠ＳＰＳＫＩＰ０ ＩＦ　！ＳＰＨ［１］　ＴＨＥＮ　＠ＳＰＳＫＩＰ１ ＫＢＤＳＣＲＬ＝ＫＢＤＳＣＲＬ＋４ ＩＦ　ＫＢＤＯ＞＝６　ＡＮＤ　ＫＢＤＳＣＲＬ／８＋３１＞１４＊３＋８　ＴＨＥＮ　ＫＢＤＳＣＲＬ＝（１４＊３＋８−３１）＊８ ＩＦ　ＫＢＤＳＣＲＬ＜＝１４＊２＊８　ＴＨＥＮ　＠ＳＰＳＫＩＰ１ ＫＢＤＳＣＲＬ＝ＫＢＤＳＣＲＬ−１４＊２＊８ ＫＢＤＯ＝ＫＢＤＯ＋２ ＠ＳＰＳＫＩＰ１ ＩＦ　（ＳＰＨ［０］　ＯＲ　ＳＰＨ［１］）＝＝０　ＴＨＥＮ　＠ＳＰＳＫＩＰ ＧＯＳＵＢ　＠ＫＢＤＵＰＤ ＢＧＯＦＳ　０，ＫＢＤＳＣＲＬ，０ ＢＧＯＦＳ　１，ＫＢＤＳＣＲＬ，０ ＠ＳＰＳＫＩＰ ＦＯＲ　Ｉ＝２　ＴＯ　３ 　ＩＦ　！ＳＰＨ［Ｉ］　ＴＨＥＮ　＠ＳＰＳＫＩＰ２ 　ＩＦ　ＯＬＤＳＰＨ［Ｉ］　ＴＨＥＮ　＠ＳＰＴＣＨＤ２ 　ＳＰ２ＴＩＭ＝０ 　＠ＳＰＴＣＨＤ２ 　ＩＦ　ＳＰ２ＴＩＭ＝＝０　ＴＨＥＮ　ＴＥＭ＝ＴＥＭ＋Ｉ＊２−５：Ｕ＝Ｕ　ＯＲ　Ｕ＿Ｌ 　ＩＦ　ＳＰ２ＴＩＭ＞＝２０　ＴＨＥＮ　ＴＥＭ＝ＴＥＭ＋Ｉ＊２−５：Ｕ＝Ｕ　ＯＲ　Ｕ＿Ｌ 　ＩＦ　ＴＥＭ＜１　ＴＨＥＮ　ＴＥＭ＝１ 　ＩＦ　ＴＥＭ＞２４０　ＴＨＥＮ　ＴＥＭ＝２４０ 　ＳＰ２ＴＩＭ＝ＳＰ２ＴＩＭ＋１ ＠ＳＰＳＫＩＰ２ ＮＥＸＴ ＦＯＲ　Ｉ＝４　ＴＯ　５ 　ＩＦ　！ＳＰＨ［Ｉ］　ＴＨＥＮ　＠ＳＰＳＫＩＰ４ 　ＩＦ　ＯＬＤＳＰＨ［Ｉ］　ＴＨＥＮ　＠ＳＰＴＣＨＤ４ 　ＳＰ４ＴＩＭ＝０ 　＠ＳＰＴＣＨＤ４ 　ＳＰ４Ｔ＝０ 　ＩＦ　ＳＰ４ＴＩＭ＝＝０　ＴＨＥＮ　ＧＡＫＫＩ［ＰＡＲＴ］＝ＧＡＫＫＩ［ＰＡＲＴ］＋Ｉ＊２−９：Ｕ＝Ｕ　ＯＲ　Ｕ＿Ｌ：ＳＰ４Ｔ＝１ 　ＩＦ　ＳＰ４ＴＩＭ＞＝２０　ＴＨＥＮ　ＧＡＫＫＩ［ＰＡＲＴ］＝ＧＡＫＫＩ［ＰＡＲＴ］＋Ｉ＊２−９：Ｕ＝Ｕ　ＯＲ　Ｕ＿Ｌ：ＳＰ４Ｔ＝１ 　ＩＦ　ＧＡＫＫＩ［ＰＡＲＴ］＜０　ＴＨＥＮ　ＧＡＫＫＩ［ＰＡＲＴ］＝１５１ 　ＩＦ　ＧＡＫＫＩ［ＰＡＲＴ］＞１５１　ＴＨＥＮ　ＧＡＫＫＩ［ＰＡＲＴ］＝０ 　ＩＦ　ＧＡＫＫＩ［ＰＡＲＴ］＞＝１３０　ＡＮＤ　ＧＡＫＫＩ［ＰＡＲＴ］＜１４４　ＴＨＥＮ　ＧＡＫＫＩ［ＰＡＲＴ］＝１２９＊（Ｉ＝＝４）＋１４４＊（Ｉ＝＝５） 　ＳＰ４ＴＩＭ＝ＳＰ４ＴＩＭ＋１ 　ＩＦ　ＳＰ４Ｔ　ＴＨＥＮ　ＢＧＭＳＥＴ　１２８，”＠”＋ＳＴＲ＄（ＧＡＫＫＩ［ＰＡＲＴ］）＋”Ｃ４”：ＢＧＭＰＬＡＹ　１，１２８ ＠ＳＰＳＫＩＰ４ ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　５ 　ＳＰＣＨＲ　Ｉ，ＳＰＣ［Ｉ］，ＳＰＨ［Ｉ］＊１４，０，０，０ 　ＯＬＤＳＰＨ［Ｉ］＝ＳＰＨ［Ｉ］ ＮＥＸＴ ＩＦ　ＰＬＡＹ　ＴＨＥＮ　＠ＮＯＮＯＴＥ ＩＦ　！ＴＳＴ　ＴＨＥＮ　ＢＧＭＳＴＯＰ　０：ＧＯＴＯ　＠ＮＯＮＯＴＥ ＩＦ　ＯＬＤＴＳＴ　ＴＨＥＮ　＠ＮＯＮＯＴＥ Ｘ＝ＦＬＯＯＲ（（ＴＸ＋ＫＢＤＳＣＲＬ）／８）：Ｙ＝ＦＬＯＯＲ（ＴＹ／８） ＩＦ　Ｙ＜ＫＢＤＹ１　ＴＨＥＮ　＠ＮＯＮＯＴＥ Ｎ＝ＤＮ［（Ｙ＞＝ＫＢＤＹ２）＊１，Ｘ％１４］＋ＦＬＯＯＲ（Ｘ／１４＋ＫＢＤＯ）＊１２＋Ｃ０ ＢＧＭＳＥＴ　１２８，”Ｔ１Ｌ１＠”＋ＳＴＲ＄（ＧＡＫＫＩ［ＰＡＲＴ］）＋”Ｎ”＋ＳＴＲ＄（Ｎ） ＢＧＭＰＬＡＹ　０，１２８ ＰＮ＝Ｎ＋Ｎ＿Ｎ ＧＯＳＵＢ　＠ＡＵＴＯＰＵＴ ＧＯＳＵＢ　＠ＣＵＲ１Ｒ ＠ＮＯＮＯＴＥ ＩＦ　ＴＳＴ！＝ＯＬＤＴＳＴ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＫＢＤＵＰＤ ＯＬＤＴＳＴ＝ＴＳＴ ＶＳＹＮＣ　１ ＧＯＴＯ　＠ＬＯＯＰ ＠ＵＰＤＡＴＥ ’ＵＳＴ＝ＦＬＯＯＲ（ＭＰＯＳ／ＶＳＴＥＰ［ＶＳＩ］／８）＊ＶＳＴＥＰ［ＶＳＩ］＊８ ’ＵＳＴ＝ＭＥＡＳ＊ＭＴＩＣＫ ＵＳＴ＝ＭＰＯＳ−ＭＰＯＳ％ＭＴＩＣＫ ＩＦ　ＵＳＴ！＝ＯＬＤＵＳＴ　ＴＨＥＮ　Ｕ＝Ｕ　ＯＲ　Ｕ＿ＮＯＴＥＡＬＬ ＯＬＤＵＳＴ＝ＵＳＴ ＭＥＡＳ＝ＦＬＯＯＲ（ＭＰＯＳ／ＭＴＩＣＫ） ＴＩＣＫ＝ＭＰＯＳ％ＭＴＩＣＫ ’ＩＦ　Ｕ　ＡＮＤ　Ｕ＿ＮＯＴＥ　ＴＨＥＮ　Ｕ＝Ｕ　ＯＲ　Ｕ＿Ｌ　ＯＲ　Ｕ＿ＣＵＲ ’ＩＦ　Ｕ　ＡＮＤ　Ｕ＿ＮＯＴＥ　ＴＨＥＮ　ＣＬＳ ＩＦ　Ｕ　ＡＮＤ　Ｕ＿ＣＵＲ　ＴＨＥＮ　Ｕ＝Ｕ　ＯＲ　Ｕ＿Ｌ ＣＯＬＯＲ　０ ＩＦ　！（Ｕ　ＡＮＤ　Ｕ＿Ｌ）　ＴＨＥＮ　＠ＵＬＳＫＩＰ ＰＮＬＳＴＲ　０，０，”┌──────────┐ ＰＮＬＳＴＲ　０，１，”│ＭＭＬ　ＥＤＩＴＯＲ│ ＰＮＬＳＴＲ　０，２，”└──────────┘ ＰＮＬＳＴＲ　０，５，”　↑／↓　：　ハ゜−ト” ＰＮＬＳＴＲ　０，７，”　　Ф　　：　ノ−ト　サイス゛” ＰＮＬＳＴＲ　０，４，”　　　　　　　　　　　” ＰＮＬＳＴＲ　０，６，”　　　　　　　　　　　　” ＰＮＬＳＴＲ　０，８，”　　　　　　　　　　　　　　　” ＰＮＬＳＴＲ　０，９，”　　　　　　　　　　　” ＰＮＬＳＴＲ　０，１１，”　　　　　　　　　　　　　　　” ＩＦ　ＰＬＡＹ　ＴＨＥＮ　＠ＵＰＬＳＫＩＰ ＰＮＬＳＴＲ　０，４，”　←／→　：　カ−ソル” ＰＮＬＳＴＲ　０，６，”　　Х　　：　サクシ゛ョ” ＰＮＬＳＴＲ　０，８，”К＋←／→：　コヒ゜−　ハンイ” ＰＮＬＳＴＲ　０，９，”　　н　　：　ハリツケ” ＰＮＬＳＴＲ　０，１１，”　　А　　：　テスト　フ゜レイ” ＠ＵＰＬＳＫＩＰ ＩＦ　ＰＬＡＹ　ＴＨＥＮ　Ｃ＄＝”　　Б　　：　ストッフ゜”　ＥＬＳＥ　Ｃ＄＝”　　Б　　：　フ゜レイ　” ＰＮＬＳＴＲ　０，１２，Ｃ＄ ＰＮＬＳＴＲ　０，１４，”ＳＴＡＲＴ：　ファイル　メニュ−” ＰＮＬＳＴＲ　１７，１，”Ｍｅａｓｕｒｅ” ＰＮＬＳＴＲ　１６，２，ＲＩＧＨＴ＄（”　　　”＋ＳＴＲ＄（ＭＥＡＳ＋１），４）＋”：”＋ＲＩＧＨＴ＄（”　”＋ＳＴＲ＄（ＴＩＣＫ／ＶＳＴＥＰ［ＶＳＩ］＋１），２）＋”／”＋ＶＳＴＥＰ＄［ＶＳＩ］ ＰＮＬＳＴＲ　１７，５，”ＢＰＭ：” ＰＮＬＳＴＲ　２４，５，ＲＩＧＨＴ＄（”　　”＋ＳＴＲ＄（ＴＥＭ），３） ＰＮＬＳＴＲ　２１，８，”Ｐａｒｔ　”＋ＳＴＲ＄（ＰＡＲＴ＋１） Ｃ＄＝ＲＩＧＨＴ＄（”　　”＋ＳＴＲ＄（ＧＡＫＫＩ［ＰＡＲＴ］），３） ＰＮＬＳＴＲ　１７，１０，Ｃ＄＋”：” ＲＥＳＴＯＲＥ　＠ＮＡＭＥ ＦＯＲ　Ｉ＝０　ＴＯ　ＧＡＫＫＩ［ＰＡＲＴ］ 　ＲＥＡＤ　Ｃ＄ ＮＥＸＴ Ｃ＄＝Ｃ＄＋”　”＊３３ ＰＮＬＳＴＲ　２１，１０，ＬＥＦＴ＄（Ｃ＄，１１） ＰＮＬＳＴＲ　２１，１１，ＭＩＤ＄（Ｃ＄，１１，１１） ＰＮＬＳＴＲ　２１，１２，ＭＩＤ＄（Ｃ＄，２２，１１） ’ＰＮＬＳＴＲ　１６，４，”Ｌｅｎｇｔｈ：”＋ＳＴＲ＄（ＥＮＤＰＯＳ＋１）＋”　　　　” ＠ＵＬＳＫＩＰ ＩＦ　！（Ｕ　ＡＮＤ　Ｕ＿ＣＵＲ）　ＴＨＥＮ　＠ＵＣＵＲＳＫ１ ＢＧＰＡＧＥ　０ ＢＧＣＬＲ　１ ＩＦ　ＳＥＬ＿Ｓ＜０　ＴＨＥＮ　＠ＳＥＬＳＫＩＰＵ Ｘ＝ＦＬＯＯＲ（（ＳＥＬ＿Ｓ−ＵＳＴ）＊３２／ＭＴＩＣＫ） ＩＦ　Ｘ＜０　ＴＨＥＮ　Ｘ＝０ Ｘ２＝ＦＬＯＯＲ（（ＳＥＬ＿Ｅ−ＵＳＴ）＊３２／ＭＴＩＣＫ）−１ ＩＦ　Ｘ２＞＝３２　ＴＨＥＮ　Ｘ２＝３１ ＩＦ　Ｘ＞Ｘ２　ＴＨＥＮ　＠ＳＥＬＳＫＩＰＵ ＢＧＦＩＬＬ　１，Ｘ，５＋２＊ＳＥＬ＿Ｐ，Ｘ２，５＋２＊ＳＥＬ＿Ｐ，７，０，０，０ ＠ＳＥＬＳＫＩＰＵ Ｘ＝ＦＬＯＯＲ（（ＭＰＯＳ−ＵＳＴ）＊３２／ＭＴＩＣＫ） Ｘ２＝ＦＬＯＯＲ（（ＭＰＯＳ＋ＶＳＴＥＰ［ＶＳＩ］−ＵＳＴ）＊３２／ＭＴＩＣＫ）−１ ＢＧＦＩＬＬ　１，Ｘ，５＋２＊ＰＡＲＴ，Ｘ２，５＋２＊ＰＡＲＴ，１０，０，０，０ ＠ＵＣＵＲＳＫ１ ＦＯＲ　Ｐ＝０　ＴＯ　ＰＡＲＴＣＮＴ−１ ’　ＣＯＬＯＲ　（Ｐ＝＝ＰＡＲＴ）＊１１ ’　ＬＯＣＡＴＥ　０，５＋２＊Ｐ ’　ＦＯＲ　Ｉ２＝０　ＴＯ　７ ’　　Ｃ＄＝”　　　　” ’　　Ｉ＝ＵＳＴ＋Ｉ２＊ＶＳＴＥＰ［ＶＳＩ］ ’　　ＩＦ　Ｉ％（ＭＴＩＣＫ／４）＝＝０　ＴＨＥＮ　Ｃ＄＝”│　　　” ’　　ＩＦ　Ｉ＜０　ＯＲ　Ｉ＞＝ＰＡＲＴＬＥＮ　ＴＨＥＮ　Ｃ＄＝”　　　　” ’　　？Ｃ＄； ’　ＮＥＸＴ ’　Ｃ＄＝”ТТТТ” ’　ＩＦ　Ｉ＜０　ＯＲ　Ｉ＞＝ＰＡＲＴＬＥＮ　ＴＨＥＮ　Ｃ＄＝”” ’　ＬＯＣＡＴＥ　Ｘ−１，６＋２＊Ｐ ’　？Ｃ＄； ’　？”Т”＊３２； 　 　ＣＯＬＯＲ　０ 　 　ＩＦ　！（Ｕ　ＡＮＤ　Ｕ＿ＣＵＲ）　ＴＨＥＮ　＠ＵＣＵＲＳＫＩＰ 　ＬＯＣＡＴＥ　０，２：？”　”＊３２； 　ＬＯＣＡＴＥ　０，２２：？”　”＊３２； 　Ｘ＝ＦＬＯＯＲ（（ＭＰＯＳ−ＵＳＴ）＊３２／ＭＴＩＣＫ） 　ＩＦ　Ｘ＜０　ＯＲ　Ｘ＞＝３２　ＴＨＥＮ　＠ＵＣＵＲＳＫＩＰ 　ＬＯＣＡＴＥ　Ｘ，２：？”▼”； 　ＬＯＣＡＴＥ　Ｘ，２２：？”▲”； ＠ＵＣＵＲＳＫＩＰ 　 　ＩＦ　！（Ｕ　ＡＮＤ　Ｕ＿ＮＯＴＥ）　ＴＨＥＮ　＠ＵＮＴＳＫＩＰ 　ＩＦ　（Ｕ　ＡＮＤ　Ｕ＿ＮＯＴＥＡＬＬ）！＝Ｕ＿ＮＯＴＥＡＬＬ　ＡＮＤ　Ｐ！＝ＰＡＲＴ　ＴＨＥＮ　＠ＵＮＴＳＫＩＰ 　ＬＯＣＡＴＥ　０，５＋２＊Ｐ：？”　”＊３２； 　Ｉ２＝０ 　ＯＬＤＣＬ＝０ 　＠ＵＰＤＬＯＯＰ 　　Ｘ＝ＦＬＯＯＲ（Ｉ２＊３２／ＭＴＩＣＫ） 　　Ｉ＝ＵＳＴ＋Ｉ２ 　　’ＬＯＣＡＴＥ　Ｘ，３ 　　’Ｃ＄＝”” 　　’ＩＦ　Ｉ％ＭＴＩＣＫ＝＝０　ＴＨＥＮ　Ｃ＄＝ＳＴＲ＄（Ｉ／ＭＴＩＣＫ＋１） 　　’？Ｃ＄； 　　ＬＯＣＡＴＥ　Ｘ，５＋２＊Ｐ 　　 　　’ＣＯＬＯＲ　（Ｐ＝＝ＰＡＲＴ　ＡＮＤ　Ｉ＝＝ＭＰＯＳ）＊４ 　　’ＩＦ　Ｉ＜０　ＯＲ　Ｉ＞＝ＥＮＤＰＯＳ　ＴＨＥＮ　Ｃ＝０：Ｉ２＝Ｉ２＋１：ＧＯＴＯ　＠ＰＳＫＩＰ１ 　　’Ｊ＝Ｉ＋ＭＥＴＡＬＥＮ＋Ｐ＊ＰＡＲＴＬＥＮ 　　’Ｃ＝ＧＳＰＯＩＴ（Ｊ％２５６，Ｊ／２５６） 　　ＧＥＴＰＯＳ＝Ｉ：ＧＥＴＰＡＲＴ＝Ｐ：ＧＯＳＵＢ　＠ＧＧＥＴ 　　Ｃ＝ＧＥＴＶＡＬ ’　＠ＰＳＫＩＰ１ 　　ＩＦ　Ｃ＝＝Ｎ＿ＯＦＦ　ＴＨＥＮ　Ｃ＄＝”Ｒ”：ＣＬ＝１４：ＧＯＴＯ　＠ＰＳＫＩＰ３ 　　ＩＦ　Ｃ＝＝Ｎ＿ＣＯＮＴ　ＴＨＥＮ　Ｃ＄＝”＆”：ＣＬ＝ＯＬＤＣＬ：ＧＯＴＯ　＠ＰＳＫＩＰ３ 　　Ｃ＄＝ＤＮＴ＄［（Ｃ−Ｎ＿Ｎ）％１２］ 　　ＯＣＴ＝ＦＬＯＯＲ（（Ｃ−Ｎ＿Ｎ−Ｃ０）／１２） 　　ＣＬ＝ＯＣＴＣＯＬ［ＯＣＴ＋１］ 　　＠ＰＳＫＩＰ３ 　　ＣＯＬＯＲ　ＣＬ 　　ＯＬＤＣＬ＝ＣＬ ’　　Ｃ２＝ＣＨＫＣＨＲ（Ｘ，５＋２＊Ｐ） ’　　ＩＦ　Ｃ＝＝２５５　ＡＮＤ　Ｃ２！＝０　ＡＮＤ　Ｃ２！＝ＡＳＣ（”　”）　ＴＨＥＮ　＠ＰＳＫＩＰ２ 　　ＩＦ　Ｃ＄＝＝”Ｃ＃”　ＴＨＥＮ　Ｃ＄＝ＣＣＳ＄ 　　ＩＦ　Ｃ＄＝＝”Ｄ＃”　ＴＨＥＮ　Ｃ＄＝ＣＤＳ＄ 　　ＩＦ　Ｃ＄＝＝”Ｆ＃”　ＴＨＥＮ　Ｃ＄＝ＣＦＳ＄ 　　ＩＦ　Ｃ＄＝＝”Ｇ＃”　ＴＨＥＮ　Ｃ＄＝ＣＧＳ＄ 　　ＩＦ　Ｃ＄＝＝”Ａ＃”　ＴＨＥＮ　Ｃ＄＝ＣＡＳ＄ 　　？Ｃ＄； 　　 ’　＠ＰＳＫＩＰ２ 　　ＭＭＰＯＳ＝Ｉ ’　　ＭＭＥＰＯＳ＝ＭＭＰＯＳ＋ＭＴＩＣＫ−１ ’　　ＩＦ　ＥＮＤＰＯＳ＜ＭＭＥＰＯＳ　ＴＨＥＮ　ＭＭＥＰＯＳ＝ＥＮＤＰＯＳ 　　ＭＭＮＯＴＥ＝Ｃ 　　ＧＯＳＵＢ　＠ＧＥＴＭＬＥＮ 　　 　　ＩＦ　Ｌ＄＝＝”１２”　ＴＨＥＮ　Ｌ＄＝Ｃ１２＄ 　　ＩＦ　Ｌ＄＝＝”１６”　ＴＨＥＮ　Ｌ＄＝Ｃ１６＄ 　　ＩＦ　Ｌ＄＝＝”２４”　ＴＨＥＮ　Ｌ＄＝Ｃ２４＄ ’　　ＩＦ　Ｌ＄＝＝”３２”　ＴＨＥＮ　Ｌ＄＝”” 　　ＩＦ　Ｌ＄＝＝”２．”　ＴＨＥＮ　Ｌ＄＝Ｃ２Ｄ＄ 　　ＩＦ　Ｌ＄＝＝”４．”　ＴＨＥＮ　Ｌ＄＝Ｃ４Ｄ＄ 　　ＩＦ　Ｌ＄＝＝”６．”　ＴＨＥＮ　Ｌ＄＝Ｃ６Ｄ＄ 　　ＩＦ　Ｌ＄＝＝”８．”　ＴＨＥＮ　Ｌ＄＝Ｃ８Ｄ＄ 　　ＩＦ　Ｌ＄＝＝”１２．”　ＴＨＥＮ　Ｌ＄＝Ｃ１２Ｄ＄ 　　ＩＦ　Ｌ＄＝＝”１６．”　ＴＨＥＮ　Ｌ＄＝Ｃ１６Ｄ＄ 　　ＩＦ　ＬＥＮ（Ｌ＄）＞１　ＴＨＥＮ　Ｌ＄＝”” 　　ＩＦ　Ｘ＜３１　ＴＨＥＮ　？Ｌ＄； 　　Ｉ＝ＭＭＰＯＳ 　　Ｉ２＝Ｉ−ＵＳＴ 　　 ＠ＰＳＫＩＰ１ 　’ＮＥＸＴ 　ＩＦ　Ｉ２＜ＭＴＩＣＫ　ＡＮＤ　Ｉ＜ＥＮＤＰＯＳ　ＴＨＥＮ　＠ＵＰＤＬＯＯＰ ＠ＵＮＴＳＫＩＰ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＫＢＤＵＰＤ ＢＧＰＡＧＥ　１ ＦＯＲ　Ｘ＝０　ＴＯ　６３ 　Ｃ＝１４＋ＤＣ［０，Ｘ％１４］ 　Ｎ２＝ＤＮ［０，Ｘ％１４］＋ＦＬＯＯＲ（Ｘ／１４＋ＫＢＤＯ）＊１２＋Ｃ０ 　ＩＦ　Ｎ２＝＝Ｎ　ＡＮＤ　ＢＧＭＣＨＫ（０）　ＴＨＥＮ　Ｃ＝２ 　ＢＧＦＩＬＬ　１，Ｘ，ＫＢＤＹ１，Ｘ，ＫＢＤＹ２−１，Ｃ，０，０，０ 　ＩＦ　ＤＮ［０，Ｘ％１４］！＝０　ＴＨＥＮ　＠ＮＯＮＵＭ 　Ｃ＄＝ＳＴＲ＄（ＦＬＯＯＲ（Ｘ／１４）＋ＫＢＤＯ） 　ＢＧＰＵＴ　０，Ｘ，２３，ＡＳＣ（Ｃ＄）＋２５６，ＤＣ［１，Ｘ％１４］，０，０ ＠ＮＯＮＵＭ 　Ｃ＝１４＋ＤＣ［１，Ｘ％１４］ 　Ｎ２＝ＤＮ［１，Ｘ％１４］＋ＦＬＯＯＲ（Ｘ／１４＋ＫＢＤＯ）＊１２＋Ｃ０ 　ＩＦ　Ｎ２＝＝Ｎ　ＡＮＤ　ＢＧＭＣＨＫ（０）　ＴＨＥＮ　Ｃ＝２ 　ＢＧＦＩＬＬ　１，Ｘ，ＫＢＤＹ２，Ｘ，２３，Ｃ，０，０，０ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＣＵＲ１Ｒ 　ＳＥＬ＿Ｔ＝０ 　ＩＦ　！ＳＥＬ　ＴＨＥＮ　＠ＳＥＬＳＫＩＰＲ 　ＩＦ　ＳＥＬ＿Ｅ＝＝ＭＰＯＳ　ＴＨＥＮ　ＳＥＬ＿Ｔ＝１：ＧＯＴＯ　＠ＳＥＬＳＫＩＰＲ 　ＳＥＬ＿Ｔ＝−１　 　＠ＳＥＬＳＫＩＰＲ 　ＭＰＯＳ＝ＦＬＯＯＲ（ＭＰＯＳ／ＶＳＴＥＰ［ＶＳＩ］＋１）＊ＶＳＴＥＰ［ＶＳＩ］ 　’ＩＦ　ＴＩＣＫ＞＝ＭＴＩＣＫ　ＴＨＥＮ　ＴＩＣＫ＝ＴＩＣＫ−ＭＴＩＣＫ：ＭＥＡＳ＝ＭＥＡＳ＋１ 　’ＩＦ　ＭＥＡＳ＊ＭＴＩＣＫ＋ＴＩＣＫ＞＝ＰＡＲＴＬＥＮ　ＴＨＥＮ　ＢＥＥＰ　２：ＧＯＳＵＢ　＠ＣＵＲ１Ｌ 　ＩＦ　ＳＥＬ＿Ｔ＝＝１　ＴＨＥＮ　ＳＥＬ＿Ｅ＝ＭＰＯＳ 　ＩＦ　ＳＥＬ＿Ｔ＝＝−１　ＴＨＥＮ　ＳＥＬ＿Ｓ＝ＭＰＯＳ 　Ｕ＝Ｕ　ＯＲ　Ｕ＿ＣＵＲ　ＯＲ　Ｕ＿Ｌ 　 ＲＥＴＵＲＮ ＠ＣＵＲ１Ｌ 　ＳＥＬ＿Ｔ＝０ 　ＩＦ　！ＳＥＬ　ＴＨＥＮ　＠ＳＥＬＳＫＩＰＬ 　ＩＦ　ＳＥＬ＿Ｓ＝＝ＭＰＯＳ　ＴＨＥＮ　ＳＥＬ＿Ｔ＝−１：ＧＯＴＯ　＠ＳＥＬＳＫＩＰＬ 　ＳＥＬ＿Ｔ＝１ 　＠ＳＥＬＳＫＩＰＬ 　ＭＰＯＳ＝ＦＬＯＯＲ（（ＭＰＯＳ−１）／ＶＳＴＥＰ［ＶＳＩ］）＊ＶＳＴＥＰ［ＶＳＩ］ 　’ＩＦ　ＴＩＣＫ＜０　ＴＨＥＮ　ＴＩＣＫ＝ＴＩＣＫ＋ＭＴＩＣＫ：ＭＥＡＳ＝ＭＥＡＳ−１ 　’ＩＦ　ＭＥＡＳ＊ＭＴＩＣＫ＋ＴＩＣＫ＜０　ＴＨＥＮ　ＭＥＡＳ＝０：ＴＩＣＫ＝０：ＢＥＥＰ　２ 　’ＭＰＯＳ＝ＭＥＡＳ＊ＭＴＩＣＫ＋ＴＩＣＫ 　ＩＦ　ＭＰＯＳ＜０　ＴＨＥＮ　ＭＰＯＳ＝０：ＢＥＥＰ　２ 　ＩＦ　ＳＥＬ＿Ｔ＝＝１　ＴＨＥＮ　ＳＥＬ＿Ｅ＝ＭＰＯＳ 　ＩＦ　ＳＥＬ＿Ｔ＝＝−１　ＴＨＥＮ　ＳＥＬ＿Ｓ＝ＭＰＯＳ 　 　Ｕ＝Ｕ　ＯＲ　Ｕ＿ＣＵＲ　ＯＲ　Ｕ＿Ｌ ＲＥＴＵＲＮ ＠ＡＵＴＯＰＵＴ 　ＳＥＴＰＯＳ＝ＭＰＯＳ：ＳＥＴＰＡＲＴ＝ＰＡＲＴ：ＳＥＴＶＡＬ＝ＰＮ：ＧＯＳＵＢ　＠ＧＳＥＴ 　’ＧＰＳＥＴ　ＧＰＯＳ％２５６，ＧＰＯＳ／２５６，ＰＮ 　ＦＯＲ　Ｉ＝１　ＴＯ　ＶＳＴＥＰ［ＶＳＩ］−１ 　　ＳＥＴＰＯＳ＝ＳＥＴＰＯＳ＋１ 　　ＩＦ　ＰＮ＝＝Ｎ＿ＮＯ　ＴＨＥＮ　ＳＥＴＶＡＬ＝Ｎ＿ＮＯ　ＥＬＳＥ　ＳＥＴＶＡＬ＝Ｎ＿ＣＯＮＴ 　　ＧＯＳＵＢ　＠ＧＳＥＴ 　　’ＧＰＳＥＴ　（ＧＰＯＳ＋Ｉ）％２５６，（ＧＰＯＳ＋Ｉ）／２５６，（ＰＮ！＝０）＊２５５ 　ＮＥＸＴ 　ＧＯＳＵＢ　＠ＣＵＲ１Ｒ 　ＩＦ　ＭＰＯＳ＞ＥＮＤＰＯＳ　ＴＨＥＮ　ＥＮＤＰＯＳ＝ＭＰＯＳ：ＣＥ＝１ 　ＧＯＳＵＢ　＠ＡＵＴＯＥＲＳ 　ＧＯＳＵＢ　＠ＣＵＲ１Ｌ 　Ｕ＝Ｕ　ＯＲ　Ｕ＿ＮＯＴＥ ＲＥＴＵＲＮ ＠ＡＵＴＯＥＲＳ 　ＧＥＴＰＯＳ＝ＭＰＯＳ：ＳＥＴＰＯＳ＝ＧＥＴＰＯＳ 　ＧＥＴＰＡＲＴ＝ＰＡＲＴ：ＳＥＴＰＡＲＴ＝ＧＥＴＰＡＲＴ 　ＳＥＴＶＡＬ＝Ｎ＿ＮＯ 　Ｕ＝Ｕ　ＯＲ　Ｕ＿ＮＯＴＥ 　＠ＡＥＬＯＯＰ 　　’ＩＦ　ＥＰＯＳ＞＝ＰＡＲＴＬＥＮ　ＴＨＥＮ　ＲＥＴＵＲＮ 　　’ＴＰＯＳ２＝ＥＰＯＳ＋ＭＥＴＡＬＥＮ＋ＰＡＲＴ＊ＰＡＲＴＬＥＮ 　　’ＩＦ　ＧＳＰＯＩＴ（ＴＰＯＳ２％２５６，ＴＰＯＳ２／２５６）！＝２５５　ＴＨＥＮ　ＲＥＴＵＲＮ 　　’ＧＰＳＥＴ　ＴＰＯＳ２％２５６，ＴＰＯＳ２／２５６，０ 　　ＧＯＳＵＢ　＠ＧＧＥＴ 　　ＩＦ　ＧＥＴＶＡＬ！＝Ｎ＿ＣＯＮＴ　ＴＨＥＮ　ＲＥＴＵＲＮ 　　ＧＯＳＵＢ　＠ＧＳＥＴ 　　ＧＥＴＰＯＳ＝ＧＥＴＰＯＳ＋１：ＳＥＴＰＯＳ＝ＧＥＴＰＯＳ 　　ＩＦ　ＧＥＴＰＯＳ＞＝ＥＮＤＰＯＳ−１　ＴＨＥＮ　ＣＥ＝１ 　　ＧＯＴＯ　＠ＡＥＬＯＯＰ ＠ＧＥＮＭＭＬ 　ＳＲＥＳＵＬＴ＝１ 　ＭＥＭ＄＝”” 　ＭＭＬ＄＝”Ｔ”＋ＳＴＲ＄（ＴＥＭ） 　ＭＭＰＯＳ＝ＭＰＯＳ−ＭＰＯＳ％ＭＴＩＣＫ 　ＭＭＥＰＯＳ＝ＭＭＰＯＳ＋ＭＴＩＣＫ−１ 　ＩＦ　ＧＥＮＡＬＬ　ＴＨＥＮ　ＭＭＰＯＳ＝０：ＭＭＥＰＯＳ＝ＥＮＤＰＯＳ 　ＩＦ　ＥＮＤＰＯＳ＜ＭＭＥＰＯＳ　ＴＨＥＮ　ＭＭＥＰＯＳ＝ＥＮＤＰＯＳ 　ＦＩ＝０ 　ＦＯＲ　Ｐ＝０　ＴＯ　ＰＡＲＴＣＮＴ−１ 　　ＩＦ　ＧＥＮＡＬＬ　ＴＨＥＮ　ＭＭＰＯＳ＝０　ＥＬＳＥ　ＭＭＰＯＳ＝ＭＰＯＳ−ＭＰＯＳ％ＭＴＩＣＫ 　　’ＭＭＧＰＯＳ＝ＭＭＰＯＳ＋ＭＥＴＡＬＥＮ＋Ｐ＊ＰＡＲＴＬＥＮ 　　ＯＣＴ＝４ 　　ＭＭＬ＄＝ＭＭＬ＄＋”：”＋ＳＴＲ＄（Ｐ）＋”＠”＋ＳＴＲ＄（ＧＡＫＫＩ［Ｐ］） 　　ＭＭＮＯＴＥＯ＝Ｎ＿ＣＯＮＴ 　　＠ＭＭＬＯＯＰ 　　　’ＭＭＮＯＴＥ＝ＧＳＰＯＩＴ（ＭＭＧＰＯＳ％２５６，ＭＭＧＰＯＳ／２５６） 　　　ＧＥＴＰＯＳ＝ＭＭＰＯＳ：ＧＥＴＰＡＲＴ＝Ｐ：ＧＯＳＵＢ　＠ＧＧＥＴ：ＭＭＮＯＴＥ＝ＧＥＴＶＡＬ 　　　ＩＦ　ＬＥＮ（ＭＭＬ＄）＞２４０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＭＳＡＶＥ 　　　ＩＦ　ＳＲＥＳＵＬＴ！＝１　ＴＨＥＮ　ＲＥＴＵＲＮ 　　　ＩＦ　ＭＭＰＯＳ＞ＭＭＥＰＯＳ　ＴＨＥＮ　ＧＯＴＯ　＠ＭＭＬＯＯＰＮ 　　　’ＭＭＮＯＴＥ＝ＭＭＮＯＴＥ２ 　　　ＯＣＴＮ＝ＦＬＯＯＲ（（ＭＭＮＯＴＥ−Ｎ＿Ｎ−Ｃ０）／１２） 　　　ＩＦ　ＭＭＮＯＴＥ＝＝Ｎ＿ＯＦＦ　ＴＨＥＮ　ＯＣＴＮ＝ＯＣＴ 　　　ＩＦ　ＭＭＮＯＴＥ＝＝Ｎ＿ＣＯＮＴ　ＴＨＥＮ　ＯＣＴＮ＝ＯＣＴ 　　　ＯＣＴ＄＝”” 　　　ＩＦ　ＯＣＴＮ＝＝ＯＣＴ＋１　ＴＨＥＮ　ＯＣＴ＄＝”＜” 　　　ＩＦ　ＯＣＴＮ＝＝ＯＣＴ−１　ＴＨＥＮ　ＯＣＴ＄＝”＞” 　　　ＩＦ　ＯＣＴＮ＞ＯＣＴ＋１　ＯＲ　ＯＣＴＮ＜ＯＣＴ−１　ＴＨＥＮ　ＯＣＴ＄＝”Ｏ”＋ＳＴＲ＄（ＯＣＴＮ） 　　　ＯＣＴ＝ＯＣＴＮ 　　　ＭＭＮＴ＄＝”” 　　　ＩＦ　ＭＭＮＯＴＥ＝＝Ｎ＿ＯＦＦ　ＯＲ　ＭＭＮＯＴＥ＝＝Ｎ＿ＣＯＮＴ　ＴＨＥＮ　ＭＭＮＴ＄＝”Ｒ” 　　　ＩＦ　ＭＭＮＯＴＥ＝＝Ｎ＿ＣＯＮＴ　ＡＮＤ　ＭＭＮＯＴＥＯ！＝Ｎ＿ＣＯＮＴ　ＴＨＥＮ　ＭＭＮＴ＄＝”＆”＋ＤＮＴ＄［（ＭＭＮＯＴＥＯ−Ｎ＿Ｎ）％１２］ 　　　ＩＦ　ＭＭＮＴ＄！＝””　ＴＨＥＮ　＠ＭＭＳＫＩＰ１ 　　　ＭＭＮＴ＄＝ＤＮＴ＄［（ＭＭＮＯＴＥ−Ｎ＿Ｎ）％１２］ 　　　ＩＦ　ＯＣＴＮ＝＝−１　ＴＨＥＮ　ＭＭＮＴ＄＝”Ｎ” 　　　ＩＦ　ＯＣＴＮ＝＝９　ＴＨＥＮ　ＭＭＮＴ＄＝”Ｎ” 　　＠ＭＭＳＫＩＰ１ 　　　ＧＯＳＵＢ　＠ＧＥＴＭＬＥＮ 　　　ＩＦ　ＭＭＮＴ＄＝＝”Ｎ”　ＴＨＥＮ　ＭＭＬ＄＝ＭＭＬ＄＋”Ｌ”＋Ｌ＄＋ＭＭＮＴ＄＋ＳＴＲ＄（ＭＭＮＯＴＥ−Ｎ＿Ｎ）　ＥＬＳＥ　ＭＭＬ＄＝ＭＭＬ＄＋ＯＣＴ＄＋ＭＭＮＴ＄＋Ｌ＄ 　　　ＭＭＨＡＳＮＴ＝１ 　　　ＭＭＮＯＴＥＯ＝ＭＭＮＯＴＥ 　　　ＧＯＴＯ　＠ＭＭＬＯＯＰ 　＠ＭＭＬＯＯＰＮ 　ＮＥＸＴ 　ＩＦ　ＧＥＮＡＬＬ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＭＳＡＶＥ 　ＧＥＮＡＬＬ＝０ 　ＲＥＴＵＲＮ ＠ＧＥＴＭＬＥＮ 　ＭＭＬＥＮ＝１ 　’ＭＭＧＰＯＳ＝ＭＭＰＯＳ＋ＭＥＴＡＬＥＮ＋Ｐ＊ＰＡＲＴＬＥＮ 　　　＠ＭＭＬＯＯＰ２ 　　　　ＭＭＰＯＳ＝ＭＭＰＯＳ＋１ 　　　　’ＭＭＧＰＯＳ＝ＭＭＧＰＯＳ＋１ 　　　　ＩＦ　ＭＭＬＥＮ＞ＭＴＩＣＫ　ＴＨＥＮ　＠ＭＭＬＯＯＰＥ 　　　　’ＭＭＮＯＴＥ２＝ＧＳＰＯＩＴ（ＭＭＧＰＯＳ％２５６，ＭＭＧＰＯＳ／２５６） 　　　　ＧＥＴＰＯＳ＝ＭＭＰＯＳ：ＧＥＴＰＡＲＴ＝Ｐ：ＧＯＳＵＢ　＠ＧＧＥＴ：ＭＭＮＯＴＥ２＝ＧＥＴＶＡＬ 　　　　ＩＦ　ＭＭＰＯＳ＞ＥＮＤＰＯＳ　ＴＨＥＮ　＠ＭＭＬＯＯＰＥ 　　　　ＩＦ　ＭＭＮＯＴＥ２＝＝Ｎ＿ＣＯＮＴ　ＴＨＥＮ　ＭＭＬＥＮ＝ＭＭＬＥＮ＋１：ＧＯＴＯ　＠ＭＭＬＯＯＰ２ 　　　　ＩＦ　ＭＭＮＯＴＥ＝＝Ｎ＿ＯＦＦ　ＡＮＤ　ＭＭＮＯＴＥ２＝＝Ｎ＿ＯＦＦ　ＴＨＥＮ　ＭＭＬＥＮ＝ＭＭＬＥＮ＋１：ＧＯＴＯ　＠ＭＭＬＯＯＰ２ 　　　 　　　＠ＭＭＬＯＯＰＥ 　　　　ＩＦ　ＭＭＬＥＮ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ 　　　　ＩＦ　ＭＴＩＣＫ％ＭＭＬＥＮ＝＝０　ＴＨＥＮ　＠ＭＭＮＯＤＯＴ 　　　　ＩＦ　ＭＴＩＣＫ％（ＭＭＬＥＮ／１．５）＝＝０　ＴＨＥＮ　＠ＭＭＤＯＴ 　　　　 　　　　　’ＭＭＬ＄＝ＭＭＬ＄＋ＯＣＴ＄ 　　　　　ＭＭＬＥＮ２＝ＭＴＩＣＫ 　　　　　＠ＭＭＴＡＩ 　　　　　　ＩＦ　ＭＭＬＥＮ２＞ＭＭＬＥＮ　ＴＨＥＮ　＠ＭＭＮＯＴＡＩ 　　　　　　Ｌ＄＝ＳＴＲ＄（ＭＴＩＣＫ／ＭＭＬＥＮ２） 　　　　　　’ＩＦ　Ｌ＄＝＝”４”　ＴＨＥＮ　Ｌ＄＝”” 　　　　　　’ＭＭＬ＄＝ＭＭＬ＄＋ＭＭＮＴ＄＋Ｌ＄ 　　　　　　’ＩＦ　ＭＭＮＴ＄！＝”Ｒ”　ＴＨＥＮ　ＭＭＬ＄＝ＭＭＬ＄＋”＆” 　　　　　　ＭＭＬＥＮ＝ＭＭＬＥＮ−ＭＭＬＥＮ２ 　　　　　　’ＭＭＧＰＯＳ＝ＭＭＧＰＯＳ−ＭＭＬＥＮ 　　　　　　ＭＭＰＯＳ＝ＭＭＰＯＳ−ＭＭＬＥＮ 　　　　　　ＲＥＴＵＲＮ 　　　　　＠ＭＭＮＯＴＡＩ 　　　　　ＭＭＬＥＮ２＝ＦＬＯＯＲ（ＭＭＬＥＮ２／２） 　　　　　’ＩＦ　ＭＭＬＥＮ２＞０　ＴＨＥＮ　＠ＭＭＴＡＩ 　　　　　’ＩＦ　ＭＭＮＴ＄！＝”Ｒ”　ＴＨＥＮ　ＭＭＬ＄＝ＬＥＦＴ＄（ＭＭＬ＄，ＬＥＮ（ＭＭＬ＄）−１） 　　　　　’ＭＭＮＯＴＥ＝ＭＭＮＯＴＥ２ 　　　　　’ＧＯＴＯ　＠ＭＭＬＯＯＰ 　　　　　ＧＯＴＯ　＠ＭＭＴＡＩ 　　　　＠ＭＭＮＯＤＯＴ 　　　　　Ｌ＄＝ＳＴＲ＄（ＭＴＩＣＫ／ＭＭＬＥＮ） 　　　　　’ＩＦ　Ｌ＄＝＝”４”　ＴＨＥＮ　Ｌ＄＝”” 　　　　　’ＭＭＬ＄＝ＭＭＬ＄＋ＯＣＴ＄＋ＭＭＮＴ＄＋Ｌ＄ 　　　　　’ＭＭＮＯＴＥ＝ＭＭＮＯＴＥ２ 　　　　　’ＧＯＴＯ　＠ＭＭＬＯＯＰ 　　　　　ＲＥＴＵＲＮ 　　　　＠ＭＭＤＯＴ 　　　　　Ｌ＄＝ＳＴＲ＄（ＭＴＩＣＫ／（ＭＭＬＥＮ／１．５））＋”．” 　　　　　’ＩＦ　Ｌ＄＝＝”４”　ＴＨＥＮ　Ｌ＄＝”” 　　　　　’ＭＭＬ＄＝ＭＭＬ＄＋ＯＣＴ＄＋ＭＭＮＴ＄＋Ｌ＄＋”．” 　　　　　’ＭＭＮＯＴＥ＝ＭＭＮＯＴＥ２ 　　　　　’ＧＯＴＯ　＠ＭＭＬＯＯＰ 　　　　　ＲＥＴＵＲＮ 　＠ＭＭＳＡＶＥ 　　ＩＦ　ＧＥＮＡＬＬ＝＝０　ＡＮＤ　ＭＥＭ＄！＝””　ＴＨＥＮ　ＳＲＥＳＵＬＴ＝０：ＲＥＴＵＲＮ 　　ＭＥＭ＄＝ＭＭＬ＄ 　　ＭＭＬ＄＝”” 　　ＩＦ　ＧＥＮＡＬＬ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ 　　ＰＲＧＲＥＳＳ＝ＦＬＯＯＲ（（Ｐ＋ＭＭＰＯＳ／ＥＮＤＰＯＳ）／ＰＡＲＴＣＮＴ＊１００） 　　ＩＦ　ＰＲＧＲＥＳＳ＞１００　ＴＨＥＮ　ＰＲＧＲＥＳＳ＝１００ 　　ＬＯＣＡＴＥ　０，２３：？”Ｐｒｏｇｒｅｓｓ：”；ＰＲＧＲＥＳＳ；”％”； 　　Ｆ＄＝ＳＴＲ＄（ＦＩ）＊（ＦＩ＞０） 　　ＳＡＶＥ　”ＭＥＭ：”＋ＬＥＦＴ＄（ＦＩＬＥ＄，８−ＬＥＮ（Ｆ＄））＋Ｆ＄ 　　ＳＲＥＳＵＬＴ＝ＲＥＳＵＬＴ 　　ＦＩ＝ＦＩ＋１ 　　ＲＥＴＵＲＮ ＠ＣＨＫＥＮＤ 　ＴＰＯＳ２＝−１ 　ＦＯＲ　Ｐ＝０　ＴＯ　ＰＡＲＴＣＮＴ−１ 　　’ＴＰＯＳ＝ＥＮＤＰＯＳ＋ＭＥＴＡＬＥＮ＋Ｐ＊ＰＡＲＴＬＥＮ 　　ＴＰＯＳ＝ＥＮＤＰＯＳ 　　＠ＣＥＬＯＯＰ 　　　’ＩＦ　ＴＰＯＳ＜ＭＥＴＡＬＥＮ＋Ｐ＊ＰＡＲＴＬＥＮ　ＴＨＥＮ　＠ＣＥＬＯＯＰＥ 　　　ＩＦ　ＴＰＯＳ＜０　ＴＨＥＮ　＠ＣＥＬＯＯＰＥ 　　　’ＩＦ　ＧＳＰＯＩＴ（ＴＰＯＳ％２５６，ＴＰＯＳ／２５６）！＝０　ＴＨＥＮ　＠ＣＥＬＯＯＰＥ 　　　ＧＥＴＰＯＳ＝ＴＰＯＳ：ＧＥＴＰＡＲＴ＝Ｐ：ＧＯＳＵＢ　＠ＧＧＥＴ 　　　ＩＦ　ＧＥＴＶＡＬ！＝Ｎ＿ＯＦＦ　ＴＨＥＮ　＠ＣＥＬＯＯＰＥ 　　　ＩＦ　ＴＰＯＳ２！＝−１　ＡＮＤ　ＴＰＯＳ＜＝ＴＰＯＳ２　ＴＨＥＮ　＠ＣＥＬＯＯＰＥ 　　　ＴＰＯＳ＝ＴＰＯＳ−１ 　　ＧＯＴＯ　＠ＣＥＬＯＯＰ 　＠ＣＥＬＯＯＰＥ 　　’ＴＰＯＳ＝ＴＰＯＳ−Ｐ＊ＰＡＲＴＬＥＮ−ＭＥＴＡＬＥＮ 　　ＩＦ　ＴＰＯＳ＞ＴＰＯＳ２　ＴＨＥＮ　ＴＰＯＳ２＝ＴＰＯＳ 　ＮＥＸＴ 　ＩＦ　ＥＮＤＰＯＳ！＝ＴＰＯＳ２　ＴＨＥＮ　Ｕ＝Ｕ　ＯＲ　Ｕ＿ＮＯＴＥ 　ＥＮＤＰＯＳ＝ＴＰＯＳ２ 　ＲＥＴＵＲＮ ＠ＰＬＡＹＳＴＰ 　ＰＬＡＹ＝０ 　ＢＧＭＳＴＯＰ 　Ｕ＝Ｕ　ＯＲ　Ｕ＿ＣＵＲ　ＯＲ　Ｕ＿Ｌ 　ＲＥＴＵＲＮ ＠ＰＬＡＹＳＴＲＴ 　ＢＧＭＳＴＯＰ　 　ＩＦ　ＥＮＤＰＯＳ＜＝０　ＴＨＥＮ　ＢＥＥＰ　２：ＲＥＴＵＲＮ 　ＩＦ　ＥＮＤＰＯＳ＞＝４＊ＰＡＲＴＬＥＮ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＭＰＳＡＶ 　ＰＬＡＹ＝１ 　ＰＬＡＹＣＨ＝２ 　ＳＥＬ＝０ 　ＭＰＯＳ＝０ 　ＰＬＡＹＭＥＡＳ＝０ 　ＩＦ　ＰＬＡＹＭＥＡＳ＊ＭＴＩＣＫ＜＝ＥＮＤＰＯＳ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＥＮＭＭＬ 　ＰＴＩＭＥ＝ＭＡＩＮＣＮＴＬ 　Ｕ＝Ｕ　ＯＲ　Ｕ＿ＣＵＲ　ＯＲ　Ｕ＿Ｌ 　ＲＥＴＵＲＮ ＠ＴＭＰＳＡＶ 　ＳＹＳＢＥＥＰ＝１ 　ＦＯＲ　ＰＧ＝０　ＴＯ　３ 　　ＰＧ２＝ＬＤＰＡＧＥ＋ＰＧ 　　ＩＦ　ＣＨＧＰＦＬＧ［ＰＧ２％４］　ＴＨＥＮ　ＳＡＶＥ　”ＧＲＰ”＋ＳＴＲ＄（ＰＧ２％４）＋”：ＭＭＬＴＭＰ”＋ＳＴＲ＄（ＰＧ２） 　　ＣＨＧＰＦＬＧ［ＰＧ２％４］＝０ 　ＮＥＸＴ 　ＳＹＳＢＥＥＰ＝０ ＲＥＴＵＲＮ ＠ＬＤＬＥＦＴ４ 　ＧＯＳＵＢ　＠ＴＭＰＳＡＶ 　ＦＯＲ　ＰＧ＝０　ＴＯ　３ 　　ＰＧ２＝ＰＡＧＥ＋ＰＧ 　　ＧＰＡＧＥ　０，ＰＧ２％４，０ 　　ＧＣＬＳ　 　　ＣＨＧＰＦＬＧ［ＰＧ２％４］＝１ 　　ＩＦ　ＥＮＤＰＯＳ＞＝ＰＡＧＥ＊ＰＡＲＴＬＥＮ　ＴＨＥＮ　ＬＯＡＤ　”ＧＲＰ”＋ＳＴＲ＄（ＰＧ２％４）＋”：ＭＭＬＴＭＰ”＋ＳＴＲ＄（ＰＧ２），０：ＣＨＧＰＦＬＧ［ＰＧ２％４］＝０ 　ＮＥＸＴ 　ＬＤＰＡＧＥ＝ＰＡＧＥ ＲＥＴＵＲＮ ＠ＬＤＬＥＦＴ１ 　ＳＹＳＢＥＥＰ＝０ 　ＰＧ２＝ＬＤＰＡＧＥ＋３ 　ＩＦ　ＣＨＧＰＦＬＧ［ＰＧ２％４］　ＴＨＥＮ　ＳＡＶＥ　”ＧＲＰ”＋ＳＴＲ＄（ＰＧ２％４）＋”：ＭＭＬＴＭＰ”＋ＳＴＲ＄（ＰＧ２） 　ＰＧ２＝ＬＤＰＡＧＥ−１ 　ＧＰＡＧＥ　０，ＰＧ２％４，０ 　ＧＣＬＳ　 　ＣＨＧＰＦＬＧ［ＰＧ２％４］＝１ 　ＩＦ　ＥＮＤＰＯＳ＞＝ＰＡＧＥ＊ＰＡＲＴＬＥＮ　ＴＨＥＮ　ＬＯＡＤ　”ＧＲＰ”＋ＳＴＲ＄（ＰＧ２％４）＋”：ＭＭＬＴＭＰ”＋ＳＴＲ＄（ＰＧ２），０：ＣＨＧＰＦＬＧ［ＰＧ２％４］＝０ 　ＬＤＰＡＧＥ＝ＰＧ２ 　ＩＦ　ＰＡＧＥ＜ＬＤＰＡＧＥ　ＴＨＥＮ　＠ＬＤＬＥＦＴ１ ＲＥＴＵＲＮ ＠ＬＤＲＩＧＨＴ１ 　ＳＹＳＢＥＥＰ＝０ 　ＰＧ２＝ＬＤＰＡＧＥ 　ＩＦ　ＣＨＧＰＦＬＧ［ＰＧ２％４］　ＴＨＥＮ　ＳＡＶＥ　”ＧＲＰ”＋ＳＴＲ＄（ＰＧ２％４）＋”：ＭＭＬＴＭＰ”＋ＳＴＲ＄（ＰＧ２） 　ＰＧ２＝ＬＤＰＡＧＥ＋４ 　ＧＰＡＧＥ　０，ＰＧ２％４，０ 　ＧＣＬＳ　 　ＣＨＧＰＦＬＧ［ＰＧ２％４］＝１ 　ＩＦ　ＥＮＤＰＯＳ＞＝ＰＡＧＥ＊ＰＡＲＴＬＥＮ　ＴＨＥＮ　ＬＯＡＤ　”ＧＲＰ”＋ＳＴＲ＄（ＰＧ２％４）＋”：ＭＭＬＴＭＰ”＋ＳＴＲ＄（ＰＧ２），０：ＣＨＧＰＦＬＧ［ＰＧ２％４］＝０ 　ＬＤＰＡＧＥ＝ＬＤＰＡＧＥ＋１ 　ＩＦ　ＰＡＧＥ＞ＬＤＰＡＧＥ＋３　ＴＨＥＮ　＠ＬＤＲＩＧＨＴ１ ＲＥＴＵＲＮ ＠ＧＳＥＴ ’ＳＥＴＰＡＲＴ，ＳＥＴＰＯＳ，ＳＥＴＶＡＬ 　ＰＡＧＥ＝ＦＬＯＯＲ（ＳＥＴＰＯＳ／ＰＡＲＴＬＥＮ） 　ＩＦ　ＰＡＧＥ＜０　ＴＨＥＮ　ＢＥＥＰ　２：ＲＥＴＵＲＮ 　ＩＦ　ＰＡＧＥ＜＝ＬＤＰＡＧＥ−４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＬＤＬＥＦＴ４ 　ＩＦ　ＰＡＧＥ＜ＬＤＰＡＧＥ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＬＤＬＥＦＴ１ 　ＩＦ　ＰＡＧＥ＞＝ＬＤＰＡＧＥ＋７　ＴＨＥＮ　ＧＯＳＵＢ　＠ＬＤＬＥＦＴ４ 　ＩＦ　ＰＡＧＥ＞ＬＤＰＡＧＥ＋３　ＴＨＥＮ　ＧＯＳＵＢ　＠ＬＤＲＩＧＨＴ１ 　ＧＰＡＧＥ　０，ＰＡＧＥ％４，０ 　ＧＰＯＳ＝ＭＥＴＡＬＥＮ＋ＳＥＴＰＡＲＴ＊ＰＡＲＴＬＥＮ＋ＳＥＴＰＯＳ％ＰＡＲＴＬＥＮ 　ＧＰＳＥＴ　ＧＰＯＳ％２５６，ＧＰＯＳ／２５６，ＳＥＴＶＡＬ 　ＣＨＧＰＦＬＧ［ＰＡＧＥ％４］＝１ ＲＥＴＵＲＮ ＠ＧＧＥＴ ’ＧＥＴＰＡＲＴ，ＧＥＴＰＯＳ，ＧＥＴＶＡＬ 　ＰＡＧＥ＝ＦＬＯＯＲ（ＧＥＴＰＯＳ／ＰＡＲＴＬＥＮ） 　ＩＦ　ＰＡＧＥ＜０　ＴＨＥＮ　ＢＥＥＰ　２：ＲＥＴＵＲＮ 　ＩＦ　ＰＡＧＥ＜＝ＬＤＰＡＧＥ−４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＬＤＬＥＦＴ４ 　ＩＦ　ＰＡＧＥ＜ＬＤＰＡＧＥ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＬＤＬＥＦＴ１ 　ＩＦ　ＰＡＧＥ＞＝ＬＤＰＡＧＥ＋７　ＴＨＥＮ　ＧＯＳＵＢ　＠ＬＤＬＥＦＴ４ 　ＩＦ　ＰＡＧＥ＞ＬＤＰＡＧＥ＋３　ＴＨＥＮ　ＧＯＳＵＢ　＠ＬＤＲＩＧＨＴ１ 　ＧＰＡＧＥ　０，ＰＡＧＥ％４，０ 　ＧＰＯＳ＝ＭＥＴＡＬＥＮ＋ＧＥＴＰＡＲＴ＊ＰＡＲＴＬＥＮ＋ＧＥＴＰＯＳ％ＰＡＲＴＬＥＮ 　ＧＥＴＶＡＬ＝ＧＳＰＯＩＴ（ＧＰＯＳ％２５６，ＧＰＯＳ／２５６） ＲＥＴＵＲＮ ＠ＭＥＮＵ 　ＶＩＳＩＢＬＥ　１，１，０，０，０，０ 　ＰＮＬＴＹＰＥ　”ＫＹＡ” 　ＳＹＳＢＥＥＰ＝１ 　ＣＯＬＯＲ　０ 　ＣＬＳ 　ＬＯＣＡＴＥ　０，０ 　？”─”＊３２； 　？”Ｌ：ＧＲＰヨミコミ 　？”Ｓ：ＧＲＰホソ゛ン 　？”Ｘ：ＭＭＬシュツリョク 　？”Ｑ：ファイルメニュ−オワリ 　？”Ｅ：ツ−ルオワリ 　？”─”＊３２； 　ＩＮＰＵＴ　”コマント゛”；ＣＭＤ＄ 　ＩＦ　ＣＭＤ＄＝＝”Ｌ”　ＴＨＥＮ　＠ＬＦＩＬＥ 　ＩＦ　ＣＭＤ＄＝＝”Ｓ”　ＴＨＥＮ　＠ＳＦＩＬＥ 　ＩＦ　ＣＭＤ＄＝＝”Ｘ”　ＴＨＥＮ　＠ＸＦＩＬＥ 　ＩＦ　ＣＭＤ＄＝＝”Ｑ”　ＴＨＥＮ　＠ＱＭＥＮＵ 　ＩＦ　ＣＭＤ＄＝＝”Ｅ”　ＴＨＥＮ　ＣＬＳ：ＥＮＤ 　ＧＯＴＯ　＠ＭＥＮＵ 　 　＠ＬＦＩＬＥ 　　ＦＯＲ　ＰＧ＝０　ＴＯ　３ 　　　ＧＰＡＧＥ　０，ＰＧ，０ 　　　ＧＣＬＳ 　　　ＣＨＧＰＦＬＧ［ＰＧ］＝１ 　　ＮＥＸＴ 　　ＬＤＰＡＧＥ＝０ 　　ＥＮＤＰＯＳ＝−１ 　　ＭＰＯＳ＝０ 　　ＩＮＰＵＴ　”ファイルメイハ（ＧＲＰ）”；ＦＩＬＥ＄ 　　ＩＦ　ＬＥＮ（ＦＩＬＥ＄）＝＝０　ＴＨＥＮ　＠ＬＦＩＬＥ 　　’？”Ｌｏａｄｉｎｇ．．．” 　　？ 　　ＦＩＬＥ＄＝ＬＥＦＴ＄（ＦＩＬＥ＄，８） 　　？ＦＩＬＥ＄； 　　ＬＯＡＤ　”ＧＲＰ０：”＋ＦＩＬＥ＄，０ 　　ＩＦ　ＲＥＳＵＬＴ＝＝１　ＴＨＥＮ　？”：ＯＫ”：ＧＯＴＯ　＠ＬＦＩＬＥ２ 　　？”：ＮＧ” 　　ＦＩＬＥ＄＝ＬＥＦＴ＄（ＦＩＬＥ＄，７） 　　？ＦＩＬＥ＄；０； 　　ＬＯＡＤ　”ＧＲＰ０：”＋ＦＩＬＥ＄＋”０”，０ 　　ＩＦ　ＲＥＳＵＬＴ＝＝１　ＴＨＥＮ　？”：ＯＫ”：ＧＯＴＯ　＠ＬＦＩＬＥ２ 　　？”：ＮＧ” 　　ＦＩＬＥ＄＝ＬＥＦＴ＄（ＦＩＬＥ＄，６）＋”＿” 　　？ＦＩＬＥ＄；０； 　　ＬＯＡＤ　”ＧＲＰ０：”＋ＦＩＬＥ＄＋”０”，０ 　　ＩＦ　ＲＥＳＵＬＴ＝＝１　ＴＨＥＮ　？”：ＯＫ”：ＧＯＴＯ　＠ＬＦＩＬＥ２ 　　？”：ＮＧ” 　　ＧＯＴＯ　＠ＱＭＥＮＵ 　　＠ＬＦＩＬＥ２ 　　ＧＰＡＧＥ　０，０，０ 　　ＩＮＩＴＦＯＫ＝１ 　　ＦＯＲ　Ｉ＝０　ＴＯ　３ 　　　ＩＦ　ＧＳＰＯＩＴ（Ｉ，０）！＝ＩＮＩＴＦＬＧ［Ｉ］　ＴＨＥＮ　ＩＮＩＴＦＯＫ＝０ 　　ＮＥＸＴ 　　ＩＦ　ＩＮＩＴＦＯＫ　ＴＨＥＮ　＠ＩＮＡＳＫＳＫＰ 　　　？”ファイルヘッタ゛カ゛　タタ゛シクアリマセン” 　　　ＩＮＰＵＴ　”ヨミコミマスカ（Ｙ／Ｎ）”；ＣＭＤ＄ 　　　ＩＦ　ＣＭＤ＄！＝”Ｙ”　ＴＨＥＮ　ＧＣＬＳ：ＧＯＴＯ　＠ＱＭＥＮＵ 　　＠ＩＮＡＳＫＳＫＰ 　　ＴＥＭ＝ＧＳＰＯＩＴ（４，０） 　　ＩＦ　ＴＥＭ＞２４０　ＴＨＥＮ　ＴＥＭ＝２４０ 　　ＩＦ　ＴＥＭ＝＝０　ＴＨＥＮ　ＴＥＭ＝１ 　　ＦＯＲ　Ｐ＝０　ＴＯ　ＰＡＲＴＣＮＴ−１ 　　　ＧＡＫＫＩ［Ｐ］＝ＧＳＰＯＩＴ（５＋Ｐ，０） 　　ＮＥＸＴ 　　ＥＮＤＰＯＳ＝ＧＳＰＯＩＴ（１３，０）＊２５６＋ＧＳＰＯＩＴ（１４，０） 　　ＰＡＧＥ＝１ 　　ＣＥ＝１ 　　＠ＬＯＤＬＯＯＰ 　　　ＩＦ　ＥＮＤＰＯＳ＜ＰＡＧＥ＊ＰＡＲＴＬＥＮ　ＴＨＥＮ　＠ＬＦＡＩＬ 　　　’ＩＦ　ＰＡＧＥ＞３　ＴＨＥＮ　＠ＬＦＡＩＬ 　　　ＰＧ２＝ＰＡＧＥ 　　　ＩＦ　ＰＧ２＞３　ＴＨＥＮ　ＰＧ２＝３ 　　＠ＴＲＹＬＬＯＯＰ 　　　Ｆ＄＝ＳＴＲ＄（ＰＡＧＥ）＊（ＰＡＧＥ＞０） 　　　？ＬＥＦＴ＄（ＦＩＬＥ＄，８−ＬＥＮ（Ｆ＄））；Ｆ＄； 　　　ＳＹＳＢＥＥＰ＝０ 　　　ＬＯＡＤ　”ＧＲＰ”＋ＳＴＲ＄（ＰＧ２）＋”：”＋ＬＥＦＴ＄（ＦＩＬＥ＄，８−ＬＥＮ（Ｆ＄））＋Ｆ＄，０ 　　　ＩＦ　ＲＥＳＵＬＴ＝＝１　ＴＨＥＮ　？”：ＯＫ”：ＧＯＴＯ　＠ＬＦＩＬＥ３ 　　　？”：ＮＧ” 　　　ＩＦ　ＰＡＧＥ！＝１　ＴＨＥＮ　＠ＬＦＡＩＬ 　　　ＩＦ　ＲＩＧＨＴ＄（ＦＩＬＥ＄，１）！＝”０”　ＴＨＥＮ　＠ＬＦＡＩＬ 　　　ＦＩＬＥ＄＝ＬＥＦＴ＄（ＦＩＬＥ＄，ＬＥＮ（ＦＩＬＥ＄）−１） 　　　ＧＯＴＯ　＠ＴＲＹＬＬＯＯＰ 　　＠ＬＦＡＩＬ 　　　ＩＦ　ＰＡＧＥ＞３　ＴＨＥＮ　＠ＬＦＡＩＬ２ 　　　ＧＰＡＧＥ　０，ＰＡＧＥ，０ 　　　ＧＣＬＳ 　　　ＣＨＧＰＦＬＧ［ＰＡＧＥ］＝０ 　　　ＰＡＧＥ＝ＰＡＧＥ＋１ 　　　ＧＯＴＯ　＠ＬＦＡＩＬ 　　＠ＬＦＡＩＬ２ 　　　ＩＦ　ＥＮＤＰＯＳ＜４＊ＰＡＲＴＬＥＮ　ＴＨＥＮ　＠ＱＭＥＮＵ 　　　ＬＯＡＤ　”ＧＲＰ３：”＋ＬＥＦＴ＄（ＦＩＬＥ＄，７）＋”３”，０ 　　　ＧＯＳＵＢ　＠ＴＭＰＳＡＶ 　　　ＧＯＴＯ　＠ＱＭＥＮＵ 　　＠ＬＦＩＬＥ３ 　　　ＳＹＳＢＥＥＰ＝１ 　　　ＩＦ　ＥＮＤＰＯＳ＞＝４＊ＰＡＲＴＬＥＮ　ＴＨＥＮ　ＳＡＶＥ　”ＧＲＰ”＋ＳＴＲ＄（ＰＧ２）＋”：ＭＭＬＴＭＰ”＋ＳＴＲ＄（ＰＡＧＥ） 　　　ＳＹＳＢＥＥＰ＝０ 　　　ＧＰＡＧＥ　０，ＰＧ２，０ 　　　ＥＮＤＰＯＳ＝ＥＮＤＰＯＳ＋ＧＳＰＯＩＴ（１３，０）＊２５６＋ＧＳＰＯＩＴ（１４，０） 　　　ＰＡＧＥ＝ＰＡＧＥ＋１：ＧＯＴＯ　＠ＬＯＤＬＯＯＰ 　＠ＳＦＩＬＥ 　　ＩＮＰＵＴ　”ファイルメイハ（ＧＲＰ）”；ＦＩＬＥ＄ 　　ＩＦ　ＬＥＮ（ＦＩＬＥ＄）＝＝０　ＴＨＥＮ　＠ＳＦＩＬＥ 　　’？”Ｓａｖｉｎｇ．．．” 　　？ 　　ＰＡＧＥ＝０ 　　ＥＰＴＭＰ＝ＥＮＤＰＯＳ 　　ＩＦ　ＥＮＤＰＯＳ＜４＊ＰＡＲＴＬＥＮ　ＴＨＥＮ　＠ＳＡＶＬＯＯＰ 　　　ＰＡＧＥ＝０ 　　　ＧＯＳＵＢ　＠ＬＤＬＥＦＴ４ 　　　ＳＹＳＢＥＥＰ＝１ 　　＠ＳＡＶＬＯＯＰ 　　　ＩＦ　ＰＡＧＥ＞＝４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＬＤＲＩＧＨＴ１ 　　　ＧＰＡＧＥ　０，ＰＡＧＥ％４，０ 　　　ＦＯＲ　Ｉ＝０　ＴＯ　３ 　　　　ＧＰＳＥＴ　Ｉ，０，ＩＮＩＴＦＬＧ［Ｉ］ 　　　ＮＥＸＴ 　　　ＧＰＳＥＴ　４，０，ＴＥＭ 　　　ＦＯＲ　Ｐ＝０　ＴＯ　ＰＡＲＴＣＮＴ−１ 　　　　ＧＰＳＥＴ　５＋Ｐ，０，ＧＡＫＫＩ［Ｐ］ 　　　ＮＥＸＴ 　　　ＩＦ　ＥＰＴＭＰ＞ＰＡＲＴＬＥＮ　ＴＨＥＮ　ＥＰＴＭＰ２＝ＰＡＲＴＬＥＮ　ＥＬＳＥ　ＥＰＴＭＰ２＝ＥＰＴＭＰ 　　　ＧＰＳＥＴ　１３，０，ＥＰＴＭＰ２／２５６ 　　　ＧＰＳＥＴ　１４，０，ＥＰＴＭＰ２％２５６ 　　　ＥＰＴＭＰ＝ＥＰＴＭＰ−ＰＡＲＴＬＥＮ 　　　Ｆ＄＝ＳＴＲ＄（ＰＡＧＥ）＊（ＰＡＧＥ＞０） 　　　ＳＹＳＢＥＥＰ＝１ 　　　ＳＡＶＥ　”ＧＲＰ”＋ＳＴＲ＄（ＰＡＧＥ％４）＋”：”＋ＬＥＦＴ＄（ＦＩＬＥ＄，８−ＬＥＮ（Ｆ＄））＋Ｆ＄ 　　　ＩＦ　ＥＰＴＭＰ＞０　ＴＨＥＮ　ＰＡＧＥ＝ＰＡＧＥ＋１：ＧＯＴＯ　＠ＳＡＶＬＯＯＰ 　　ＧＯＴＯ　＠ＱＭＥＮＵ 　＠ＸＦＩＬＥ 　　ＩＮＰＵＴ　”ＦｉｌｅＮａｍｅ（ＭＥＭ）”；ＦＩＬＥ＄ 　　ＩＦ　ＬＥＮ（ＦＩＬＥ＄）＝＝０　ＴＨＥＮ　＠ＸＦＩＬＥ 　　ＧＥＮＡＬＬ＝１ 　　’？”Ｇｅｎｅｒａｔｉｎｇ　ＭＭＬ　Ｄａｔａ．．．” 　　？ 　　？”ＭＭＬテ゛−タ　シュツリョクチュウ．．． 　　ＧＯＳＵＢ　＠ＧＥＮＭＭＬ 　　ＧＯＴＯ　＠ＱＭＥＮＵ 　 　＠ＱＭＥＮＵ 　　’ＩＦ　ＣＥ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＨＫＥＮＤ 　　’ＣＥ＝０ 　　ＣＬＳ 　　ＰＮＬＴＹＰＥ　”ＯＦＦ” 　　ＶＩＳＩＢＬＥ　１，１，１，１，１，０ 　　ＳＹＳＢＥＥＰ＝０ 　　ＰＬＡＹ＝０ 　　Ｕ＝Ｕ＿ＡＬＬ 　　ＧＯＴＯ　＠ＬＯＯＰ ＠ＮＡＭＥ ’セツメイショ（Ｗｅｂ）カラコヒ゜ヘ゜ ＤＡＴＡ　”Ａｃｏｕｓｔｉｃ　Ｇｒａｎｄ　Ｐｉａｎｏ” ＤＡＴＡ　”Ｂｒｉｇｈｔ　Ａｃｏｕｓｔｉｃ　Ｐｉａｎｏ” ＤＡＴＡ　”Ｅｌｅｃｔｒｉｃ　Ｇｒａｎｄ　Ｐｉａｎｏ” ＤＡＴＡ　”Ｈｏｎｋｙ−ｔｏｎｋ　Ｐｉａｎｏ” ＤＡＴＡ　”Ｅｌｅｃｔｒｉｃ　Ｐｉａｎｏ　１” ＤＡＴＡ　”Ｅｌｅｃｔｒｉｃ　Ｐｉａｎｏ　２” ＤＡＴＡ　”Ｈａｒｐｓｉｃｈｏｒｄ” ＤＡＴＡ　”Ｃｌａｖｉ” ＤＡＴＡ　”Ｃｅｌｅｓｔａ” ＤＡＴＡ　”Ｇｌｏｃｋｅｎｓｐｉｅｌ” ＤＡＴＡ　”Ｍｕｓｉｃ　Ｂｏｘ” ＤＡＴＡ　”Ｖｉｂｒａｐｈｏｎｅ” ＤＡＴＡ　”Ｍａｒｉｍｂａ” ＤＡＴＡ　”Ｘｙｌｏｐｈｏｎｅ” ＤＡＴＡ　”Ｔｕｂｕｌａｒ　Ｂｅｌｌｓ” ＤＡＴＡ　”Ｄｕｌｃｉｍｅｒ” ＤＡＴＡ　”Ｄｒａｗｂａｒ　Ｏｒｇａｎ” ＤＡＴＡ　”Ｐｅｒｃｕｓｓｉｖｅ　Ｏｒｇａｎ” ＤＡＴＡ　”Ｒｏｃｋ　Ｏｒｇａｎ” ＤＡＴＡ　”Ｃｈｕｒｃｈ　Ｏｒｇａｎ” ＤＡＴＡ　”Ｒｅｅｄ　Ｏｒｇａｎ” ＤＡＴＡ　”Ａｃｃｏｒｄｉｏｎ” ＤＡＴＡ　”Ｈａｒｍｏｎｉｃａ” ＤＡＴＡ　”Ｔａｎｇｏ　Ａｃｃｏｒｄｉｏｎ” ＤＡＴＡ　”Ａｃｏｕｓｔｉｃ　Ｇｕｉｔａｒ　（ｎｙｌｏｎ）” ＤＡＴＡ　”Ａｃｏｕｓｔｉｃ　Ｇｕｉｔａｒ　（ｓｔｅｅｌ）” ＤＡＴＡ　”Ｅｌｅｃｔｒｉｃ　Ｇｕｉｔａｒ　（ｊａｚｚ）” ＤＡＴＡ　”Ｅｌｅｃｔｒｉｃ　Ｇｕｉｔａｒ　（ｃｌｅａｎ）” ＤＡＴＡ　”Ｅｌｅｃｔｒｉｃ　Ｇｕｉｔａｒ　（ｍｕｔｅｄ）” ＤＡＴＡ　”Ｏｖｅｒｄｒｉｖｅｎ　Ｇｕｉｔａｒ” ＤＡＴＡ　”Ｄｉｓｔｏｒｔｉｏｎ　Ｇｕｉｔａｒ” ＤＡＴＡ　”Ｇｕｉｔａｒ　Ｈａｒｍｏｎｉｃｓ” ＤＡＴＡ　”Ａｃｏｕｓｔｉｃ　Ｂａｓｓ” ＤＡＴＡ　”Ｅｌｅｃｔｒｉｃ　Ｂａｓｓ　（ｆｉｎｇｅｒ）” ＤＡＴＡ　”Ｅｌｅｃｔｒｉｃ　Ｂａｓｓ　（ｐｉｃｋ）” ＤＡＴＡ　”Ｆｒｅｔｌｅｓｓ　Ｂａｓｓ” ＤＡＴＡ　”Ｓｌａｐ　Ｂａｓｓ　１” ＤＡＴＡ　”Ｓｌａｐ　Ｂａｓｓ　２” ＤＡＴＡ　”Ｓｙｎｔｈ　Ｂａｓｓ　１” ＤＡＴＡ　”Ｓｙｎｔｈ　Ｂａｓｓ　２” ＤＡＴＡ　”Ｖｉｏｌｉｎ” ＤＡＴＡ　”Ｖｉｏｌａ” ＤＡＴＡ　”Ｃｅｌｌｏ” ＤＡＴＡ　”Ｃｏｎｔｒａｂａｓｓ” ＤＡＴＡ　”Ｔｒｅｍｏｌｏ　Ｓｔｒｉｎｇｓ” ＤＡＴＡ　”Ｐｉｚｚｉｃａｔｏ　Ｓｔｒｉｎｇｓ” ＤＡＴＡ　”Ｏｒｃｈｅｓｔｒａｌ　Ｈａｒｐ” ＤＡＴＡ　”Ｔｉｍｐａｎｉ” ＤＡＴＡ　”Ｓｔｒｉｎｇ　Ｅｎｓｅｍｂｌｅｓ　１” ＤＡＴＡ　”Ｓｔｒｉｎｇ　Ｅｎｓｅｍｂｌｅｓ　２” ＤＡＴＡ　”Ｓｙｎｔｈ　Ｓｔｒｉｎｇｓ　１” ＤＡＴＡ　”Ｓｙｎｔｈ　Ｓｔｒｉｎｇｓ　２” ＤＡＴＡ　”Ｖｏｉｃｅ　Ａａｈｓ” ＤＡＴＡ　”Ｖｏｉｃｅ　Ｏｏｈｓ” ＤＡＴＡ　”Ｓｙｎｔｈ　Ｖｏｉｃｅ” ＤＡＴＡ　”Ｏｒｃｈｅｓｔｒａ　Ｈｉｔ” ＤＡＴＡ　”Ｔｒｕｍｐｅｔ” ＤＡＴＡ　”Ｔｒｏｍｂｏｎｅ” ＤＡＴＡ　”Ｔｕｂａ” ＤＡＴＡ　”Ｍｕｔｅｄ　Ｔｒｕｍｐｅｔ” ＤＡＴＡ　”Ｆｒｅｎｃｈ　Ｈｏｒｎ” ＤＡＴＡ　”Ｂｒａｓｓ　Ｓｅｃｔｉｏｎ” ＤＡＴＡ　”Ｓｙｎｔｈ　Ｂｒａｓｓ　１” ＤＡＴＡ　”Ｓｙｎｔｈ　Ｂｒａｓｓ　２” ＤＡＴＡ　”Ｓｏｐｒａｎｏ　Ｓａｘ” ＤＡＴＡ　”Ａｌｔｏ　Ｓａｘ” ＤＡＴＡ　”Ｔｅｎｏｒ　Ｓａｘ” ＤＡＴＡ　”Ｂａｒｉｔｏｎｅ　Ｓａｘ” ＤＡＴＡ　”Ｏｂｏｅ” ＤＡＴＡ　”Ｅｎｇｌｉｓｈ　Ｈｏｒｎ” ＤＡＴＡ　”Ｂａｓｓｏｏｎ” ＤＡＴＡ　”Ｃｌａｒｉｎｅｔ” ＤＡＴＡ　”Ｐｉｃｃｏｌｏ” ＤＡＴＡ　”Ｆｌｕｔｅ” ＤＡＴＡ　”Ｒｅｃｏｒｄｅｒ” ＤＡＴＡ　”Ｐａｎ　Ｆｌｕｔｅ” ＤＡＴＡ　”Ｂｌｏｗｎ　Ｂｏｔｔｌｅ” ＤＡＴＡ　”Ｓｈａｋｕｈａｃｈｉ” ＤＡＴＡ　”Ｗｈｉｓｔｌｅ” ＤＡＴＡ　”Ｏｃａｒｉｎａ” ＤＡＴＡ　”Ｌｅａｄ　１　（ｓｑｕａｒｅ）” ＤＡＴＡ　”Ｌｅａｄ　２　（ｓａｗｔｏｏｔｈ）” ＤＡＴＡ　”Ｌｅａｄ　３　（ｃａｌｌｉｏｐｅ）” ＤＡＴＡ　”Ｌｅａｄ　４　（ｃｈｉｆｆ）” ＤＡＴＡ　”Ｌｅａｄ　５　（ｃｈａｒａｎｇ）” ＤＡＴＡ　”Ｌｅａｄ　６　（ｖｏｉｃｅ）” ＤＡＴＡ　”Ｌｅａｄ　７　（ｆｉｆｔｈｓ）” ＤＡＴＡ　”Ｌｅａｄ　８　（ｂａｓｓ　＋　ｌｅａｄ）” ＤＡＴＡ　”Ｐａｄ　１　（ｎｅｗ　ａｇｅ）” ＤＡＴＡ　”Ｐａｄ　２　（ｗａｒｍ）” ＤＡＴＡ　”Ｐａｄ　３　（ｐｏｌｙｓｙｎｔｈ）” ＤＡＴＡ　”Ｐａｄ　４　（ｃｈｏｉｒ）” ＤＡＴＡ　”Ｐａｄ　５　（ｂｏｗｅｄ）” ＤＡＴＡ　”Ｐａｄ　６　（ｍｅｔａｌｌｉｃ）” ＤＡＴＡ　”Ｐａｄ　７　（ｈａｌｏ）” ＤＡＴＡ　”Ｐａｄ　８　（ｓｗｅｅｐ）” ＤＡＴＡ　”ＦＸ　１　（ｒａｉｎ）” ＤＡＴＡ　”ＦＸ　２　（ｓｏｕｎｄｔｒａｃｋ）” ＤＡＴＡ　”ＦＸ　３　（ｃｒｙｓｔａｌ）” ＤＡＴＡ　”ＦＸ　４　（ａｔｍｏｓｐｈｅｒｅ）” ＤＡＴＡ　”ＦＸ　５　（ｂｒｉｇｈｔｎｅｓｓ）” ＤＡＴＡ　”ＦＸ　６　（ｇｏｂｌｉｎｓ）” ＤＡＴＡ　”ＦＸ　７　（ｅｃｈｏｅｓ）” ＤＡＴＡ　”ＦＸ　８　（ｓｃｉ−ｆｉ）” ＤＡＴＡ　”Ｓｉｔａｒ” ＤＡＴＡ　”Ｂａｎｊｏ” ＤＡＴＡ　”Ｓｈａｍｉｓｅｎ” ＤＡＴＡ　”Ｋｏｔｏ” ＤＡＴＡ　”Ｋａｌｉｍｂａ” ＤＡＴＡ　”Ｂａｇ　ｐｉｐｅ” ＤＡＴＡ　”Ｆｉｄｄｌｅ” ＤＡＴＡ　”Ｓｈａｎａｉ” ＤＡＴＡ　”Ｔｉｎｋｌｅ　Ｂｅｌｌ” ＤＡＴＡ　”Ａｇｏｇｏ” ＤＡＴＡ　”Ｓｔｅｅｌ　Ｄｒｕｍｓ” ＤＡＴＡ　”Ｗｏｏｄｂｌｏｃｋ” ＤＡＴＡ　”Ｔａｉｋｏ　Ｄｒｕｍ” ＤＡＴＡ　”Ｍｅｌｏｄｉｃ　Ｔｏｍ” ＤＡＴＡ　”Ｓｙｎｔｈ　Ｄｒｕｍ” ＤＡＴＡ　”Ｒｅｖｅｒｓｅ　Ｃｙｍｂａｌ” ＤＡＴＡ　”Ｇｕｉｔａｒ　Ｆｒｅｔ　Ｎｏｉｓｅ” ＤＡＴＡ　”Ｂｒｅａｔｈ　Ｎｏｉｓｅ” ＤＡＴＡ　”Ｓｅａｓｈｏｒｅ” ＤＡＴＡ　”Ｂｉｒｄ　Ｔｗｅｅｔ” ＤＡＴＡ　”Ｔｅｌｅｐｈｏｎｅ　Ｒｉｎｇ” ＤＡＴＡ　”Ｈｅｌｉｃｏｐｔｅｒ” ＤＡＴＡ　”Ａｐｐｌａｕｓｅ” ＤＡＴＡ　”Ｇｕｎｓｈｏｔ” ＤＡＴＡ　”Ｄｒｕｍ” ＤＡＴＡ　”Ｄｒｕｍ” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”ＰＳＧ　Ｄｕｔｙ　１２．５％” ＤＡＴＡ　”ＰＳＧ　Ｄｕｔｙ　２５．０％” ＤＡＴＡ　”ＰＳＧ　Ｄｕｔｙ　３７．５％” ＤＡＴＡ　”ＰＳＧ　Ｄｕｔｙ　５０．０％” ＤＡＴＡ　”ＰＳＧ　Ｄｕｔｙ　６２．５％” ＤＡＴＡ　”ＰＳＧ　Ｄｕｔｙ　７５．０％” ＤＡＴＡ　”ＰＳＧ　Ｄｕｔｙ　８７．５％” ＤＡＴＡ　”Ｎｏｉｓｅ” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ＤＡＴＡ　”Ｕｓｅｒ　Ｗａｖｅｆｏｒｍ” ’−−ＥＯＦ−−