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

パンくずリスト

• トップ
• Toukou
• トレイン

2014年9月5日投稿 / 投稿者 : Gセーバー / タグ : 投稿プログラム ゲーム QRコード mkII専用

概要

電車を運転するゲームを作りました。

操作方法

メニューの操作です。

ゲーム中の操作です。

画面説明

上画面のメーターの説明です。

• 右下のメーター
  • スピードメーターです。電車の速さを表しています。
• 下の棒
  • バランスメーターです。カーブで外側に膨らみ、画面外へ飛び出すとペナルティを受けます。減速して回避しましょう。
• 左上のメーター
  • 勾配のきつさを表しています。特に意味はありません。

モード説明

3つのモードの説明です。

普通電車(運行モード)

電車を運転して駅に停めていくモードです。
終点に停車するとクリアです。
制限時間が0になるとゲームオーバーです。
各駅ではタイムボーナスが貰え、制限時間を伸ばすことができます。
このタイムボーナスは、停車位置の誤差が少ない程多く貰えます。

試運転電車(タイムアタックモード)

電車を運転して終点を目指すモードです。
終点を通過するとクリアです。
制限時間が0になるとゲームオーバーです。
各駅ではタイムボーナスが貰えますが、貰う量が増減することはありません。
乗客がいなくて軽いので、加減速性能が上がっています。

リプレイモード

GRPファイルを読み込んでリプレイを再生できます。

車両紹介

ゲーム中に登場する車両の一部を紹介します。
※実在の車両の性能の一部は架空です。

@E233

出現条件:最初から使える

@SP01

出現条件:最初から使える

@KH8000

出現条件:普通、試運転をのべ2回クリアする

QR コード

プチコンmkII 向けの QR コードです。
画像添付がわからないのでリンク貼ります↓
http://gsaviour.web.fc2.com/index.html

プログラムリスト

+

長いので隠します

ＤＡＴＡ　 ＤＴ＝０ ＤＡＴＡ　 ＤＲ＝０ ＡＣＬＳ ＢＧＭＳＴＯＰ ＬＯＡＤ”ＭＥＭ：ＴＲＡＩＮ ＳＫ＝０ＢＰ＝０ＲＰ＝０ＰＢ＝０ ＭＳ＝１．５ＦＮ＝１ＦＭ＝１ ＦＯＲ　Ｉ＝０ＴＯ　０ＳＴＥＰ　ＦＭ＞＝９５ ＦＮ＝ＦＮ＋１ ＦＭ＝ＦＭ＊ＭＳ ＮＥＸＴ ＩＦ！ＤＭ　ＴＨＥＮ　ＤＭ＝１ＤＩＭ　Ｃ（ＦＮ＋１），Ｈ（ＦＮ＋１），ＴＮ＄（７＋ＤＴ），ＲＮ＄（３＋ＤＲ），ＮＳ（５０），ＴＬ（５０） ＦＯＲ　Ｉ＝０ＴＯ　ＤＴ−１ ＲＥＡＤ　ＴＮ＄（Ｉ） ＮＥＸＴ ＴＮ＄（ＤＴ＋０）＝”＠Ｅ２３３ ＴＮ＄（ＤＴ＋１）＝”＠ＳＰ０１ ＴＮ＄（ＤＴ＋２）＝”＠ＫＨ８０００ ＴＮ＄（ＤＴ＋３）＝”＠ＴＹＰＥ＿９９９ ＴＮ＄（ＤＴ＋４）＝”＠ＫＱ２１００ ＴＮ＄（ＤＴ＋５）＝”＠ＮＥＷ＿ＲＤ１０００ ＴＮ＄（ＤＴ＋６）＝”＠ＨＱ２０００ ＴＳ＝０ ＴＮ＄＝ＴＮ＄（ＤＴ） ＲＥＳＴＯＲＥ　ＴＮ＄ ＲＥＡＤ　ＢＡ，ＢＢ，ＢＣ，ＢＤ，ＳＭ，ＳＡ，ＳＢ，ＳＣ，ＴＧ，ＣＭ，ＣＴ，ＴＶ＄，ＴＹ，ＴＣ＄，ＴＷ，ＴＭ＄，ＴＵ＄，ＭＡ，ＭＢ ＦＯＲ　Ｉ＝０ＴＯ　ＤＲ−１ ＲＥＡＤ　ＲＮ＄（Ｉ） ＮＥＸＴ ＲＮ＄（ＤＲ＋０）＝”＠ＢＬ＿ＬＩＮＥ ＲＮ＄（ＤＲ＋１）＝”＠ＣＯＡＳＴ＿ＬＩＮＥ ＲＳ＝０ ＲＮ＄＝ＲＮ＄（ＤＲ） ＲＥＳＴＯＲＥ　ＲＮ＄ ＲＥＡＤ　ＲＹ，ＲＦ，ＲＴ ＦＯＲ　Ｉ＝０ＴＯ　ＲＴ−２ ＲＥＡＤ　ＮＳ（Ｉ），ＴＬ（Ｉ） ＮＥＸＴ ＦＯＲ　Ｉ＝０ＴＯ　２５５ ＧＯＳＵＢ＠ＲＥＡＤ ＮＥＸＴ ＳＰ＝０Ｄ＝０ＯＤ＝．５Ａ＝０ ＣＯＬＯＲ　３ ＰＮＬＴＹＰＥ”ＯＦＦ ＧＰＲＩＯ　１ ＧＰＡＧＥ　１，２，３ ＳＰＳＥＴ　０，２１８，０，０，０，０ ＳＰＳＥＴ　１，２１８，０，０，０，１ ＳＰＳＥＴ　２，２１９，０，０，０，１ ＳＰＳＥＴ　３，８，１，０，０，１ ＳＰＨＯＭＥ　０，８，１６ ＳＰＨＯＭＥ　１，８，０ ＳＰＨＯＭＥ　２，８，８ ＳＰＯＦＳ　０，２２３，１５９ ＦＯＲ　Ｉ＝０ＴＯ　３ ＳＰＳＣＡＬＥ　Ｉ，０ ＮＥＸＴ ＳＰＰＡＧＥ　１ ＦＯＲ　Ｉ＝０ＴＯ　４７ ＣＨＲＳＥＴ”ＳＰＳ”，Ｉ＋（Ｉ＞２３）＊１６，”０”＊６４ ＮＥＸＴ ＦＯＲ　Ｉ＝０ＴＯ　１５ ＣＨＲＳＥＴ”ＳＰＳ”，Ｉ＋２４，”Ｆ”＊６４ ＮＥＸＴ ＳＰＳＥＴ　０，０，３，０，０，１，６４，６４ ＳＰＳＥＴ　１，０，１１，０，０，１，６４，６４ ＳＰＳＥＴ　２，０，１３，０，０，１，６４，６４ ＳＰＨＯＭＥ　０，３２，３２ ＳＰＨＯＭＥ　１，０，３２ ＳＰＨＯＭＥ　２，６４，３２ ＳＰＯＦＳ　１，−１６，９５ ＳＰＯＦＳ　２，２７１，９５ ＦＯＲ　Ｉ＝０ＴＯ　２ ＳＰＳＣＡＬＥ　Ｉ，０ ＮＥＸＴ ＢＧＦＩＬＬ　１，０，０，６３，１０，６ ＢＧＦＩＬＬ　１，０，１１，６３，１１，９６８，１５，０，０ ＢＧＰＡＧＥ　１ ＢＧＦＩＬＬ　１，０，０，３２，２４，１０００，１５，０，０ ＢＧＦＩＬＬ　１，０，２５，６３，４８，１，１，０，０ ＢＧＦＩＬＬ　１，３２，３６，６３，３６，４ ＢＧＦＩＬＬ　１，３２，３７，６３，３７，２ ＢＧＦＩＬＬ　０，０，０，３１，２，２ ＢＧＯＦＳ　０，０，１９２ ＢＧＯＦＳ　１，０，２００ ＢＧＰＡＧＥ　０ ＭＬ＝ＭＡＩＮＣＮＴＬ ＢＧＭＰＬＡＹ　１１ ＦＯＲ　Ｉ＝０ＴＯ　０ＳＴＥＰ　０ Ｂ＝ＢＵＴＴＯＮ（） ＩＦ（ＭＡＩＮＣＮＴＬ−ＭＬ＞＝１４４０）＋（１０２４ＡＮＤ　Ｂ）ＴＨＥＮ　Ｉ＝１ Ｄ＝Ｄ＋．５ ＩＦ　Ｄ＞＝１ＴＨＥＮ　Ｄ＝Ｄ−１ＧＯＳＵＢ＠ＲＥＡＤ　ＥＬＳＥ　Ａ＝Ａ＋（ＶＡＬ（ＬＥＦＴ＄（Ｃ＄，１））−５）／２ ＧＯＳＵＢ＠ＣＯＵＲＳＥ ＢＧＯＦＳ　１，Ａ，０ ＰＢ＝ＰＢ＋１ ＩＦ　ＰＢ＝＝１５ＴＨＥＮ　ＰＮＬＳＴＲ　１０，１１，”Ｐｌｅａｓｅ　ＳＴＡＲＴ ＩＦ　ＰＢ＞＝３０ＴＨＥＮ　ＰＢ＝０ＰＮＬＳＴＲ　１０，１１，”　”＊１２ ＶＳＹＮＣ！Ｉ＊２ ＮＥＸＴ ＩＦ　１０２４ＡＮＤ　Ｂ　ＴＨＥＮ　ＳＫ＝１ＢＧＭＳＴＯＰ ＠ＭＥＮＵ ＦＴ＝２＋ＦＬＯＯＲ（ＶＡＬ（ＭＥＭ＄）／２） ＦＲ＝２ ＣＬＳ ＧＰＡＧＥ　０，０，０ＧＣＬＳ ＧＰＡＧＥ　０，１，０ＧＣＬＳ ＢＧＯＦＳ　１，０，０ ＲＥＳＴＯＲＥ＠０ ＦＯＲ　Ｉ＝０ＴＯ　２５５ ＧＯＳＵＢ＠ＲＥＡＤ ＮＥＸＴ ＳＰ＝１Ｄ＝１Ａ＝０ ＦＯＲ　Ｉ＝０ＴＯ　ＦＮ Ｃ（Ｉ）＝０ Ｈ（Ｉ）＝０ ＮＥＸＴ ＣＯＬＯＲ　３ ＢＧＰＡＧＥ　１ ＦＯＲ　Ｉ＝０ＴＯ　０ＳＴＥＰ　０ ＯＢ＝１０２４ＡＮＤ　Ｂ　ＯＴ＝Ｔ Ｂ＝ＢＵＴＴＯＮ（）Ｙ＝ＴＣＨＹ　Ｔ＝ＴＣＨＳＴ ＩＦ！ＯＴ＊Ｔ＊（Ｙ＞３８）＊（Ｙ＜７９）＊（ＳＫ＜０）ＴＨＥＮ　Ｉ＝１ＴＡ＝０ＢＥＥＰ　４３ ＩＦ！ＯＴ＊Ｔ＊（Ｙ＞８６）＊（Ｙ＜１２７）＊（ＳＫ＜０）ＴＨＥＮ　Ｉ＝２ＴＡ＝１ＢＥＥＰ　３２ ＩＦ！ＯＴ＊Ｔ＊（Ｙ＞１３４）＊（Ｙ＜１７５）＊（ＳＫ＜０）ＴＨＥＮ　Ｉ＝３ＢＥＥＰ　４２ ＩＦ！ＳＫ＊！ＯＢ＊（１０２４ＡＮＤ　Ｂ）ＴＨＥＮ　ＳＫ＝１ＢＥＥＰ　３７ Ｄ＝Ｄ−．２ ＩＦ　Ｄ＜＝０ＴＨＥＮ　Ｄ＝Ｄ＋１ＧＯＳＵＢ＠ＲＥＡＤ ＰＢ＝ＰＢ＋！ＳＫ ＩＦ　ＰＢ＝＝１５ＴＨＥＮ　ＰＮＬＳＴＲ　１０，１１，”Ｐｌｅａｓｅ　ＳＴＡＲＴ ＩＦ（ＰＢ＞＝３０）＊（ＳＫ＝＝０）ＴＨＥＮ　ＰＢ＝０ＰＮＬＳＴＲ　１０，１１，”　”＊１２ ＧＯＳＵＢ＠ＧＲＡＰＨＩＣ ＩＦ　ＳＫ＞０ＴＨＥＮ　ＧＯＳＵＢ＠ＴＩＴＬＥ ＢＳ＝ＢＳ＋１−（ＢＳ＞６）＊８ ＩＦ　ＳＫ　ＴＨＥＮ　ＢＧＯＦＳ　１，ＢＳ，ＢＳ ＶＳＹＮＣ！Ｉ＊２ ＮＥＸＴ ＣＬＳ ＢＧＦＩＬＬ　０，０，５，３１，２１，０ ＩＦ　Ｉ＞２ＴＨＥＮ＠ＲＥＰＬＡＹ ＠ＴＲＡＩＮ ＧＰＡＧＥ　０，０，０ＧＣＬＳ ＧＰＡＧＥ　０，１，０ＧＣＬＳ ＳＰ＝１Ｄ＝１ ＣＯＬＯＲ　３ ＰＮＬＳＴＲ　１，１０，”　┝ ＰＮＬＳＴＲ　１，１１，”┝┿ ＰＮＬＳＴＲ　１，１２，”┥┿ ＰＮＬＳＴＲ　１，１３，”　┥ ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　１１，１，”シャリョウセンタク ＰＮＬＳＴＲ　１，２２，”←　モト゛ル”＋”　”＊１８＋”ケッテイ　→ ＧＯＳＵＢ＠Ｔ＿ＰＮＬ ＢＧＰＵＴ　０，４，４，５２８ ＢＧＦＩＬＬ　０，５，４，２６，４，５３６ ＢＧＰＵＴ　０，２７，４，５２９ ＢＧＦＩＬＬ　０，４，５，４，１８，５３９ ＢＧＦＩＬＬ　０，５，５，２６，１８，１４ ＢＧＦＩＬＬ　０，２７，５，２７，１８，５３７ ＢＧＰＵＴ　０，４，１９，５３１ ＢＧＦＩＬＬ　０，５，１９，２６，１９，５３８ ＢＧＰＵＴ　０，２７，１９，５３０ ＢＧＦＩＬＬ　０，０，２１，７，２３，４ ＢＧＦＩＬＬ　０，２４，２１，３１，２３，２ ＦＯＲ　Ｉ＝０ＴＯ　０ＳＴＥＰ　０ ＯＴ＝Ｔ Ｘ＝ＴＣＨＸ　Ｙ＝ＴＣＨＹ　Ｔ＝ＴＣＨＳＴ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＜３９）＊（Ｙ＜１５９）ＴＨＥＮ　ＴＳ＝ＴＳ−１ＧＯＳＵＢ＠Ｔ＿ＳＥＬＥＣＴ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＞２１４）＊（Ｙ＜１５９）ＴＨＥＮ　ＴＳ＝ＴＳ＋１ＧＯＳＵＢ＠Ｔ＿ＳＥＬＥＣＴ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＜７１）＊（Ｙ＞１５８）ＴＨＥＮ　Ｉ＝１ＢＥＥＰ　５５，８１９２ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＞１８２）＊（Ｙ＞１５８）ＴＨＥＮ　Ｉ＝２ＢＥＥＰ　６３，８１９２ ＧＯＳＵＢ＠ＧＲＡＰＨＩＣ ＢＳ＝ＢＳ＋１−（ＢＳ＞６）＊８ ＢＧＯＦＳ　１，ＢＳ，ＢＳ ＶＳＹＮＣ！Ｉ＊２ ＮＥＸＴ ＣＬＳ ＩＦ　Ｉ＜２ＴＨＥＮ　ＳＫ＝１ＢＧＦＩＬＬ　０，０，４，３１，２３，０ＧＯＴＯ＠ＭＥＮＵ ＳＰ＝０Ｄ＝０ＯＤ＝．５ ＧＯＳＵＢ＠Ｒ＿ＳＥＬＥＣＴ ＰＮＬＳＴＲ　１，１０，”　┝ ＰＮＬＳＴＲ　１，１１，”┝┿ ＰＮＬＳＴＲ　１，１２，”┥┿ ＰＮＬＳＴＲ　１，１３，”　┥ ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　１２，１，”ロセンセンタク ＰＮＬＳＴＲ　１，２２，”←　モト゛ル”＋”　”＊１８＋”ケッテイ　→ ＢＧＦＩＬＬ　０，４，４，２７，８，０ ＢＧＰＵＴ　０，４，９，５２８ ＢＧＦＩＬＬ　０，５，９，２６，９，５３６ ＢＧＰＵＴ　０，２７，９，５２９ ＢＧＰＵＴ　０，４，１４，５３１ ＢＧＦＩＬＬ　０，５，１４，２６，１４，５３８ ＢＧＰＵＴ　０，２７，１４，５３０ ＢＧＦＩＬＬ　０，４，１５，２７，１９，０ ＦＯＲ　Ｉ＝０ＴＯ　０ＳＴＥＰ　０ ＯＴ＝Ｔ Ｘ＝ＴＣＨＸ　Ｙ＝ＴＣＨＹ　Ｔ＝ＴＣＨＳＴ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＜３９）＊（Ｙ＜１５９）ＴＨＥＮ　ＲＳ＝ＲＳ−１ＧＯＳＵＢ＠Ｒ＿ＳＥＬＥＣＴ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＞２１４）＊（Ｙ＜１５９）ＴＨＥＮ　ＲＳ＝ＲＳ＋１ＧＯＳＵＢ＠Ｒ＿ＳＥＬＥＣＴ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＜７１）＊（Ｙ＞１５８）ＴＨＥＮ　Ｉ＝１ＢＥＥＰ　５５，８１９２ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＞１８２）＊（Ｙ＞１５８）ＴＨＥＮ　Ｉ＝２ＢＥＥＰ　６３，８１９２ ＩＦ　ＴＴ＜ＲＴ−１ＴＨＥＮ　Ｄ＝Ｄ＋．５ＮＳ＝ＮＳ−．０５ＩＦ　Ｄ＞＝１ＴＨＥＮ　Ｄ＝Ｄ−１ＧＯＳＵＢ＠ＲＥＡＤ　ＥＬＳＥ　Ａ＝Ａ＋（ＶＡＬ（ＬＥＦＴ＄（Ｃ＄，１））−５）／２ ＩＦ　ＮＳ＜０ＴＨＥＮ　ＴＴ＝ＴＴ＋１　ＩＦ　ＴＴ＜ＲＴ−１ＴＨＥＮ　ＮＳ＝ＮＳ＋ＮＳ（ＴＴ）＊１０ ＧＯＳＵＢ＠ＣＯＵＲＳＥ ＢＧＰＡＧＥ　０ ＢＧＯＦＳ　１，Ａ，０ ＢＧＰＡＧＥ　１ ＢＳ＝ＢＳ＋１−（ＢＳ＞６）＊８ ＢＧＯＦＳ　１，ＢＳ，ＢＳ ＶＳＹＮＣ！Ｉ＊２ ＮＥＸＴ ＠ＰＬＡＹ ＣＬＳ ＧＰＡＧＥ　０，０，０ＧＣＬＳ ＧＰＡＧＥ　０，１，０ＧＣＬＳ ＩＦ　Ｉ＜２ＴＨＥＮ＠Ｔ＿ＲＥＴＵＲＮ ＢＧＯＦＳ　０，０，１９２ ＢＧＯＦＳ　１，０，２００ ＢＧＰＡＧＥ　０ ＢＧＯＦＳ　１，０，９６ ＢＧＭＳＴＯＰ　０ ＲＥＳＴＯＲＥ　ＲＮ＄ ＲＥＡＤ　ＲＹ，ＲＦ，ＲＴ ＦＯＲ　Ｉ＝０ＴＯ　ＲＴ−２ ＲＥＡＤ　ＮＳ（Ｉ），ＴＬ（Ｉ） ＮＥＸＴ ＦＯＲ　Ｉ＝０ＴＯ　２５５ ＧＯＳＵＢ＠ＲＥＡＤ ＮＥＸＴ ＳＰ＝０Ｄ＝０Ａ＝０ ＭＣ＝−１ＯＴ＝０ＰＳ＝０ＨＡ＝０ ＴＴ＝０ＮＳ＝ＮＳ（０）＊１０ＴＬ＝ＴＬ（０）ＴＰ＝０ＲＧ＝３３ ＩＦ　ＲＰ　ＴＨＥＮ＠Ｐ＿ＳＫＩＰ ＧＰＡＧＥ　１ ＧＣＬＳ ＦＯＲ　Ｉ＝０ＴＯ　１５ ＩＦ””！＝ＭＩＤ＄（ＴＮ＄，Ｉ，１）ＴＨＥＮ　ＧＰＳＥＴ　Ｉ，０，ＡＳＣ（ＭＩＤ＄（ＴＮ＄，Ｉ，１）） ＮＥＸＴ ＦＯＲ　Ｉ＝１６ＴＯ　３１ ＩＦ””！＝ＭＩＤ＄（ＲＮ＄，Ｉ−１６，１）ＴＨＥＮ　ＧＰＳＥＴ　Ｉ，０，ＡＳＣ（ＭＩＤ＄（ＲＮ＄，Ｉ−１６，１）） ＮＥＸＴ ＧＰＳＥＴ　３２，０，ＴＡ ＩＦ！ＲＰ＊（”ワンハント゛ル”＝＝ＴＭ＄）ＴＨＥＮ　ＳＰＯＦＳ　０，１２７，１４３ＳＰＳＣＡＬＥ　０，２００ＢＧＰＡＧＥ　１ＢＧＯＦＳ　１，２５６，２００ＢＧＰＡＧＥ　０ ＩＦ！ＲＰ＊（”ツーハント゛ル”＝＝ＴＭ＄）ＴＨＥＮ　ＳＰＡＮＧＬＥ　１，−４５ＳＰＡＮＧＬＥ　２，０ＳＰＳＣＡＬＥ　１，２００ＳＰＳＣＡＬＥ　２，２００ ＠Ｐ＿ＳＫＩＰ ＳＰＰＡＧＥ　０ ＳＰＯＦＳ　２，１５，１５ ＳＰＡＮＧＬＥ　０，−１３５ ＳＰＡＮＧＬＥ　１，０ ＳＰＳＣＡＬＥ　０，２００ ＳＰＳＣＡＬＥ　１，１００ ＳＰＳＣＡＬＥ　２，２００ ＳＰＳＣＡＬＥ　３，２００ ＢＧＯＦＳ　１，０，０ ＧＯＳＵＢ＠ＣＯＵＲＳＥ ＧＰＡＧＥ　０，！Ｐ，！Ｐ ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　１４，０？”ＴＩＭＥ ＬＯＣＡＴＥ　１４，１？”　”＊（（ＴＬ＜１０）＋（ＴＬ＜１００））ＴＬ ＬＯＣＡＴＥ　２６，２０？”　”（（ＰＳ＜１０）＋（ＰＳ＜１００））ＦＬＯＯＲ（ＰＳ） ＩＦ　ＴＡ　ＴＨＥＮ　ＢＧＭＰＬＡＹ　３ ＠ＮＥＸＴ Ｇ＝０ＧＯ＝３０ ＣＯＬＯＲ　４ ＬＯＣＡＴＥ　１，２２？”　　 ＬＯＣＡＴＥ　３，２２？ＮＳ／１０”　　　　” ＬＯＣＡＴＥ　９，２２？”ｋｍ ＬＯＣＡＴＥ　１４，　９？”┠┠┠┠ ＬＯＣＡＴＥ　１４，１０？”┏┏┏┷ ＬＯＣＡＴＥ　１４，１１？”┠┠┠┷ ＬＯＣＡＴＥ　１４，１２？”┏┏┏┷ ＬＯＣＡＴＥ　１４，１３？”┠┠┠┷ ＬＯＣＡＴＥ　１４，１４？”┏┏┏┏ ＢＥＥＰ　２０ ＷＡＩＴ　６０ ＣＯＬＯＲ　７ ＬＯＣＡＴＥ　１４，　９？”┠┠┠┠ ＬＯＣＡＴＥ　１４，１０？”┏┏┏┷ ＬＯＣＡＴＥ　１４，１１？”┠┠┠┷ ＬＯＣＡＴＥ　１４，１２？”┷┏┏┏ ＬＯＣＡＴＥ　１４，１３？”┷┠┠┠ ＬＯＣＡＴＥ　１４，１４？”┏┏┏┏ ＢＥＥＰ　２０ ＷＡＩＴ　６０ ＣＯＬＯＲ　１３ ＬＯＣＡＴＥ　１４，　９？”　┳┓　 ＬＯＣＡＴＥ　１４，１０？”　┻┛　 ＬＯＣＡＴＥ　１４，１１？”　┻┛　 ＬＯＣＡＴＥ　１４，１２？”　┻┛　 ＬＯＣＡＴＥ　１４，１３？”　┻┛　 ＬＯＣＡＴＥ　１４，１４？”　┃━　 ＢＥＥＰ　２０ ＷＡＩＴ　６０ ＣＯＬＯＲ　４ ＬＯＣＡＴＥ　１０，　９？”┳┠┠┠┓┠┠┠┠┳┓ ＬＯＣＡＴＥ　１０，１０？”┻┣┏┏━┷┏┏┷┻┛ ＬＯＣＡＴＥ　１０，１１？”┻┛┳┠┓┷　　┷┻┛ ＬＯＣＡＴＥ　１０，１２？”┻┛┃╋┛┷　　┷┃━ ＬＯＣＡＴＥ　１０，１３？”┻┯┠┨┛┷┠┠┷┳┓ ＬＯＣＡＴＥ　１０，１４？”┃┏┏┏━┏┏┏┏┃━ ＢＥＥＰ　２０，８１９２ ＦＯＲ　Ｉ＝０ＴＯ　０ＳＴＥＰ　０ ＯＢ＝！（１０２４ＡＮＤ　Ｂ） Ｂ＝ＢＵＴＴＯＮ（）Ｘ＝ＴＣＨＸ　ＹＹ＝ＴＣＨＹ　Ｔ＝ＴＣＨＳＴ Ｆ＝Ｆ＋１ ＩＦ　Ｆ＞２９ＴＨＥＮ　Ｆ＝Ｆ−３０ＴＬ＝ＴＬ−１ＩＦ　ＴＬ＜６ＴＨＥＮ　ＢＥＥＰ　１９ＢＥＥＰ　１９ ＩＦ　ＧＯ　ＴＨＥＮ　ＧＯ＝ＧＯ−１　ＩＦ！ＧＯ　ＴＨＥＮ　ＧＯＳＵＢ＠ＧＯ＿ＯＦＦ ＩＦ　ＴＬ＜＝０ＴＨＥＮ　Ｉ＝２ ＧＯＳＵＢ＠ＣＯＵＲＳＥ ＣＯＬＯＲ　０＋１３＊（ＴＬ＜６）ＬＯＣＡＴＥ　１４，１？”　”＊（（ＴＬ＜１０）＋（ＴＬ＜１００））ＳＴＲ＄（ＴＬ）＊（ＴＬ＞＝０） ＩＦ！ＯＴ＊Ｔ　ＴＨＥＮ　ＯＴ＝１ ＭＯ＝ＭＣ ＳＰＰＡＧＥ　１ ＩＦ！ＲＰ＊（”ワンハント゛ル”＝＝ＴＭ＄）＊ＯＴ　ＴＨＥＮ　ＧＯＳＵＢ＠ＯＮＥ ＩＦ！ＲＰ＊（”ツーハント゛ル”＝＝ＴＭ＄）＊ＯＴ　ＴＨＥＮ　ＧＯＳＵＢ＠ＴＷＯ ＲＧ＝ＲＧ＋１ ＧＰＡＧＥ　１ ＩＦ　ＲＰ　ＴＨＥＮ　ＭＣ＝ＧＳＰＯＩＴ（ＲＧ％２５６，ＲＧ／２５６）−ＭＢ−１ＧＯＳＵＢ＠ＫＥＹ　ＥＬＳＥ　ＧＰＳＥＴ　ＲＧ％２５６，ＲＧ／２５６，ＭＣ＋ＭＢ＋１ ＩＦ（Ｉ＝＝１）＊ＴＡ＊（ＴＴ＜ＲＴ−１）ＴＨＥＮ　Ｉ＝０ＴＰ＝ＴＰ＋ＴＬ（ＴＴ）ＣＯＬＯＲ　７ＬＯＣＡＴＥ　１１，１１？”ＴＩＭＥ　ＢＯＮＵＳ ＩＦ　ＴＰ　ＴＨＥＮ　ＴＰ＝ＴＰ−１ＴＬ＝ＴＬ＋１ＢＥＥＰ　２，−４０９６ＩＦ！ＴＰ　ＴＨＥＮ　ＬＯＣＡＴＥ　１１，１１？”　”＊１０ ＩＦ　ＯＢ＊（１０２４ＡＮＤ　Ｂ）ＴＨＥＮ　ＧＯＳＵＢ＠ＰＡＵＳＥ ＶＳＹＮＣ！Ｉ＊２ ＮＥＸＴ ＧＰＡＧＥ　０，！Ｐ，！Ｐ ＩＦ　Ｉ＝＝２ＴＨＥＮ＠ＴＩＭＥＯＶＥＲ ＴＴ＝ＴＴ＋１ ＩＦ　ＴＴ＞ＲＴ−２ＴＨＥＮ＠ＣＬＥＡＲ ＩＦ　Ｉ＞１ＴＨＥＮ＠ＭＥＮＵ ＣＯＬＯＲ　７ＬＯＣＡＴＥ　１１，１１？”ＴＩＭＥ　ＢＯＮＵＳ ＳＰＯＦＳ　１，１２７，１７５，１２０ ＢＥＥＰ　２ ＷＡＩＴ　１２０ ＦＯＲ　Ｉ＝１ＴＯ　ＴＬ（ＴＴ）＊（１−ＡＢＳ（ＮＳ）／．２） ＴＬ＝ＴＬ＋１ ＣＯＬＯＲ　０＋１３＊（ＴＬ＜６）ＬＯＣＡＴＥ　１４，１？”　”＊（（ＴＬ＜１０）＋（ＴＬ＜１００））ＳＴＲ＄（ＴＬ）＊（ＴＬ＞＝０） ＢＥＥＰ　２，−４０９６ ＶＳＹＮＣ　２ ＮＥＸＴ ＬＯＣＡＴＥ　１１，１１？”　”＊１０ ＮＳ＝ＮＳ＋ＮＳ（ＴＴ）＊１０ ＧＯＴＯ＠ＮＥＸＴ ＠Ｔ＿ＲＥＴＵＲＮ ＲＥＳＴＯＲＥ＠０ ＦＯＲ　Ｉ＝０ＴＯ　２５５ ＧＯＳＵＢ＠ＲＥＡＤ ＮＥＸＴ Ａ＝０ ＧＯＴＯ＠ＴＲＡＩＮ ＠ＴＩＭＥＯＶＥＲ ＢＥＥＰ　５０ ＧＦＩＬＬ　０，７１，２５５，１１９，１４ ＣＯＬＯＲ　１３ ＬＯＣＡＴＥ　０，　９？”┠┠┠┠┳┓┠　　┠┳┠┠┠┓┠┠┠┠┳┓　┳┓┠┠┠┓┠┠┠┓ ＬＯＣＡＴＥ　０，１０？”┏╋┣┏┻┛┷┯┨┷┻┣┏┏━┷┏┏┷┻┛　┻┛┷┏┏━┷┏┏┷ ＬＯＣＡＴＥ　０，１１？”　┻┛　┻┛┷╋┣┷┻┯┠┠┓┷　　┷┃┷　┷━┷┠┠┓┷┠┠┷ ＬＯＣＡＴＥ　０，１２？”　┻┛　┻┛┷　　┷┻┣┏┏━┷　　┷　╋┷┣　┷┏┏━┷╋┷━ ＬＯＣＡＴＥ　０，１３？”　┻┛　┻┛┷　　┷┻┯┠┠┓┷┠┠┷　┃┷━　┷┠┠┓┷　╋┯ ＬＯＣＡＴＥ　０，１４？”　┃━　┃━┏　　┏┃┏┏┏━┏┏┏┏　　┏　　┏┏┏━┏　　┏ ＧＯＴＯ＠ＲＥＴＵＲＮ ＠ＣＬＥＡＲ ＩＦ！ＲＰ　ＴＨＥＮ　ＭＥＭ＄＝ＳＴＲ＄（ＶＡＬ（ＭＥＭ＄）＋（ＭＥＭ＄！＝”１０”）） ＢＧＭＰＬＡＹ　５ ＧＦＩＬＬ　０，７１，２５５，１１９，１４ ＣＯＬＯＲ　４ ＬＯＣＡＴＥ　５，　９？”┠┠┠┠┳┓　　　┠┠┠┠　　┠　　┠┠┠┓ ＬＯＣＡＴＥ　５，１０？”┷┏┏┏┻┛　　　┷┏┏┏　┨┷┯　┷┏┏┷ ＬＯＣＡＴＥ　５，１１？”┷　　　┻┛　　　┷┠┠┠┻┣　╋┛┷┠┠┷ ＬＯＣＡＴＥ　５，１２？”┷　　　┻┛　　　┷┏┏┏┻┷┷┷┛┷╋┷━ ＬＯＣＡＴＥ　５，１３？”┷┠┠┠┻┯┠┠┓┷┠┠┠┻┛　┻┛┷　╋┯ ＬＯＣＡＴＥ　５，１４？”┏┏┏┏┃┏┏┏━┏┏┏┏┃━　┃━┏　　┏ ＷＡＩＴ　６０ ＠ＲＥＴＵＲＮ ＷＡＩＴ　６０ ＳＰＰＡＧＥ　０ ＦＯＲ　Ｉ＝０ＴＯ　３ ＳＰＳＣＡＬＥ　Ｉ，０ ＮＥＸＴ ＳＰＰＡＧＥ　１ ＦＯＲ　Ｉ＝０ＴＯ　２ ＳＰＳＣＡＬＥ　Ｉ，０ ＮＥＸＴ ＩＦ　ＲＰ　ＴＨＥＮ＠Ｒ＿ＳＫＩＰ　ＥＬＳＥ　ＳＡＶＥ”ＭＥＭ：ＴＲＡＩＮ ＲＮ＝０ ＣＯＬＯＲ　３ ＰＮＬＳＴＲ　２０，　９，”　┝┰ ＰＮＬＳＴＲ　２０，１０，”┝┿┿┰ ＰＮＬＳＴＲ　２０，１４，”┥┿┿┸ ＰＮＬＳＴＲ　２０，１５，”　┥┸ ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　１１，１，”リフ゜レイセーフ゛” ＰＮＬＳＴＲ　８，１２，”ＧＲＰ　：　ＴＲＡＩＮ＿ ＰＮＬＳＴＲ　２１，１２，”０”＊（ＲＮ＜１０）＋ＳＴＲ＄（ＲＮ） ＰＮＬＳＴＲ　１，２２，”←　モト゛ル”＋”　”＊１８＋”ケッテイ　→ ＢＧＰＡＧＥ　１ ＢＧＰＵＴ　０，４，８，５２８ ＢＧＦＩＬＬ　０，５，８，２６，８，５３６ ＢＧＰＵＴ　０，２７，８，５２９ ＢＧＦＩＬＬ　０，４，９，４，１５，５３９ ＢＧＦＩＬＬ　０，５，９，２６，１５，１４ ＢＧＦＩＬＬ　０，２７，９，２７，１５，５３７ ＢＧＰＵＴ　０，４，１６，５３１ ＢＧＦＩＬＬ　０，５，１６，２６，１６，５３８ ＢＧＰＵＴ　０，２７，１６，５３０ ＢＧＯＦＳ　０，０，０ ＦＯＲ　Ｉ＝０ＴＯ　０ＳＴＥＰ　０ ＯＴ＝Ｔ Ｘ＝ＴＣＨＸ　Ｙ＝ＴＣＨＹ　Ｔ＝ＴＣＨＳＴ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＞１５０）＊（Ｘ＜１９９）＊（Ｙ＞６２）＊（Ｙ＜９５）ＴＨＥＮ　ＲＮ＝ＲＮ＋１−（ＲＮ＞９８）＊１００ＢＰ＝０ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＞１５０）＊（Ｘ＜１９９）＊（Ｙ＞１０２）＊（Ｙ＜１３５）ＴＨＥＮ　ＲＮ＝ＲＮ−１＋（ＲＮ＜１）＊１００ＢＰ＝０ ＩＦ！ＢＰ　ＴＨＥＮ　ＢＰ＝１ＢＥＥＰ　２４ＰＮＬＳＴＲ　２１，１２，”０”＊（ＲＮ＜１０）＋ＳＴＲ＄（ＲＮ） ＩＦ！ＯＴ＊Ｔ＊（Ｘ＜７１）＊（Ｙ＞１５８）ＴＨＥＮ　Ｉ＝１ＢＥＥＰ　５５，８１９２ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＞１８２）＊（Ｙ＞１５８）ＴＨＥＮ　Ｉ＝２ＢＥＥＰ　６３，８１９２ＳＡＶＥ”ＧＲＰ２：ＴＲＡＩＮ＿”＋”０”＊（ＲＮ＜１０）＋ＳＴＲ＄（ＲＮ） ＩＦ（Ｉ＞１）＊（ＲＥＳＵＬＴ＜１）ＴＨＥＮ　Ｉ＝０ ＢＳ＝ＢＳ＋１−（ＢＳ＞６）＊８ ＢＧＯＦＳ　１，ＢＳ，ＢＳ ＶＳＹＮＣ！Ｉ＊２ ＮＥＸＴ ＠Ｒ＿ＳＫＩＰ ＳＫ＝１ＢＰ＝０ ＢＧＰＡＧＥ　１ ＢＧＦＩＬＬ　０，０，４，３１，２３，０ ＧＯＴＯ＠ＭＥＮＵ ＠ＲＥＰＬＡＹ ＲＮ＝０ ＠Ｒ＿ＲＥＴＵＲＮ ＰＮＬＳＴＲ　１３，１，”リフ゜レイ ＣＯＬＯＲ　３ ＰＮＬＳＴＲ　２０，　９，”　┝┰ ＰＮＬＳＴＲ　２０，１０，”┝┿┿┰ ＰＮＬＳＴＲ　２０，１４，”┥┿┿┸ ＰＮＬＳＴＲ　２０，１５，”　┥┸ ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　８，１２，”ＧＲＰ　：　ＴＲＡＩＮ＿ ＰＮＬＳＴＲ　２１，１２，”０”＊（ＲＮ＜１０）＋ＳＴＲ＄（ＲＮ） ＰＮＬＳＴＲ　１，２２，”←　モト゛ル”＋”　”＊１８＋”ケッテイ　→ ＢＧＰＵＴ　０，４，８，５２８ ＢＧＦＩＬＬ　０，５，８，２６，８，５３６ ＢＧＰＵＴ　０，２７，８，５２９ ＢＧＦＩＬＬ　０，４，９，４，１５，５３９ ＢＧＦＩＬＬ　０，５，９，２６，１５，１４ ＢＧＦＩＬＬ　０，２７，９，２７，１５，５３７ ＢＧＰＵＴ　０，４，１６，５３１ ＢＧＦＩＬＬ　０，５，１６，２６，１６，５３８ ＢＧＰＵＴ　０，２７，１６，５３０ ＢＧＦＩＬＬ　０，０，２１，７，２３，４ ＢＧＦＩＬＬ　０，２４，２１，３１，２３，２ ＦＯＲ　Ｉ＝０ＴＯ　０ＳＴＥＰ　０ ＯＴ＝Ｔ Ｘ＝ＴＣＨＸ　Ｙ＝ＴＣＨＹ　Ｔ＝ＴＣＨＳＴ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＞１５０）＊（Ｘ＜１９９）＊（Ｙ＞６２）＊（Ｙ＜９５）ＴＨＥＮ　ＲＮ＝ＲＮ＋１−（ＲＮ＞９８）＊１００ＢＰ＝０ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＞１５０）＊（Ｘ＜１９９）＊（Ｙ＞１０２）＊（Ｙ＜１３５）ＴＨＥＮ　ＲＮ＝ＲＮ−１＋（ＲＮ＜１）＊１００ＢＰ＝０ ＩＦ！ＢＰ　ＴＨＥＮ　ＢＰ＝１ＢＥＥＰ　２４ＰＮＬＳＴＲ　２１，１２，”０”＊（ＲＮ＜１０）＋ＳＴＲ＄（ＲＮ） ＩＦ！ＯＴ＊Ｔ＊（Ｘ＜７１）＊（Ｙ＞１５８）ＴＨＥＮ　ＢＥＥＰ　５５，８１９２Ｉ＝１ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＞１８２）＊（Ｙ＞１５８）ＴＨＥＮ　ＢＥＥＰ　６３，８１９２Ｉ＝２ Ｄ＝Ｄ−．２ ＩＦ　Ｄ＜＝０ＴＨＥＮ　Ｄ＝Ｄ＋１ＧＯＳＵＢ＠ＲＥＡＤ ＧＯＳＵＢ＠ＧＲＡＰＨＩＣ ＢＳ＝ＢＳ＋１−（ＢＳ＞６）＊８ ＢＧＯＦＳ　１，ＢＳ，ＢＳ ＶＳＹＮＣ！Ｉ＊２ ＮＥＸＴ ＣＬＳ ＩＦ　Ｉ＜２ＴＨＥＮ　ＳＫ＝１ＢＧＦＩＬＬ　０，０，４，３１，２３，０ＧＯＴＯ＠ＭＥＮＵ ＬＯＡＤ”ＧＲＰ２：ＴＲＡＩＮ＿”＋”０”＊（ＲＮ＜１０）＋ＳＴＲ＄（ＲＮ） ＩＦ　ＲＥＳＵＬＴ＜１ＴＨＥＮ＠Ｒ＿ＲＥＴＵＲＮ ＧＰＡＧＥ　１ ＲＴ＄＝”” ＦＯＲ　Ｉ＝０ＴＯ　１５ ＩＦ　ＧＳＰＯＩＴ（Ｉ，０）ＴＨＥＮ　ＲＴ＄＝ＲＴ＄＋ＣＨＲ＄（ＧＳＰＯＩＴ（Ｉ，０）） ＮＥＸＴ ＦＯＲ　Ｉ＝０ＴＯ　６＋ＤＴ ＩＦ　ＲＴ＄＝＝ＴＮ＄（Ｉ）ＴＨＥＮ　ＲＰ＝１Ｉ＝７＋ＤＴ ＮＥＸＴ ＲＲ＄＝”” ＦＯＲ　Ｉ＝１６ＴＯ　３１ ＩＦ　ＧＳＰＯＩＴ（Ｉ，０）ＴＨＥＮ　ＲＲ＄＝ＲＲ＄＋ＣＨＲ＄（ＧＳＰＯＩＴ（Ｉ，０）） ＮＥＸＴ ＦＯＲ　Ｉ＝０ＴＯ　１＋ＤＲ ＩＦ　ＲＲ＄＝＝ＲＮ＄（Ｉ）ＴＨＥＮ　ＲＰ＝ＲＰ＋１Ｉ＝２＋ＤＴ ＮＥＸＴ ＴＡ＝ＧＳＰＯＩＴ（３２，０） ＰＮＬＳＴＲ　１３，１，”リフ゜レイ ＰＮＬＳＴＲ　５，９，”ＧＲＰ　：　ＴＲＡＩＮ＿”＋”０”＊（ＲＮ＜１０）＋ＳＴＲ＄（ＲＮ） ＩＦ　ＴＡ　ＴＨＥＮ　ＰＮＬＳＴＲ　２５，９，”ＴＡ ＰＮＬＳＴＲ　５，１１，”シャリョウ　：”＋ＲＴ＄ ＰＮＬＳＴＲ　５，１２，”ロセン　　　：”＋ＲＲ＄ ＩＦ　ＲＰ＜２ＴＨＥＮ　ＢＧＦＩＬＬ　０，２４，２１，３１，２３，０ＣＯＬＯＲ　１３ＰＮＬＳＴＲ　６，１４，”フメイナ　テ゛ータカ゛シヨウサレテイマス ＣＯＬＯＲ　０ＰＮＬＳＴＲ　１，２２，”←　モト゛ル”＋”　”＊１８＋”ケッテイ　→”＊（ＲＰ＞１） ＦＯＲ　Ｉ＝０ＴＯ　０ＳＴＥＰ　０ ＯＴ＝Ｔ Ｘ＝ＴＣＨＸ　Ｙ＝ＴＣＨＹ　Ｔ＝ＴＣＨＳＴ ＩＦ！ＯＴ＊Ｔ＊（Ｘ＜７１）＊（Ｙ＞１５８）ＴＨＥＮ　Ｉ＝１ＢＥＥＰ　５５，８１９２ ＩＦ！ＯＴ＊Ｔ＊（ＲＰ＞１）＊（Ｘ＞１８２）＊（Ｙ＞１５８）ＴＨＥＮ　Ｉ＝２ＢＥＥＰ　６３，８１９２ Ｄ＝Ｄ−．２ ＩＦ　Ｄ＜＝０ＴＨＥＮ　Ｄ＝Ｄ＋１ＧＯＳＵＢ＠ＲＥＡＤ ＧＯＳＵＢ＠ＧＲＡＰＨＩＣ ＢＳ＝ＢＳ＋１−（ＢＳ＞６）＊８ ＢＧＯＦＳ　１，ＢＳ，ＢＳ ＶＳＹＮＣ！Ｉ＊２ ＮＥＸＴ ＣＬＳ ＩＦ　Ｉ＜２ＴＨＥＮ　ＲＰ＝０ＧＯＴＯ＠Ｒ＿ＲＥＴＵＲＮ ＴＮ＄＝ＲＴ＄ ＲＥＳＴＯＲＥ　ＴＮ＄ ＲＥＡＤ　ＢＡ，ＢＢ，ＢＣ，ＢＤ，ＳＭ，ＳＡ，ＳＢ，ＳＣ，ＴＧ，ＣＭ，ＣＴ，ＴＶ＄，ＴＹ，ＴＣ＄，ＴＷ，ＴＭ＄，ＴＵ＄，ＭＡ，ＭＢ ＲＮ＄＝ＲＲ＄ ＧＯＴＯ＠ＰＬＡＹ ＠ＴＩＴＬＥ ＳＫ＝−１ ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　１４，１，”メニュー ＰＮＬＳＴＲ　１１，５，”┨┠┠┯　┏┃╋━ ＰＮＬＳＴＲ　１１，６，”┠┯┨┠　╋┻╋╋ ＰＮＬＳＴＲ　１１，７，”　┠┠　　┫┻╋╋ ＰＮＬＳＴＲ　１１，８，”　┯┨　　┫┻╋╋ ＰＮＬＳＴＲ　１１，９，”　┯┨　　　┏┠┠ ＣＯＬＯＲ　１３ ＰＮＬＳＴＲ　８，１１，”┏　┳┏　┏┗┣╋　┠┯　┠┓ ＰＮＬＳＴＲ　８，１２，”┏━┏┣　╋┻┣┛　┠┯ ＰＮＬＳＴＲ　８，１３，”┫┳┠┛　┫┃┣━　┯┷┃╋┏ ＰＮＬＳＴＲ　８，１４，”┠┠┯┻　┫┃┣━　┏┣┳━ ＰＮＬＳＴＲ　８，１５，”┯┛　┻　　┏┠┠　┏┣┻┠┯ ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　１１，１７，”┛┻┳┨╋┛　　┳ ＰＮＬＳＴＲ　１１，１８，”┛┻　┃┣┛　┳┛ ＰＮＬＳＴＲ　１１，１９，”┛┻　　┛┛　━┛ ＰＮＬＳＴＲ　１１，２０，”　┻　┳━┛┳　┛ ＰＮＬＳＴＲ　１１，２１，”┳━┳━　┯━　┛ ＢＧＦＩＬＬ　０，０，５，３１，９，１０ ＢＧＦＩＬＬ　０，０，１１，３１，１５，１５ ＢＧＦＩＬＬ　０，０，１７，３１，２１，４ ＢＧＯＦＳ　０，０，０ ＩＦ！ＢＰ　ＴＨＥＮ　ＢＰ＝１ＢＧＭＰＬＡＹ　２６ ＲＥＴＵＲＮ ＠Ｔ＿ＳＥＬＥＣＴ ＢＥＥＰ　２４ ＴＳ＝ＴＳ＋（ＴＳ＜−ＤＴ）＊（ＦＴ＋ＤＴ）−（ＴＳ＞＝ＦＴ）＊（ＦＴ＋ＤＴ） ＴＮ＄＝ＴＮ＄（ＴＳ＋ＤＴ） ＲＥＳＴＯＲＥ　ＴＮ＄ ＲＥＡＤ　ＢＡ，ＢＢ，ＢＣ，ＢＤ，ＳＭ，ＳＡ，ＳＢ，ＳＣ，ＴＧ，ＣＭ，ＣＴ，ＴＶ＄，ＴＹ，ＴＣ＄，ＴＷ，ＴＭ＄，ＴＵ＄，ＭＡ，ＭＢ ＠Ｔ＿ＰＮＬ ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　６，５，ＴＮ＄＋”　”＊１５ ＰＮＬＳＴＲ　２４，５，”０”＊（ＴＹ＜１０）＋ＳＴＲ＄（ＴＹ）＋”’” ＰＮＬＳＴＲ　５，６，”サイコウソクト゛　　：　”＋ＳＴＲ＄（ＳＭ）＋”　ｋｍ／ｈ ＰＮＬＳＴＲ　５，７，”キト゛ウカソクト゛　：　”＋ＳＴＲ＄（ＳＡ）＋”．０”＊（ＳＡ＝＝ＦＬＯＯＲ（ＳＡ））＋”　ｋｍ／ｈ／ｓ ＰＮＬＳＴＲ　５，８，”ケ゛ンソクト゛　　　：　”＋ＳＴＲ＄（ＳＢ）＋”．０”＊（ＳＢ＝＝ＦＬＯＯＲ（ＳＢ））＋”　ｋｍ／ｈ／ｓ ＰＮＬＳＴＲ　５，９，”ヒシ゛ョウケ゛ンソク：　”＋ＳＴＲ＄（ＳＣ）＋”．０”＊（ＳＣ＝＝ＦＬＯＯＲ（ＳＣ））＋”　ｋｍ／ｈ／ｓ ＰＮＬＳＴＲ　５，１０，”コントローラー　　　：　”＋ＴＭ＄＋”　”＊１０ ＰＮＬＳＴＲ　５，１１，”リッコウタ゛ンスウ　：　”＋”　”＊（ＭＡ＜１０）＋ＳＴＲ＄（ＭＡ）＋”　タ゛ン ＰＮＬＳＴＲ　５，１２，”セイト゛ウタ゛ンスウ：　”＋”　”＊（ＭＢ＜１０）＋ＳＴＲ＄（ＭＢ）＋”　タ゛ン ＰＮＬＳＴＲ　５，１３，”シンタ゛ンホウシキ　：　”＋ＴＵ＄＋”　”＊１０ ＰＮＬＳＴＲ　５，１４，”モーターシュツリョク：　”＋ＳＴＲ＄（ＴＷ）＋”　ｋＷ ＰＮＬＳＴＲ　５，１５，”テ゛ンキホウシキ　　：　”＋ＴＶ＄＋”　”＊１０ ＰＮＬＳＴＲ　５，１６，”セイキ゛ョホウシキ　：　”＋ＴＣ＄＋”　”＊１０ ＰＮＬＳＴＲ　５，１７，”ヘンセイ（ＭＴ）　　：　”＋ＳＴＲ＄（ＣＭ）＋”Ｍ”＋ＳＴＲ＄（ＣＴ）＋”Ｔ ＰＮＬＳＴＲ　５，１８，”ヘンセイシツリョウ　：　”＋ＳＴＲ＄（ＴＧ）＋”．０”＊（ＴＧ＝＝ＦＬＯＯＲ（ＴＧ））＋”　ｔ ＣＯＬＯＲ　３ ＰＮＬＳＴＲ　２９，１０，”┰ ＰＮＬＳＴＲ　２９，１１，”┿┰ ＰＮＬＳＴＲ　２９，１２，”┿┸ ＰＮＬＳＴＲ　２９，１３，”┸ ＲＥＴＵＲＮ ＠Ｒ＿ＳＥＬＥＣＴ ＧＰＡＧＥ　０，０，０ＧＣＬＳ ＧＰＡＧＥ　０，１，０ＧＣＬＳ ＢＧＰＡＧＥ　０ ＢＧＯＦＳ　１，０，０ ＢＧＰＡＧＥ　１ ＢＥＥＰ　２４ ＲＳ＝ＲＳ＋（ＲＳ＜−ＤＲ）＊（ＦＲ＋ＤＲ）−（ＲＳ＞＝ＦＲ）＊（ＦＲ＋ＤＲ） ＲＮ＄＝ＲＮ＄（ＲＳ＋ＤＲ） ＲＥＳＴＯＲＥ　ＲＮ＄ ＲＥＡＤ　ＲＹ，ＲＦ，ＲＴ ＦＯＲ　Ｉ＝０ＴＯ　ＲＴ−２ ＲＥＡＤ　ＮＳ（Ｉ），ＴＬ（Ｉ） ＮＥＸＴ ＦＯＲ　Ｉ＝０ＴＯ　２５５ ＧＯＳＵＢ＠ＲＥＡＤ ＮＥＸＴ Ｉ＝０Ａ＝０ＴＴ＝０ＮＳ＝ＮＳ（０）＊１０ ＠Ｒ＿ＰＮＬ ＣＯＬＯＲ　０ ＰＮＬＳＴＲ　６，１０，ＲＮ＄＋”　”＊１５ ＰＮＬＳＴＲ　２４，１０，”０”＊（ＲＹ＜１０）＋ＳＴＲ＄（ＲＹ）＋”’” ＰＮＬＳＴＲ　５，１２，”セ゛ンチョウ　：　”＋”　”＊（ＲＦ＜１０）＋ＳＴＲ＄（ＲＦ）＋”．０”＊（ＲＦ＝＝ＦＬＯＯＲ（ＲＦ））＋”　ｋｍ ＰＮＬＳＴＲ　５，１３，”エキ　　　　　：　”＋”　”＊（ＲＴ＜１０）＋ＳＴＲ＄（ＲＴ）＋”　エキ ＣＯＬＯＲ　３ ＰＮＬＳＴＲ　２９，１０，”┰ ＰＮＬＳＴＲ　２９，１１，”┿┰ ＰＮＬＳＴＲ　２９，１２，”┿┸ ＰＮＬＳＴＲ　２９，１３，”┸ ＲＥＴＵＲＮ ＠ＧＯ＿ＯＦＦ ＧＯ＝０ ＬＯＣＡＴＥ　１０，　９？”　”＊１１ ＬＯＣＡＴＥ　１０，１０？”　”＊１１ ＬＯＣＡＴＥ　１０，１１？”　”＊１１ ＬＯＣＡＴＥ　１０，１２？”　”＊１１ ＬＯＣＡＴＥ　１０，１３？”　”＊１１ ＬＯＣＡＴＥ　１０，１４？”　”＊１１ ＲＥＴＵＲＮ ＠ＰＡＵＳＥ ＰＮＬＳＴＲ　１３，１１，”ＰＡＵＳＥ”，７ ＢＥＥＰ　３５ ＷＡＩＴ　１ ＦＯＲ　Ｉ＝０ＴＯ　０ＳＴＥＰ　１０２４ＡＮＤ　ＢＵＴＴＯＮ（２） ＶＳＹＮＣ！Ｉ ＮＥＸＴ Ｉ＝０ ＰＮＬＳＴＲ　１３，１１，”　”＊５ ＲＥＴＵＲＮ ＠ＣＯＵＲＳＥ Ｃ＝０ＣＣ＝０Ｈ＝０ＨＣ＝０Ｍ＝ＦＭ ＣＰ＝ＶＡＬ（ＬＥＦＴ＄（Ｃ＄，１））−５ ＨＰ＝ＶＡＬ（ＬＥＦＴ＄（Ｈ＄，１））−５ ＦＯＲ　Ｎ＝０ＴＯ　ＦＮ Ｍ＝Ｍ／ＭＳ ＣＣ＝ＣＣ＋ＣＰ＊（１−Ｄ）／５０ ＨＣ＝ＨＣ＋ＨＰ＊（１−Ｄ）／１００ ＣＰ＝ＶＡＬ（ＭＩＤ＄（Ｃ＄，Ｎ＋１，１））−５ ＨＰ＝ＶＡＬ（ＭＩＤ＄（Ｈ＄，Ｎ＋１，１））−５ ＣＣ＝ＣＣ＋ＣＰ＊Ｄ／５０ ＨＣ＝ＨＣ＋ＨＰ＊Ｄ／１００ ＯＣ＝Ｃ　ＯＨ＝Ｈ Ｃ＝Ｃ＋ＣＣ＊Ｍ Ｈ＝Ｈ＋ＨＣ＊Ｍ ＩＦ！Ｎ　ＴＨＥＮ　ＯＣ＝Ｃ　ＯＨ＝Ｈ Ｃ（ＦＮ−Ｎ）＝ＯＣ＋（Ｃ−ＯＣ）＊（１−Ｄ） Ｈ（ＦＮ−Ｎ）＝ＯＨ＋（Ｈ−ＯＨ）＊（１−Ｄ） ＮＥＸＴ ＠ＧＲＡＰＨＩＣ Ｐ＝！Ｐ　ＧＰＡＧＥ　０，！Ｐ，Ｐ　ＧＣＬＳ Ｍ＝１ ＦＯＲ　Ｎ＝０ＴＯ　ＦＮ ＯＭ＝Ｍ ＯＹ＝Ｙ＋１ＯＨＹ＝ＨＹ−２ＯＵＹ＝ＵＹ−１ＯＬ＝Ｌ−１Ｏ＝Ｒ＋１ＯＬＬ＝ＬＬ　ＯＬＲ＝ＬＲ　ＯＲＬ＝ＲＬ　ＯＲＲ＝ＲＲ Ｍ＝Ｍ＊ＭＳ Ｗ＝ＯＭ＋（Ｍ−ＯＭ）＊Ｄ Ｚ＝Ｗ／２＋Ｃ（Ｎ）＋（１２８−Ｗ）＊ＳＰ Ｈ＝Ｈ（Ｎ） ＮＶ＄＝ＭＩＤ＄（Ｖ＄，Ｎ＊ＳＰ＋（ＦＮ−Ｎ）＊！ＳＰ，１） Ｙ＝９５＋Ｗ＋Ｈ（Ｎ） ＨＹ＝９５＋Ｗ／４＋Ｈ（Ｎ） ＵＹ＝９５−Ｗ＋Ｈ（Ｎ） Ｌ＝１２７＋Ｚ−Ｗ Ｒ＝１２７＋Ｚ＋Ｗ ＬＬ＝１２７＋Ｚ−Ｗ／１．５ ＬＲ＝１２７＋Ｚ−Ｗ／３ ＲＬ＝１２７＋Ｚ＋Ｗ／３ ＲＲ＝１２７＋Ｚ＋Ｗ／１．５ ＳＬ＝１２７＋Ｚ−Ｗ＊２ ＳＲ＝１２７＋Ｚ＋Ｗ＊２ ＩＦ！Ｎ　ＴＨＥＮ　ＯＹ＝Ｙ　ＯＨＹ＝ＨＹ　ＯＵＹ＝ＵＹ　ＯＬ＝Ｌ　Ｏ＝Ｒ　ＯＬＬ＝ＬＬ　ＯＬＲ＝ＬＲ　ＯＲＬ＝ＲＬ　ＯＲＲ＝ＲＲ ＧＦＩＬＬ　Ｌ，ＯＹ，Ｒ，Ｙ，７ ＧＦＩＬＬ　ＯＬ，ＨＹ，Ｌ，ＯＹ−１，１ ＧＦＩＬＬ　Ｏ，ＨＹ，Ｒ，ＯＹ−１，１ ＧＬＩＮＥ　ＯＬＬ，ＯＹ，ＬＬ，Ｙ，１５ ＧＬＩＮＥ　ＯＬＲ，ＯＹ，ＬＲ，Ｙ，１５ ＧＬＩＮＥ　ＯＲＬ，ＯＹ，ＲＬ，Ｙ，１５ ＧＬＩＮＥ　ＯＲＲ，ＯＹ，ＲＲ，Ｙ，１５ ＩＦ”Ｅ”＝＝ＮＶ＄ＯＲ”Ｆ”＝＝ＮＶ＄ＯＲ”Ｉ”＝＝ＮＶ＄ＯＲ”Ｊ”＝＝ＮＶ＄ＴＨＥＮ　ＧＦＩＬＬ　ＯＬ，ＯＵＹ，Ｌ，ＨＹ−１，１０ ＩＦ”Ｇ”＝＝ＮＶ＄ＯＲ”Ｈ”＝＝ＮＶ＄ＯＲ”Ｉ”＝＝ＮＶ＄ＯＲ”Ｊ”＝＝ＮＶ＄ＴＨＥＮ　ＧＦＩＬＬ　Ｏ，ＯＵＹ，Ｒ，ＨＹ−１，１０ Ｑ＝”Ｂ”＝＝ＮＶ＄ＯＲ”Ｆ”＝＝ＮＶ＄ＯＲ”Ｈ”＝＝ＮＶ＄ＯＲ”Ｊ”＝＝ＮＶ＄ ＩＦ　Ｑ　ＴＨＥＮ　ＧＦＩＬＬ　Ｌ，ＵＹ，Ｒ，ＵＹ＋Ｗ／５，１３ＧＦＩＬＬ　Ｌ，ＵＹ，Ｌ＋Ｗ／１０，ＯＹ−１，１３ＧＦＩＬＬ　Ｒ，ＵＹ，Ｒ−Ｗ／１０，ＯＹ−１，１３ ＩＦ”Ｃ”＝＝ＮＶ＄ＯＲ”Ｄ”＝＝ＮＶ＄ＴＨＥＮ　ＧＦＩＬＬ　ＳＬ，ＵＹ，ＬＬ，ＯＵＹ，１ＧＦＩＬＬ　ＲＲ，ＵＹ，ＳＲ，ＯＵＹ，１ ＩＦ”Ｃ”＝＝ＮＶ＄ＯＲ”Ｄ”＝＝ＮＶ＄ＴＨＥＮ　ＧＦＩＬＬ　ＳＬ，ＯＨＹ，ＯＬ，ＨＹ−１，１３ＧＦＩＬＬ　Ｏ，ＯＨＹ，ＳＲ，ＨＹ−１，１３ ＩＦ”Ｄ”＝＝ＮＶ＄ＴＨＥＮ　ＧＦＩＬＬ　ＬＬ＋１，ＵＹ，ＲＲ−１，ＵＹ＋Ｗ／５，１３ＧＦＩＬＬ　ＳＬ，ＵＹ，ＳＬ＋Ｗ／１０，ＨＹ，１３ＧＦＩＬＬ　ＳＲ−Ｗ／１０，ＵＹ，ＳＲ，ＨＹ，１３ ＩＦ”Ｋ”＝＝ＮＶ＄ＴＨＥＮ　ＧＦＩＬＬ　ＯＬ，ＯＵＹ，Ｏ，ＵＹ，１３ＧＦＩＬＬ　ＯＬ，ＵＹ，Ｌ，ＨＹ−１，１ＧＦＩＬＬ　Ｏ，ＵＹ，Ｒ，ＨＹ−１，１ ＩＦ（Ｎ＜ＦＮ−１）＊ＳＰ　ＴＨＥＮ　ＧＦＩＬＬ　２５５−Ｍ，９５−Ｍ／３，２５５−Ｍ／３，９４−Ｍ／５，ＢＡ　ＧＦＩＬＬ　２５５−Ｍ，９５−Ｍ／５，２５５−Ｍ／３，９４＋Ｍ／１０，ＢＢ ＩＦ（Ｎ＜ＦＮ−１）＊ＳＰ　ＴＨＥＮ　ＧＦＩＬＬ　２５５−Ｍ，９５＋Ｍ／１０，２５５−Ｍ／３，９４＋Ｍ／３，ＢＣ　ＧＦＩＬＬ　２５５−Ｍ，９５＋Ｍ／３，２５５−Ｍ／３，９５＋Ｍ／１．５，１ ＮＥＸＴ ＩＦ！ＢＤ＊ＳＰ　ＴＨＥＮ　ＧＦＩＬＬ　１２７，７０，２０７，１０５，１４ ＩＦ　ＢＤ＊ＳＰ　ＴＨＥＮ　ＧＦＩＬＬ　１３０，７０，１５０，１００，１４ＧＦＩＬＬ　１６０，７０，１７５，１００，１４ＧＦＩＬＬ　１８５，７０，２０５，１００，１４ ＲＥＴＵＲＮ ＠ＯＮＥ ＭＣ＝ＦＬＯＯＲ（（９５−ＹＹ）／（９６／（ＭＡ＋１）））＊（ＹＹ＜９６）−ＦＬＯＯＲ（（ＹＹ−９６）／（９６／（ＭＢ＋２）））＊（ＹＹ＞９５） ＳＰＯＦＳ　０，１２７，ＹＹ ＧＯＴＯ＠ＫＥＹ ＠ＴＷＯ ＭＣ＝ＦＬＯＯＲ（ＹＹ／（１９２／（ＭＡ＋１）））＊（Ｘ＜１２８）−ＦＬＯＯＲ（ＹＹ／（１９２／（ＭＢ＋１）））＊（Ｘ＞１２７） ＳＰＡＮＧＬＥ　１，−４５＋ＹＹ／２＊（Ｘ＜１２８） ＳＰＡＮＧＬＥ　２，４５−ＹＹ／２＊（Ｘ＞１２７） ＠ＫＥＹ ＦＯＲ　ＡＭ＝２ＴＯ　ＭＡ＊（”シ゛ト゛ウシンタ゛ン”＝＝ＴＵ＄） ＩＦ（ＭＣ＞ＡＭ）＊（ＰＳ＜ＳＭ＊（ＡＭ−１）／ＭＡ）ＴＨＥＮ　ＭＣ＝ＡＭ ＮＥＸＴ ＩＦ　ＭＣ＞０ＴＨＥＮ　ＰＳ＝ＰＳ＋（ＳＡ＊ＭＣ＊（ＴＡ＊４＋１）／６０）／（ＰＳ／ＳＭ＋１）ＢＥＥＰ　，ＭＣ＊２００，４０ ＩＦ（ＭＣ＜０）＊（ＭＣ＞＝−ＭＢ）ＴＨＥＮ　ＰＳ＝ＰＳ＋（ＳＢ＊ＭＣ／３０）／（ＰＳ／１００＋１） ＩＦ−ＭＢ＞ＭＣ　ＴＨＥＮ　ＰＳ＝ＰＳ＋（ＳＣ＊ＭＣ／２０）／（ＰＳ／１００＋１） ＩＦ　ＰＳ＞ＳＭ　ＴＨＥＮ　ＰＳ＝ＳＭ ＩＦ　ＰＳ＜０ＴＨＥＮ　ＰＳ＝０ ＩＦ（ＭＯ＜０）＊（ＭＣ＞＝０）ＴＨＥＮ　ＢＥＥＰ　３０，−６１４４ＢＥＥＰ　３０，−６１４４ ＩＦ　ＭＣ＜０ＴＨＥＮ　ＢＥＥＰ　２，８１９２，ＰＳ／１０−ＭＣ＊５０／（ＭＢ＋１）＊（ＰＳ＞０） ＯＤ＝Ｄ Ｄ＝Ｄ＋ＰＳ／５００ ＮＳ＝ＮＳ−ＰＳ／５０００ ＩＦ！ＴＡ＊！ＰＳ＊（ＮＳ＜＝．２）ＴＨＥＮ　Ｉ＝１ ＩＦ！ＴＡ＊（ＮＳ＜＝−．５）ＴＨＥＮ　Ｉ＝１ＰＳ＝０ＢＥＥＰ　１３ ＩＦ　ＴＡ＊（ＮＳ＜＝０）ＴＨＥＮ　Ｉ＝１ＩＦ　ＴＴ＜ＲＦ　ＴＨＥＮ　ＴＴ＝ＴＴ＋１ＮＳ＝ＮＳ＋ＮＳ（ＴＴ）＊１０ ＬＯＣＡＴＥ　１，２２ ＩＦ　ＮＳ＜０ＴＨＥＮ　ＣＯＬＯＲ　１３？”−”；ＥＬＳＥ　ＣＯＬＯＲ　４？”　”； ＩＦ　ＮＳ＞＝１ＴＨＥＮ？”　”ＮＳ／１０”　”＊４：ＬＯＣＡＴＥ　９，２２？”ｋｍ ＩＦ　ＮＳ＜１ＴＨＥＮ？”　”＊（ＡＢＳ（ＮＳ）＜．１）ＡＢＳ（ＮＳ）＊１００”　”＊４：ＬＯＣＡＴＥ　９，２２？”ｍ ＣＰ＝ＶＡＬ（ＬＥＦＴ＄（Ｃ＄，１））−５ ＨＰ＝ＶＡＬ（ＬＥＦＴ＄（Ｈ＄，１））−５ ＩＦ　Ｄ＞＝１ＴＨＥＮ　ＧＯＳＵＢ＠Ｇ＿ＲＥＡＤ　ＥＬＳＥ　Ｇ＝Ｇ−ＣＰ＊（Ｄ−ＯＤ）＊８／（ＴＡ／２＋１）ＨＡ＝ＨＡ＋ＨＰ＊ＰＳ／５００Ａ＝Ａ＋ＣＰ＊ＰＳ／５００ Ｇ＝（Ｇ＋（Ｇ＜０）−（Ｇ＞０））＊（ＡＢＳ（Ｇ）＞＝１） ＩＦ　Ｇ＞１２７ＴＨＥＮ　ＰＳ＝０Ｇ＝１００ＢＥＥＰ　１３ ＩＦ　Ｇ＜−１２７ＴＨＥＮ　ＰＳ＝０Ｇ＝−１００ＢＥＥＰ　１３ ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　２６，２０？”　”＊（（ＰＳ＜１０）＋（ＰＳ＜１００））ＦＬＯＯＲ（ＰＳ） ＳＰＰＡＧＥ　０ ＳＰＡＮＧＬＥ　０，−１３５＋ＰＳ／ＳＭ＊２７０ ＳＰＯＦＳ　１，１２７＋Ｇ，１７５ ＳＰＡＮＧＬＥ　２，ＨＡ ＲＥＴＵＲＮ ＠Ｇ＿ＲＥＡＤ Ｄ＝Ｄ−１ Ｇ＝Ｇ−ＣＰ＊（１−ＯＤ）＊８／（ＴＡ／２＋１） ＨＡ＝ＨＡ＋ＨＰ＊（１−ＯＤ） Ｇ＝Ｇ−（ＶＡＬ（ＭＩＤ＄（Ｃ＄，１，１））−５）＊Ｄ＊８／（ＴＡ／２＋１） ＨＡ＝ＨＡ＋（ＶＡＬ（ＭＩＤ＄（Ｈ＄，１，１））−５）＊Ｄ ＠ＲＥＡＤ Ａ＝Ａ＋（ＶＡＬ（ＬＥＦＴ＄（Ｃ＄，１））−５）＊（１−ＯＤ） Ａ＝Ａ＋（ＶＡＬ（ＭＩＤ＄（Ｃ＄，１，１））−５）＊（Ｄ−１） ＲＥＡＤ　Ｒ＄ ＩＦ　Ｒ＄＝＝”ＥＥＥ”ＴＨＥＮ　ＲＥＳＴＯＲＥ＠０　ＲＥＡＤ　Ｒ＄ Ｃ＄＝ＲＩＧＨＴ＄（Ｃ＄，２５５）＋ＬＥＦＴ＄（Ｒ＄，１） Ｈ＄＝ＲＩＧＨＴ＄（Ｈ＄，２５５）＋ＭＩＤ＄（Ｒ＄，１，１） Ｖ＄＝ＲＩＧＨＴ＄（Ｖ＄，２５５）＋ＲＩＧＨＴ＄（Ｒ＄，１） ＲＥＴＵＲＮ ＠０ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ ＤＡＴＡ　ＥＥＥ ＠Ｅ２３３ ＤＡＴＡ　１３，１３，６，０，１２０，３，５，５．５，３１８．８，６，４，ＤＣ１５００Ｖ，６，ＶＶＶＦインハ゛ータ，１４０，ワンハント゛ル，シ゛ト゛ウシンタ゛ン，４，７ ＠ＳＰ０１ ＤＡＴＡ　１５，１５，５，０，１４０，３．４，４．５，５，１７８．２，４，０，ＤＣ１５００Ｖ，１０，ＶＶＶＦインハ゛ータ，１５０，ワンハント゛ル，シ゛ト゛ウシンタ゛ン，５，７ ＠ＫＨ８０００ ＤＡＴＡ　８，８，２，１，１２０，２．５，４，４．５，２３１，４，４，ＤＣ１５００Ｖ，８９，カイシ゛イソウ，１７５，ワンハント゛ル，シ゛ト゛ウシンタ゛ン，４，７ ＠ＴＹＰＥ＿９９９ ＤＡＴＡ　１４，１，１４，０，１４０，２．４，３，３．５，１５２．８，１，７，ＤＣ１５００Ｖ，５５，テイコウセイキ゛ョ，２００，ツーハント゛ル，シ゛ト゛ウシンタ゛ン，３，５ ＠ＫＱ２１００ ＤＡＴＡ　２，１５，２，０，１３０，３．５，４，４．５，２２９，４，４，ＤＣ１５００Ｖ，９８，ＶＶＶＦインハ゛ータ，１９０，ワンハント゛ル，シ゛ト゛ウシンタ゛ン，４，７ ＠ＮＥＷ＿ＲＤ１０００ ＤＡＴＡ　２，２，２，１，１２０，４，４．５，５，２５２．２，４，４，ＤＣ１５００Ｖ，８，ＶＶＶＦインハ゛ータ，１５０，ワンハント゛ル，シ゛ト゛ウシンタ゛ン，５，７ ＠ＨＱ２０００ ＤＡＴＡ　１３１，１３１，１３１，１，１２０，２．８，４，４．５，２２４．４，４，４，ＤＣ１５００Ｖ，６０，テイコウセイキ゛ョ，１５０，ツーハント゛ル，シ゛ト゛ウシンタ゛ン，４，７ ＠ＢＬ＿ＬＩＮＥ ＤＡＴＡ　４，５，６ ＤＡＴＡ　１，６０，１，４０，１，４０，１，４０，１，４０ ＤＡＴＡ　５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ ＤＡＴＡ　５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ ＤＡＴＡ　５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ ＤＡＴＡ　７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ ＤＡＴＡ　４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，４５Ａ，４５Ｂ ＤＡＴＡ　４５Ａ，４５Ｂ，４５Ａ，４５Ｂ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ ＤＡＴＡ　５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，３５Ａ，３５Ｂ，３５Ａ，３５Ｂ，３５Ａ，３５Ｂ，３５Ａ，３５Ｂ ＤＡＴＡ　３５Ａ，３５Ｂ，３５Ａ，３５Ｂ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ ＤＡＴＡ　５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　６５Ａ，６５Ｂ，６５Ａ，６５Ｂ，６５Ａ，６５Ｂ，６５Ａ，６５Ｂ，６５Ａ，６５Ｂ，６５Ａ，６５Ｂ，６５Ａ，６５Ｂ，６５Ａ，６５Ｂ，６５Ａ，６５Ｂ，６５Ａ，６５Ｂ ＤＡＴＡ　７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ，７５Ａ，７５Ｂ ＤＡＴＡ　８５Ａ，８５Ｂ，８５Ａ，８５Ｂ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ ＤＡＴＡ　５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　ＥＥＥ ＠ＣＯＡＳＴ＿ＬＩＮＥ ＤＡＴＡ　８９，３，４ ＤＡＴＡ　１，７０，１，２５，１，４０ ＤＡＴＡ　６５Ｃ，６５Ｄ，６５Ｃ，６５Ｄ，６５Ｇ，６５Ｈ，６５Ｇ，６５Ｈ，５５Ｇ，５５Ｇ，５５Ｇ，５５Ｈ，５５Ｇ，５５Ｇ，５５Ｇ，５５Ｈ，５５Ｇ，５５Ｇ，５５Ｇ，５５Ｈ ＤＡＴＡ　３２Ｇ，３２Ｈ，３２Ｇ，３２Ｈ，３２Ｇ，３２Ｈ，３２Ｇ，３２Ｈ，３２Ｇ，３２Ｈ，３２Ｇ，３２Ｈ，３３Ｉ，３３Ｊ，３３Ｉ，３３Ｊ，３４Ｉ，３４Ｊ，３４Ｉ，３４Ｊ ＤＡＴＡ　５５Ｅ，５５Ｅ，５５Ｅ，５５Ｆ，５５Ｅ，５５Ｅ，５５Ｅ，５５Ｆ，５５Ｅ，５５Ｅ，６６Ｅ，６６Ｆ，６６Ｅ，６６Ｆ，６６Ｅ，６６Ｆ，６６Ｅ，６６Ｆ，６６Ｅ，６６Ｆ ＤＡＴＡ　５５Ｅ，５５Ｅ，５５Ｅ，５５Ｆ，５５Ｅ，５５Ｅ，５５Ｅ，５５Ｆ，５５Ｅ，５５Ｅ，５５Ｅ，５５Ｆ，５５Ｅ，５５Ｅ，５５Ｅ，５５Ｆ，５５Ｅ，５５Ｅ，５５Ｅ，５５Ｆ ＤＡＴＡ　５５Ｅ，５５Ｅ，５５Ｅ，５５Ｆ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ ＤＡＴＡ　５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ ＤＡＴＡ　５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ，５６Ｋ ＤＡＴＡ　５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ ＤＡＴＡ　５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ ＤＡＴＡ　５５Ｉ，５５Ｉ，５５Ｉ，５５Ｊ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ ＤＡＴＡ　５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５６Ｉ，５６Ｉ，５６Ｉ，５６Ｊ，５６Ｉ，５６Ｉ，５６Ｉ，５６Ｊ，５６Ｉ，５６Ｉ，５６Ｉ，５６Ｊ，５６Ｉ，５６Ｉ，５６Ｉ，５６Ｊ ＤＡＴＡ　９５Ｉ，９５Ｊ，９５Ｉ，９５Ｊ，９５Ｉ，９５Ｊ，９５Ｉ，９５Ｊ，９５Ｉ，９５Ｊ，２６Ｉ，２６Ｊ，２６Ｉ，２６Ｊ，２６Ｉ，２６Ｊ，２６Ｉ，２６Ｊ，２６Ｉ，２６Ｊ ＤＡＴＡ　５４Ｉ，５４Ｉ，５４Ｉ，５４Ｊ，５４Ｉ，５４Ｉ，５４Ｉ，５４Ｊ，５４Ｉ，５５Ｉ，５５Ｉ，５５Ｊ，５５Ｉ，５５Ｉ，５５Ｉ，５５Ｊ，５５Ｉ，５５Ｉ，５５Ｉ，５５Ｊ ＤＡＴＡ　５５Ｉ，５５Ｉ，５５Ｉ，８５Ｊ，８５Ｉ，８５Ｋ，８５Ｋ，８５Ｋ，８５Ｋ，８５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，５５Ｋ，３５Ｋ，３５Ｋ，３５Ｋ，３５Ｋ，３５Ｋ，３５Ｋ ＤＡＴＡ　３５Ｋ，３５Ｋ，３５Ｋ，３５Ｋ，３５Ｃ，３５Ｄ，３５Ｃ，３５Ｄ，３５Ｃ，３５Ｄ，３５Ｃ，３５Ｄ，３５Ｃ，３５Ｄ，３５Ｃ，３５Ｄ，３５Ｃ，３５Ｄ，３５Ｃ，３５Ｄ ＤＡＴＡ　５５Ｃ，５５Ｃ，５５Ｃ，５５Ｄ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ，５５Ａ，５５Ａ，５５Ａ，５５Ｂ ＤＡＴＡ　ＥＥＥ

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

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

• ゆうあし : 電車でDかな？それとも電車でgoかな？ (2014/09/05 (金) 16:49:30)
• ゆうあし : 楽しみですな (2014/09/05 (金) 16:52:57)
• Gセーバー : お待たせしてすみません。QRコードのリンクを貼りました。 (2014/09/05 (金) 17:26:50)
• 名無しさん : タイトルを見て天郷さんの投稿かと思った (2014/09/05 (金) 18:22:57)
• Gセーバー : 指摘ありがとうございます。ページ名を変えました。 (2014/09/05 (金) 20:12:48)
• Gセーバー : 天郷思音さんゲーム名が被ってしまいすみませんでした。 (2014/09/05 (金) 20:27:53)
• シトリン : またプチコナーに鉄ちゃん登場だ！ (2014/09/05 (金) 21:41:42)
• 天郷思音 : おおおおおw 電動機出力とか書いてるけどどういうシミュレートしてるんだろ。BVE並にまじめにやったら遅過ぎて死ぬだろうからそれ未満だと思うけど。 (2014/09/06 (土) 21:01:38)
• 天郷思音 : QRティザかかってて読めない (2014/09/06 (土) 21:04:06)
• Gセーバー : 指摘ありがとうございます。画質上げてみました。 (2014/09/07 (日) 08:48:42)
• 天郷思音 : VVVFインバータ制御の進段ってなんだよ (2014/09/07 (日) 08:49:28)
• 天郷思音 : そもそもなぜにjpgなんだよというのが突っ込み　QRはjpgでも画質が下がる割にファイルサイズはいまいちで (2014/09/07 (日) 08:50:39)
• Gセーバー : 実は電動機出力などは書いているだけだったりします。 (2014/09/07 (日) 09:04:16)
• ゆうあし : 普通に音がリアルだと思った（素人目線） (2014/09/07 (日) 10:59:17)
• Gセーバー : ご指摘ありがとうございます。QR貼り変えてみました。pngのアップロード方法がわからないのでjpgのままですが… (2014/09/07 (日) 12:53:23)
• 天郷思音 : FC2私も使ってるけど普通に貼ってる。なんでできないんだろ。 (2014/09/07 (日) 13:07:46)
• 天郷思音 : DIM使ってるのにCLEARないとか初期化が大変にまずい。 (2014/09/28 (日) 18:10:43)

お名前: