投稿プログラム : Drop-m(リズムゲーム)

パンくずリスト

このページの最終更新 : 2021/09/17 (金) 00:31:04
公式アーカイブのリンク: http://wiki.hosiken.jp/petc/html/Toukou/Drop2D-m.html
概要
スクリーンショット・動画
QR コード
プログラムリスト
CHECKER FLAG (ひとことコメント)
2021年8月9日投稿 / 投稿者 : Na / タグ : 投稿プログラムゲーム音楽リズムゲーム音ゲー MML オリジナル曲 QRコード mkII専用 Dropシリーズ
概要

右上から転がってくる音符を音楽に合わせて叩くリズムゲームです。
プリセット3曲、オリジナル4曲の合計7曲収録しています。
前作のDrop-eもどうぞ。3号版はDrop-3s
前作との違い

収録曲が完全に違います。
- 今作では全体的に1曲ごとの長さを短めにしました。
グラフィックやフォントが全体的に変わりました。
「チャレンジモード」「チュートリアル」を追加しました。
十字キー上下で曲選択
Xボタン、または十字キー左右で難易度選択(かんたん=水色背景、むずい=橙色背景の2つ)
Aボタンでゲームを始める
Yボタンでオートプレイを見る(フリープレイのみ)
Bボタンで戻る
SELECTで強制終了せずにタイトルで「やめる」を選択して終了すると、各リソースがＣＨＲＩＮＩＴされます。
遊び方

「チュートリアル」があるのでそちらも見てください。
流れてくる音符が斜面と水平面の境界ぐらいに来たらどれかのボタンを押します。
色がそれぞれ違いますが押すボタンはどれでもOKです。
また、大きい音符の場合は2個のボタンを同時に押す必要があります。
STARTボタンで曲を途中で終了してメニューに戻ることができます。
フリープレイ

曲と難易度を選んでプレイする、前作と同じモードです。
クリア(80000点以上)すると★が1つ、
クリアかつフルコンボすると★が2つ、
全て「よい」判定でフルコンボすると★が3つもらえます。
チャレンジ

7曲連続でプレイします。
プレイ画面にHPゲージが表示され、HPが0になるとゲームオーバーです。
- HPは「よい」「ふつう」判定で回復し、「だめ」「ミス」判定で減ります。
- 曲が終了してもHPは回復せず、そのまま次の曲に引き継がれます。
音符を叩くと「スコア」の代わりに「MP」が増えます。パーフェクト時で1曲あたり最大150点になります。
それぞれの曲の前後に、キャラクターのちょっとしたアニメーション(ストーリー)が見れます。
- 曲の結果(クリア・フルコンボ・パーフェクト)によって、キャラの動きやセリフが少し変わります。
チュートリアル

ゲームの遊び方の説明が見れます。
曲前半はオートプレイで、後半はプレイヤーがプレイしてください。
選んでいる難易度(背景の色)によってチュートリアルも少し難易度が変わります。
収録曲

BGM00 (プリセット)
プチコマジック！ (オリジナル、3号より移植)
BGM25 (プリセット)
きょこうのりすたーと (オリジナル、3号で公開した曲*1のアレンジ)
BGM22 (プリセット)
Sudden (オリジナル)
Limitelody (オリジナル)
その他にもタイトル画面、チャレンジモードのストーリー中のBGMなど、オリジナルの曲がいくつかあります。
スクリーンショット・動画

直撮り、あまりきれいではない
QR コード

プチコンmkII 向けの QR コードです。
パッケージパラメーターはＦ３Ｅ４です。
プログラムリスト

譜面データとMMLを除き、約3500行
GOTOとGOSUBを多用してわけわからんことになってます
やたらコメントアウトが多い気がするが、動けばよし！(おい)
Wikiの仕様で&#の数値文字参照に置き換えられてしまった文字があるっぽいです
’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
’　Ｄｒｏｐ－ｍ　　ｂｙ　Ｎａ　
’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

’ＳＡＶＥ　”ＮＡ＿ＤＲＰＭ”，”Ｆ３Ｅ４”
’Ｐａｃｋａｇｅ：
’　ＳＰＵ２，５，６，７，ＢＧＵ０，１
’　ＢＧＦ０，ＣＯＬ０，１，２

’ＬＩＳＴ　＠ＬＩＳＴ

’ＣＯＬ２Ｕ　　２？　Ａ？
’センキョク　０１ＣＤＥＦ
’コンホ゛　　０３
’シ゛メン　　４
’ＣＯＬ２Ｌ
’スコア　　　Ｆ
’リサ゛ルト　０３

ＩＣＯＮＣＬＲ
ＰＮＬＴＹＰＥ　”ＯＦＦ”
ＣＯＬＯＲ　０，０：ＣＬＳ
ＧＰＡＧＥ　１，１，１：ＧＣＯＬＯＲ　０
ＦＯＲ　Ｐ＝３　ＴＯ　０　ＳＴＥＰ　－１
　ＧＰＡＧＥ　０，Ｐ，０：ＧＣＯＬＯＲ　０：ＧＣＬＳ　
ＮＥＸＴ
ＧＤＲＡＷＭＤ　０
ＳＰＰＡＧＥ　１：ＳＰＣＬＲ　
ＳＰＰＡＧＥ　０：ＳＰＣＬＲ　
ＢＧＰＡＧＥ　１：ＢＧＣＬＲ　
ＢＧＰＡＧＥ　０：ＢＧＣＬＲ　
ＢＧＯＦＳ　０，０，０：ＢＧＯＦＳ　１，０，０
ＣＬＥＡＲ
ＢＧＭＳＴＯＰ　

ＤＥＢＵＧ＝０

？”Ｌｏａｄｉｎｇ．．．
ＭＥＭ＄＝””
ＳＹＳＢＥＥＰ＝０
ＳＡＶＦＩＬＥ＄＝”ＭＥＭ：ＮＡ＿ＤＲＰＭ”
ＬＯＡＤ　ＳＡＶＦＩＬＥ＄，０

ＩＦ　ＰＡＣＫＡＧＥ＄＝＝”Ｆ３Ｅ４”　ＴＨＥＮ　＠ＬＤＳＫＩＰ
’ＬＯＡＤ　”ＢＧＵ０Ｕ：ＳＬＯＰ”，０
ＬＯＡＤ　”ＢＧＵ１Ｕ：ＤＲＯＰＭ＿ＬＧ”，０
’ＬＯＡＤ　”ＳＰＵ１Ｕ：ＮＵＭ１６”，０
’ＬＯＡＤ　”ＳＰＵ２Ｕ：ＤＲＯＰＶ＿Ｓ２”，０
’ＬＯＡＤ　”ＳＣＵ０Ｕ：ＤＲＰ２”，０
’ＬＯＡＤ　”ＢＧＦ０Ｕ：ＨＩＲＡＫＡＴＡ”，０

ＬＯＡＤ　”ＣＯＬ０Ｕ：ＤＲＯＰＭ＿ＧＢ”，０
ＬＯＡＤ　”ＣＯＬ２Ｕ：ＤＲＯＰＭ＿Ｇ”，０
’ＬＯＡＤ　”ＧＲＰ２：ＤＲＯＰＭ＿Ｇ”，０
ＬＯＡＤ　”ＳＰＵ７Ｕ：ＳＢＣＨ＿Ｘ０１”，０
’ＬＯＡＤ　”ＣＯＬ１Ｕ：ＳＢＣＬ＿Ｘ０１”，０
ＬＯＡＤ　”ＳＰＵ２Ｕ：ＮＵＭ１６＿Ｖ”，０
ＬＯＡＤ　”ＢＧＦ０Ｕ：ＤＲＯＰＭ＿Ｆ”，０
ＬＯＡＤ　”ＳＰＵ５Ｕ：ＤＲＯＰＭ＿Ｆ１”，０
ＬＯＡＤ　”ＣＯＬ１Ｕ：ＤＲＯＰＭ＿ＳＰ”，０
ＬＯＡＤ　”ＳＰＵ６Ｕ：ＤＲＯＰＭ＿Ｓ６”，０
ＬＯＡＤ　”ＢＧＵ０Ｕ：ＤＲＯＰＭ＿ＧＢ”，０

ＢＥＥＰ　
＠ＬＤＳＫＩＰ

ＳＰＮＵＭ１６＝６４＊２
ＳＰＮＵＭ１２＝６４＊２＋３２
ＳＰＳＴＡＲ＝６４＊２＋２８
ＳＰＮＯＴＥ＝６４＊２＋１６

ＳＰＸ０１＝６４＊７
ＳＰＸ０３＝６４＊６
ＳＰＦ１＝６４＊５

ＳＰＮＵＭ１６＿Ｌ＝６４＊０
ＳＰＳＴＡＲ＿Ｌ＝６４＊０＋２８
ＳＰＮＵＭ８＿Ｌ＝６４＊１

＠ＰＦＯＮＴＤＡＴ
ＤＡＴＡ　－１，０，０，７，０，７，０，８，０，７，０，７，０，７，０，７，０，７，１，６，０，７，０，７，０，７，１，６，０，７，０，７
ＤＡＴＡ　０，７，０，７，０，７，０，７，０，７，０，７，０，７，０，１，０，７，０，７，０，７，０，７，１，６，１，６，２，５，２，５
ＤＡＴＡ　－１，０，３，１，１，３，１，５，１，５，１，５，１，５，２，２，２，３，２，３，１，５，１，５，２，２，１，５，２，２，１，６
ＤＡＴＡ　１，５，２，３，１，５，１，５，１，５，１，５，１，５，１，５，１，５，１，５，２，２，１，３，２，４，１，５，１，４，１，５
ＤＡＴＡ　１，５，０，７，０，６，０，６，０，６，０，６，０，６，０，７，０，７，２，３，１，５，０，７，０，６，０，７，０，７，０，６
ＤＡＴＡ　０，６，０，６，０，７，０，６，０，７，０，７，０，７，０，７，０，７，０，７，１，５，２，３，１，５，２，３，１，５，０，７
ＤＡＴＡ　２，２，１，６，０，６，１，５，１，６，１，５，２，４，１，５，０，６，２，３，２，３，０，６，２，３，０，６，０，６，１，５
ＤＡＴＡ　０，６，１，６，０，５，１，５，２，４，０，６，０，６，０，７，１，５，０，６，１，５，２，４，３，１，１，４，１，５，０，７
ＤＡＴＡ　０，７，１，３，２，４，１，４，１，３，２，２，０，６，０，６，０，６，０，５，０，６，０，６，０，６，０，６，０，６，０，５
ＤＡＴＡ　１，５，０，７，０，７，０，６，０，７，０，７，０，７，０，６，１，４，０，７，０，７，０，６，０，６，０，７，０，７，０，６
ＤＡＴＡ　０，７，１，３，２，４，１，４，１，３，２，２，０，６，０，５，１，４，０，５，０，５，０，５，０，５，０，６，１，４，０，５
ＤＡＴＡ　１，５，０，７，０，６，０，７，０，７，０，７，０，６，０，７，０，６，０，７，０，６，０，７，０，７，０，６，０，６，０，６
ＤＡＴＡ　０，６，０，７，０，７，０，７，０，５，０，６，０，６，０，６，０，７，０，６，０，６，０，６，０，６，０，７，０，７，０，７
ＤＡＴＡ　０，６，０，７，０，６，０，７，０，７，０，７，０，６，０，６，０，５，０，７，０，６，０，６，０，６，０，６，０，４，０，４
ＤＡＴＡ　０，７，０，６，０，７，０，７，０，６，０，７，０，７，０，７，０，７，０，７，０，７，０，７，０，７，０，７，０，７，０，６
ＤＡＴＡ　０，７，０，７，０，７，０，７，０，７，０，７，０，６，０，６，０，５，０，６，０，７，０，６，０，７，０，７，０，４，０，４
ＤＩＭ　ＰＦＴ＿Ｓ［２５６］，ＰＦＴ＿Ｗ［２５６］
ＲＥＳＴＯＲＥ　＠ＰＦＯＮＴＤＡＴ
ＦＯＲ　Ｉ＝０　ＴＯ　２５５
　ＲＥＡＤ　ＰＦＴ＿Ｓ［Ｉ］，ＰＦＴ＿Ｗ［Ｉ］
ＮＥＸＴ
’　゛　ノ　チョウセイ
ＰＦＴ＿Ｓ［＆ＨＤＥ］＝１
ＰＦＴ＿Ｓ［＆ＨＦＥ］＝１

＠ＰＦＯＮＴＤ＿１
’０１２３４５６７８９ａｂｃｄｅｆ
’ＢＧＭＬＳＰ　　　　　　　　ハイ
’ｉｍｔｅｌｏｄｙｕｎチュマシッ　
’ハイスコアクリフルンホェトャレシ
’゛゜！－コウシンキョノリスタトッ
ＤＡＴＡ　１，８，２，８，１，１０，１，８，２，７，１，８，－１，０，－１，０，－１，０，－１，０，－１，０，－１，０，－１，０，－１，０，１，１０，２，８
ＤＡＴＡ　２，３，１，１１，１，７，２，６，２，３，２，６，２，７，１，８，１，７，１，７，１，１０，１，９，１，１０，２，９，２，７，－１，０
ＤＡＴＡ　１，１０，２，８，２，９，２，８，１，１０，２，８，２，６，１，９，１，１０，２，９，２，９，１，９，２，６，１，８，２，８，２，９
ＤＡＴＡ　２，５，１，５，２，２，２，９，２，９，１，８，３，６，１，９，２，９，２，７，２，１０，２，７，１，９，１，１０，３，８，２，７
ＤＩＭ　ＰＦＴ１＿Ｓ［６４］，ＰＦＴ１＿Ｗ［６４］
ＦＯＲ　Ｉ＝０　ＴＯ　６３
　ＲＥＡＤ　ＰＦＴ１＿Ｓ［Ｉ］，ＰＦＴ１＿Ｗ［Ｉ］
ＮＥＸＴ
’　゛　ノ　チョウセイ
ＰＦＴ１＿Ｓ［＆Ｈ３０］＝４：ＰＦＴ１＿Ｗ［＆Ｈ３０］＝４

ＳＹＳＢＥＥＰ＝１

ＢＲＥＰＥＡＴ　０，１３，８
ＢＲＥＰＥＡＴ　１，１３，８
ＢＲＥＰＥＡＴ　２，２０，１１
ＢＲＥＰＥＡＴ　３，２０，１１
ＢＲＥＰＥＡＴ　４
ＢＲＥＰＥＡＴ　５
ＢＲＥＰＥＡＴ　６
ＢＲＥＰＥＡＴ　７
ＳＰＰＡＧＥ　０
ＢＧＰＡＧＥ　０
ＧＰＡＧＥ　０，０，０

ＦＯＲ　Ｉ＝０　ＴＯ　２５５
　’ＳＰＵ２カラＳＰＳ０Ｌニコヒ゜－
　ＣＨＲＲＥＡＤ（”ＳＰＵ２”，Ｉ），Ｃ＄
　ＣＨＲＳＥＴ　”ＳＰＳ０Ｌ”，Ｉ，Ｃ＄
’　’ＢＧＦ０カラＢＧＵ３ニコヒ゜－
’　ＣＨＲＲＥＡＤ（”ＢＧＦ０”，Ｉ），Ｃ＄
’　Ｃ２＄＝””
’　ＦＯＲ　Ｊ＝０　ＴＯ　６３
’　　ＩＦ　ＭＩＤ＄（Ｃ＄，Ｊ，１）＝＝”０”　ＴＨＥＮ　Ｃ２＄＝Ｃ２＄＋”３”　ＥＬＳＥ　Ｃ２＄＝Ｃ２＄＋”Ｄ”
’　ＮＥＸＴ
’　ＣＨＲＳＥＴ　”ＢＧＵ３”，Ｉ，Ｃ２＄
’　’ＢＧＦ０カラＢＧＦ０Ｌニコヒ゜－
’　ＣＨＲＲＥＡＤ（”ＢＧＦ０”，Ｉ），Ｃ＄
’　ＣＨＲＳＥＴ　”ＢＧＦ０Ｌ”，Ｉ，Ｃ＄
ＮＥＸＴ

ＦＯＲ　Ｉ＝０　ＴＯ　９
　ＣＨＲＲＥＡＤ（”ＢＧＦ０”，４８＋Ｉ），Ｃ＄
　ＣＨＲＳＥＴ　”ＳＰＵ０”，Ｉ＊４，Ｃ＄
　ＣＨＲＳＥＴ　”ＳＰＳ１Ｌ”，Ｉ＊４，Ｃ＄
ＮＥＸＴ

’キョクセンタクノＢＧ
’０００１１
’０１１１１
’０１１１１
’１１１１１
’１１１１１
’ＣＨＲＳＥＴ　”ＢＧＵ０Ｕ”，＆ＨＡＤ，”０”＊（８＊３＋６）＋”２２００００２２２２００００２２２２０００２２２２２０００２２２２２”
’ＣＨＲＳＥＴ　”ＢＧＵ０Ｕ”，＆ＨＡＥ，”０”＊（８＊３）＋”２”＊（８＊５）
’ＣＨＲＳＥＴ　”ＢＧＵ０Ｕ”，＆ＨＡＦ，”０”＊（８＊３）＋”２２００００００２２２２００００２２２２００００２２２２２０００２２２２２０００”
’ＣＨＲＳＥＴ　”ＢＧＵ０Ｕ”，＆ＨＣＤ，”０００２２２２２”＊４＋”０００１１１１１”＊４
’ＣＨＲＳＥＴ　”ＢＧＵ０Ｕ”，＆ＨＣＥ，”２”＊（８＊４）＋”１”＊（８＊４）
’ＣＨＲＳＥＴ　”ＢＧＵ０Ｕ”，＆ＨＣＦ，”２２２２２０００”＊４＋”１１１１１０００”＊４
’ＣＨＲＳＥＴ　”ＢＧＵ０Ｕ”，＆ＨＥＤ，”０００１１１１１０００１１１１１００００１１１１００００１１１１００００００１１”＋”０”＊（８＊３）
’ＣＨＲＳＥＴ　”ＢＧＵ０Ｕ”，＆ＨＥＥ，”１”＊（８＊５）＋”０”＊（８＊３）
’ＣＨＲＳＥＴ　”ＢＧＵ０Ｕ”，＆ＨＥＦ，”１１１１１０００１１１１１０００１１１１００００１１１１００００１１”＋”０”＊（８＊３＋６）

’ＳＣＲ
’ｓｌｏｐ　０，１：（０，４０）~（３１，６３）
’ｇｒｎｄ　０：（０，３３）~（３１，３８）
’ｌｏｇｏ　１：（０，１９）~（３１，３９）
’ｍｅｎｕ　０，１：（３２，０）~

Ｓ１＄＝”　ＣＤＥ＜＞？”＋”６３”＊１６
Ｓ２＄＝”ＡＢＥ＠；＝”＋”６３”＊１６
ＦＯＲ　Ｉ＝０　ＴＯ　１３　ＳＴＥＰ　２
　Ｙ＝３９＋Ｉ
　Ｊ＝０
　ＦＯＲ　Ｘ＝２８－３＊Ｉ／２　ＴＯ　３１
　　ＢＧＰＵＴ　１，Ｘ，Ｙ，＆Ｈ４０００＋ＡＳＣ（ＭＩＤ＄（Ｓ１＄，Ｊ，１））－３２
　　ＢＧＰＵＴ　１，Ｘ，Ｙ＋１，＆Ｈ４０００＋ＡＳＣ（ＭＩＤ＄（Ｓ２＄，Ｊ，１））－３２
　　Ｊ＝Ｊ＋１
　ＮＥＸＴ
ＮＥＸＴ

Ｓ３＄＝”１４７４７４７９＜＞？”＋”６３”＊１６
Ｓ４＄＝”２５８５８５８：；＝”＋”６３”＊１６
Ｊ＝０
ＦＯＲ　Ｘ＝３　ＴＯ　３１
　ＢＧＰＵＴ　１，Ｘ，５３，＆Ｈ４０００＋ＡＳＣ（ＭＩＤ＄（Ｓ３＄，Ｊ，１））－３２
　ＢＧＰＵＴ　１，Ｘ，５４，＆Ｈ４０００＋ＡＳＣ（ＭＩＤ＄（Ｓ４＄，Ｊ，１））－３２
　Ｊ＝Ｊ＋１
ＮＥＸＴ

ＢＧＦＩＬＬ　１，３，５５，３，６３，”４０１０”
ＢＧＦＩＬＬ　１，４，５５，３１，６３，”４０１３４０１６”
ＳＣＸ＿ＳＬＯＰ＝－４
ＳＣＹ＿ＳＬＯＰ＝３９＊８＋６

ＦＯＲ　Ｙ＝０　ＴＯ　３
　ＦＯＲ　Ｘ＝０　ＴＯ　７
　　ＢＧＰＵＴ　０，２３＋Ｘ，４０＋１０＋Ｙ，＆Ｈ０１００＋Ｙ＊３２＋Ｘ＋２４
　ＮＥＸＴ
ＮＥＸＴ

ＢＧＦＩＬＬ　０，０，３３，３１，３３，”４０１４４０１７”
ＢＧＦＩＬＬ　０，０，３４，３１，３４，”４０１５４０１８”
ＢＧＦＩＬＬ　０，０，３５，３１，３８，”４０１３４０１６”
ＳＣＸ＿ＧＲＮＤ＝０
ＳＣＹ＿ＧＲＮＤ＝（３９－２４）＊８－２
ＧＹ＿ＧＲＮＤ＝１９２－６＊８＋２
ＣＨＡ＿ＧＹ＝１９２－４３

ＦＯＲ　Ｙ＝０　ＴＯ　７
　ＦＯＲ　Ｘ＝０　ＴＯ　１６
　　ＢＧＰＵＴ　１，Ｘ＋７，Ｙ＋２４，＆Ｈ０１００＋Ｙ＊３２＋Ｘ
　ＮＥＸＴ
　ＦＯＲ　Ｘ＝０　ＴＯ　５＋（Ｙ＞＝４）
　　ＢＧＰＵＴ　１，Ｘ＋２４，Ｙ＋２７，＆Ｈ０１００＋Ｙ＊３２＋Ｘ＋１８
　ＮＥＸＴ
ＮＥＸＴ


ＧＰＡＧＥ　０，２，０
Ｙ＝０
ＧＰＵＴＣＨＲ　０，Ｙ＊８，”ＢＧＵ０”，＆Ｈ１４，＆Ｈ４，１
ＧＰＵＴＣＨＲ　８，Ｙ＊８，”ＢＧＵ０”，＆Ｈ１７，＆Ｈ４，１
Ｙ＝１
ＧＰＵＴＣＨＲ　０，Ｙ＊８，”ＢＧＵ０”，＆Ｈ１５，＆Ｈ４，１
ＧＰＵＴＣＨＲ　８，Ｙ＊８，”ＢＧＵ０”，＆Ｈ１８，＆Ｈ４，１
ＦＯＲ　Ｙ＝２　ＴＯ　５
　ＧＰＵＴＣＨＲ　０，Ｙ＊８，”ＢＧＵ０”，＆Ｈ１３，＆Ｈ４，１
　ＧＰＵＴＣＨＲ　８，Ｙ＊８，”ＢＧＵ０”，＆Ｈ１６，＆Ｈ４，１
ＮＥＸＴ
ＦＯＲ　Ｘ＝２　ＴＯ　３１　ＳＴＥＰ　１／４０９６
　ＧＣＯＰＹ　２，０，０，Ｘ＊８－１，６＊８－１，Ｘ＊８，０，１
　Ｘ＝Ｘ＊２
ＮＥＸＴ
ＧＰＡＧＥ　０，０，０


ＧＳ＝１：ＧＰ＝０：ＧＰＰ＝１

’イロセッテイ
ＥＸ＝０：ＮＥＸ＝０
ＤＩＭ　ＢＧ＿Ｃ＄［２］，ＢＴＮ＿Ｃ＄［３，２］

ＢＧ＿ＣＲ＝０：ＢＧ＿ＣＧ＝１３０：ＢＧ＿ＣＢ＝２５５
ＢＴＮ＿ＣＲ＝２５５：ＢＴＮ＿ＣＧ＝２５５：ＢＴＮ＿ＣＢ＝２５５
ＤＩＦ＿ＣＲ＝ＢＴＮ＿ＣＲ－ＢＧ＿ＣＲ：ＤＩＦ＿ＣＧ＝ＢＴＮ＿ＣＧ－ＢＧ＿ＣＧ：ＤＩＦ＿ＣＢ＝ＢＴＮ＿ＣＢ－ＢＧ＿ＣＢ

ＢＧ＿Ｃ＄［０］＝ＨＥＸ＄（ＢＧ＿ＣＲ，２）＋ＨＥＸ＄（ＢＧ＿ＣＧ，２）＋ＨＥＸ＄（ＢＧ＿ＣＢ，２）
ＴＲ＝．１５
ＢＴＮ＿Ｃ＄［０，０］＝ＨＥＸ＄（ＢＧ＿ＣＲ＋ＤＩＦ＿ＣＲ＊ＴＲ，２）＋ＨＥＸ＄（ＢＧ＿ＣＧ＋ＤＩＦ＿ＣＧ＊ＴＲ，２）＋ＨＥＸ＄（ＢＧ＿ＣＢ＋ＤＩＦ＿ＣＢ＊ＴＲ，２）
ＴＲ＝．３０
ＢＴＮ＿Ｃ＄［１，０］＝ＨＥＸ＄（ＢＧ＿ＣＲ＋ＤＩＦ＿ＣＲ＊ＴＲ，２）＋ＨＥＸ＄（ＢＧ＿ＣＧ＋ＤＩＦ＿ＣＧ＊ＴＲ，２）＋ＨＥＸ＄（ＢＧ＿ＣＢ＋ＤＩＦ＿ＣＢ＊ＴＲ，２）
ＢＴＮ＿Ｃ＄［２，０］＝”ＦＦＦＦＦＦ”

ＢＧ＿ＣＲ＝２５５：ＢＧ＿ＣＧ＝１２０：ＢＧ＿ＣＢ＝５０
ＤＩＦ＿ＣＲ＝ＢＴＮ＿ＣＲ－ＢＧ＿ＣＲ：ＤＩＦ＿ＣＧ＝ＢＴＮ＿ＣＧ－ＢＧ＿ＣＧ：ＤＩＦ＿ＣＢ＝ＢＴＮ＿ＣＢ－ＢＧ＿ＣＢ

ＢＧ＿Ｃ＄［１］＝ＨＥＸ＄（ＢＧ＿ＣＲ，２）＋ＨＥＸ＄（ＢＧ＿ＣＧ，２）＋ＨＥＸ＄（ＢＧ＿ＣＢ，２）
ＴＲ＝．１５
ＢＴＮ＿Ｃ＄［０，１］＝ＨＥＸ＄（ＢＧ＿ＣＲ＋ＤＩＦ＿ＣＲ＊ＴＲ，２）＋ＨＥＸ＄（ＢＧ＿ＣＧ＋ＤＩＦ＿ＣＧ＊ＴＲ，２）＋ＨＥＸ＄（ＢＧ＿ＣＢ＋ＤＩＦ＿ＣＢ＊ＴＲ，２）
ＴＲ＝．３０
ＢＴＮ＿Ｃ＄［１，１］＝ＨＥＸ＄（ＢＧ＿ＣＲ＋ＤＩＦ＿ＣＲ＊ＴＲ，２）＋ＨＥＸ＄（ＢＧ＿ＣＧ＋ＤＩＦ＿ＣＧ＊ＴＲ，２）＋ＨＥＸ＄（ＢＧ＿ＣＢ＋ＤＩＦ＿ＣＢ＊ＴＲ，２）
ＢＴＮ＿Ｃ＄［２，１］＝”４０４０２０”

ＣＯＬＳＥＴ　”ＢＧ”，０，ＢＧ＿Ｃ＄［ＥＸ］
ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＣ１，ＢＴＮ＿Ｃ＄［０，０］
ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＣ２，ＢＴＮ＿Ｃ＄［１，０］
ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＤ１，ＢＴＮ＿Ｃ＄［０，１］
ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＤ２，ＢＴＮ＿Ｃ＄［１，１］

’ＢＧモシ゛（ＧＲＰハ　ツカワナイ）
ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＣ７，ＢＴＮ＿Ｃ＄［２，０］
ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＤ７，ＢＴＮ＿Ｃ＄［２，１］

’ＧＰＵＴＣＨＲスルタメ
ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＣＥ，ＢＴＮ＿Ｃ＄［２，０］
ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＣＤ，ＢＴＮ＿Ｃ＄［２，０］
ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＤＥ，ＢＴＮ＿Ｃ＄［０，１］
ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＤＤ，ＢＴＮ＿Ｃ＄［１，１］

ＢＧＰＡＧＥ　１
ＢＧ＿Ｃ１＄＝”１０１０２０”
ＣＯＬＳＥＴ　”ＢＧ”，０，ＢＧ＿Ｃ１＄


Ｖ＿Ｓ＝０　’＆＃１２３１６；－１：ヒョウシ゛ナシ（アニメフレ－ム）　０：ハンテイオワリ
Ｖ＿Ｔ１＝１
Ｖ＿Ｔ２＝２
Ｖ＿ＢＮ＝３
Ｖ＿ＢＣ＝４
Ｖ＿ＢＶ＝５
Ｖ＿ＢＰ＝６
Ｖ＿Ｘ＝７

’シュルイ
ＫＭＡＸ＝２６
ＤＩＭ　ＫＣ［ＫＭＡＸ］
ＤＩＭ　ＫＢＮ［ＫＭＡＸ］
ＤＩＭ　ＫＢＣ［ＫＭＡＸ］
ＤＩＭ　ＫＢＶ［ＫＭＡＸ］
ＤＩＭ　ＫＢＰ［ＫＭＡＸ］
ＤＩＭ　ＫＸ［ＫＭＡＸ］

ＤＩＭ　ＬＶ＄［２］
ＬＶ＄［０］＝”│л■л”
ＬＶ＄［１］＝”а┰м├”
ＤＩＭ　ＨＮＴ＄［４］
ＨＮＴ＄［０］＝”е├”
ＨＮＴ＄［１］＝”Ы▲┼”
ＨＮＴ＄［２］＝”■мб”
ＨＮＴ＄［３］＝”ミス”
ＤＩＭ　ＨＮＴ＿Ｎ＄［４］

ＤＩＭ　ＣＨＡ＿ＭＰ［９］，ＣＨＡ＿ＣＬＲ［９］

ＲＥＳＴＯＲＥ　＠Ｍ０
ＲＥＡＤ　ＭＥＮＵ＿ＣＮＴ
ＤＩＭ　Ｍ０＿ＴＩＴ＄［ＭＥＮＵ＿ＣＮＴ］
ＤＩＭ　Ｍ０＿ＴＩＴＬ＄［ＭＥＮＵ＿ＣＮＴ］
ＤＩＭ　Ｍ０＿ＢＧ＄［ＭＥＮＵ＿ＣＮＴ，２］
ＢＧＭＢＧＬＥＮ＝１６
＠Ｍ０
ＤＡＴＡ　３
ＤＡＴＡ　”フリ－フ゜レイ”，”２７２６３３２７３１２Ｅ２１”
ＤＡＴＡ　”チャレンシ゛”　，”１Ａ２Ｄ２Ｅ２９２Ｆ３０”
ＤＡＴＡ　”チュ－トリアル”，”１Ａ１Ｂ３３２Ｃ２６２４２８”
ＦＯＲ　Ｉ＝０　ＴＯ　ＭＥＮＵ＿ＣＮＴ－１
　ＲＥＡＤ　Ｔ＄，ＴＬ＄
　Ｍ０＿ＴＩＴ＄［Ｉ］＝Ｔ＄
　Ｍ０＿ＴＩＴＬ＄［Ｉ］＝ＴＬ＄
　ＢＧＰ＝２：ＧＯＳＵＢ　＠ＴＩＴＢＧ
　Ｍ０＿ＢＧ＄［Ｉ，０］＝ＢＧ１＄
　Ｍ０＿ＢＧ＄［Ｉ，１］＝ＢＧ２＄
ＮＥＸＴ


ＳＶＬＥＮ＝３５
ＳＶＬＥＮ１＝１７

’ＳＥ，ＢＧＭ
ＢＧＭＳＥＴ　１２８，”Ｔ４８０＠８６＠Ｄ２４Ｂ－６＿＜Ｂ－
ＢＧＭＳＥＴ　１２９，”Ｔ４８０＠８６＠Ｄ２４＜Ｂ－６＿＞Ｂ－
ＢＧＭＳＥＴＤ　１４１，＠ＭＣＨＡ０
ＢＧＭＳＥＴＤ　１４２，＠ＭＧＯＶＥＲ
ＢＧＭＳＥＴＤ　１４３，＠ＭＣＨＡ１
ＢＧＭＳＥＴＤ　１４４，＠ＭＣＨＡ４
ＢＧＭＳＥＴＤ　１４５，＠ＭＣＨＡ６
ＢＧＭＳＥＴＤ　１４６，＠ＭＴＩＴ２

’キョク
ＲＥＳＴＯＲＥ　＠ＬＩＳＴ
ＲＥＡＤ　ＢＧＭ＿ＣＮＴ
ＩＦ　ＬＥＮ（ＭＥＭ＄）＜２５６　ＴＨＥＮ　ＭＥＭ＄＝ＭＥＭ＄＋ＣＨＲ＄（０）＊（２５６－ＬＥＮ（ＭＥＭ＄））
ＤＩＭ　ＢＧＭ＿ＩＤ［ＢＧＭ＿ＣＮＴ＋１］
ＤＩＭ　ＢＧＭ＿ＶＯＬ［ＢＧＭ＿ＣＮＴ＋１］
ＤＩＭ　ＢＧＭ＿ＴＩＴ＄［ＢＧＭ＿ＣＮＴ＋１］
ＤＩＭ　ＢＧＭ＿ＣＭＰ＄［ＢＧＭ＿ＣＮＴ＋１］
ＤＩＭ　ＢＧＭ＿ＬＶ［ＢＧＭ＿ＣＮＴ＋１，２］
ＤＩＭ　ＢＧＭ＿ＢＧ＄［ＢＧＭ＿ＣＮＴ＋１，２］
ＤＩＭ　ＢＧＭ＿ＴＩＴＬ＄［ＢＧＭ＿ＣＮＴ＋１］
ＦＯＲ　Ｉ＝０　ＴＯ　ＢＧＭ＿ＣＮＴ＋１－１
　ＲＥＡＤ　ＩＤ，ＶＯＬ，Ｔ＄，Ｃ＄，ＬＶ１，ＬＶ２，ＴＬ＄
　ＩＦ　ＴＬ＄＝＝””　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＬＧＥＮ
　ＢＧＭ＿ＩＤ［Ｉ］＝ＩＤ
　ＢＧＭ＿ＶＯＬ［Ｉ］＝ＶＯＬ
　ＢＧＭ＿ＴＩＴ＄［Ｉ］＝Ｔ＄
　ＢＧＭ＿ＴＩＴＬ＄［Ｉ］＝ＴＬ＄
　ＢＧＭ＿ＣＭＰ＄［Ｉ］＝Ｃ＄
　ＢＧＭ＿ＬＶ［Ｉ，０］＝ＬＶ１
　ＢＧＭ＿ＬＶ［Ｉ，１］＝ＬＶ２
　ＢＧＰ＝３：ＧＯＳＵＢ　＠ＴＩＴＢＧ：ＧＯＴＯ　＠ＴＩＴＢＧＳＫＰ
＠ＴＩＴＢＧ
　ＧＰＡＧＥ　０，３，０
　ＧＴ＄＝Ｔ＄：ＧＸ＝０：ＧＹ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
　ＢＧ１＄＝””：ＢＧ２＄＝””
　ＦＯＲ　Ｊ＝０　ＴＯ　ＢＧＭＢＧＬＥＮ－１
　　Ｃ＄＝””
　　ＦＯＲ　Ｙ＝０　ＴＯ　７：ＦＯＲ　Ｘ＝０　ＴＯ　７
　　　Ｃ１＝ＧＳＰＯＩＴ（Ｘ＋Ｊ＊８，Ｙ）
　　　Ｃ２＄＝”７”
　　　ＩＦ　Ｃ１＝＝０　ＡＮＤ　Ｙ＜４　ＴＨＥＮ　Ｃ２＄＝”２”
　　　ＩＦ　Ｃ１＝＝０　ＡＮＤ　Ｙ＞＝４　ＴＨＥＮ　Ｃ２＄＝”１”
　　　Ｃ＄＝Ｃ＄＋Ｃ２＄
　　ＮＥＸＴ：ＮＥＸＴ
　　ＣＨＲＳＥＴ　”ＢＧＵ”＋ＳＴＲ＄（ＢＧＰ）＋”Ｕ”，Ｊ＋Ｉ＊ＢＧＭＢＧＬＥＮ，Ｃ＄
　　ＢＧ１＄＝ＢＧ１＄＋”Ｃ”＋ＨＥＸ＄（２５６＊ＢＧＰ＋Ｊ＋Ｉ＊ＢＧＭＢＧＬＥＮ，３）
　　ＢＧ２＄＝ＢＧ２＄＋”Ｄ”＋ＨＥＸ＄（２５６＊ＢＧＰ＋Ｊ＋Ｉ＊ＢＧＭＢＧＬＥＮ，３）
　ＮＥＸＴ
　ＧＦＩＬＬ　０，０，１２７，１５，０
’　ＢＧ＄＝””
’　ＦＯＲ　Ｊ＝０　ＴＯ　２３
’　　ＢＧ＄＝ＢＧ＄＋”Ｃ”＋ＨＥＸ＄（ＡＳＣ（ＭＩＤ＄（Ｔ＄，Ｊ，１）＋”　”）＋７６８，３）
’　ＮＥＸＴ
　ＧＰＡＧＥ　０，０，０
ＲＥＴＵＲＮ
＠ＴＩＴＢＧＳＫＰ
　ＢＧＭ＿ＢＧ＄［Ｉ，０］＝ＢＧ１＄
　ＢＧＭ＿ＢＧ＄［Ｉ，１］＝ＢＧ２＄
ＮＥＸＴ
ＦＯＲ　Ｉ＝０　ＴＯ　ＢＧＭ＿ＣＮＴ＋１－１
　ＩＦ　ＢＧＭ＿ＩＤ［Ｉ］＞＝１２８　ＴＨＥＮ　ＢＧＭＳＥＴＤ　ＢＧＭ＿ＩＤ［Ｉ］，”＠Ｍ”＋ＳＴＲ＄（ＢＧＭ＿ＩＤ［Ｉ］）
ＮＥＸＴ

ＶＩＳＩＢＬＥ　１，１，１，１，１，１

ＧＯＴＯ　＠ＴＩＴ

＠ＴＬＧＥＮ
　ＴＬ０＄＝ＳＴＲ＄（ＩＤ）
　ＦＯＲ　Ｊ＝０　ＴＯ　ＬＥＮ（ＴＬ０＄）－１
　　ＴＬ＄＝ＴＬ＄＋”－”＋ＭＩＤ＄（ＴＬ０＄，Ｊ，１）
　ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＴＩＴ＿ＬＳ１
ＧＰＡＧＥ　１
ＳＰＰＡＧＥ　１
ＧＣＬＳ　
ＳＰＣＬＲ
＿ＳＰＮＵＭＩＤ＝ＳＰＮＵＭ１６＿Ｌ

ＦＯＲ　Ｉ＝０　ＴＯ　３
　ＳＰＳＥＴ　３０＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０，０，０，０，０
　ＳＰＯＦＳ　３０＋Ｉ，２２０－１６＊Ｉ－２８，１１０
　ＳＰＳＥＴ　４０＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０，０，０，０，０
　ＳＰＯＦＳ　４０＋Ｉ，２２０－１６＊Ｉ－２８，１４０
ＮＥＸＴ
ＦＯＲ　Ｉ＝０　ＴＯ　１
　ＧＴ＄＝”．”：ＧＸ＝２１０：ＧＹ＝１１０＋８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
　ＧＹ＝ＧＹ＋３０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
　ＳＰＳＥＴ　３４＋Ｉ，０，０，０，０，０，８，８
　ＳＰＳＥＴ　４４＋Ｉ，０，０，０，０，０，８，８
　ＳＸ＝２２４－７＊Ｉ：ＳＹ＝１１０＋８
　ＳＰＯＦＳ　３４＋Ｉ，ＳＸ，ＳＹ
　ＳＰＯＦＳ　４４＋Ｉ，ＳＸ，ＳＹ＋３０
ＮＥＸＴ

ＳＶＤＡＴＡ＄＝ＲＩＧＨＴ＄（ＭＥＭ＄，２５６－ＳＶＬＥＮ＊７）
ＧＴ＄＝”チャレンシ゛　　ハイスコア”：ＧＸ＝２４：ＧＹ＝８８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＦＯＲ　Ｊ＝０　ＴＯ　１
　ＧＴ＄＝ＬＶ＄［Ｊ］：ＧＸ＝７０：ＧＹ＝１１５＋３０＊Ｊ：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
　ＭＰ＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＳＶＤＡＴＡ＄，Ｊ＊５，５））
　ＳＩ＝３０＋Ｊ＊１０：ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＦＬＯＯＲ（ＭＰ／１００）：ＧＯＳＵＢ　＠ＳＣＳＥＴ
　ＧＯＳＵＢ　＠ＳＣＳＥＴ＿ＭＰ
ＮＥＸＴ

ＧＬＩＮＥ　１６，７０，２３９，７０，１５

ＧＴ＄＝”フリ－フ゜レイ”：ＧＸ＝２４：ＧＹ＝４８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＳＰＳＥＴ　３，ＳＰＳＴＡＲ＿Ｌ，０，０，０，０
ＳＰＯＦＳ　３，１２０，３０
ＳＰＳＣＡＬＥ　３，２００
ＳＰＳＥＴ　４，ＳＰＮＵＭ１６＿Ｌ＋１３，０，０，０，０
ＳＰＯＦＳ　４，１２０＋３２，３０＋１０
ＧＴ＄＝”／　”＋ＳＴＲ＄（６＊ＢＧＭ＿ＣＮＴ）
ＧＸ＝１２０＋８６：ＧＹ＝３０＋１８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

ＳＴＡＲＮＵＭ＝０
ＦＯＲ　Ｉ＝０　ＴＯ　６
　ＳＴＡＲ＝ＡＳＣ（ＭＩＤ＄（ＭＥＭ＄，ＳＶＬＥＮ＊Ｉ，１）＋ＣＨＲ＄（０））
　ＦＯＲ　Ｊ＝０　ＴＯ　５
　　ＩＦ　ＳＴＡＲ　ＡＮＤ　１　ＴＨＥＮ　ＳＴＡＲＮＵＭ＝ＳＴＡＲＮＵＭ＋１
　　ＳＴＡＲ＝ＳＴＡＲ／２
　ＮＥＸＴ
ＮＥＸＴ
ＳＶ＝ＳＴＡＲＮＵＭ
ＳＰＳＥＴ　５，ＳＰＮＵＭ１６＿Ｌ＋ＳＶ％１０，０，０，０，０
ＳＰＯＦＳ　５，１２０＋６４，３０＋１０
ＳＰＳＥＴ　６，ＳＰＮＵＭ１６＿Ｌ＋ＦＬＯＯＲ（ＳＶ／１０）＋１０＊（ＳＶ＜１０），０，０，０，０
ＳＰＯＦＳ　６，１２０＋６４－１６，３０＋１０


ＲＥＴＵＲＮ

＠ＴＩＴ

ＧＯＳＵＢ　＠ＴＩＴ＿ＬＳ１

ＧＰＡＧＥ　０
ＳＰＰＡＧＥ　０
ＢＧＰＡＧＥ　０
’ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＦ６，”２０３８８０”
’ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＦＦ，”ＦＦＦＦＦＦ”
ＧＣＬＳ　
ＳＰＣＬＲ
ＣＬＳ
ＧＰＲＩＯ　１

’ＢＧＦＩＬＬ　１，０，０，３１，０，”８０１Ａ”
’ＢＧＦＩＬＬ　１，０，１，３１，７，”８００３”
’ＢＧＯＦＳ　１，０，－１４０

’ＧＣＯＰＹ　２，０，０，１２７，４５，０，１９２－４６，１
’ＧＣＯＰＹ　２，０，０，１２７，４５，１２８，１９２－４６，１

ＢＧＯＦＳ　０，ＳＣＸ＿ＧＲＮＤ，ＳＣＹ＿ＧＲＮＤ

ＧＸ＝８０：ＧＹ＝１２０：ＧＴ＄＝”リス゛ムケ゛－ム”：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＸ＝１２４：ＧＹ＝１３０：ＧＴ＄＝”Ｄｒｏｐ－ｍ”：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

ＧＸ＝４４：ＧＹ＝１９２－２．５＊８：ＧＴ＄＝”（ｃ）　２０２０－２１　　Ｎａ”：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

ＧＸ＝１６８：ＧＹ＝１９２－２６：ＧＴ＄＝”Щ┝мбз”：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＸ＝１５６：ＧＹ＝１９２－２６：ＧＴ＄＝”Й”：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＸ＝１６８：ＧＹ＝１９２－１４：ＧＴ＄＝”─кз”：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＴＳＥＬ＝０

ＢＧＭＰＬＡＹ　６，１４６，１２７
ＴＩＴＣＮＴ＝０

＠ＴＩＴＬＯＯＰ
　ＢＸ＝１２＋８＊ＳＩＮ（ＲＡＤ（ＴＩＴＣＮＴ％３６０））
　ＢＹ＝１９＊８＋６＋８＊ＳＩＮ（ＲＡＤ（１．５＊ＴＩＴＣＮＴ％３６０））
　ＢＧＯＦＳ　１，ＢＸ，ＢＹ
　
　ＶＳＹＮＣ　１
　Ｂ＝ＢＵＴＴＯＮ（１）
　ＩＦ　Ｂ　ＡＮＤ　１＋２　ＴＨＥＮ　ＢＥＥＰ　９：ＴＳＥＬ＝！ＴＳＥＬ
　ＧＸ＝１５６：ＧＹ＝１９２－２６＋１２＊！ＴＳＥＬ
　ＩＦ　Ｂ　ＡＮＤ　１＋２　ＴＨＥＮ　ＧＦＩＬＬ　ＧＸ，ＧＹ，ＧＸ＋７，ＧＹ＋７，０
　ＧＸ＝１５６：ＧＹ＝１９２－２６＋１２＊ＴＳＥＬ
　ＧＴ＄＝”Й”
　ＩＦ　Ｂ　ＡＮＤ　１＋２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
　ＩＦ　（Ｂ　ＡＮＤ　１６）＞０　ＡＮＤ　ＴＳＥＬ＝＝０　ＴＨＥＮ　＠ＭＥＮＵ０
　ＩＦ　（Ｂ　ＡＮＤ　１６）＞０　ＡＮＤ　ＴＳＥＬ＝＝１　ＴＨＥＮ　＠ＥＮＤ
　
　ＴＩＴＣＮＴ＝（ＴＩＴＣＮＴ＋１．２）％７２０
ＧＯＴＯ　＠ＴＩＴＬＯＯＰ

＠ＥＮＤ

ＢＥＥＰ　４
ＢＧＭＳＴＯＰ　６，１
ＡＣＬＳ
ＣＨＲＩＮＩＴ　”ＳＰＵ２Ｕ”
ＣＨＲＩＮＩＴ　”ＳＰＵ５Ｕ”
ＣＨＲＩＮＩＴ　”ＳＰＵ６Ｕ”
ＣＨＲＩＮＩＴ　”ＳＰＵ７Ｕ”
ＣＨＲＩＮＩＴ　”ＢＧＵ０Ｕ”
ＣＨＲＩＮＩＴ　”ＢＧＵ１Ｕ”
ＣＨＲＩＮＩＴ　”ＢＧＵ２Ｕ”
ＣＨＲＩＮＩＴ　”ＢＧＵ３Ｕ”
ＣＨＲＩＮＩＴ　”ＢＧＦ０Ｕ”
ＣＨＲＩＮＩＴ　”ＳＰＳ０Ｌ”
ＣＨＲＩＮＩＴ　”ＳＰＳ１Ｌ”
ＥＮＤ

＠ＭＥＮＵ０
ＢＥＥＰ　３

ＧＰＡＧＥ　０
ＢＧＰＡＧＥ　０
ＧＣＬＳ

ＢＧＦＩＬＬ　０，３２，０，６３，２３，０
ＢＧＦＩＬＬ　１，３２，０，６３，２３，０
ＢＧ＿ＭＹ＝０　’（４０－３０）／２
ＢＧ＿ＭＹＧ＝ＢＧ＿ＭＹ＊８
’ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ－１９２
’ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ－１９２

ＧＯＳＵＢ　＠Ｍ０＿ＳＴＡＴＧ：ＧＯＴＯ　＠Ｍ０＿ＳＴＳＫＰ
＠Ｍ０＿ＳＴＡＴＧ
’ＧＦＩＬＬ　０，１９２－９，２５５，１９１，２６

ＧＣＯＰＹ　２，０，０，２５５，６＊８－１，０，ＧＹ＿ＧＲＮＤ，１

ＧＹ＝ＣＨＡ＿ＧＹ＋１７：ＧＸ＝４０
ＩＦ　ＭＯＤＥ＝＝０　ＴＨＥＮ　ＧＴ＄＝”＄キョクヲ　シ゛ユウニ　エランテ゛
ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＧＴ＄＝”＄ＨＰ＝０テ゛＄　ケ゛－ム　オ－ハ゛－
ＩＦ　ＭＯＤＥ＝＝２　ＴＨＥＮ　ＧＴ＄＝”＄コノ　＄ケ゛－ム＄ノ　アソヒ゛カタヲ＄
ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

ＧＹ＝ＣＨＡ＿ＧＹ＋２７：ＧＸ＝４０
ＩＦ　ＭＯＤＥ＝＝０　ＴＨＥＮ　ＧＴ＄＝”フ゜レイ＄スル＄　モ－ト゛　＄テ゛ス＄
ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＧＴ＄＝”＄セ゛ンキョク＄　クリア＄ヲ　メサ゛ソウ＄
ＩＦ　ＭＯＤＥ＝＝２　ＴＨＥＮ　ＧＴ＄＝”＄カクニン　テ゛キマス＄
ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

’ＧＴ＄＝”↑↓：　┥л┿┨┌”：ＧＸ＝７：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
’ＧＴ＄＝”Ф：　○л├□м”：ＧＸ＝７９：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
’ＧＴ＄＝”А：　Щ┝мбз”：ＧＸ＝１４５：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
’ＧＴ＄＝”Х：　オ－ト”：ＧＸ＝２１１：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＲＥＴＵＲＮ
＠Ｍ０＿ＳＴＡＴＧ１
ＧＣＯＰＹ　２，０，０，２５５，３＊８－１，０，ＧＹ＿ＧＲＮＤ，１
ＲＥＴＵＲＮ
＠Ｍ０＿ＳＴＳＫＰ

’ＮＯＢＧＭ＝０
ＭＥＮＵＣＮＴ＝０
’ＢＧＭＳＴＯＰＣＮＴ＝０
ＭＯＶＥ＝０
ＥＸＣＨＧ＝０
’ＥＸ＝０
ＧＯＳＵＢ　＠Ｍ０＿ＬＳ
ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ－４０
ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ－４０
ＭＥＮＵＳＣＲ＝０
ＧＯＳＵＢ　＠Ｍ０＿ＬＳ１


ＶＳＹＮＣ　１
＠Ｍ０ＬＯＯＰ
　ＦＰＳ＝ＦＰＳ＋１
　ＩＦ　ＤＥＢＵＧ　ＡＮＤ　ＭＡＩＮＣＮＴＬ－ＬＡＳＴＣ＞５９　ＴＨＥＮ　ＬＯＣＡＴＥ　０，０：？ＦＰＳ，：ＦＰＳ＝０：ＬＡＳＴＣ＝ＭＡＩＮＣＮＴＬ

　Ｂ＝ＢＵＴＴＯＮ（１）
　
　’ＩＦ　Ｂ　ＡＮＤ　１２８　ＴＨＥＮ　ＡＵＴＯ＝１：ＧＯＴＯ　＠ＭＥＮＵ＿ＯＫ
　ＩＦ　Ｂ　ＡＮＤ　１６　ＴＨＥＮ　ＧＯＴＯ　＠Ｍ０＿ＯＫ
　ＩＦ　Ｂ　ＡＮＤ　３２　ＴＨＥＮ　ＢＥＥＰ　４：ＧＯＳＵＢ　＠Ｍ０ＷＡＩＴ：ＧＯＴＯ　＠ＴＩＴ
　
　ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＭＯＶＥ＝ＭＯＶＥ－１：ＢＥＥＰ　９
　ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＭＯＶＥ＝ＭＯＶＥ＋１：ＢＥＥＰ　９
　
’　ＩＦ　（Ｂ　ＡＮＤ　４）＞０　ＡＮＤ　ＥＸＣＨＧ＝＝０　ＴＨＥＮ　ＥＸＣＨＧ＝－１０：ＮＥＸ＝！ＥＸ：ＢＧＭＰＬＡＹ　１２９：ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ１
　ＩＦ　（Ｂ　ＡＮＤ　４＋８＋６４）＞０　ＡＮＤ　ＥＸＣＨＧ＝＝０　ＴＨＥＮ　ＥＸＣＨＧ＝１０＋６＋１０：ＮＥＸ＝！ＥＸ：ＢＧＭＰＬＡＹ　１２８：ＧＯＳＵＢ　＠Ｍ０＿ＬＳ１
　
　ＧＯＳＵＢ　＠Ｍ０ＦＲＭ
ＧＯＴＯ　＠Ｍ０ＬＯＯＰ


＠Ｍ０ＦＲＭ
　’ＩＦ　！ＢＧＭＣＨＫ（６）　ＴＨＥＮ　ＢＧＭＳＴＯＰＣＮＴ＝ＢＧＭＳＴＯＰＣＮＴ＋１
　
　ＩＦ　ＭＯＶＥ＜０　ＴＨＥＮ　＠Ｍ０＿ＵＰ
　ＩＦ　ＭＯＶＥ＞０　ＴＨＥＮ　＠Ｍ０＿ＤＮ
　
　ＩＦ　ＭＥＮＵＣＮＴ＝＝１　ＴＨＥＮ　＠Ｍ０＿ＭＶ
　
　’ＩＦ　（ＭＥＮＵＣＮＴ＝＝２０　ＯＲ　ＢＧＭＳＴＯＰＣＮＴ＞＝１２０）ＡＮＤ　！ＮＯＢＧＭ　ＴＨＥＮ　ＢＧＭＰＬＡＹ　６，ＢＧＭ＿ＩＤ［ＢＧＭ］，ＢＧＭ＿ＶＯＬ［ＢＧＭ］：ＢＧＭＳＴＯＰＣＮＴ＝
　
　ＩＦ　ＭＥＮＵＣＮＴ＞１　ＡＮＤ　ＥＸＣＨＧ！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｍ０＿ＥＸ
　
＠Ｍ０ＦＲＭＥ
　ＶＳＹＮＣ　１
　ＩＦ　ＭＥＮＵＣＮＴ＜１００００　ＴＨＥＮ　ＭＥＮＵＣＮＴ＝ＭＥＮＵＣＮＴ＋１
ＲＥＴＵＲＮ

＠Ｍ０＿ＵＰ
　ＩＦ　ＭＯＤＥ＝＝０　ＴＨＥＮ　＠Ｍ０ＵＰＳＫＰ
　ＩＦ　ＭＥＮＵＣＮＴ＞１　ＴＨＥＮ　＠Ｍ０＿ＲＭＶ
　ＩＦ　ＭＥＮＵＣＮＴ＜０　ＴＨＥＮ　＠Ｍ０ＦＲＭＥ
　ＭＯＤＥ＝ＭＯＤＥ－１
　’ＥＸ＝０
　ＥＸＣＨＧ＝０
　ＧＦＩＬＬ　０，０，２５５，ＧＹ＿ＧＲＮＤ－１，０
　’ＧＯＳＵＢ　＠Ｍ０＿ＬＳ
　’ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋６０
　’ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋３６，６
　’ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋６０
　’ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３６，６
　’ＧＯＳＵＢ　＠Ｍ０＿ＬＳ１
　ＭＥＮＵＣＮＴ＝０
＠Ｍ０ＵＰＳＫＰ
　ＭＯＶＥ＝ＭＯＶＥ＋１
ＧＯＴＯ　＠Ｍ０ＦＲＭＥ

＠Ｍ０＿ＤＮ
　ＩＦ　ＭＯＤＥ＝＝ＭＥＮＵ＿ＣＮＴ－１　ＴＨＥＮ　＠Ｍ０ＤＮＳＫＰ
　ＩＦ　ＭＥＮＵＣＮＴ＞１　ＴＨＥＮ　＠Ｍ０＿ＲＭＶ
　ＩＦ　ＭＥＮＵＣＮＴ＜０　ＴＨＥＮ　＠Ｍ０ＦＲＭＥ
　ＭＯＤＥ＝ＭＯＤＥ＋１
　’ＥＸ＝０
　ＥＸＣＨＧ＝０
　ＧＦＩＬＬ　０，０，２５５，ＧＹ＿ＧＲＮＤ－１，０
　’ＧＯＳＵＢ　＠Ｍ０＿ＬＳ
　’ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋１２
　’ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋３６，６
　’ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋１２
　’ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３６，６
　’ＧＯＳＵＢ　＠Ｍ０＿ＬＳ１
　ＭＥＮＵＣＮＴ＝０
＠Ｍ０ＤＮＳＫＰ
　ＭＯＶＥ＝ＭＯＶＥ－１
ＧＯＴＯ　＠Ｍ０ＦＲＭＥ

＠Ｍ０＿ＬＳ
ＣＯＬＳＥＴ　”ＢＧ”，＆Ｈ０，ＢＧ＿Ｃ＄［ＥＸ］
ＦＯＲ　Ｉ＝０　ＴＯ　ＭＥＮＵ＿ＣＮＴ－１
　Ｌ＝０’Ｉ＞＝５
　’ＩＦ　ＢＧＭ－５＋Ｉ＜０　ＴＨＥＮ　＠Ｍ０ＬＳＣＬＲ
　’ＩＦ　ＢＧＭ－５＋Ｉ＞＝ＢＧＭ＿ＣＮＴ　ＴＨＥＮ　＠Ｍ０ＬＳＣＬＲ
　ＢＧＰＵＴ　Ｌ，３２＋４，ＢＧ＿ＭＹ＋Ｉ＊４，＆ＨＡＤ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＦＩＬＬ　Ｌ，３２＋５，ＢＧ＿ＭＹ＋Ｉ＊４，６３－５，ＢＧ＿ＭＹ＋Ｉ＊４，＆ＨＡＥ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＰＵＴ　Ｌ，６３－４，ＢＧ＿ＭＹ＋Ｉ＊４，＆ＨＡＦ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＰＵＴ　Ｌ，３２＋４，ＢＧ＿ＭＹ＋Ｉ＊４＋１，＆ＨＣＤ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＦＩＬＬ　Ｌ，３２＋５，ＢＧ＿ＭＹ＋Ｉ＊４＋１，６３－５，ＢＧ＿ＭＹ＋Ｉ＊４＋１，＆ＨＣＥ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＰＵＴ　Ｌ，６３－４，ＢＧ＿ＭＹ＋Ｉ＊４＋１，＆ＨＣＦ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＰＵＴ　Ｌ，３２＋４，ＢＧ＿ＭＹ＋Ｉ＊４＋２，＆ＨＥＤ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＦＩＬＬ　Ｌ，３２＋５，ＢＧ＿ＭＹ＋Ｉ＊４＋２，６３－５，ＢＧ＿ＭＹ＋Ｉ＊４＋２，＆ＨＥＥ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＰＵＴ　Ｌ，６３－４，ＢＧ＿ＭＹ＋Ｉ＊４＋２，＆ＨＥＦ，＆ＨＣ＋ＥＸ，０，０
’キョクタイトル
　ＢＧＦＩＬＬ　Ｌ，３２＋５，ＢＧ＿ＭＹ＋Ｉ＊４＋１，３２＋４＋ＢＧＭＢＧＬＥＮ－１，ＢＧ＿ＭＹ＋Ｉ＊４＋１，Ｍ０＿ＢＧ＄［Ｉ，ＥＸ］
＠Ｍ０ＬＳＳＫＩＰ
ＮＥＸＴ

ＲＥＴＵＲＮ

＠Ｍ０＿ＬＳ１
ＲＥＴＵＲＮ

ＳＶＤＡＴＡ＄＝ＭＩＤ＄（ＭＥＭ＄，ＳＶＬＥＮ＊ＢＧＭ，ＳＶＬＥＮ）
ＳＴＡＲ＝ＡＳＣ（ＳＶＤＡＴＡ＄＋ＣＨＲ＄（０））
ＳＶＤＡＴＡ１＄＝ＭＩＤ＄（ＳＶＤＡＴＡ＄，１＋ＳＶＬＥＮ１＊ＮＥＸ，ＳＶＬＥＮ１）
ＳＣＯＲＥ＄＝ＬＥＦＴ＄（ＳＶＤＡＴＡ１＄，５）
ＯＬＤＳＣＯＲＥ＝ＶＡＬ（”＆Ｈ”＋ＳＣＯＲＥ＄）
ＳＣＯＲＥ＄＝ＲＩＧＨＴ＄（”　　　　　”＋ＳＴＲ＄（ＯＬＤＳＣＯＲＥ），６）
ＦＯＲ　Ｉ＝０　ＴＯ　３
　ＨＮＴ＿Ｎ＄［Ｉ］＝ＳＴＲ＄（ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＳＶＤＡＴＡ１＄，５＋３＊Ｉ，３）））
ＮＥＸＴ

ＧＰＡＧＥ　１
ＳＰＰＡＧＥ　１
＿ＳＰＮＵＭＩＤ＝ＳＰＮＵＭ１６＿Ｌ

ＧＦＩＬＬ　２４，２１，２５５，６３，０
ＧＴ＄＝ＢＧＭ＿ＴＩＴＬ＄［ＢＧＭ］：ＧＸ＝２４：ＧＹ＝２４：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ１２
ＧＴ＄＝ＬＶ＄［ＮＥＸ］：ＧＸ＝２４＋ＮＥＸ：ＧＹ＝４６：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝”Ｌｖ．”：ＧＸ＝７２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝ＳＴＲ＄（ＢＧＭ＿ＬＶ［ＢＧＭ，ＮＥＸ］）：ＧＸ＝１１０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＧＴ＄＝”ハイスコア”：ＧＸ＝１２６：ＧＹ＝５６：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

ＳＩ＝３０：ＳＣ＝６：ＳＺ＝０：ＳＶ＝ＯＬＤＳＣＯＲＥ：ＧＯＳＵＢ　＠ＳＣＳＥＴ

ＧＦＩＬＬ　４８，９６，２５５，１１３，０
ＦＯＲ　Ｉ＝０　ＴＯ　３
ＧＴ＄＝ＨＮＴ＄［Ｉ］：ＧＸ＝３８＋４８＊Ｉ：ＧＹ＝９６：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝ＨＮＴ＿Ｎ＄［Ｉ］：ＧＸ＝７４＋４８＊Ｉ：ＧＹ＝１０６：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＮＥＸＴ

Ｂ＝１＋７＊ＮＥＸ
ＦＯＲ　Ｉ＝０　ＴＯ　２
　ＳＰＣＨＲ　Ｉ，ＳＰＳＴＡＲ＿Ｌ，１２＊（（ＳＴＡＲ　ＡＮＤ　Ｂ）＝＝０），０，０，０
　Ｂ＝Ｂ＊２
ＮＥＸＴ

ＧＰＡＧＥ　０
ＳＰＰＡＧＥ　０

ＲＥＴＵＲＮ

＠Ｍ０ＬＳＣＬＲ
　ＢＧＦＩＬＬ　Ｌ，３２＋３，ＢＧ＿ＭＹ＋Ｉ＊３，６３－３，ＢＧ＿ＭＹ＋Ｉ＊３＋２，０
ＧＯＴＯ　＠Ｍ０ＬＳＳＫＩＰ

＠Ｍ０＿ＭＶ
’ＢＧＦＩＬＬ　１，３２＋３，ＢＧ＿ＭＹ＋５＊３，６３－３，ＢＧ＿ＭＹ＋５＊３＋２，０
’ＩＦ　！ＮＯＢＧＭ　ＴＨＥＮ　ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋４２，６
’ＩＦ　！ＮＯＢＧＭ　ＴＨＥＮ　ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３０，６

ＧＰＵＴＣＨＲ　２０，３６＋ＭＯＤＥ＊３２，”ＢＧＵ０”，＆ＨＡＤ，＆ＨＣ＋ＥＸ，１
ＧＰＵＴＣＨＲ　２２８，３６＋ＭＯＤＥ＊３２，”ＢＧＵ０”，＆ＨＡＦ，＆ＨＣ＋ＥＸ，１
ＧＦＩＬＬ　２８，３６＋ＭＯＤＥ＊３２＋３，２２８－１，４４＋ＭＯＤＥ＊３２－１，＆ＨＣ２＋＆Ｈ１０＊ＥＸ
ＧＦＩＬＬ　２０＋３，４４＋ＭＯＤＥ＊３２，２３６－１－３，５２＋ＭＯＤＥ＊３２－１，＆ＨＣ２＋＆Ｈ１０＊ＥＸ
ＧＦＩＬＬ　２０＋３，５２＋ＭＯＤＥ＊３２，２３６－１－３，６０＋ＭＯＤＥ＊３２－１，＆ＨＣ１＋＆Ｈ１０＊ＥＸ
ＧＦＩＬＬ　２８，６０＋ＭＯＤＥ＊３２，２２８－１，６８＋ＭＯＤＥ＊３２－１－３，＆ＨＣ１＋＆Ｈ１０＊ＥＸ
ＧＰＵＴＣＨＲ　２０，６０＋ＭＯＤＥ＊３２，”ＢＧＵ０”，＆ＨＥＤ，＆ＨＣ＋ＥＸ，１
ＧＰＵＴＣＨＲ　２２８，６０＋ＭＯＤＥ＊３２，”ＢＧＵ０”，＆ＨＥＦ，＆ＨＣ＋ＥＸ，１

’Ｌ１＿＄＝ＳＴＲ＄（ＢＧＭ＿ＬＶ［ＢＧＭ，０］）
’Ｌ２＿＄＝ＳＴＲ＄（ＢＧＭ＿ＬＶ［ＢＧＭ，１］）
ＧＤＲＡＷＭＤ　１　　　　　’→　
’Ｏｔｈｅｒ　　　　００　　　　　１０　　　
’Ｎｏｎｅ　　　　　Ｃ１　Ｃ２　　Ｄ１　Ｄ２
’Ｆｒｏｎｔ＾０Ｆ　ＣＥ　ＣＤ　　ＤＥ　ＤＤ
’Ｂａｃｋ　＾２０　Ｅ１　Ｅ２　　Ｆ１　Ｆ２（Ｄ７→ＢＧ）
’Ｆｒ＋Ｂｋ＾２Ｆ　ＥＥ　ＥＤ　　ＦＥ　ＦＤ
’　　ＸＯＲ　　　　　　　　　＾１０

ＧＴ＄＝Ｍ０＿ＴＩＴＬ＄［ＭＯＤＥ］：ＧＸ＝３０：ＧＹ＝４５＋ＭＯＤＥ＊３２：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ１２
’ＧＴ＄＝ＢＧＭ＿ＣＭＰ＄［ＢＧＭ］：ＧＸ＝３０：ＧＹ＝９９：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
’ＧＴ＄＝”Ｌｖ．”：ＧＸ＝２０６：ＧＹ＝９９：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
’ＧＴ＄＝ＬＶ＄［０］：ＧＸ＝１８０：ＧＹ＝９９：ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
’ＧＴ＄＝ＬＶ＄［１］：ＧＸ＝１７８：ＧＹ＝９９：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
’ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
’ＧＴ＄＝Ｌ１＿＄：ＧＸ＝２２６：ＧＹ＝９５：ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ１２Ｎ
’ＧＴ＄＝Ｌ２＿＄：ＧＸ＝２２６：ＧＹ＝９５：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ１２Ｎ
’ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ１２Ｎ
ＧＰ＝０
ＧＤＲＡＷＭＤ　０

’ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＣ１，ＢＴＮ＿Ｃ＄［０，０］
’ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＣ２，ＢＴＮ＿Ｃ＄［１，０］
’ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＣＥ，ＢＴＮ＿Ｃ＄［２，０］
’ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＣＤ，ＢＴＮ＿Ｃ＄［２，０］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＥ１，ＢＴＮ＿Ｃ＄［０，０］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＥ２，ＢＴＮ＿Ｃ＄［１，０］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＥＥ，ＢＴＮ＿Ｃ＄［２，０］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＥＤ，ＢＴＮ＿Ｃ＄［２，０］

ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＤ１，ＢＴＮ＿Ｃ＄［０，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＤ２，ＢＴＮ＿Ｃ＄［１，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＤＥ，ＢＴＮ＿Ｃ＄［０，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＤＤ，ＢＴＮ＿Ｃ＄［１，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦ１，ＢＴＮ＿Ｃ＄［２，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦ２，ＢＴＮ＿Ｃ＄［２，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＥ，ＢＴＮ＿Ｃ＄［２，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＤ，ＢＴＮ＿Ｃ＄［２，１］

ＧＯＳＵＢ　＠Ｍ０＿ＳＴＡＴＧ

ＧＯＴＯ　＠Ｍ０ＦＲＭＥ

＠Ｍ０＿ＲＭＶ
’ＢＧＭＳＴＯＰ　６，１
ＦＯＲ　Ｉ＝１　ＴＯ　ＥＸＣＨＧ＞０：ＧＯＳＵＢ　＠Ｍ０＿ＥＸ：Ｉ＝０：ＮＥＸＴ
’ＧＦＩＬＬ　２０，０，２３６－１，７５，０
’ＧＦＩＬＬ　２０，１１６，２３６－１，ＧＹ＿ＧＲＮＤ－１，０
’ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋３６，６
’ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３６，６
ＭＥＮＵＣＮＴ＝－６
ＧＯＴＯ　＠Ｍ０ＦＲＭＥ

＠Ｍ０＿ＥＸ

ＩＦ　ＥＸＣＨＧ＞１０＋６　ＴＨＥＮ　ＥＸＴＩＭ＝１０＋６＋１０－ＥＸＣＨＧ：ＧＯＴＯ　＠Ｍ０ＥＸ＿１
ＩＦ　ＥＸＣＨＧ＞１０　ＴＨＥＮ　ＥＸＴＩＭ＝１０＋６－ＥＸＣＨＧ：ＧＯＴＯ　＠Ｍ０ＥＸ＿２

＠Ｍ０ＥＸ＿３
ＥＸＴＩＭ＝１０－ＥＸＣＨＧ

’ｘ　０　←１００　（２０－２３６）　１００→２５６
’ｙ　０　←７６　（７６－１１６）　７６→１９２

ＧＤＲＡＷＭＤ　１

ＯＸ１＝２０－１０＊ＥＸＴＩＭ：ＯＹ１＝３２＋ＭＯＤＥ＊３２－ＦＬＯＯＲ（９．６＊ＥＸＴＩＭ＋．５）
ＯＸ２＝２３６＋１０＊ＥＸＴＩＭ：ＯＹ２＝７２＋ＭＯＤＥ＊３２＋ＦＬＯＯＲ（９．６＊ＥＸＴＩＭ＋．５）
ＥＸＣＨＧ＝ＥＸＣＨＧ－１
ＥＸＴＩＭ＝ＥＸＴＩＭ＋１
ＮＸ１＝２０－１０＊ＥＸＴＩＭ：ＮＹ１＝３２＋ＭＯＤＥ＊３２－ＦＬＯＯＲ（９．６＊ＥＸＴＩＭ＋．５）
ＮＸ２＝２３６＋１０＊ＥＸＴＩＭ：ＮＹ２＝７２＋ＭＯＤＥ＊３２＋ＦＬＯＯＲ（９．６＊ＥＸＴＩＭ＋．５）
ＩＦ　ＯＹ２＞＝ＧＹ＿ＧＲＮＤ　ＴＨＥＮ　ＯＹ２＝ＧＹ＿ＧＲＮＤ
ＩＦ　ＮＹ２＞＝ＧＹ＿ＧＲＮＤ　ＴＨＥＮ　ＮＹ２＝ＧＹ＿ＧＲＮＤ

ＧＦＩＬＬ　ＮＸ１，ＮＹ１，ＮＸ２－１，ＯＹ１－１，＆Ｈ１０
ＧＦＩＬＬ　ＮＸ１，ＯＹ１，ＯＸ１－１，ＯＹ２－１，＆Ｈ１０
ＧＦＩＬＬ　ＯＸ２，ＯＹ１，ＮＸ２－１，ＯＹ２－１，＆Ｈ１０
ＩＦ　ＯＹ２＜ＮＹ２　ＴＨＥＮ　ＧＦＩＬＬ　ＮＸ１，ＯＹ２，ＮＸ２－１，ＮＹ２－１，＆Ｈ１０

ＧＤＲＡＷＭＤ　０
ＩＦ　ＥＸＴＩＭ＝＝１　ＴＨＥＮ　ＥＸ＝ＮＥＸ
ＩＦ　ＥＸＴＩＭ＝＝１　ＴＨＥＮ　ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ１０，ＢＧ＿Ｃ＄［ＥＸ］
ＩＦ　ＥＸＴＩＭ＝＝１　ＴＨＥＮ　ＢＧＭＰＬＡＹ　０，１２８，６４
’ＩＦ　ＥＸＴＩＭ＞＝９　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｍ＿ＳＴＡＴＧ
ＩＦ　ＥＸＴＩＭ＝＝１０　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｍ０＿ＬＳ
ＩＦ　ＥＸＴＩＭ＝＝１０　ＴＨＥＮ　ＧＰＡＩＮＴ　０，０，０

ＲＥＴＵＲＮ

＠Ｍ０ＥＸ＿２
ＥＸＣＨＧ＝ＥＸＣＨＧ－１

ＦＯＲ　Ｉ＝ＥＸＴＩＭ＊２　ＴＯ　ＥＸＴＩＭ＊２＋１

ＩＦ　Ｉ＝＝ＭＯＤＥ　ＴＨＥＮ　＠Ｍ０ＥＸ＿ＳＫＰ２
ＩＦ　Ｉ＜０　ＴＨＥＮ　＠Ｍ０ＥＸ＿ＳＫＰ２
ＩＦ　Ｉ＞＝ＭＥＮＵ＿ＣＮＴ　ＴＨＥＮ　＠Ｍ０ＥＸ＿ＳＫＰ２

ＥＸ＿Ｙ＝（ＢＧ＿ＭＹ＋Ｉ＊４）＊８
ＥＸ＿Ｙ＝ＥＸ＿Ｙ－（ＢＧ＿ＭＹＧ－４０）
’ＩＦ　Ｉ＜５　ＴＨＥＮ　ＥＸ＿Ｙ＝ＥＸ＿Ｙ－（ＢＧ＿ＭＹＧ＋４２）
’ＩＦ　Ｉ＞５　ＴＨＥＮ　ＥＸ＿Ｙ＝ＥＸ＿Ｙ－（ＢＧ＿ＭＹＧ＋３０）
ＩＦ　ＥＸ＿Ｙ＜－２４　ＴＨＥＮ　＠Ｍ０ＦＲＭＥ
ＩＦ　ＥＸ＿Ｙ＞＝ＧＹ＿ＧＲＮＤ　ＴＨＥＮ　＠Ｍ０ＦＲＭＥ

ＧＰＵＴＣＨＲ　４＊８，ＥＸ＿Ｙ，”ＢＧＵ０Ｕ”，＆ＨＡＤ，＆ＨＣ＋ＥＸ，１
ＧＦＩＬＬ　５＊８，ＥＸ＿Ｙ＋３，（３１－４）＊８－１，ＥＸ＿Ｙ＋７，＆ＨＣ２＋＆Ｈ１０＊ＥＸ
ＧＰＵＴＣＨＲ　（３１－４）＊８，ＥＸ＿Ｙ，”ＢＧＵ０Ｕ”，＆ＨＡＦ，＆ＨＣ＋ＥＸ，１
ＧＦＩＬＬ　４＊８＋３，ＥＸ＿Ｙ＋８，（３１－４）＊８＋７－３，ＥＸ＿Ｙ＋１１，＆ＨＣ２＋＆Ｈ１０＊ＥＸ
ＧＦＩＬＬ　４＊８＋３，ＥＸ＿Ｙ＋１２，（３１－４）＊８＋７－３，ＥＸ＿Ｙ＋１５，＆ＨＣ１＋＆Ｈ１０＊ＥＸ
ＧＰＵＴＣＨＲ　４＊８，ＥＸ＿Ｙ＋１６，”ＢＧＵ０Ｕ”，＆ＨＥＤ，＆ＨＣ＋ＥＸ，１
ＧＦＩＬＬ　５＊８，ＥＸ＿Ｙ＋１６，（３１－４）＊８－１，ＥＸ＿Ｙ＋２３－３，＆ＨＣ１＋＆Ｈ１０＊ＥＸ
ＧＰＵＴＣＨＲ　（３１－４）＊８，ＥＸ＿Ｙ＋１６，”ＢＧＵ０Ｕ”，＆ＨＥＦ，＆ＨＣ＋ＥＸ，１
ＧＤＲＡＷＭＤ　１
ＧＰ＝２
ＧＴ＄＝Ｍ０＿ＴＩＴ＄［Ｉ］：ＧＸ＝５＊８：ＧＹ＝ＥＸ＿Ｙ＋８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＰ＝０
ＧＤＲＡＷＭＤ　０

ＩＦ　ＥＸ＿Ｙ＋２３＞＝ＧＹ＿ＧＲＮＤ　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｍ０＿ＳＴＡＴＧ１

＠Ｍ０ＥＸ＿ＳＫＰ２
ＮＥＸＴ

ＲＥＴＵＲＮ

＠Ｍ０ＥＸ＿１
’ｘ　２０　←１０８　（１２８）　１０８→　２３６
’ｙ　７６　←２０　（９６）　２０→　１１６
ＩＦ　ＥＸＴＩＭ＝＝１　ＴＨＥＮ　ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ１０，ＢＧ＿Ｃ＄［ＥＸ］

ＧＤＲＡＷＭＤ　１

ＯＸ１＝１２８－ＦＬＯＯＲ（１０．８＊ＥＸＴＩＭ＋．５）：ＯＹ１＝５２＋ＭＯＤＥ＊３２－２＊ＥＸＴＩＭ
ＯＸ２＝１２８＋ＦＬＯＯＲ（１０．８＊ＥＸＴＩＭ＋．５）：ＯＹ２＝５２＋ＭＯＤＥ＊３２＋２＊ＥＸＴＩＭ
ＥＸＣＨＧ＝ＥＸＣＨＧ－１　’ＳＧＮ（ＥＸＣＨＧ）
ＥＸＴＩＭ＝ＥＸＴＩＭ＋１
ＮＸ１＝１２８－ＦＬＯＯＲ（１０．８＊ＥＸＴＩＭ＋．５）：ＮＹ１＝５２＋ＭＯＤＥ＊３２－２＊ＥＸＴＩＭ
ＮＸ２＝１２８＋ＦＬＯＯＲ（１０．８＊ＥＸＴＩＭ＋．５）：ＮＹ２＝５２＋ＭＯＤＥ＊３２＋２＊ＥＸＴＩＭ

ＩＦ　ＥＸＴＩＭ＝＝１　ＴＨＥＮ　ＧＦＩＬＬ　ＮＸ１，ＮＹ１，ＮＸ２－１，ＮＹ２－１，＆Ｈ１０：ＧＯＴＯ　＠Ｍ０ＥＸ＿ＳＫＰ

ＧＦＩＬＬ　ＮＸ１，ＮＹ１，ＮＸ２－１，ＯＹ１－１，＆Ｈ１０
ＧＦＩＬＬ　ＮＸ１，ＯＹ１，ＯＸ１－１，ＯＹ２－１，＆Ｈ１０
ＧＦＩＬＬ　ＯＸ２，ＯＹ１，ＮＸ２－１，ＯＹ２－１，＆Ｈ１０
ＧＦＩＬＬ　ＮＸ１，ＯＹ２，ＮＸ２－１，ＮＹ２－１，＆Ｈ１０

＠Ｍ０ＥＸ＿ＳＫＰ
ＧＤＲＡＷＭＤ　０
ＲＥＴＵＲＮ

＠Ｍ０ＷＡＩＴ
ＢＧＭＳＴＯＰ　６，０．５
’ＮＯＢＧＭ＝１
ＦＯＲ　ＷＴ＝１　ＴＯ　３０
　ＧＯＳＵＢ　＠Ｍ０ＦＲＭ
ＮＥＸＴ
ＲＥＴＵＲＮ

＠Ｍ０＿ＯＫ
ＢＥＥＰ　３

ＦＯＲ　Ｉ＝１　ＴＯ　ＥＸＣＨＧ＞０：ＧＯＳＵＢ　＠Ｍ０＿ＥＸ：Ｉ＝０：ＮＥＸＴ
’ＧＦＩＬＬ　２０，０，２３６－１，７５，０
’ＧＦＩＬＬ　２０，１１６，２３６－１，ＧＹ＿ＧＲＮＤ－１，０

’ＢＧＦＩＬＬ　１，３２＋３，ＢＧ＿ＭＹ＋５＊３，６３－３，ＢＧ＿ＭＹ＋５＊３＋２，０
’ＢＧＯＦＳ　０，５１２，ＢＧ＿ＭＹＧ＋４２，２４
’ＢＧＯＦＳ　１，５１２，ＢＧ＿ＭＹＧ＋３０，２４

ＧＯＳＵＢ　＠Ｍ０ＷＡＩＴ

ＯＮ　ＭＯＤＥ　ＧＯＴＯ　＠ＭＥＮＵＬＯＡＤ，＠ＣＨＡ，＠ＴＴＲ

＠ＭＥＮＵＬＯＡＤ
’ＢＥＥＰ　３
’ＢＧＭＳＴＯＰ　６，０．５

ＭＥＮＵＳＣＲ＝１
ＢＧＭ＝０

＠ＭＥＮＵ
ＣＬＳ
ＧＰＡＧＥ　１
ＳＰＰＡＧＥ　１
ＢＧＰＡＧＥ　１
ＧＣＬＳ
ＳＰＣＬＲ
ＢＧＣＬＲ

ＦＯＲ　Ｉ＝０　ＴＯ　２
　ＳＰＳＥＴ　Ｉ，ＳＰＳＴＡＲ＿Ｌ，１２，０，０，０
　ＳＰＯＦＳ　Ｉ，２４＋Ｉ＊２８，５８
　ＳＰＳＣＡＬＥ　Ｉ，２００
ＮＥＸＴ
ＦＯＲ　Ｉ＝０　ＴＯ　５
　ＳＰＳＥＴ　３０＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０，０，０，０，０
　ＳＰＯＦＳ　３０＋Ｉ，２２０－１６＊Ｉ，６８
ＮＥＸＴ

ＧＬＩＮＥ　１６，１２４，２３９，１２４，１５
ＧＴ＄＝”│┌□┌┝■　　И　Ш　　│┰м”：ＧＸ＝７８：ＧＹ＝１３６：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＰＵＴＣＨＲ　１２８，ＧＹ，”ＢＧＦ０”，ＡＳＣ（”И”），６，１

ＳＰＳＥＴ　３，ＳＰＳＴＡＲ＿Ｌ，０，０，０，０
ＳＰＯＦＳ　３，６６，１５０
ＳＰＳＣＡＬＥ　３，２００
ＳＰＳＥＴ　４，ＳＰＮＵＭ１６＿Ｌ＋１３，０，０，０，０
ＳＰＯＦＳ　４，９８，１６０
ＧＴ＄＝”／　　”＋ＳＴＲ＄（６＊ＢＧＭ＿ＣＮＴ）
ＧＸ＝１５２：ＧＹ＝１６８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

ＳＴＡＲＮＵＭ＝０
ＦＯＲ　Ｉ＝０　ＴＯ　６
　ＳＴＡＲ＝ＡＳＣ（ＭＩＤ＄（ＭＥＭ＄，ＳＶＬＥＮ＊Ｉ，１）＋ＣＨＲ＄（０））
　ＦＯＲ　Ｊ＝０　ＴＯ　５
　　ＩＦ　ＳＴＡＲ　ＡＮＤ　１　ＴＨＥＮ　ＳＴＡＲＮＵＭ＝ＳＴＡＲＮＵＭ＋１
　　ＳＴＡＲ＝ＳＴＡＲ／２
　ＮＥＸＴ
ＮＥＸＴ
ＳＶ＝ＳＴＡＲＮＵＭ
ＦＯＲ　Ｉ＝０　ＴＯ　１
　ＳＰＳＥＴ　５＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０＊（Ｉ＞０　ＡＮＤ　ＳＶ＜１０），０，０，０，０
　ＳＰＯＦＳ　５＋Ｉ，１３０－１６＊Ｉ，１６０
ＮＥＸＴ
ＳＰＡＮＩＭ　５，ＳＶ％１０＋１，４，１
ＳＰＡＮＩＭ　６，ＦＬＯＯＲ（ＳＶ／１０）＋１，４，１


ＷＡＩＴ　１

ＧＰＡＧＥ　０
ＳＰＰＡＧＥ　０
ＢＧＰＡＧＥ　０
ＧＣＬＳ
ＳＰＣＬＲ

’ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＦ６，ＢＧ＿Ｃ＄［ＥＸ］
’ＣＯＬＳＥＴ　”ＢＧ”，＆ＨＦＦ，ＢＧ＿Ｃ＄［ＥＸ］

ＢＧＦＩＬＬ　０，３２，０，６３，２３，０
ＢＧＦＩＬＬ　１，３２，０，６３，２３，０
ＢＧ＿ＭＹ＝０　’（４０－３０）／２
ＢＧ＿ＭＹＧ＝ＢＧ＿ＭＹ＊８
ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ－１９２
ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ－１９２

ＧＯＳＵＢ　＠Ｍ＿ＳＴＡＴＧ：ＧＯＴＯ　＠Ｍ＿ＳＴＳＫＰ
＠Ｍ＿ＳＴＡＴＧ
’ＧＦＩＬＬ　０，１９２－９，２５５，１９１，２６

ＧＣＯＰＹ　２，０，０，２５５，６＊８－１，０，ＧＹ＿ＧＲＮＤ，１

ＧＹ＝１９２－２．５＊８
ＧＴ＄＝”↑↓：　┥л┿┨┌”：ＧＸ＝７：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝”Ф：　○л├□м”：ＧＸ＝７９：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝”А：　Щ┝мбз”：ＧＸ＝１４５：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝”Х：　オ－ト”：ＧＸ＝２１１：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＲＥＴＵＲＮ
＠Ｍ＿ＳＴＡＴＧ１
ＧＣＯＰＹ　２，０，０，２５５，３＊８－１，０，ＧＹ＿ＧＲＮＤ，１
ＲＥＴＵＲＮ
＠Ｍ＿ＳＴＳＫＰ

ＮＯＢＧＭ＝０
ＭＥＮＵＣＮＴ＝０
ＢＧＭＳＴＯＰＣＮＴ＝０
ＭＯＶＥ＝０
ＥＸＣＨＧ＝０
’ＥＸ＝０
ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ
ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋３６，１５＊ＭＥＮＵＳＣＲ
ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３６，１５＊ＭＥＮＵＳＣＲ
ＭＥＮＵＳＣＲ＝０
ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ１

ＶＳＹＮＣ　１
＠ＭＥＮＵＬＯＯＰ
　ＦＰＳ＝ＦＰＳ＋１
　ＩＦ　ＤＥＢＵＧ　ＡＮＤ　ＭＡＩＮＣＮＴＬ－ＬＡＳＴＣ＞５９　ＴＨＥＮ　ＬＯＣＡＴＥ　０，０：？ＦＰＳ，：ＦＰＳ＝０：ＬＡＳＴＣ＝ＭＡＩＮＣＮＴＬ

　Ｂ＝ＢＵＴＴＯＮ（１）
　
　ＩＦ　Ｂ　ＡＮＤ　１２８　ＴＨＥＮ　ＡＵＴＯ＝１：ＧＯＴＯ　＠ＭＥＮＵ＿ＯＫ
　ＩＦ　Ｂ　ＡＮＤ　１６　ＴＨＥＮ　ＡＵＴＯ＝０：ＧＯＴＯ　＠ＭＥＮＵ＿ＯＫ
　ＩＦ　Ｂ　ＡＮＤ　３２　ＴＨＥＮ　ＢＥＥＰ　４：ＧＯＳＵＢ　＠ＭＥＮＵＷＡＩＴ：ＧＯＴＯ　＠ＴＩＴ
　
　ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＭＯＶＥ＝ＭＯＶＥ－１：ＢＥＥＰ　９
　ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＭＯＶＥ＝ＭＯＶＥ＋１：ＢＥＥＰ　９
　
’　ＩＦ　（Ｂ　ＡＮＤ　４）＞０　ＡＮＤ　ＥＸＣＨＧ＝＝０　ＴＨＥＮ　ＥＸＣＨＧ＝－１０：ＮＥＸ＝！ＥＸ：ＢＧＭＰＬＡＹ　１２９：ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ１
　ＩＦ　（Ｂ　ＡＮＤ　４＋８＋６４）＞０　ＡＮＤ　ＥＸＣＨＧ＝＝０　ＴＨＥＮ　ＥＸＣＨＧ＝１０＋６＋１０：ＮＥＸ＝！ＥＸ：ＢＧＭＰＬＡＹ　１２８：ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ１
　
　ＧＯＳＵＢ　＠ＭＥＮＵＦＲＭ
ＧＯＴＯ　＠ＭＥＮＵＬＯＯＰ

＠ＭＥＮＵＦＲＭ
　ＩＦ　！ＢＧＭＣＨＫ（６）　ＴＨＥＮ　ＢＧＭＳＴＯＰＣＮＴ＝ＢＧＭＳＴＯＰＣＮＴ＋１
　
　ＩＦ　ＭＯＶＥ＜０　ＴＨＥＮ　＠ＭＥＮＵ＿ＵＰ
　ＩＦ　ＭＯＶＥ＞０　ＴＨＥＮ　＠ＭＥＮＵ＿ＤＮ
　
　ＩＦ　ＭＥＮＵＣＮＴ＝＝１５　ＴＨＥＮ　＠ＭＥＮＵ＿ＭＶ
　
　ＩＦ　（ＭＥＮＵＣＮＴ＝＝２０　ＯＲ　ＢＧＭＳＴＯＰＣＮＴ＞＝１２０）ＡＮＤ　！ＮＯＢＧＭ　ＴＨＥＮ　ＢＧＭＰＬＡＹ　６，ＢＧＭ＿ＩＤ［ＢＧＭ］，ＢＧＭ＿ＶＯＬ［ＢＧＭ］：ＢＧＭＳＴＯＰＣＮＴ＝０
　
　ＩＦ　ＭＥＮＵＣＮＴ＞１５　ＡＮＤ　ＥＸＣＨＧ！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＥＮＵ＿ＥＸ
　
＠ＭＥＮＵＦＲＭＥ
　ＶＳＹＮＣ　１
　ＩＦ　ＭＥＮＵＣＮＴ＜１００００　ＴＨＥＮ　ＭＥＮＵＣＮＴ＝ＭＥＮＵＣＮＴ＋１
ＲＥＴＵＲＮ

＠ＭＥＮＵ＿ＵＰ
　ＩＦ　ＢＧＭ＝＝０　ＴＨＥＮ　＠ＭＥＮＵＵＰＳＫＰ
　ＩＦ　ＭＥＮＵＣＮＴ＞１５　ＴＨＥＮ　＠ＭＥＮＵ＿ＲＭＶ
　ＩＦ　ＭＥＮＵＣＮＴ＜０　ＴＨＥＮ　＠ＭＥＮＵＦＲＭＥ
　ＢＧＭ＝ＢＧＭ－１
　’ＥＸ＝０
　ＥＸＣＨＧ＝０
　ＧＦＩＬＬ　０，０，２５５，ＧＹ＿ＧＲＮＤ－１，０
　ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ
　ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋６０
　ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋３６，６
　ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋６０
　ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３６，６
　ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ１
　ＭＥＮＵＣＮＴ＝－６
＠ＭＥＮＵＵＰＳＫＰ
　ＭＯＶＥ＝ＭＯＶＥ＋１
ＧＯＴＯ　＠ＭＥＮＵＦＲＭＥ

＠ＭＥＮＵ＿ＤＮ
　ＩＦ　ＢＧＭ＝＝ＢＧＭ＿ＣＮＴ－１　ＴＨＥＮ　＠ＭＥＮＵＤＮＳＫＰ
　ＩＦ　ＭＥＮＵＣＮＴ＞１５　ＴＨＥＮ　＠ＭＥＮＵ＿ＲＭＶ
　ＩＦ　ＭＥＮＵＣＮＴ＜０　ＴＨＥＮ　＠ＭＥＮＵＦＲＭＥ
　ＢＧＭ＝ＢＧＭ＋１
　’ＥＸ＝０
　ＥＸＣＨＧ＝０
　ＧＦＩＬＬ　０，０，２５５，ＧＹ＿ＧＲＮＤ－１，０
　ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ
　ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋１２
　ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋３６，６
　ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋１２
　ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３６，６
　ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ１
　ＭＥＮＵＣＮＴ＝－６
＠ＭＥＮＵＤＮＳＫＰ
　ＭＯＶＥ＝ＭＯＶＥ－１
ＧＯＴＯ　＠ＭＥＮＵＦＲＭＥ

＠ＭＥＮＵ＿ＬＳ
ＣＯＬＳＥＴ　”ＢＧ”，＆Ｈ０，ＢＧ＿Ｃ＄［ＥＸ］
ＦＯＲ　Ｉ＝０　ＴＯ　１０
　Ｌ＝Ｉ＞＝５
　ＩＦ　ＢＧＭ－５＋Ｉ＜０　ＴＨＥＮ　＠ＭＬＳＣＬＲ
　ＩＦ　ＢＧＭ－５＋Ｉ＞＝ＢＧＭ＿ＣＮＴ　ＴＨＥＮ　＠ＭＬＳＣＬＲ
　ＢＧＰＵＴ　Ｌ，３２＋４，ＢＧ＿ＭＹ＋Ｉ＊３，＆ＨＡＤ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＦＩＬＬ　Ｌ，３２＋５，ＢＧ＿ＭＹ＋Ｉ＊３，６３－５，ＢＧ＿ＭＹ＋Ｉ＊３，＆ＨＡＥ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＰＵＴ　Ｌ，６３－４，ＢＧ＿ＭＹ＋Ｉ＊３，＆ＨＡＦ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＰＵＴ　Ｌ，３２＋４，ＢＧ＿ＭＹ＋Ｉ＊３＋１，＆ＨＣＤ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＦＩＬＬ　Ｌ，３２＋５，ＢＧ＿ＭＹ＋Ｉ＊３＋１，６３－５，ＢＧ＿ＭＹ＋Ｉ＊３＋１，＆ＨＣＥ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＰＵＴ　Ｌ，６３－４，ＢＧ＿ＭＹ＋Ｉ＊３＋１，＆ＨＣＦ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＰＵＴ　Ｌ，３２＋４，ＢＧ＿ＭＹ＋Ｉ＊３＋２，＆ＨＥＤ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＦＩＬＬ　Ｌ，３２＋５，ＢＧ＿ＭＹ＋Ｉ＊３＋２，６３－５，ＢＧ＿ＭＹ＋Ｉ＊３＋２，＆ＨＥＥ，＆ＨＣ＋ＥＸ，０，０
　ＢＧＰＵＴ　Ｌ，６３－４，ＢＧ＿ＭＹ＋Ｉ＊３＋２，＆ＨＥＦ，＆ＨＣ＋ＥＸ，０，０
’キョクタイトル
　ＢＧＦＩＬＬ　Ｌ，３２＋５，ＢＧ＿ＭＹ＋Ｉ＊３＋１，３２＋４＋ＢＧＭＢＧＬＥＮ－１，ＢＧ＿ＭＹ＋Ｉ＊３＋１，ＢＧＭ＿ＢＧ＄［ＢＧＭ－５＋Ｉ，ＥＸ］
＠ＭＬＳＳＫＩＰ
ＮＥＸＴ

ＲＥＴＵＲＮ

＠ＭＥＮＵ＿ＬＳ１
ＳＶＤＡＴＡ＄＝ＭＩＤ＄（ＭＥＭ＄，ＳＶＬＥＮ＊ＢＧＭ，ＳＶＬＥＮ）
ＳＴＡＲ＝ＡＳＣ（ＳＶＤＡＴＡ＄＋ＣＨＲ＄（０））
ＳＶＤＡＴＡ１＄＝ＭＩＤ＄（ＳＶＤＡＴＡ＄，１＋ＳＶＬＥＮ１＊ＮＥＸ，ＳＶＬＥＮ１）
ＳＣＯＲＥ＄＝ＬＥＦＴ＄（ＳＶＤＡＴＡ１＄，５）
ＯＬＤＳＣＯＲＥ＝ＶＡＬ（”＆Ｈ”＋ＳＣＯＲＥ＄）
ＳＣＯＲＥ＄＝ＲＩＧＨＴ＄（”　　　　　”＋ＳＴＲ＄（ＯＬＤＳＣＯＲＥ），６）
ＦＯＲ　Ｉ＝０　ＴＯ　３
　ＨＮＴ＿Ｎ＄［Ｉ］＝ＳＴＲ＄（ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＳＶＤＡＴＡ１＄，５＋３＊Ｉ，３）））
ＮＥＸＴ

ＧＰＡＧＥ　１
ＳＰＰＡＧＥ　１
＿ＳＰＮＵＭＩＤ＝ＳＰＮＵＭ１６＿Ｌ

ＧＦＩＬＬ　２４，２１，２５５，６３，０
ＧＴ＄＝ＢＧＭ＿ＴＩＴＬ＄［ＢＧＭ］：ＧＸ＝２４：ＧＹ＝２４：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ１２
ＧＴ＄＝ＬＶ＄［ＮＥＸ］：ＧＸ＝２４＋ＮＥＸ：ＧＹ＝４６：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝”Ｌｖ．”：ＧＸ＝７２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝ＳＴＲ＄（ＢＧＭ＿ＬＶ［ＢＧＭ，ＮＥＸ］）：ＧＸ＝１１０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＧＴ＄＝”ハイスコア”：ＧＸ＝１２６：ＧＹ＝５６：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

ＳＩ＝３０：ＳＣ＝６：ＳＺ＝０：ＳＶ＝ＯＬＤＳＣＯＲＥ：ＧＯＳＵＢ　＠ＳＣＳＥＴ

ＧＦＩＬＬ　４８，９６，２５５，１１３，０
ＦＯＲ　Ｉ＝０　ＴＯ　３
ＧＴ＄＝ＨＮＴ＄［Ｉ］：ＧＸ＝３８＋４８＊Ｉ：ＧＹ＝９６：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝ＨＮＴ＿Ｎ＄［Ｉ］：ＧＸ＝７４＋４８＊Ｉ：ＧＹ＝１０６：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＮＥＸＴ

Ｂ＝１＋７＊ＮＥＸ
ＦＯＲ　Ｉ＝０　ＴＯ　２
　ＳＰＣＨＲ　Ｉ，ＳＰＳＴＡＲ＿Ｌ，１２＊（（ＳＴＡＲ　ＡＮＤ　Ｂ）＝＝０），０，０，０
　Ｂ＝Ｂ＊２
ＮＥＸＴ

ＧＰＡＧＥ　０
ＳＰＰＡＧＥ　０

ＲＥＴＵＲＮ

＠ＭＬＳＣＬＲ
　ＢＧＦＩＬＬ　Ｌ，３２＋３，ＢＧ＿ＭＹ＋Ｉ＊３，６３－３，ＢＧ＿ＭＹ＋Ｉ＊３＋２，０
ＧＯＴＯ　＠ＭＬＳＳＫＩＰ

＠ＭＥＮＵ＿ＭＶ
ＢＧＦＩＬＬ　１，３２＋３，ＢＧ＿ＭＹ＋５＊３，６３－３，ＢＧ＿ＭＹ＋５＊３＋２，０
ＩＦ　！ＮＯＢＧＭ　ＴＨＥＮ　ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋４２，６
ＩＦ　！ＮＯＢＧＭ　ＴＨＥＮ　ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３０，６

ＧＰＵＴＣＨＲ　２０，７６，”ＢＧＵ０”，＆ＨＡＤ，＆ＨＣ＋ＥＸ，１
ＧＰＵＴＣＨＲ　２２８，７６，”ＢＧＵ０”，＆ＨＡＦ，＆ＨＣ＋ＥＸ，１
ＧＦＩＬＬ　２８，７６＋３，２２８－１，８４－１，＆ＨＣ２＋＆Ｈ１０＊ＥＸ
ＧＦＩＬＬ　２０＋３，８４，２３６－１－３，９６－１，＆ＨＣ２＋＆Ｈ１０＊ＥＸ
ＧＦＩＬＬ　２０＋３，９６，２３６－１－３，１０８－１，＆ＨＣ１＋＆Ｈ１０＊ＥＸ
ＧＦＩＬＬ　２８，１０８，２２８－１，１１６－１－３，＆ＨＣ１＋＆Ｈ１０＊ＥＸ
ＧＰＵＴＣＨＲ　２０，１０８，”ＢＧＵ０”，＆ＨＥＤ，＆ＨＣ＋ＥＸ，１
ＧＰＵＴＣＨＲ　２２８，１０８，”ＢＧＵ０”，＆ＨＥＦ，＆ＨＣ＋ＥＸ，１

Ｌ１＿＄＝ＳＴＲ＄（ＢＧＭ＿ＬＶ［ＢＧＭ，０］）
Ｌ２＿＄＝ＳＴＲ＄（ＢＧＭ＿ＬＶ［ＢＧＭ，１］）
ＧＤＲＡＷＭＤ　１　　　　　’→　
’Ｏｔｈｅｒ　　　　００　　　　　１０　　　
’Ｎｏｎｅ　　　　　Ｃ１　Ｃ２　　Ｄ１　Ｄ２
’Ｆｒｏｎｔ＾０Ｆ　ＣＥ　ＣＤ　　ＤＥ　ＤＤ
’Ｂａｃｋ　＾２０　Ｅ１　Ｅ２　　Ｆ１　Ｆ２（Ｄ７→ＢＧ）
’Ｆｒ＋Ｂｋ＾２Ｆ　ＥＥ　ＥＤ　　ＦＥ　ＦＤ
’　　ＸＯＲ　　　　　　　　　＾１０

ＧＴ＄＝ＢＧＭ＿ＴＩＴＬ＄［ＢＧＭ］：ＧＸ＝３０：ＧＹ＝８５：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ１２
ＧＴ＄＝ＢＧＭ＿ＣＭＰ＄［ＢＧＭ］：ＧＸ＝３０：ＧＹ＝９９：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝”Ｌｖ．”：ＧＸ＝２０６：ＧＹ＝９９：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＧＴ＄＝ＬＶ＄［０］：ＧＸ＝１８０：ＧＹ＝９９：ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＧＴ＄＝ＬＶ＄［１］：ＧＸ＝１７８：ＧＹ＝９９：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＧＴ＄＝Ｌ１＿＄：ＧＸ＝２２６：ＧＹ＝９５：ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ１２Ｎ
ＧＴ＄＝Ｌ２＿＄：ＧＸ＝２２６：ＧＹ＝９５：ＧＰ＝２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ１２Ｎ
ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ１２Ｎ
ＧＤＲＡＷＭＤ　０

’ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＣ１，ＢＴＮ＿Ｃ＄［０，０］
’ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＣ２，ＢＴＮ＿Ｃ＄［１，０］
’ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＣＥ，ＢＴＮ＿Ｃ＄［２，０］
’ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＣＤ，ＢＴＮ＿Ｃ＄［２，０］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＥ１，ＢＴＮ＿Ｃ＄［０，０］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＥ２，ＢＴＮ＿Ｃ＄［１，０］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＥＥ，ＢＴＮ＿Ｃ＄［２，０］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＥＤ，ＢＴＮ＿Ｃ＄［２，０］

ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＤ１，ＢＴＮ＿Ｃ＄［０，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＤ２，ＢＴＮ＿Ｃ＄［１，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＤＥ，ＢＴＮ＿Ｃ＄［０，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＤＤ，ＢＴＮ＿Ｃ＄［１，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦ１，ＢＴＮ＿Ｃ＄［２，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦ２，ＢＴＮ＿Ｃ＄［２，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＥ，ＢＴＮ＿Ｃ＄［２，１］
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＤ，ＢＴＮ＿Ｃ＄［２，１］

ＧＯＴＯ　＠ＭＥＮＵＦＲＭＥ

＠ＣＯＬＲＤ
ＣＯＬＲＥＡＤ（ＣＲＢ＄，ＣＲＩ），ＣＲ，ＣＧ，ＣＢ
Ｃ＄＝ＨＥＸ＄（ＣＲ，２）＋ＨＥＸ＄（ＣＧ，２）＋ＨＥＸ＄（ＣＢ，２）
ＲＥＴＵＲＮ

＠ＭＥＮＵ＿ＲＭＶ
ＢＧＭＳＴＯＰ　６，１
ＦＯＲ　Ｉ＝１　ＴＯ　ＥＸＣＨＧ＞０：ＧＯＳＵＢ　＠ＭＥＮＵ＿ＥＸ：Ｉ＝０：ＮＥＸＴ
ＧＦＩＬＬ　２０，０，２３６－１，７５，０
ＧＦＩＬＬ　２０，１１６，２３６－１，ＧＹ＿ＧＲＮＤ－１，０
ＢＧＯＦＳ　０，２５６，ＢＧ＿ＭＹＧ＋３６，６
ＢＧＯＦＳ　１，２５６，ＢＧ＿ＭＹＧ＋３６，６
ＭＥＮＵＣＮＴ＝－６
ＧＯＴＯ　＠ＭＥＮＵＦＲＭＥ

＠ＭＥＮＵ＿ＥＸ

ＩＦ　ＥＸＣＨＧ＞１０＋６　ＴＨＥＮ　ＥＸＴＩＭ＝１０＋６＋１０－ＥＸＣＨＧ：ＧＯＴＯ　＠ＭＥＸ＿１
ＩＦ　ＥＸＣＨＧ＞１０　ＴＨＥＮ　ＥＸＴＩＭ＝１０＋６－ＥＸＣＨＧ：ＧＯＴＯ　＠ＭＥＸ＿２

＠ＭＥＸ＿３
ＥＸＴＩＭ＝１０－ＥＸＣＨＧ

’ｘ　０　←１００　（２０－２３６）　１００→２５６
’ｙ　０　←７６　（７６－１１６）　７６→１９２

ＧＤＲＡＷＭＤ　１

ＯＸ１＝２０－１０＊ＥＸＴＩＭ：ＯＹ１＝７６－ＦＬＯＯＲ（７．６＊ＥＸＴＩＭ＋．５）
ＯＸ２＝２３６＋１０＊ＥＸＴＩＭ：ＯＹ２＝１１６＋ＦＬＯＯＲ（７．６＊ＥＸＴＩＭ＋．５）
ＥＸＣＨＧ＝ＥＸＣＨＧ－１
ＥＸＴＩＭ＝ＥＸＴＩＭ＋１
ＮＸ１＝２０－１０＊ＥＸＴＩＭ：ＮＹ１＝７６－ＦＬＯＯＲ（７．６＊ＥＸＴＩＭ＋．５）
ＮＸ２＝２３６＋１０＊ＥＸＴＩＭ：ＮＹ２＝１１６＋ＦＬＯＯＲ（７．６＊ＥＸＴＩＭ＋．５）
ＩＦ　ＯＹ２＞＝ＧＹ＿ＧＲＮＤ　ＴＨＥＮ　ＯＹ２＝ＧＹ＿ＧＲＮＤ
ＩＦ　ＮＹ２＞＝ＧＹ＿ＧＲＮＤ　ＴＨＥＮ　ＮＹ２＝ＧＹ＿ＧＲＮＤ

ＧＦＩＬＬ　ＮＸ１，ＮＹ１，ＮＸ２－１，ＯＹ１－１，＆Ｈ１０
ＧＦＩＬＬ　ＮＸ１，ＯＹ１，ＯＸ１－１，ＯＹ２－１，＆Ｈ１０
ＧＦＩＬＬ　ＯＸ２，ＯＹ１，ＮＸ２－１，ＯＹ２－１，＆Ｈ１０
ＩＦ　ＯＹ２＜ＮＹ２　ＴＨＥＮ　ＧＦＩＬＬ　ＮＸ１，ＯＹ２，ＮＸ２－１，ＮＹ２－１，＆Ｈ１０

ＧＤＲＡＷＭＤ　０
ＩＦ　ＥＸＴＩＭ＝＝１　ＴＨＥＮ　ＥＸ＝ＮＥＸ
ＩＦ　ＥＸＴＩＭ＝＝１　ＴＨＥＮ　ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ１０，ＢＧ＿Ｃ＄［ＥＸ］
ＩＦ　ＥＸＴＩＭ＝＝１　ＴＨＥＮ　ＢＧＭＰＬＡＹ　０，１２８，６４
’ＩＦ　ＥＸＴＩＭ＞＝９　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｍ＿ＳＴＡＴＧ
ＩＦ　ＥＸＴＩＭ＝＝１０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＥＮＵ＿ＬＳ
ＩＦ　ＥＸＴＩＭ＝＝１０　ＴＨＥＮ　ＧＰＡＩＮＴ　０，０，０

ＲＥＴＵＲＮ

＠ＭＥＸ＿２
ＥＸＣＨＧ＝ＥＸＣＨＧ－１

ＦＯＲ　Ｉ＝ＥＸＴＩＭ＊２－１　ＴＯ　ＥＸＴＩＭ＊２

ＩＦ　Ｉ＝＝５　ＴＨＥＮ　＠ＭＥＸ＿ＳＫＰ２
ＩＦ　ＢＧＭ－５＋Ｉ＜０　ＴＨＥＮ　＠ＭＥＸ＿ＳＫＰ２
ＩＦ　ＢＧＭ－５＋Ｉ＞＝ＢＧＭ＿ＣＮＴ　ＴＨＥＮ　＠ＭＥＸ＿ＳＫＰ２

ＥＸ＿Ｙ＝（ＢＧ＿ＭＹ＋Ｉ＊３）＊８
ＩＦ　Ｉ＜５　ＴＨＥＮ　ＥＸ＿Ｙ＝ＥＸ＿Ｙ－（ＢＧ＿ＭＹＧ＋４２）
ＩＦ　Ｉ＞５　ＴＨＥＮ　ＥＸ＿Ｙ＝ＥＸ＿Ｙ－（ＢＧ＿ＭＹＧ＋３０）
ＩＦ　ＥＸ＿Ｙ＜－２４　ＴＨＥＮ　＠ＭＥＮＵＦＲＭＥ
ＩＦ　ＥＸ＿Ｙ＞＝ＧＹ＿ＧＲＮＤ　ＴＨＥＮ　＠ＭＥＮＵＦＲＭＥ

ＧＰＵＴＣＨＲ　４＊８，ＥＸ＿Ｙ，”ＢＧＵ０Ｕ”，＆ＨＡＤ，＆ＨＣ＋ＥＸ，１
ＧＦＩＬＬ　５＊８，ＥＸ＿Ｙ＋３，（３１－４）＊８－１，ＥＸ＿Ｙ＋７，＆ＨＣ２＋＆Ｈ１０＊ＥＸ
ＧＰＵＴＣＨＲ　（３１－４）＊８，ＥＸ＿Ｙ，”ＢＧＵ０Ｕ”，＆ＨＡＦ，＆ＨＣ＋ＥＸ，１
ＧＦＩＬＬ　４＊８＋３，ＥＸ＿Ｙ＋８，（３１－４）＊８＋７－３，ＥＸ＿Ｙ＋１１，＆ＨＣ２＋＆Ｈ１０＊ＥＸ
ＧＦＩＬＬ　４＊８＋３，ＥＸ＿Ｙ＋１２，（３１－４）＊８＋７－３，ＥＸ＿Ｙ＋１５，＆ＨＣ１＋＆Ｈ１０＊ＥＸ
ＧＰＵＴＣＨＲ　４＊８，ＥＸ＿Ｙ＋１６，”ＢＧＵ０Ｕ”，＆ＨＥＤ，＆ＨＣ＋ＥＸ，１
ＧＦＩＬＬ　５＊８，ＥＸ＿Ｙ＋１６，（３１－４）＊８－１，ＥＸ＿Ｙ＋２３－３，＆ＨＣ１＋＆Ｈ１０＊ＥＸ
ＧＰＵＴＣＨＲ　（３１－４）＊８，ＥＸ＿Ｙ＋１６，”ＢＧＵ０Ｕ”，＆ＨＥＦ，＆ＨＣ＋ＥＸ，１
ＧＤＲＡＷＭＤ　１
ＧＰ＝２
ＧＴ＄＝ＢＧＭ＿ＴＩＴ＄［ＢＧＭ－５＋Ｉ］：ＧＸ＝５＊８：ＧＹ＝ＥＸ＿Ｙ＋８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＰ＝０
ＧＤＲＡＷＭＤ　０

ＩＦ　ＥＸ＿Ｙ＋２３＞＝ＧＹ＿ＧＲＮＤ　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｍ＿ＳＴＡＴＧ１

＠ＭＥＸ＿ＳＫＰ２
ＮＥＸＴ

ＲＥＴＵＲＮ

＠ＭＥＸ＿１
’ｘ　２０　←１０８　（１２８）　１０８→　２３６
’ｙ　７６　←２０　（９６）　２０→　１１６
ＩＦ　ＥＸＴＩＭ＝＝１　ＴＨＥＮ　ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ１０，ＢＧ＿Ｃ＄［ＥＸ］

ＧＤＲＡＷＭＤ　１

ＯＸ１＝１２８－ＦＬＯＯＲ（１０．８＊ＥＸＴＩＭ＋．５）：ＯＹ１＝９６－２＊ＥＸＴＩＭ
ＯＸ２＝１２８＋ＦＬＯＯＲ（１０．８＊ＥＸＴＩＭ＋．５）：ＯＹ２＝９６＋２＊ＥＸＴＩＭ
ＥＸＣＨＧ＝ＥＸＣＨＧ－１　’ＳＧＮ（ＥＸＣＨＧ）
ＥＸＴＩＭ＝ＥＸＴＩＭ＋１
ＮＸ１＝１２８－ＦＬＯＯＲ（１０．８＊ＥＸＴＩＭ＋．５）：ＮＹ１＝９６－２＊ＥＸＴＩＭ
ＮＸ２＝１２８＋ＦＬＯＯＲ（１０．８＊ＥＸＴＩＭ＋．５）：ＮＹ２＝９６＋２＊ＥＸＴＩＭ

ＩＦ　ＥＸＴＩＭ＝＝１　ＴＨＥＮ　ＧＦＩＬＬ　ＮＸ１，ＮＹ１，ＮＸ２－１，ＮＹ２－１，＆Ｈ１０：ＧＯＴＯ　＠ＭＥＸ＿ＳＫＰ

ＧＦＩＬＬ　ＮＸ１，ＮＹ１，ＮＸ２－１，ＯＹ１－１，＆Ｈ１０
ＧＦＩＬＬ　ＮＸ１，ＯＹ１，ＯＸ１－１，ＯＹ２－１，＆Ｈ１０
ＧＦＩＬＬ　ＯＸ２，ＯＹ１，ＮＸ２－１，ＯＹ２－１，＆Ｈ１０
ＧＦＩＬＬ　ＮＸ１，ＯＹ２，ＮＸ２－１，ＮＹ２－１，＆Ｈ１０

＠ＭＥＸ＿ＳＫＰ
ＧＤＲＡＷＭＤ　０
ＲＥＴＵＲＮ

＠ＭＥＮＵＷＡＩＴ
ＢＧＭＳＴＯＰ　６，１
ＮＯＢＧＭ＝１
ＦＯＲ　ＷＴ＝１　ＴＯ　６０
　ＧＯＳＵＢ　＠ＭＥＮＵＦＲＭ
ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＭＥＮＵ＿ＯＫ
ＢＥＥＰ　３２

ＦＯＲ　Ｉ＝１　ＴＯ　ＥＸＣＨＧ＞０：ＧＯＳＵＢ　＠ＭＥＮＵ＿ＥＸ：Ｉ＝０：ＮＥＸＴ
ＧＦＩＬＬ　２０，０，２３６－１，７５，０
ＧＦＩＬＬ　２０，１１６，２３６－１，ＧＹ＿ＧＲＮＤ－１，０

ＢＧＦＩＬＬ　１，３２＋３，ＢＧ＿ＭＹ＋５＊３，６３－３，ＢＧ＿ＭＹ＋５＊３＋２，０
ＢＧＯＦＳ　０，５１２，ＢＧ＿ＭＹＧ＋４２，２４
ＢＧＯＦＳ　１，５１２，ＢＧ＿ＭＹＧ＋３０，２４

ＧＯＳＵＢ　＠ＭＥＮＵＷＡＩＴ

ＭＯＤＥ＝０
ＧＯＴＯ　＠ＧＡＭＥ

＠ＴＴＲ

ＭＯＤＥ＝２
ＢＧＭ＝ＢＧＭ＿ＣＮＴ
ＡＵＴＯ＝０’１
ＧＯＴＯ　＠ＧＡＭＥ

＠ＣＨＡ＿ＯＫ
ＦＴ＿Ｌ＝０：ＧＰＰ＝１
ＢＧＭＳＴＯＰ　６，１
ＷＡＩＴ　６０

ＡＵＴＯ＝０
ＭＯＤＥ＝１

’ＩＮＰＵＴ　ＣＬＲ
’ＭＰ＝ＲＮＤ（１５０００）
’ＣＨＡ＿ＭＰ［ＢＧＭ］＝ＭＰ
’ＧＯＴＯ　”＠ＣＨＡ”＋ＳＴＲ＄（ＢＧＭ）＋”Ｃ”

’－－－－－－－－－－－－－－－－－－－－－－－－－－－
＠ＧＡＭＥ
’キョクヨミコミ
ＩＤ＝ＢＧＭ＿ＩＤ［ＢＧＭ］
ＶＯＬ＝ＢＧＭ＿ＶＯＬ［ＢＧＭ］
ＦＬＡＢＥＬ＄＝”＠Ｆ”＋ＳＴＲ＄（ＩＤ）＋”ＥＸ”＊ＥＸ
ＦＭ＄＝””
ＴＩＴ＄＝ＢＧＭ＿ＴＩＴ＄［ＢＧＭ］
ＣＭＰ＄＝ＢＧＭ＿ＣＭＰ＄［ＢＧＭ］
ＳＣＧＭＡＸＳ＝１０００００
ＳＣＧＣＬＲＳ＝８００００
ＳＣＢＡＳＥ＝１０００００
ＳＣＢＯＮＵＳ＝６００００

ＯＮＰＣＮＴ＝０
ＲＥＳＴＯＲＥ　ＦＬＡＢＥＬ＄
ＲＥＡＤ　ＴＭＰ
ＬＯＯＰＣ＝０
’ＦＸ＝０：ＦＳ＝０
ＦＭ＄＝””
ＦＥＮＤ＝０
ＦＧＥＴ＝０
ＴＩＭＭＬ０＄＝”Ｔ”＋ＳＴＲ＄（ＴＭＰ）
’ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ａ＝＄０＝０Ｒ＄０＝１Ｒ＄０＝２Ｒ＄０＝３Ｒ｝
’ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ｂ＝＄０＝０Ｒ＄０＝１Ｒ＄０＝２Ｒ｝
’ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ｃ＝＄０＝０Ｒ＄０＝１Ｒ｝
’ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ｄ＝＄０＝０Ｒ｝
ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ｅ＝＄０＝１Ｒ＄０＝２Ｒ＄０＝３Ｒ＄０＝０Ｒ｝
ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ｆ＝＄０＝１Ｒ＄０＝２Ｒ＄０＝３Ｒ｝
ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ｇ＝＄０＝１Ｒ＄０＝２Ｒ｝
ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ｈ＝＄０＝１Ｒ｝
ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ｉ＝＄０＝２Ｒ＄０＝３Ｒ＄０＝０Ｒ＄０＝１Ｒ｝
ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ｊ＝＄０＝２Ｒ＄０＝３Ｒ＄０＝０Ｒ｝
ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ｋ＝＄０＝２Ｒ＄０＝３Ｒ｝
ＴＩＭＭＬ０＄＝ＴＩＭＭＬ０＄＋”｛Ｌ＝＄０＝２Ｒ｝
ＴＩＭＭＬ１＄＝　　　　　　　　”｛Ｍ＝＄０＝３Ｒ＄０＝０Ｒ＄０＝１Ｒ＄０＝２Ｒ｝
ＴＩＭＭＬ１＄＝ＴＩＭＭＬ１＄＋”｛Ｎ＝＄０＝３Ｒ＄０＝０Ｒ＄０＝１Ｒ｝
ＴＩＭＭＬ１＄＝ＴＩＭＭＬ１＄＋”｛Ｏ＝＄０＝３Ｒ＄０＝０Ｒ｝
ＴＩＭＭＬ１＄＝ＴＩＭＭＬ１＄＋”｛Ｐ＝＄０＝３Ｒ｝
ＴＩＭＭＬ１＄＝ＴＩＭＭＬ１＄＋”｛Ｑ＝＄０＝０Ｒ＄０＝１Ｒ＄０＝２Ｒ＄０＝３Ｒ｝
ＴＩＭＭＬ１＄＝ＴＩＭＭＬ１＄＋”｛Ｒ＝＄０＝０Ｒ＄０＝１Ｒ＄０＝２Ｒ｝
ＴＩＭＭＬ１＄＝ＴＩＭＭＬ１＄＋”｛Ｓ＝＄０＝０Ｒ＄０＝１Ｒ｝
ＴＩＭＭＬ１＄＝ＴＩＭＭＬ１＄＋”｛Ｔ＝＄０＝０Ｒ｝
ＴＩＭＭＬ＄＝””
ＴＩＭ＿Ｌ＝１６
ＴＩＭ＿Ｃ＝０
ＰＳ＝０
ＭＳＣＮＴ＝０
ＬＡＳＴＡ＝３
ＣＮＴ＝－１’スタ－トマエ
ＦＯＲ　Ｉ＝０　ＴＯ　！ＦＥＮＤ
　ＧＯＳＵＢ　＠ＦＧＥＴ
’　ＲＥＡＤ　Ｆ＄
’　ＩＦ　！ＶＡＬ（Ｆ＄）　ＴＨＥＮ　＠ＯＣＬＯＯＰＳＫＰ
’　　ＬＯＯＰＣ＝ＬＯＯＰＣ＋１
’　　ＩＦ　ＬＯＯＰＣ＜ＶＡＬ（Ｆ＄）　ＴＨＥＮ　ＲＥＳＴＯＲＥ　ＦＬＡＢＥＬ＄＋”＿Ｌ”
’　　ＧＯＴＯ　＠ＯＮＰＣＮＴ＿Ｓ
’　＠ＯＣＬＯＯＰＳＫＰ
’　ＩＦ　ＬＥＦＴ＄（Ｆ＄，１）＝＝”＠”　ＴＨＥＮ　ＲＥＡＤ　Ｃ，ＢＮ，ＢＣ，ＢＶ，ＢＰ，Ｘ：ＧＯＴＯ　＠ＯＮＰＣＮＴ＿Ｓ
　ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＦＭ＄）－１
　　Ｃ＝ＡＳＣ（ＭＩＤ＄（ＦＭ＄，Ｉ，１））
　　Ｃ２＄＝ＭＩＤ＄（ＦＭ＄，Ｉ，２）
　　ＩＦ　Ｃ２＄＝＝”＃Ｌ”　ＴＨＥＮ　＠ＯＮＰＣＮＴ＿ＣＬ
　　ＩＦ　ＰＳ＜１６　ＴＨＥＮ　ＭＳＣＮＴ＝ＭＳＣＮＴ＋４＊３６００／ＴＭＰ／ＴＩＭ＿Ｌ
’　　ＦＸ＝ＦＸ＋１
　　ＰＳ＝ＰＳ＋１
　　ＩＦ　Ｃ＞＝ＡＳＣ（”Ａ”）　ＡＮＤ　Ｃ＜＝ＡＳＣ（”Ｚ”）　ＴＨＥＮ　ＯＮＰＣＮＴ＝ＯＮＰＣＮＴ＋２
　　ＩＦ　Ｃ＞＝ＡＳＣ（”ａ”）　ＡＮＤ　Ｃ＜＝ＡＳＣ（”ｚ”）　ＴＨＥＮ　ＯＮＰＣＮＴ＝ＯＮＰＣＮＴ＋１
　　ＧＯＴＯ　＠ＯＮＰＣＮＴ＿Ｓ
　　
　　＠ＯＮＰＣＮＴ＿ＮＵＭ
　　　ＮＵＭ＄＝””
　　　Ｊ＝Ｉ
　　　ＦＯＲ　Ｐ＝１　ＴＯ　１
’　　　　ＦＸ＝ＦＸ＋１
　　　　Ｊ＝Ｊ＋１
　　　　Ｃ＝ＡＳＣ（ＭＩＤ＄（ＦＭ＄，Ｊ，１）＋”　”）
　　　　ＩＦ　Ｃ＞＝ＡＳＣ（”０”）　ＡＮＤ　Ｃ＜＝ＡＳＣ（”９”）　ＴＨＥＮ　ＮＵＭ＄＝ＮＵＭ＄＋ＣＨＲ＄（Ｃ）：Ｐ＝０
　　　ＮＥＸＴ
’　　　ＦＸ＝ＦＸ－１
　　　Ｊ＝Ｊ－１
　　ＲＥＴＵＲＮ
　　＠ＯＮＰＣＮＴ＿ＣＬ
　　　Ｉ＝Ｉ＋１
’　　　ＦＸ＝ＦＸ＋１
　　　ＧＯＳＵＢ　＠ＯＮＰＣＮＴ＿ＮＵＭ
　　　Ｉ＝Ｊ
　　　ＧＯＳＵＢ　＠ＴＩＭＬＳＥＴ
　　　ＴＩＭ＿Ｌ＝ＶＡＬ（ＮＵＭ＄）
　　　ＴＩＭ＿Ｃ＝ＰＳ
　　ＧＯＴＯ　＠ＯＮＰＣＮＴ＿Ｓ
　　＠ＴＩＭＬＳＥＴ
　　　Ｃ＝ＰＳ－ＴＩＭ＿Ｃ
　　　ＩＦ　Ｃ＞０　ＴＨＥＮ　ＴＩＭＭＬ＄＝ＴＩＭＭＬ＄＋”Ｌ”＋ＳＴＲ＄（ＴＩＭ＿Ｌ）
　　　ＩＦ　Ｃ＞＝２５４＊４　ＴＨＥＮ　ＴＩＭＭＬ＄＝ＴＩＭＭＬ＄＋”［｛”＋ＣＨＲ＄（６９＋ＬＡＳＴＡ＊４）＋”｝］２５４”＊（Ｃ／（２５４＊４））
　　　Ｃ＝Ｃ％（２５４＊４）
　　　ＩＦ　Ｃ＞＝４　ＴＨＥＮ　ＴＩＭＭＬ＄＝ＴＩＭＭＬ＄＋”［｛”＋ＣＨＲ＄（６９＋ＬＡＳＴＡ＊４）＋”｝］”＋ＳＴＲ＄（ＦＬＯＯＲ（Ｃ／４））
　　　ＩＦ　Ｃ％４　ＴＨＥＮ　ＴＩＭＭＬ＄＝ＴＩＭＭＬ＄＋”｛”＋ＣＨＲ＄（６９＋ＬＡＳＴＡ＊４＋４－Ｃ％４）＋”｝”
　　　ＬＡＳＴＡ＝（ＬＡＳＴＡ＋Ｃ）％４
　　ＲＥＴＵＲＮ
　　
　＠ＯＮＰＣＮＴ＿Ｓ
　ＮＥＸＴ
’　＠ＯＮＰＣＮＴ＿Ｓ
　Ｉ＝０
ＮＥＸＴ

ＧＯＳＵＢ　＠ＴＩＭＬＳＥＴ

ＲＥＳＴＯＲＥ　ＦＬＡＢＥＬ＄
ＲＥＡＤ　ＴＭＰ

ＬＯＯＰＣ＝０
ＦＲＥＴＵＲＮ＄＝””
ＦＯＲ　Ｉ＝０　ＴＯ　ＫＭＡＸ－１
　ＫＣ［Ｉ］＝３：ＫＢＮ［Ｉ］＝－１：ＫＢＣ［Ｉ］＝０：ＫＢＶ［Ｉ］＝１２７：ＫＢＰ［Ｉ］＝６４：ＫＸ［Ｉ］＝１００
ＮＥＸＴ


ＢＧＭＳＥＴ　２５５，ＴＩＭＭＬ０＄，ＴＩＭＭＬ１＄，ＴＩＭＭＬ＄

’ＭＳＣＮＴ＝ＦＬＯＯＲ（４＊３６００／ＴＭＰ＋．５）　’ＲＯＵＮＤノカワリ
ＭＳＣＮＴ＝ＦＬＯＯＲ（ＭＳＣＮＴ＋．５）
ＭＳＬＥＮ＝２０２
ＴＧＸ＝８６：ＴＧＹ＝１０４

’－－－－－－－－－－－－－－－－－－－－－－－－－－
’カ゛メン
ＣＬＳ
ＧＰＡＧＥ　１
ＳＰＰＡＧＥ　１
ＧＣＬＳ　
ＳＰＣＬＲ　

ＧＰＡＧＥ　０
ＢＧＰＡＧＥ　０
ＳＰＰＡＧＥ　０
ＧＣＬＳ　
’ＧＣＯＰＹ　２，０，０，２５５，１９１，０，０，１
’ＧＦＩＬＬ　０，０，１２８，４６，０



’ＢＧＯＦＳ　０，０，３２０
ＢＧＯＦＳ　１，ＳＣＸ＿ＳＬＯＰ，ＳＣＹ＿ＳＬＯＰ
ＢＧＯＦＳ　０，０，４０＊８

’コンホ゛
ＣＲＢ＄＝”ＢＧ”：ＣＲＩ＝＆Ｈ３Ｆ：ＧＯＳＵＢ　＠ＣＯＬＲＤ
ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ３Ｆ，Ｃ＄
ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ３０，ＢＧ＿Ｃ＄［ＥＸ］

’ハイケイ
’ＢＧＦＩＬＬ　１，０，０，６３，２３，”Ｄ００Ｂ”
’ＢＧＦＩＬＬ　１，４０，４，４２，５，”Ｄ０４２Ｄ０４３Ｄ０４４Ｄ０６２Ｄ０６３Ｄ０６４”
’ＣＲＢ＄＝”ＢＧ”：ＣＲＩ＝＆Ｈ０６：ＧＯＳＵＢ　＠ＣＯＬＲＤ
’ＣＯＬＳＥＴ　”ＢＧ”，＆Ｈ８Ａ，Ｃ＄

ＮＯＴＥＭＡＸ＝２９
ＦＯＲ　Ｉ＝０　ＴＯ　ＮＯＴＥＭＡＸ
　ＳＰＳＥＴ　Ｉ，ＳＰＮＯＴＥ＋３，０，０，０，０
　ＳＰＨＯＭＥ　Ｉ，８，８
　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，－１００
　ＳＰＯＦＳ　Ｉ，－１６，－１６
ＮＥＸＴ
’ＳＰＯＦＳ　３１，ＴＧＸ，ＴＧＹ
’ＳＰＳＣＡＬＥ　３１，２００

ＩＦ　ＭＯＤＥ＝＝２　ＴＨＥＮ　＠ＧＭＴＩＴＳＫＰ
ＧＸ＝２４４
ＧＴ＄＝ＢＧＭ＿ＴＩＴＬ＄［ＢＧＭ］：ＧＹ＝１３４：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ１２
ＧＴ＄＝ＣＭＰ＄：ＧＹ＝１５２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　＠ＧＭ＿ＢＧＭＮＯ
ＧＸ＝２２４
ＧＴ＄＝ＬＶ＄［ＥＸ］＋”　　Ｌｖ．”：ＧＹ＝１７２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＧＸ＝２４４
ＧＴ＄＝ＳＴＲ＄（ＢＧＭ＿ＬＶ［ＢＧＭ，ＥＸ］）：ＧＹ＝１６８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ１２Ｎ
ＧＯＴＯ　＠ＧＭＴＩＴＳＫＰ

＠ＧＭ＿ＢＧＭＮＯ
ＧＸ＝２０４
ＧＴ＄＝”チャレンシ゛　モ－ト゛”：ＧＹ＝１７２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＧＸ＝２４４
ＧＴ＄＝”／　７”：ＧＹ＝１７２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＧＸ＝２２４
ＧＴ＄＝ＳＴＲ＄（ＢＧＭ＋１）：ＧＹ＝１６８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ１２Ｎ

＠ＧＭＴＩＴＳＫＰ

ＧＸ＝２４４
ＧＴ＄＝”［　オ－ト　フ゜レイ　］”：ＧＹ＝１１６
ＩＦ　ＡＵＴＯ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ

ＩＦ　ＭＯＤＥ！＝１　ＴＨＥＮ　＠ＧＭ＿ＨＰＳＫＰ
ＳＰＳＥＴ　３１，６４，２，０，０，０
ＳＰＨＯＭＥ　３１，８，１６
ＳＰＳＣＡＬＥ　３１，２００
ＳＰＯＦＳ　３１，ＴＧＸ－２４，ＴＧＹ＋８

ＳＰＳＥＴ　３０，１６，３，０，０，０
ＳＰＨＯＭＥ　３０，０，８
ＳＰＯＦＳ　３０，ＴＧＸ－２４＋６，ＴＧＹ
ＳＰＳＣＡＬＥ　３０，１２０
ＳＰＡＮＧＬＥ　３０，３０

ＦＯＲ　Ｉ＝０　ＴＯ　１５
　ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ５０＋Ｉ，”ＦＦＦＦＦＦ”
ＮＥＸＴ
ＧＴ＄＝”ＨＰ”：ＧＸ＝４６：ＧＹ＝１２２：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
’ＧＤＲＡＷＭＤ　１
ＣＨＡ＿ＨＰＯ＝０
ＳＸ＝７８：ＳＹ＝１２２
ＳＰＳＥＴ　４０，０，０，０，０，０，８，８
ＳＰＯＦＳ　４０，ＳＸ，ＳＹ
ＳＸ＝ＳＸ－７
ＳＰＳＥＴ　４１，０，０，０，０，０，８，８
ＳＰＳＥＴＶ　４１，０，ＳＸ
ＳＰＳＥＴＶ　４１，１，ＳＹ
’ＧＴ＄＝”０”：ＧＸ＝８４：ＧＹ＝１２２
’ＧＰ＝１：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
’ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＧＯＳＵＢ　＠ＳＣ＿ＨＰＧ
ＧＯＳＵＢ　＠ＳＣ＿ＨＰＳ

＠ＧＭ＿ＨＰＳＫＰ


ＳＰＰＡＧＥ　１
ＧＰＡＧＥ　１

ＧＴ＄＝”ＳＴＡＲＴ　▼м　гбз”：ＧＸ＝１５１：ＧＹ＝１７６：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

ＧＴ＄＝”２２２３２４”　’スコア
ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＧＴ＄＝”０２０５”　’ＭＰ
ＧＸ＝２４：ＧＹ＝２４：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ１２
ＩＦ　ＭＯＤＥ＝＝０　ＴＨＥＮ　ＧＴ＄＝”ハイスコア”：ＧＸ＝２４：ＧＹ＝５６：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
’ＧＰＰ＝０
ＩＦ　ＭＯＤＥ＝＝０　ＴＨＥＮ　ＧＴ＄＝ＳＣＯＲＥ＄：ＧＸ＝２５６－２４：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
’ＧＰＰ＝１

’スコアケ゛－シ゛
ＳＣＧＸ＝２５：ＳＣＧＹ＝４４
ＳＣＧＬＥＮ＝２０７
ＳＣＧＸ２＝ＳＣＧＸ＋ＦＬＯＯＲ（ＳＣＧＬＥＮ＊（ＳＣＧＣＬＲＳ／ＳＣＧＭＡＸＳ））
ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＳＣＧＸ２＝２５６－ＳＣＧＸ
ＧＬＩＮＥ　ＳＣＧＸ，ＳＣＧＹ－１，２５６－ＳＣＧＸ，ＳＣＧＹ－１，１５
ＧＬＩＮＥ　ＳＣＧＸ，ＳＣＧＹ＋６，２５６－ＳＣＧＸ，ＳＣＧＹ＋６，１５
ＧＬＩＮＥ　ＳＣＧＸ－１，ＳＣＧＹ，ＳＣＧＸ－１，ＳＣＧＹ＋５，１５
ＧＬＩＮＥ　２５６－ＳＣＧＸ＋１，ＳＣＧＹ，２５６－ＳＣＧＸ＋１，ＳＣＧＹ＋５，１５
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦ８，”３８３８３８”
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦ９，”２８２８２８”
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＡ，”５０５０５０”
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＢ，”４０４０４０”
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＣ，”００Ｆ０１８”
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＤ，”２０８０３０”
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＥ，”ＦＦＡ０００”
ＣＯＬＳＥＴ　”ＧＲＰ”，＆ＨＦＦ，”８Ｃ６０２８”
ＧＦＩＬＬ　ＳＣＧＸ，ＳＣＧＹ，ＳＣＧＸ２，ＳＣＧＹ＋３，＆ＨＦ８
ＧＦＩＬＬ　ＳＣＧＸ，ＳＣＧＹ＋４，ＳＣＧＸ２，ＳＣＧＹ＋５，＆ＨＦ９
ＩＦ　ＭＯＤＥ！＝１　ＴＨＥＮ　ＧＦＩＬＬ　ＳＣＧＸ２，ＳＣＧＹ，２５６－ＳＣＧＸ，ＳＣＧＹ＋３，＆ＨＦＡ
ＩＦ　ＭＯＤＥ！＝１　ＴＨＥＮ　ＧＦＩＬＬ　ＳＣＧＸ２，ＳＣＧＹ＋４，２５６－ＳＣＧＸ，ＳＣＧＹ＋５，＆ＨＦＢ

ＦＯＲ　Ｉ＝０　ＴＯ　５
　ＳＰＳＥＴ　３０＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０＊（Ｉ＞０），０，０，０，０
　ＳＸ＝２２０－１６＊Ｉ：ＳＹ＝２１
　ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＳＸ＝ＳＸ－２８
　ＳＰＳＥＴＶ　３０＋Ｉ，０，ＳＸ
　ＳＰＳＥＴＶ　３０＋Ｉ，１，ＳＹ
　ＳＰＯＦＳ　３０＋Ｉ，ＳＸ，ＳＹ
　ＳＰＳＥＴ　Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０，７，０，０，０
　ＳＸ＝２２０－１６＊Ｉ：ＳＹ＝１０
　ＳＰＳＥＴＶ　Ｉ，０，ＳＸ
　ＳＰＳＥＴＶ　Ｉ，１，ＳＹ
　ＳＰＯＦＳ　Ｉ，ＳＸ，ＳＹ
ＮＥＸＴ

ＩＦ　ＭＯＤＥ！＝１　ＴＨＥＮ　＠ＳＥＴＭＰ＿ＳＫＰ
ＧＴ＄＝”．”：ＧＸ＝２１０：ＧＹ＝２９：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＦＯＲ　Ｉ＝０　ＴＯ　１
　ＳＰＳＥＴ　３４＋Ｉ，０，０，０，０，０，８，８
　ＳＸ＝２２４－７＊Ｉ：ＳＹ＝ＧＹ
　ＳＰＯＦＳ　３４＋Ｉ，ＳＸ，ＳＹ
ＮＥＸＴ
ＭＰ＝０：ＳＩ＝３０：ＧＯＳＵＢ　＠ＳＣＳＥＴ＿ＭＰ

＠ＳＥＴＭＰ＿ＳＫＰ

ＧＸ＝１５０
ＧＴ＄＝ＨＮＴ＄［０］：ＧＹ＝７８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝ＨＮＴ＄［１］：ＧＹ＝９８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝ＨＮＴ＄［２］：ＧＹ＝１１８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝ＨＮＴ＄［３］：ＧＹ＝１３８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝”Ш└ж”：ＧＹ＝１５８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

ＦＯＲ　Ｉ＝０　ＴＯ　３
　ＳＰＳＥＴ　１０＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０＊（Ｉ＞０），０，０，０，０
　ＳＰＳＥＴ　１５＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０＊（Ｉ＞０），０，０，０，０
　ＳＰＳＥＴ　２０＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０＊（Ｉ＞０），０，０，０，０
　ＳＰＳＥＴ　２５＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０＊（Ｉ＞０），０，０，０，０
　ＳＰＳＥＴ　４０＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０＊（Ｉ＞０），０，０，０，０
　ＳＰＯＦＳ　１０＋Ｉ，２２６－１６＊Ｉ，７３
　ＳＰＯＦＳ　１５＋Ｉ，２２６－１６＊Ｉ，９３
　ＳＰＯＦＳ　２０＋Ｉ，２２６－１６＊Ｉ，１１３
　ＳＰＯＦＳ　２５＋Ｉ，２２６－１６＊Ｉ，１３３
　ＳＰＯＦＳ　４０＋Ｉ，２２６－１６＊Ｉ，１５３
ＮＥＸＴ

ＨＮＴ１Ｃ＝０：ＨＮＴ１Ｃ＿Ｏ＝０
ＨＮＴ２Ｃ＝０：ＨＮＴ２Ｃ＿Ｏ＝０
ＨＮＴ３Ｃ＝０：ＨＮＴ３Ｃ＿Ｏ＝０
ＨＮＴ４Ｃ＝０：ＨＮＴ４Ｃ＿Ｏ＝０
ＳＣＯＲＥ＝０：ＳＣＯＲＥ＿Ｏ＝０
ＭＰ＝０：ＭＰ＿Ｏ＝０
ＳＣＡＤＤ＝０
ＳＣＡ＝０
ＳＣＥ＝０：ＳＣＳ＝０
ＣＯＭＢＯ＝０：ＣＯＭＢＯ＿Ｏ＝０
ＭＡＸＣＭＢ＝０：ＭＡＸＣＭＢ＿Ｏ＝０
ＲＥＳＴ＝ＯＮＰＣＮＴ：ＲＥＳＴ＿Ｏ＝ＲＥＳＴ
＿ＳＰＮＵＭＩＤ＝ＳＰＮＵＭ１６＿Ｌ
ＳＩ＝４０：ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＲＥＳＴ：ＧＯＳＵＢ　＠ＳＣＳＥＴ

ＦＯＲ　Ｉ＝０＋１００＊（ＭＯＤＥ＝＝１）　ＴＯ　２
　ＳＰＳＥＴ　７＋Ｉ，ＳＰＳＴＡＲ＿Ｌ，１２，０，０，０
　ＳＰＯＦＳ　７＋Ｉ，２４＋Ｉ＊２８，８０
　ＳＰＳＣＡＬＥ　７＋Ｉ，２００
ＮＥＸＴ

ＳＰＰＡＧＥ　０
ＧＰＡＧＥ　０
ＦＯＲ　Ｉ＝０　ＴＯ　３
　ＳＰＳＥＴ　３２＋Ｉ，ＳＰＮＵＭ１６＋１０，０，０，０，０
　ＳＰＳＥＴＶ　３２＋Ｉ，２，５２　’６４
　ＳＰＳＥＴＶ　３２＋Ｉ，１，４８
ＮＥＸＴ


ＦＥＮＤ＝０
ＳＰＩ＝０
ＦＸ＝０’：ＦＳ＝０
ＰＳ＝０
ＣＮＴ＝０
ＴＴＲ＿ＲＳＬＴ＝０
ＯＡ＝－１
ＢＧＭＰＬＡＹ　７，２５５
ＦＧＥＴ＝１

ＬＡＳＴＣ＝ＭＡＩＮＣＮＴＬ
ＳＴＡＲＴＣＮＴ＝ＭＡＩＮＣＮＴＬ

ＧＯＴＯ　＠ＬＯＯＰ


＠ＧＰＲＴ＿Ｒ１２Ｎ
＿ＧＸ＝ＧＸ
ＦＯＲ　＿Ｉ＝１　ＴＯ　ＬＥＮ（ＧＴ＄）
　＿ＧＣ＝ＡＳＣ（ＲＩＧＨＴ＄（ＧＴ＄，＿Ｉ））－４８
　＿ＧＸ＝＿ＧＸ－１０
　ＧＯＳＵＢ　＠ＧＰ１２＿Ｎ
ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＧＰＲＴ＿Ｌ１２
＿ＧＸ＝ＧＸ
ＦＯＲ　＿Ｉ＝０　ＴＯ　ＬＥＮ（ＧＴ＄）－１　ＳＴＥＰ　２
　＿ＧＣＮ＄＝ＭＩＤ＄（ＧＴ＄，＿Ｉ，２）
　ＩＦ　ＬＥＦＴ＄（＿ＧＣＮ＄，１）＝＝”－”　ＴＨＥＮ　＠ＧＰ１２＿ＬＮ

　＿ＧＣ＝ＶＡＬ（”＆Ｈ”＋＿ＧＣＮ＄）
　＿ＧＣＳ＝ＰＦＴ１＿Ｓ［＿ＧＣ］＊ＧＳ：＿ＧＣＷ＝ＰＦＴ１＿Ｗ［＿ＧＣ］＊ＧＳ
　ＧＯＳＵＢ　＠ＧＰ１２＿Ｃ
　＿ＧＸ＝＿ＧＸ＋＿ＧＣＷ＋３＊ＧＳ
ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＧＰ１２＿ＬＮ
　＿ＧＣ＝ＶＡＬ（ＲＩＧＨＴ＄（＿ＧＣＮ＄，１））
　＿ＧＸ＝＿ＧＸ－２
　ＧＯＳＵＢ　＠ＧＰ１２＿Ｎ
　＿ＧＸ＝＿ＧＸ＋２＋７＋３
ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＧＰＲＴ＿Ｒ１２
＿ＧＸ＝ＧＸ
ＦＯＲ　＿Ｉ＝ＬＥＮ（ＧＴ＄）－２　ＴＯ　０　ＳＴＥＰ　－２
　＿ＧＣＮ＄＝ＭＩＤ＄（ＧＴ＄，＿Ｉ，２）
　ＩＦ　ＬＥＦＴ＄（＿ＧＣＮ＄，１）＝＝”－”　ＴＨＥＮ　＠ＧＰ１２＿ＲＮ

　＿ＧＣ＝ＶＡＬ（”＆Ｈ”＋＿ＧＣＮ＄）
　＿ＧＣＳ＝ＰＦＴ１＿Ｓ［＿ＧＣ］＊ＧＳ：＿ＧＣＷ＝ＰＦＴ１＿Ｗ［＿ＧＣ］＊ＧＳ
　＿ＧＸ＝＿ＧＸ－＿ＧＣＷ
　ＧＯＳＵＢ　＠ＧＰ１２＿Ｃ
　＿ＧＸ＝＿ＧＸ－３＊ＧＳ
ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＧＰ１２＿ＲＮ
　＿ＧＣ＝ＶＡＬ（ＲＩＧＨＴ＄（＿ＧＣＮ＄，１））
　＿ＧＸ＝＿ＧＸ－７－２
　ＧＯＳＵＢ　＠ＧＰ１２＿Ｎ
　＿ＧＸ＝＿ＧＸ＋２－３
ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＧＰ１２＿Ｎ
　ＧＰＵＴＣＨＲ　＿ＧＸ，ＧＹ，”ＳＰＵ２Ｕ”，１２８＋＿ＧＣ＊４，ＧＰ，１
　ＧＰＵＴＣＨＲ　＿ＧＸ＋８，ＧＹ，”ＳＰＵ２Ｕ”，１２８＋＿ＧＣ＊４＋１，ＧＰ，１
　ＧＰＵＴＣＨＲ　＿ＧＸ，ＧＹ＋８，”ＳＰＵ２Ｕ”，１２８＋＿ＧＣ＊４＋２，ＧＰ，１
　ＧＰＵＴＣＨＲ　＿ＧＸ＋８，ＧＹ＋８，”ＳＰＵ２Ｕ”，１２８＋＿ＧＣ＊４＋３，ＧＰ，１
ＲＥＴＵＲＮ
＠ＧＰ１２＿Ｃ
’ＩＦ　＿ＧＣ＞＝＆Ｈ４０　ＴＨＥＮ　．．．
　ＧＰＵＴＣＨＲ　＿ＧＸ－＿ＧＣＳ，ＧＹ，”ＳＰＵ５Ｕ”，＿ＧＣ＊４，ＧＰ，１
　ＧＰＵＴＣＨＲ　＿ＧＸ－＿ＧＣＳ＋８，ＧＹ，”ＳＰＵ５Ｕ”，＿ＧＣ＊４＋１，ＧＰ，１
　ＧＰＵＴＣＨＲ　＿ＧＸ－＿ＧＣＳ，ＧＹ＋８，”ＳＰＵ５Ｕ”，＿ＧＣ＊４＋２，ＧＰ，１
　ＧＰＵＴＣＨＲ　＿ＧＸ－＿ＧＣＳ＋８，ＧＹ＋８，”ＳＰＵ５Ｕ”，＿ＧＣ＊４＋３，ＧＰ，１
ＲＥＴＵＲＮ

＠ＧＰＲＴ＿Ｒ
＿ＧＸ＝ＧＸ
＿ＧＣＳ＝０：＿ＧＣＷ＝７’８
ＦＯＲ　＿Ｉ＝１　ＴＯ　ＬＥＮ（ＧＴ＄）
　＿ＧＣ＝ＡＳＣ（ＲＩＧＨＴ＄（ＧＴ＄，＿Ｉ））
　ＩＦ　ＧＰＰ　ＴＨＥＮ　＿ＧＣＳ＝ＰＦＴ＿Ｓ［＿ＧＣ］＊ＧＳ：＿ＧＣＷ＝ＰＦＴ＿Ｗ［＿ＧＣ］＊ＧＳ
　＿ＧＸ＝＿ＧＸ－＿ＧＣＷ
　ＧＰＵＴＣＨＲ　＿ＧＸ－＿ＧＣＳ，ＧＹ，”ＢＧＦ０Ｕ”，＿ＧＣ，ＧＰ，ＧＳ
　ＩＦ　ＧＰＰ　ＴＨＥＮ　＿ＧＸ＝＿ＧＸ－２＊ＧＳ
ＮＥＸＴ
ＲＥＴＵＲＮ
＠ＧＰＲＴ＿Ｌ
＿ＧＸ＝ＧＸ
＿ＧＣＳ＝０：＿ＧＣＷ＝７’８
＿ＣＨＭ＝０
ＦＯＲ　＿Ｉ＝０　ＴＯ　ＬＥＮ（ＧＴ＄）－１
　＿ＧＣ＝ＡＳＣ（ＭＩＤ＄（ＧＴ＄，＿Ｉ，１））
　ＩＦ　＿ＧＣ＝＝ＡＳＣ（”＄”）　ＴＨＥＮ　＿ＣＨＭ＝！＿ＣＨＭ：ＧＯＴＯ　＠ＧＰ＿Ｌ２
　ＩＦ　＿ＣＨＭ　ＡＮＤ　＿ＧＣ＞＝１６０　ＴＨＥＮ　＿ＧＣ＝＿ＧＣ－３２
　ＩＦ　＿ＣＨＭ　ＡＮＤ　＿ＧＣ＞＝１９２－３２　ＴＨＥＮ　＿ＧＣ＝＿ＧＣ＋３２＋３２
　ＩＦ　ＧＰＰ　ＴＨＥＮ　＿ＧＣＳ＝ＰＦＴ＿Ｓ［＿ＧＣ］＊ＧＳ：＿ＧＣＷ＝ＰＦＴ＿Ｗ［＿ＧＣ］＊ＧＳ
　ＧＰＵＴＣＨＲ　＿ＧＸ－＿ＧＣＳ，ＧＹ，”ＢＧＦ０Ｕ”，＿ＧＣ，ＧＰ，ＧＳ
　＿ＧＸ＝＿ＧＸ＋＿ＧＣＷ
　ＩＦ　ＧＰＰ　ＴＨＥＮ　＿ＧＸ＝＿ＧＸ＋２＊ＧＳ
＠ＧＰ＿Ｌ２
ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＬＯＯＰ
　’ＩＦ　ＦＸ＜１２　ＴＨＥＮ　ＳＰＣＨＲ　３１，２５２＋３＊！（ＦＸ％４），２，０，０，０
　
　Ａ＝ＢＧＭＧＥＴＶ（７，０）
　ＦＯＲ　Ｐ＝１　ＴＯ　Ａ！＝ＯＡ　ＡＮＤ　！ＦＥＮＤ
　　ＧＯＳＵＢ　＠ＦＲＥＡＤ
　　ＯＡ＝（ＯＡ＋１）％４
　　Ｐ＝０
　ＮＥＸＴ
　ＯＡ＝Ａ
　
　ＢＴ＝０
　
　ＩＦ　！ＡＵＴＯ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＴＮ
　ＩＦ　ＡＵＴＯ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＡＵＴＯ
　
　ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＨＲＭＶ
　ＩＦ　ＭＯＤＥ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＡＭＥ＿ＴＴＲ
　
　ＧＯＳＵＢ　＠ＭＯＶＥ
　ＧＯＳＵＢ　＠ＨＮＴ
　
　ＩＦ　ＣＨＡ＿ＨＰ＞ＣＨＡ＿ＨＰＭＡＸ　ＴＨＥＮ　ＣＨＡ＿ＨＰ＝ＣＨＡ＿ＨＰＭＡＸ
　ＩＦ　ＣＨＡ＿ＨＰ＜．５　ＴＨＥＮ　ＣＨＡ＿ＨＰ＝０
　ＧＯＳＵＢ　＠ＳＣＯＲ
　
　ＩＦ　ＭＯＤＥ＝＝１　ＡＮＤ　ＣＨＡ＿ＨＰ＜．５　ＴＨＥＮ　＠ＧＯＶＥＲ

　ＩＦ　ＭＡＩＮＣＮＴＬ＜ＳＴＡＲＴＣＮＴ　ＴＨＥＮ　ＳＴＡＲＴＣＮＴ＝ＳＴＡＲＴＣＮＴ－５２４２８７－１
　ＣＮＴ＝ＭＡＩＮＣＮＴＬ－ＳＴＡＲＴＣＮＴ
’　ＢＧＯＦＳ　１，ＣＮＴ／２，０
　
　ＦＰＳ＝ＦＰＳ＋１
　ＩＦ　ＤＥＢＵＧ　ＡＮＤ　ＭＡＩＮＣＮＴＬ－ＬＡＳＴＣ＞５９　ＴＨＥＮ　ＬＯＣＡＴＥ　０，０：？ＦＰＳ，：ＦＰＳ＝０：ＬＡＳＴＣ＝ＭＡＩＮＣＮＴＬ
　
　ＩＦ　ＦＥＮＤ　ＴＨＥＮ　ＦＥＮＤ＝ＦＥＮＤ＋１
　ＩＦ　ＦＥＮＤ＝＝ＭＳＣＮＴ＋６０　ＴＨＥＮ　ＢＧＭＳＴＯＰ　６，５
　ＩＦ　ＦＥＮＤ＝＝ＭＳＣＮＴ＋１２０　ＴＨＥＮ　＠ＲＥＳＵＬＴ
　
　ＶＳＹＮＣ　１
　
　ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　１０２４　ＴＨＥＮ　＠ＱＵＩＴ
　
ＧＯＴＯ　＠ＬＯＯＰ

＠ＦＧＥＴ
’　ＩＦ　ＦＸ－ＦＳ＜ＬＥＮ（ＦＭ＄）　ＴＨＥＮ　ＲＥＴＵＲＮ
　
’　ＦＳ＝ＦＸ
　ＲＥＡＤ　ＦＭ＄
　
　＠ＦＲＣＨＫ
　ＩＦ　ＦＭ＄＝＝””　ＴＨＥＮ　ＦＥＮＤ＝１：ＲＥＴＵＲＮ
　
　ＩＦ　ＦＭ＄＝＝”＃ＧＯＳＵＢ”　ＴＨＥＮ　＠ＦＧＯＳＵＢ
　ＩＦ　ＦＭ＄＝＝”＃ＲＥＴＵＲＮ”　ＴＨＥＮ　＠ＦＲＥＴＵＲＮ
　ＩＦ　ＦＭ＄＝＝”＃ＡＵＴＯ”　ＴＨＥＮ　＠ＦＡＵＴＯ
　ＩＦ　ＶＡＬ（ＦＭ＄）　ＴＨＥＮ　＠ＦＬＯＯＰＣＨＫ
　
　ＩＦ　ＬＥＦＴ＄（ＦＭ＄，１）＝＝”＠”　ＴＨＥＮ　＠ＦＫＳＥＴ
　
ＲＥＴＵＲＮ

＠ＦＲＥＡＤ
　ＩＦ　ＤＥＢＵＧ　ＴＨＥＮ　ＬＯＣＡＴＥ　４，０：？ＰＳ，
　ＩＦ　ＦＸ＞＝ＬＥＮ（ＦＭ＄）　ＴＨＥＮ　ＦＸ＝０：ＧＯＳＵＢ　＠ＦＧＥＴ
　ＩＦ　ＦＥＮＤ＝＝１　ＴＨＥＮ　ＲＥＴＵＲＮ
　
　ＩＦ　ＰＳ＝＝１６　ＴＨＥＮ　ＢＧＭＰＬＡＹ　６，ＩＤ，ＶＯＬ
　
　ＮＴＣ＝ＡＳＣ（ＭＩＤ＄（ＦＭ＄，ＦＸ，１））
　ＩＦ　ＮＴＣ＝＝ＡＳＣ（”＃”）　ＴＨＥＮ　ＦＸ＝ＦＸ＋１
　ＦＸ＝ＦＸ＋１
　
　ＩＦ　ＮＴＣ＝＝ＡＳＣ（”　”）　ＴＨＥＮ　ＰＳ＝ＰＳ＋１：ＲＥＴＵＲＮ
　
　Ｓ＝２
　Ｋ＝ＮＴＣ－ＡＳＣ（”Ａ”）
　ＩＦ　Ｋ＞２６　ＴＨＥＮ　Ｋ＝ＮＴＣ－ＡＳＣ（”ａ”）：Ｓ＝１
　ＩＦ　Ｋ＜０　ＯＲ　Ｋ＞２６　ＴＨＥＮ　＠ＦＲＥＡＤ
　ＰＳ＝ＰＳ＋１
　Ｃ＝ＫＣ［Ｋ］
　ＢＮ＝ＫＢＮ［Ｋ］
　ＢＣ＝ＫＢＣ［Ｋ］
　ＢＶ＝ＫＢＶ［Ｋ］
　ＢＰ＝ＫＢＰ［Ｋ］
　Ｘ＝ＫＸ［Ｋ］
　
　ＳＰＯＦＳ　ＳＰＩ，－１６，－１６
　ＳＰＣＨＲ　ＳＰＩ，ＳＰＮＯＴＥ，Ｃ，０，０，０
　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿Ｓ，Ｓ
　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿Ｔ１，ＣＮＴ
　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿Ｔ２，ＣＮＴ＋ＭＳＣＮＴ
　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿ＢＮ，ＢＮ
　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿ＢＣ，ＢＣ
　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿ＢＶ，ＢＶ
　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿ＢＰ，ＢＰ
　ＳＰＳＥＴＶ　ＳＰＩ，Ｖ＿Ｘ，Ｘ
　
　ＳＰＩ＝（ＳＰＩ＋１）％（ＮＯＴＥＭＡＸ＋１）
ＲＥＴＵＲＮ

＠ＦＫＳＥＴ
　ＮＴ＄＝ＲＩＧＨＴ＄（ＦＭ＄，１）
　Ｋ＝ＡＳＣ（ＮＴ＄）－ＡＳＣ（”Ａ”）
　ＲＥＡＤ　Ｃ，ＢＮ，ＢＣ，ＢＶ，ＢＰ，Ｘ
　ＩＦ　Ｃ！＝－１　ＴＨＥＮ　ＫＣ［Ｋ］＝Ｃ
　ＩＦ　ＢＮ！＝－１　ＴＨＥＮ　ＫＢＮ［Ｋ］＝ＢＮ
　ＩＦ　ＢＣ！＝－１　ＴＨＥＮ　ＫＢＣ［Ｋ］＝ＢＣ
　ＩＦ　ＢＶ！＝－１　ＴＨＥＮ　ＫＢＶ［Ｋ］＝ＢＶ
　ＩＦ　ＢＰ！＝－１　ＴＨＥＮ　ＫＢＰ［Ｋ］＝ＢＰ
　ＩＦ　Ｘ！＝－１　ＴＨＥＮ　ＫＸ［Ｋ］＝Ｘ
　ＲＥＡＤ　ＦＭ＄
ＧＯＴＯ　＠ＦＲＣＨＫ

＠ＦＬＯＯＰＣＨＫ
　ＬＯＯＰＣ＝ＬＯＯＰＣ＋１
　ＩＦ　ＬＯＯＰＣ＜ＶＡＬ（ＦＭ＄）　ＴＨＥＮ　ＲＥＳＴＯＲＥ　ＦＬＡＢＥＬ＄＋”＿Ｌ”
　ＩＦ　ＤＥＢＵＧ　ＴＨＥＮ　ＬＯＣＡＴＥ　０，１：？”Ｌｏｏｐ：”；ＬＯＯＰＣ＋１；”／”；ＦＭ＄，
　ＲＥＡＤ　ＦＭ＄
ＧＯＴＯ　＠ＦＲＣＨＫ

＠ＦＧＯＳＵＢ
　ＲＥＡＤ　ＦＧＯＳＵＢ＄，ＦＲＥＴＵＲＮ＄
　ＲＥＳＴＯＲＥ　ＦＬＡＢＥＬ＄＋”＿”＋ＦＧＯＳＵＢ＄
　ＩＦ　ＤＥＢＵＧ　ＴＨＥＮ　ＬＯＣＡＴＥ　０，２：？”Ｇｏｓｕｂ：”；ＦＧＯＳＵＢ＄；”／”；ＦＲＥＴＵＲＮ＄，
　ＲＥＡＤ　ＦＭ＄
ＧＯＴＯ　＠ＦＲＣＨＫ

＠ＦＲＥＴＵＲＮ
　ＩＦ　ＦＲＥＴＵＲＮ＄！＝””　ＴＨＥＮ　ＲＥＳＴＯＲＥ　ＦＬＡＢＥＬ＄＋”＿”＋ＦＲＥＴＵＲＮ＄
　ＦＲＥＴＵＲＮ＄＝””
　ＩＦ　ＤＥＢＵＧ　ＴＨＥＮ　ＬＯＣＡＴＥ　０，２：？”　”＊３２；
　ＲＥＡＤ　ＦＭ＄
ＧＯＴＯ　＠ＦＲＣＨＫ

＠ＦＡＵＴＯ
　ＲＥＡＤ　ＮＡＵＴＯ
　ＲＥＡＤ　ＦＭ＄
　ＩＦ　ＣＮＴ＜０　ＴＨＥＮ　ＧＯＴＯ　＠ＦＲＣＨＫ
　ＩＦ　ＡＵＴＯ＝＝ＮＡＵＴＯ　ＴＨＥＮ　ＧＯＴＯ　＠ＦＲＣＨＫ
　ＡＵＴＯ＝ＮＡＵＴＯ
　ＧＸ＝２４４
　ＧＴ＄＝”［　オ－ト　フ゜レイ　］”：ＧＹ＝１１６
　ＩＦ　ＡＵＴＯ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
　ＩＦ　！ＡＵＴＯ　ＴＨＥＮ　ＧＦＩＬＬ　１５０，１１６，２５５，１２３，０
ＧＯＴＯ　＠ＦＲＣＨＫ

＠ＣＨＲＭＶ
ＩＦ　ＢＴ　ＴＨＥＮ　ＳＰＡＮＧＬＥ　３０，３０：ＳＰＡＮＧＬＥ　３０，－４０，５，－１
ＩＦ　ＢＴ　ＴＨＥＮ　ＳＰＣＨＲ　３１，８１
ＩＦ　！ＢＵＴＴＯＮ（）　ＡＮＤ　！ＳＰＣＨＫ（３０）　ＴＨＥＮ　ＳＰＡＮＧＬＥ　３０，３０：ＳＰＣＨＲ　３１，６４
ＲＥＴＵＲＮ

＠ＭＯＶＥ
　ＦＯＲ　Ｉ＝０　ＴＯ　ＮＯＴＥＭＡＸ
　　ＳＴＡＴ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｓ）
　　ＩＦ　ＳＴＡＴ＜－１０　ＴＨＥＮ　＠ＭＶＳＫＩＰ
　　ＩＦ　ＳＴＡＴ＜０　ＴＨＥＮ　＠ＭＶＡＮＣＮＴ
　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＳＣＡＬＥ　Ｉ，１００
　　ＩＦ　ＳＴＡＴ＝＝２　ＴＨＥＮ　ＳＰＳＣＡＬＥ　Ｉ，１４０
　　Ｔ１＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｔ１）
　　Ｔ２＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｔ２）
　　ＸＰ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｘ）
　　ＸＤ＝ＭＳＬＥＮ＊ＸＰ／１００
　　Ｐ＝（Ｔ２－ＣＮＴ）／（Ｔ２－Ｔ１）＊１．１
　　Ｄ＝ＭＳＬＥＮ＊Ｐ
　　ＩＦ　Ｄ＞ＸＤ　ＴＨＥＮ　＠ＭＶ０
　　ＩＦ　Ｄ＞０　ＴＨＥＮ　＠ＭＶ１
　　ＩＦ　Ｄ＞－５６　ＴＨＥＮ　＠ＭＶ２
　＠ＭＶ３
　　Ｘ＝３０
　　Ｙ＝ＴＧＹ－（Ｄ＋５６）＊１．５
　　ＩＦ　Ｙ＞１９２＋１６　ＴＨＥＮ　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，－１００
　　ＧＯＴＯ　＠ＭＶ
　＠ＭＶ２
　　Ｘ＝ＴＧＸ＋Ｄ
　　Ｙ＝ＴＧＹ
　　ＧＯＴＯ　＠ＭＶ
　＠ＭＶ１
　　Ｘ＝ＴＧＸ＋Ｄ＊０．８３２　’ＣＯＳ
　　Ｙ＝ＴＧＹ－Ｄ＊０．５５５　’ＳＩＮ
　　ＧＯＴＯ　＠ＭＶ
　＠ＭＶ０
　　Ｘ＝ＴＧＸ＋ＸＤ＊０．８３２
　　Ｙ＝ＴＧＹ－ＸＤ＊０．５５５－（Ｄ－ＸＤ）
　＠ＭＶ
　　ＳＰＯＦＳ　Ｉ，Ｘ，Ｙ
　　ＳＰＡＮＧＬＥ　Ｉ，３６０＊Ｐ＊４　’ＭＳＬＥＮ／（１６＊ＰＩ（））
　＠ＭＶＳＫＩＰ
　ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＭＶＡＮＣＮＴ
　　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，ＳＴＡＴ－１
　　ＩＦ　ＳＴＡＴ＝＝－１０　ＴＨＥＮ　ＳＰＯＦＳ　Ｉ，－３２，－３２
ＧＯＴＯ　＠ＭＶＳＫＩＰ


＠ＡＵＴＯ
　ＦＯＲ　Ｊ＝ＳＰＩ　ＴＯ　ＳＰＩ＋ＮＯＴＥＭＡＸ
　　Ｉ＝Ｊ％（ＮＯＴＥＭＡＸ＋１）
　　
　　ＩＦ　ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｓ）＜＝０　ＴＨＥＮ　＠ＡＴＳＫＩＰ
　　Ｔ２＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｔ２）
　　ＩＦ　ＣＮＴ＜Ｔ２　ＴＨＥＮ　Ｊ＝Ｊ＋３２：ＧＯＴＯ　＠ＡＴＳＫＩＰ　’ＲＥＴＵＲＮ
　　
　　ＢＴ＝ＢＴ＋ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｓ）
　　Ｊ＝Ｊ＋３２’：ＧＯＴＯ　＠ＡＴＳＫＩＰ
　　’ＲＥＴＵＲＮ
　　
　＠ＡＴＳＫＩＰ
　ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＨＮＴ
　ＢＮ０＝－１
　ＦＯＲ　Ｊ＝ＳＰＩ　ＴＯ　ＳＰＩ＋ＮＯＴＥＭＡＸ
　　Ｉ＝Ｊ％（ＮＯＴＥＭＡＸ＋１）
　　ＳＴＡＴ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｓ）
　　ＩＦ　ＳＴＡＴ＜＝０　ＴＨＥＮ　＠ＨＮＴＳＫＩＰ
　　
　　Ｔ２＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿Ｔ２）
　　ＦＲＭ＝ＣＮＴ－Ｔ２
　　’－：ハヤイ　＋：オソイ
　　ＩＦ　ＦＲＭ＜－１５　ＴＨＥＮ　Ｊ＝Ｊ＋３２：ＧＯＴＯ　＠ＨＮＴＥＮＤ　’ＲＥＴＵＲＮ
　　
　　ＢＮ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿ＢＮ）
　　ＢＣ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿ＢＣ）
　　ＢＶ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿ＢＶ）
　　ＢＰ＝ＳＰＧＥＴＶ（Ｉ，Ｖ＿ＢＰ）
　　ＩＦ　ＢＮ０＜０　ＴＨＥＮ　ＢＮ０＝ＢＮ：ＢＣ０＝ＢＣ：ＢＶ０＝ＢＶ：ＢＰ０＝ＢＰ
　　
　　ＩＦ　！ＢＴ　ＡＮＤ　ＦＲＭ＞５　ＴＨＥＮ　＠ＨＮＴ４
　　ＩＦ　！ＢＴ　ＴＨＥＮ　Ｊ＝Ｊ＋３２：ＧＯＴＯ　＠ＨＮＴＥＮＤ　’ＲＥＴＵＲＮ
　　
　＠ＨＮＴＲＥＤＯ
　　ＢＴ＝ＢＴ－１
　　ＩＦ　ＢＮ＞＝０　ＴＨＥＮ　ＢＥＥＰ　ＢＮ，ＢＣ，ＢＶ，ＢＰ
　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，－１
　　ＩＦ　ＳＴＡＴ＝＝２　ＴＨＥＮ　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，１
　　
　　ＩＦ　ＡＢＳ（ＦＲＭ）＜＝２　ＴＨＥＮ　＠ＨＮＴ１
　　ＩＦ　ＡＢＳ（ＦＲＭ）＜＝４　ＴＨＥＮ　＠ＨＮＴ２
　　
　＠ＨＮＴ３　’Ｂａｄ
　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＣＨＲ　Ｉ，ＳＰＮＯＴＥ＋３，０，０，０，０
　　ＨＮＴ３Ｃ＝ＨＮＴ３Ｃ＋１
　　ＣＯＭＢＯ＝０
　　ＲＥＳＴ＝ＲＥＳＴ－１
　　ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＣＨＡ＿ＨＰ＝ＣＨＡ＿ＨＰ－３
　　ＧＯＴＯ　＠ＨＮＴＳＫＩＰ
　　
　＠ＨＮＴ４　’Ｍｉｓｓ
　　ＳＰＳＥＴＶ　Ｉ，Ｖ＿Ｓ，０
　　ＨＮＴ４Ｃ＝ＨＮＴ４Ｃ＋ＳＴＡＴ
　　ＣＯＭＢＯ＝０
　　ＳＣＡＤＤ＝－ＦＬＯＯＲ（ＳＣＢＡＳＥ／ＯＮＰＣＮＴ＋．５）
　　ＳＣＯＲＥ＝ＳＣＯＲＥ＋ＳＣＡＤＤ
　　ＭＰ＝ＭＰ－１００００／ＯＮＰＣＮＴ
　　ＲＥＳＴ＝ＲＥＳＴ－ＳＴＡＴ
　　ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＣＨＡ＿ＨＰ＝ＣＨＡ＿ＨＰ－５
　　ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＳＰＣＨＲ　３１，８８：ＳＰＡＮＩＭ　３０，１，１０，１　’ナニモシナイアニメ
　　ＧＯＴＯ　＠ＨＮＴＳＫＩＰ
　　
　＠ＨＮＴ２　’ＯＫ
　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＣＨＲ　Ｉ，ＳＰＮＯＴＥ＋２
　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＡＮＩＭ　Ｉ，２，１０，１
　　’ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＳＣＡＬＥ　Ｉ，２００，１０
　　ＨＮＴ２Ｃ＝ＨＮＴ２Ｃ＋１
　　ＣＯＭＢＯ＝ＣＯＭＢＯ＋１
　　ＩＦ　ＣＯＭＢＯ＞＝ＭＡＸＣＭＢ　ＴＨＥＮ　ＭＡＸＣＭＢ＝ＣＯＭＢＯ
　　ＩＦ　ＣＯＭＢＯ＞＝１００　ＴＨＥＮ　ＳＣＡＤＤ＝ＳＣＢＡＳＥ＋ＳＣＢＯＮＵＳ　ＥＬＳＥ　ＳＣＡＤＤ＝ＳＣＢＡＳＥ＋ＣＯＭＢＯ＊（ＳＣＢＯＮＵＳ／１００）
　　ＳＣＡＤＤ＝ＦＬＯＯＲ（ＳＣＡＤＤ／ＯＮＰＣＮＴ＊．６＋．５）
　　ＳＣＯＲＥ＝ＳＣＯＲＥ＋ＳＣＡＤＤ
　　ＭＰ＝ＭＰ＋５０００／ＯＮＰＣＮＴ
　　ＲＥＳＴ＝ＲＥＳＴ－１
　　ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＣＨＡ＿ＨＰ＝ＣＨＡ＿ＨＰ＋．１２
　　ＧＯＴＯ　＠ＨＮＴＳＫＩＰ
　　
　＠ＨＮＴ１　’Ｇｏｏｄ
　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＣＨＲ　Ｉ，ＳＰＮＯＴＥ＋１
　　ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＡＮＩＭ　Ｉ，３，５，１
　　’ＩＦ　ＳＴＡＴ＝＝１　ＴＨＥＮ　ＳＰＳＣＡＬＥ　Ｉ，２００，１０
　　ＨＮＴ１Ｃ＝ＨＮＴ１Ｃ＋１
　　ＣＯＭＢＯ＝ＣＯＭＢＯ＋１
　　ＩＦ　ＣＯＭＢＯ＞＝ＭＡＸＣＭＢ　ＴＨＥＮ　ＭＡＸＣＭＢ＝ＣＯＭＢＯ
　　ＩＦ　ＣＯＭＢＯ＞＝１００　ＴＨＥＮ　ＳＣＡＤＤ＝ＳＣＢＡＳＥ＋ＳＣＢＯＮＵＳ　ＥＬＳＥ　ＳＣＡＤＤ＝ＳＣＢＡＳＥ＋ＣＯＭＢＯ＊（ＳＣＢＯＮＵＳ／１００）
　　ＳＣＡＤＤ＝ＦＬＯＯＲ（ＳＣＡＤＤ／ＯＮＰＣＮＴ＋．５）
　　ＳＣＯＲＥ＝ＳＣＯＲＥ＋ＳＣＡＤＤ
　　ＭＰ＝ＭＰ＋１００００／ＯＮＰＣＮＴ
　　ＲＥＳＴ＝ＲＥＳＴ－１
　　ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＣＨＡ＿ＨＰ＝ＣＨＡ＿ＨＰ＋．２５
　　
　＠ＨＮＴＳＫＩＰ
　　ＩＦ　ＢＴ＞０　ＡＮＤ　ＳＴＡＴ＝＝２　ＴＨＥＮ　ＳＴＡＴ＝１：ＧＯＴＯ　＠ＨＮＴＲＥＤＯ
　＠ＨＮＴＥＮＤ
　ＮＥＸＴ
　ＩＦ　ＢＮ０＜０　ＴＨＥＮ　ＢＮ０＝ＫＢＮ［０］：ＢＣ０＝ＫＢＣ［０］：ＢＶ０＝ＫＢＶ［０］：ＢＰ０＝ＫＢＰ［０］
　ＩＦ　ＢＴ　ＡＮＤ　ＢＮ０＞＝０　ＴＨＥＮ　ＢＥＥＰ　ＢＮ０，ＢＣ０，ＢＶ０，ＢＰ０
ＲＥＴＵＲＮ

＠ＢＴＮ
　Ｂ＿＝ＢＵＴＴＯＮ（）
　Ｂ＝Ｂ＿　ＡＮＤ　ＮＯＴ　ＯＢ
　ＯＢ＝Ｂ＿
　
　ＦＯＲ　Ｉ＝０　ＴＯ　９
　　ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＢＴ＝ＢＴ＋１
　　Ｂ＝Ｂ／２
　ＮＥＸＴ
　
’　ＩＦ　ＴＣＨＳＴ　ＡＮＤ　！ＯＴ　ＴＨＥＮ　ＢＴ＝ＢＴ＋１
’　ＯＴ＝ＴＣＨＳＴ
ＲＥＴＵＲＮ

＠ＧＡＭＥ＿ＴＴＲ
ＧＰＡＧＥ　０
ＧＤＲＡＷＭＤ　０
ＧＰＰ＝１
　ＴＳ＄＝”＠Ｓ７
　ＩＦ　ＰＳ＜１６＊１＋４　ＴＨＥＮ　ＲＥＴＵＲＮ
　ＩＦ　ＰＳ＝＝１６＊１＋４　ＴＨＥＮ　＠ＧＴＲ＿１
　ＩＦ　ＰＳ＝＝１６＊４－４　ＴＨＥＮ　＠ＧＴＲ＿２
　ＩＦ　ＰＳ＝＝１６＊８－８　ＴＨＥＮ　＠ＧＴＲ＿３
　ＩＦ　ＰＳ＝＝１６＊１２＋４　ＴＨＥＮ　＠ＧＴＲ＿４
　ＩＦ　ＴＴＲ＿ＲＳＬＴ＝＝１　ＴＨＥＮ　ＴＴＲ＿ＲＳＬＴ＝２：ＧＯＴＯ　＠ＧＴＲ＿Ｒ

　ＩＦ　ＤＥＢＵＧ　ＡＮＤ　ＴＴＲ＿ＦＩＮ　ＴＨＥＮ　ＬＯＣＡＴＥ　０，５：？ＴＴＲ＿ＧＸ－１２８，
　ＩＦ　ＴＴＲ＿Ｌ＝＝０　ＡＮＤ　ＴＴＲ＿ＦＩＮ　ＴＨＥＮ　＠ＧＴＲ＿ＮＥＸＴ
ＧＯＴＯ　＠ＴＴＲ＿ＧＰ＿Ｌ０

＠ＧＴＲ＿１
ＧＴＲ＄＝”＄コノ　＄ケ゛－ム＄ノ　アソヒ゛カタヲ＄／＄セツメイ　スルヨ＄
ＴＴＲ＄＝”コノ／ケ゛’－ムノ／アソヒ゛カ’タヲ／セツメイスルヨ
ＴＴＲ＿Ｗ０＝１２０：ＴＴＲ＿Ｗ１＝６３
ＧＯＴＯ　＠ＧＡＭＥ＿ＴＴＲＴ
＠ＧＴＲ＿２
ＧＴＲ＄＝”＄オンフ゜カ゛　キタラ＄／＄ト゛レカノ　＄ホ゛タン＄ヲ　オシテネ＄
ＴＴＲ＄＝”オンフ゜カ゛／キ’タラ／ト゛’レカノ／ホ゛タンヲ／オシテ／ネ？
ＴＴＲ＿Ｗ０＝７５：ＴＴＲ＿Ｗ１＝１１９
ＧＯＴＯ　＠ＧＡＭＥ＿ＴＴＲＴ
＠ＧＴＲ＿３
ＧＴＲ＄＝”＄オオキイ　オンフ゜ノ　トキハ＄／＄２ツノ　＄ホ゛タン＄ヲ　イッショニ　オシテネ＄
ＴＴＲ＄＝”オオキ’イ／オンフ゜ノ／ト’キワ／フタツ’ノ／ホ゛タンヲ／イッショニ／オシテ／ネ？
ＴＴＲ＿Ｗ０＝１０６：ＴＴＲ＿Ｗ１＝１４６
ＧＯＴＯ　＠ＧＡＭＥ＿ＴＴＲＴ
＠ＧＴＲ＿４
ＧＴＲ＄＝”＄ソレテ゛ハ　ヤッテミヨウ！＄／
ＴＴＲ＄＝”ソレテ゛’ワ／ヤッテミヨ’オ
ＴＴＲ＿Ｗ０＝９６：ＴＴＲ＿Ｗ１＝０
ＧＯＴＯ　＠ＧＡＭＥ＿ＴＴＲＴ
＠ＧＴＲ＿Ｒ
ＧＴＲ＄＝”スコア＄カ゛　８００００テン　イシ゛ョウ　ナラ＄／クリア　＄タ゛ヨ＄
ＴＴＲ＄＝”スコ’アカ゛／ハチマンテン／イ’シ゛ョウナラ／クリ’ア／タ゛ヨ？
ＴＴＲ＿Ｗ０＝１５５：ＴＴＲ＿Ｗ１＝４９

＠ＧＡＭＥ＿ＴＴＲＴ
ＧＴ＄＝ＧＴＲ＄
ＴＴＲ＿Ｌ＝０
ＧＴ＿Ｓ＝ＩＮＳＴＲ（ＧＴ＄，”／”）
ＧＴ１＄＝ＬＥＦＴ＄（ＧＴ＄，ＧＴ＿Ｓ）
ＴＴＲ＿ＧＹ＝１６０
ＴＴＲ＿ＧＸ＝１２８－ＴＴＲ＿Ｗ０／２
ＧＦＩＬＬ　０，１６０，２５５，１９１，０
ＴＡＬＫ　ＴＳ＄＋ＴＴＲ＄
ＧＯＴＯ　＠ＴＴＲ＿ＧＰ＿Ｌ

＠ＧＴＲ＿ＮＥＸＴ
ＧＴ＄＝ＧＴＲ＄
ＴＴＲ＿Ｌ＝１
ＧＴ１＄＝ＲＩＧＨＴ＄（ＧＴ＄，ＬＥＮ（ＧＴ＄）－ＧＴ＿Ｓ－１）
ＴＴＲ＿ＧＹ＝１７０
ＴＴＲ＿ＧＸ＝１２８－ＴＴＲ＿Ｗ１／２
ＧＯＴＯ　＠ＴＴＲ＿ＧＰ＿Ｌ

＠ＳＣＯＲ
ＳＣＭＯＤＥ＝０
ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＳＣＭＯＤＥ＝１

ＳＰＰＡＧＥ　１
ＧＰＡＧＥ　１
＿ＳＰＮＵＭＩＤ＝ＳＰＮＵＭ１６＿Ｌ
　
　ＳＩ＝３０
　ＩＦ　ＳＣＯＲＥ＜０　ＴＨＥＮ　ＳＣＯＲＥ＝０
　ＩＦ　ＳＣＭＯＤＥ＝＝０　ＡＮＤ　ＳＣＯＲＥ！＝ＳＣＯＲＥ＿Ｏ　ＴＨＥＮ　ＳＣ＝６：ＳＺ＝０：ＳＶ＝ＳＣＯＲＥ：ＧＯＳＵＢ　＠ＳＣＳＥＴ：ＧＯＳＵＢ　＠ＳＣＭＯＶ
　ＩＦ　ＳＣＭＯＤＥ＝＝０　ＡＮＤ　ＳＣＯＲＥ！＝ＳＣＯＲＥ＿Ｏ　ＴＨＥＮ　ＳＶ＝ＳＣＯＲＥ：ＳＶＭＡＸ＝ＳＣＧＭＡＸＳ：ＧＯＳＵＢ　＠ＳＣＤＲＡＷ
　ＳＣＯＲＥ＿Ｏ＝ＳＣＯＲＥ
　
　ＩＦ　ＭＰ＜０　ＴＨＥＮ　ＭＰ＝０
　ＩＦ　ＳＣＭＯＤＥ＝＝１　ＡＮＤ　ＭＰ！＝ＭＰ＿Ｏ　ＴＨＥＮ　ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＦＬＯＯＲ（ＦＬＯＯＲ（ＭＰ＋．５）／１００）：ＧＯＳＵＢ　＠ＳＣＳＥＴ
　ＩＦ　ＳＣＭＯＤＥ＝＝１　ＡＮＤ　ＭＰ！＝ＭＰ＿Ｏ　ＴＨＥＮ　ＳＶ＝ＦＬＯＯＲ（ＭＰ＋．５）：ＳＶＭＡＸ＝１００００：ＧＯＳＵＢ　＠ＳＣＤＲＡＷ
　ＩＦ　ＳＣＭＯＤＥ＝＝１　ＡＮＤ　ＭＰ！＝ＭＰ＿Ｏ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＳＥＴ＿ＭＰ
　ＭＰ＿Ｏ＝ＭＰ
　
　ＳＩ＝０
　ＩＦ　ＳＣＭＯＤＥ＝＝０　ＡＮＤ　ＳＣＡＤＤ！＝０　ＴＨＥＮ　ＳＣ＝６：ＳＺ＝－１：ＳＶ＝ＳＣＡＤＤ：ＧＯＳＵＢ　＠ＳＣＳＥＴ：ＧＯＳＵＢ　＠ＳＣＭＯＶ２
　ＳＣＡＤＤ＝０
　ＳＣＡＤＤＣ＝ＳＣＡＤＤＣ－１
　ＩＦ　ＳＣＭＯＤＥ＝＝０　ＡＮＤ　ＳＣＡＤＤＣ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＡＤＣＬＲ
　
　ＳＩ＝１０
　ＩＦ　ＨＮＴ１Ｃ！＝ＨＮＴ１Ｃ＿Ｏ　ＴＨＥＮ　ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＨＮＴ１Ｃ：ＧＯＳＵＢ　＠ＳＣＳＥＴ
　ＨＮＴ１Ｃ＿Ｏ＝ＨＮＴ１Ｃ
　
　ＳＩ＝１５
　ＩＦ　ＨＮＴ２Ｃ！＝ＨＮＴ２Ｃ＿Ｏ　ＴＨＥＮ　ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＨＮＴ２Ｃ：ＧＯＳＵＢ　＠ＳＣＳＥＴ
　ＨＮＴ２Ｃ＿Ｏ＝ＨＮＴ２Ｃ
　
　ＳＩ＝２０
　ＩＦ　ＨＮＴ３Ｃ！＝ＨＮＴ３Ｃ＿Ｏ　ＴＨＥＮ　ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＨＮＴ３Ｃ：ＧＯＳＵＢ　＠ＳＣＳＥＴ
　ＨＮＴ３Ｃ＿Ｏ＝ＨＮＴ３Ｃ
　
　ＳＩ＝２５
　ＩＦ　ＨＮＴ４Ｃ！＝ＨＮＴ４Ｃ＿Ｏ　ＴＨＥＮ　ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＨＮＴ４Ｃ：ＧＯＳＵＢ　＠ＳＣＳＥＴ
　ＨＮＴ４Ｃ＿Ｏ＝ＨＮＴ４Ｃ
　
　ＳＩ＝４０
　ＩＦ　ＲＥＳＴ！＝ＲＥＳＴ＿Ｏ　ＴＨＥＮ　ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＲＥＳＴ：ＧＯＳＵＢ　＠ＳＣＳＥＴ
　ＲＥＳＴ＿Ｏ＝ＲＥＳＴ
　
ＳＰＰＡＧＥ　０
ＧＰＡＧＥ　０
＿ＳＰＮＵＭＩＤ＝ＳＰＮＵＭ１６
　
　ＳＩ＝３２：ＳＣ＝４
　ＩＦ　ＣＯＭＢＯ！＝ＣＯＭＢＯ＿Ｏ　ＴＨＥＮ　ＳＺ＝－１：ＳＶ＝ＣＯＭＢＯ：ＧＯＳＵＢ　＠ＳＣＳＥＴ：ＧＯＳＵＢ　＠ＳＣＣＥＴ：ＧＯＳＵＢ　＠ＳＣＭＯＶ
　ＩＦ　ＣＯＭＢＯ＞＝１００　ＡＮＤ　ＣＯＭＢＯ＿Ｏ＜１００　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＣＯＬ
　ＩＦ　ＣＯＭＢＯ＜１００　ＡＮＤ　ＣＯＭＢＯ＿Ｏ＞＝１００　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＣＯＬ
　ＩＦ　ＣＯＭＢＯ＿Ｏ＝＝０　ＡＮＤ　ＣＯＭＢＯ＞０　ＴＨＥＮ　ＧＴ＄＝”コンホ゛”：ＧＸ＝３９：ＧＹ＝７０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
　ＩＦ　ＣＯＭＢＯ＝＝０　ＡＮＤ　ＣＯＭＢＯ＿Ｏ＞０　ＴＨＥＮ　ＧＦＩＬＬ　３８，７０，６９，７７，０
　ＣＯＭＢＯ＿Ｏ＝ＣＯＭＢＯ
　
　ＩＦ　ＭＯＤＥ＝＝１　ＡＮＤ　ＣＨＡ＿ＨＰ！＝ＣＨＡ＿ＨＰＯ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣ＿ＨＰＧ
　ＩＦ　ＭＯＤＥ＝＝１　ＡＮＤ　ＦＬＯＯＲ（ＣＨＡ＿ＨＰ＋．５）！＝ＦＬＯＯＲ（ＣＨＡ＿ＨＰＯ＋．５）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣ＿ＨＰＳ
ＲＥＴＵＲＮ

＠ＳＣ＿ＨＰＳ
ＳＰＣＨＲ　４０，ＦＬＯＯＲ（ＣＨＡ＿ＨＰ＋．５）％１０
ＳＰＣＨＲ　４１，ＦＬＯＯＲ（ＣＨＡ＿ＨＰ＋．５）／１０
ＳＸ＝ＳＰＧＥＴＶ（４１，０）
ＳＹ＝ＳＰＧＥＴＶ（４１，１）
ＳＰＯＦＳ　４１，ＳＸ－２５６＊（ＦＬＯＯＲ（ＣＨＡ＿ＨＰ＋．５）＜１０），ＳＹ
’ＧＤＲＡＷＭＤ　１
’ＧＸ＝８４：ＧＹ＝１２２
’ＧＴ＄＝ＳＴＲ＄（ＦＬＯＯＲ（ＣＨＡ＿ＨＰＯ＋．５））
’ＧＰ＝１：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
’ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
’ＧＴ＄＝ＳＴＲ＄（ＦＬＯＯＲ（ＣＨＡ＿ＨＰ＋．５））
’ＧＰ＝１：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
’ＧＰ＝０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｒ
ＣＨＡ＿ＨＰＯ＝ＣＨＡ＿ＨＰ
’ＧＤＲＡＷＭＤ　０
ＲＥＴＵＲＮ

＠ＳＣ＿ＨＰＧ
ＨＰＧＸ＝４４：ＨＰＧＹ＝１３２：ＨＰＧＬＥＮ＝４２
ＧＬＩＮＥ　ＨＰＧＸ，ＨＰＧＹ，ＨＰＧＸ＋ＨＰＧＬＥＮ－１，ＨＰＧＹ，２９
ＩＦ　ＣＨＡ＿ＨＰ＜．５　ＴＨＥＮ　ＲＥＴＵＲＮ
ＨＰＧＣ＝１５
ＩＦ　ＣＨＡ＿ＨＰ＜＝ＣＨＡ＿ＨＰＭＡＸ／２　ＴＨＥＮ　ＨＰＧＣ＝１２
ＩＦ　ＣＨＡ＿ＨＰ＜＝ＣＨＡ＿ＨＰＭＡＸ／４　ＴＨＥＮ　ＨＰＧＣ＝２
ＧＬＩＮＥ　ＨＰＧＸ，ＨＰＧＹ，ＨＰＧＸ＋ＨＰＧＬＥＮ＊ＣＨＡ＿ＨＰ／ＣＨＡ＿ＨＰＭＡＸ－１，ＨＰＧＹ，ＨＰＧＣ
ＲＥＴＵＲＮ

＠ＳＣＳＥＴ
　ＣＨＧ＝－１
　ＳＬＥ＝０
　ＳＣＭ＝（ＳＶ＜０）：ＳＣＭ＿＝ＳＣＭ
　ＦＯＲ　Ｉ＝０　ＴＯ　ＳＣ－１
　　ＩＦ　ＳＺ！＝１　ＡＮＤ　（ＳＺ＝＝－１　ＯＲ　Ｉ！＝０）　ＡＮＤ　ＳＶ＝＝０　ＴＨＥＮ　ＳＣ１＝１０＋２＊ＳＣＭ：ＳＣＭ＝０：ＧＯＴＯ　＠ＳＣＳＣＨＲ
　　ＳＬＥ＝Ｉ＋１
　　ＳＰＲＥＡＤ（ＳＩ＋Ｉ），ＤＭ，ＤＭ，ＤＭ，ＤＭ，ＣＨ
　　ＯＳＣ１＝ＣＨ％５１２－＿ＳＰＮＵＭＩＤ
　　ＳＣ１＝ＡＢＳ（ＳＶ％１０）：ＳＶ＝ＳＧＮ（ＳＶ）＊ＦＬＯＯＲ（ＡＢＳ（ＳＶ／１０））
　　ＩＦ　ＳＣ１＝＝ＯＳＣ１　ＴＨＥＮ　＠ＳＣＳＫＩＰ
　　ＣＨＧ＝Ｉ
　＠ＳＣＳＣＨＲ
　　ＩＦ　ＳＣ１！＝１０　ＴＨＥＮ　ＳＬＥ＝Ｉ＋１
　　ＳＰＣＨＲ　ＳＩ＋Ｉ，＿ＳＰＮＵＭＩＤ＋ＳＣ１
　＠ＳＣＳＫＩＰ
　ＮＥＸＴ
ＲＥＴＵＲＮ
＠ＳＣＭＯＶ
　ＦＯＲ　Ｉ＝０　ＴＯ　ＣＨＧ
　　’ＳＰＲＥＡＤ（ＳＩ＋Ｉ），ＳＸ，ＳＹ
　　ＳＸ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，０）
　　ＳＹ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，１）
　　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ，ＳＹ－４
　　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ，ＳＹ，４
　ＮＥＸＴ
ＲＥＴＵＲＮ
＠ＳＣＣＥＴ
　ＩＦ　ＣＨＧ＜０　ＴＨＥＮ　ＲＥＴＵＲＮ
　ＦＯＲ　Ｉ＝０　ＴＯ　ＳＬＥ－１
　　ＳＸ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，２）
　　ＳＹ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，１）
　　ＳＸ＝ＳＸ＋１６＊（ＳＬＥ／２－Ｉ－１）
　　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ，ＳＹ
　　ＳＰＳＥＴＶ　ＳＩ＋Ｉ，０，ＳＸ
　ＮＥＸＴ
ＲＥＴＵＲＮ
＠ＳＣＭＯＶ２
　ＦＯＲ　Ｉ＝０　ＴＯ　ＳＬＥ－１
　　ＳＸ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，０）
　　ＳＹ＝ＳＰＧＥＴＶ（ＳＩ＋Ｉ，１）
　　ＳＰＲＥＡＤ（ＳＩ＋Ｉ），ＤＭ，ＤＭ，ＤＭ，ＤＭ，ＣＨ
　　ＳＰＣＨＲ　ＳＩ＋Ｉ，ＣＨ％５１２，７＋２＊ＳＣＭ＿，０，０，０
　　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ＋８，ＳＹ
　　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ，ＳＹ，８
　ＮＥＸＴ
　ＳＣＡＤＤＣ＝３０
ＲＥＴＵＲＮ
＠ＳＣＡＤＣＬＲ
　ＦＯＲ　Ｉ＝０　ＴＯ　５
　　ＳＰＣＨＲ　ＳＩ＋Ｉ，＿ＳＰＮＵＭＩＤ＋１０
　ＮＥＸＴ
ＲＥＴＵＲＮ
＠ＳＣＣＯＬ
　ＦＯＲ　Ｉ＝０　ＴＯ　ＳＣ－１
　　ＳＰＲＥＡＤ（ＳＩ＋Ｉ），ＤＭ，ＤＭ，ＤＭ，ＤＭ，ＣＨ
　　ＳＰＣＨＲ　ＳＩ＋Ｉ，ＣＨ％５１２，３＊（ＣＯＭＢＯ＞＝１００），０，０，０
　ＮＥＸＴ
　ＧＤＲＡＷＭＤ　１
　ＧＦＩＬＬ　３９，７０，７０，７７，＆Ｈ３０
　ＧＤＲＡＷＭＤ　０
ＲＥＴＵＲＮ
＠ＳＣＤＲＡＷ
　ＳＣＳ＝ＳＣＥ
　ＩＦ　ＳＣＳ＜ＳＣＧＸ－１　ＴＨＥＮ　ＳＣＳ＝ＳＣＧＸ－１
　
　ＳＣＥ＝ＳＣＧＬＥＮ＊（ＳＶ／ＳＶＭＡＸ）
　ＩＦ　ＳＣＥ＞ＳＣＧＬＥＮ　ＴＨＥＮ　ＳＣＥ＝ＳＣＧＬＥＮ
　ＳＣＥ＝ＳＣＧＸ－１＋ＦＬＯＯＲ（ＳＣＥ）
　
　ＧＤＲＡＷＭＤ　１
　ＩＦ　ＳＣＥ＞ＳＣＳ　ＴＨＥＮ　ＧＦＩＬＬ　ＳＣＳ＋１，ＳＣＧＹ，ＳＣＥ，ＳＣＧＹ＋５，＆Ｈ０４
　ＩＦ　ＳＣＳ＞ＳＣＥ　ＴＨＥＮ　ＧＦＩＬＬ　ＳＣＥ＋１，ＳＣＧＹ，ＳＣＳ，ＳＣＧＹ＋５，＆Ｈ０４
　ＧＤＲＡＷＭＤ　０
ＲＥＴＵＲＮ
＠ＳＣＳＥＴ＿ＭＰ
　’ＧＦＩＬＬ　２１０，２４，２５５，４０，０
　’ＧＴ＄＝”．”：ＧＸ＝２１０：ＧＹ＝２９：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
　’ＧＴ＄＝ＲＩＧＨＴ＄（ＳＴＲ＄（ＦＬＯＯＲ（ＭＰ＋１００．５）），２）
　’ＧＸ＝２１８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
　ＳＰＣＨＲ　ＳＩ＋５，ＳＰＮＵＭ８＿Ｌ＋ＦＬＯＯＲ（ＭＰ＋．５）／１０％１０
　ＳＰＣＨＲ　ＳＩ＋４，ＳＰＮＵＭ８＿Ｌ＋ＦＬＯＯＲ（ＭＰ＋．５）％１０
ＲＥＴＵＲＮ


＠ＱＵＩＴ
ＧＰＡＧＥ　１
ＧＦＩＬＬ　１５０，１７６，２５５，１９１，０

ＢＧＭＳＴＯＰ　６，１．５
ＷＡＩＴ　９０

ＩＦ　ＭＯＤＥ＝＝０　ＴＨＥＮ　＠ＭＥＮＵ

’ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＧＯＴＯ　”＠ＣＨＡ”＋ＳＴＲ＄（ＢＧＭ＋１）
ＧＯＴＯ　＠ＴＩＴ

＠ＧＯＶＥＲ
ＢＧＭＳＴＯＰ　６，１．５
ＷＡＩＴ　９０

ＢＥＥＰ　６
ＢＧＭＰＬＡＹ　０，１４２，４０

ＧＰＡＧＥ　１
ＧＴ＄＝”３６３Ｆ０Ｅ３１０Ｆ”：ＧＸ＝４５　’シッハ゜イ
ＧＹ＝９０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ１２

＠ＧＯＶＥＲ＿Ｗ
ＶＳＹＮＣ　１
ＩＦ　！ＢＵＴＴＯＮ（２）　ＴＨＥＮ　＠ＧＯＶＥＲ＿Ｗ

ＣＨＡ＿ＭＰ［ＢＧＭ］＝ＦＬＯＯＲ（ＭＰ＋．５）
ＣＨＡ＿ＣＬＲ［ＢＧＭ］＝－１
ＧＯＴＯ　＠ＣＨＡ７

＠ＲＥＳＵＬＴ
ＳＰＰＡＧＥ　１
ＧＰＡＧＥ　１
ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　＠ＲＥＳＵＬＴ２

ＣＬＲ＝０
ＩＦ　ＳＣＯＲＥ＞＝ＳＣＧＣＬＲＳ　ＴＨＥＮ　ＣＬＲ＝１
ＩＦ　ＣＬＲ＝＝１　ＡＮＤ　ＲＥＳＴ＋ＨＮＴ３Ｃ＋ＨＮＴ４Ｃ＝＝０　ＴＨＥＮ　ＣＬＲ＝２
ＩＦ　ＣＬＲ＝＝２　ＡＮＤ　ＨＮＴ２Ｃ＝＝０　ＴＨＥＮ　ＣＬＲ＝３

ＦＯＲ　Ｉ＝０　ＴＯ　２
　ＩＦ　ＣＬＲ＞Ｉ　ＴＨＥＮ　ＳＰＣＨＲ　７＋Ｉ，ＳＰＳＴＡＲ＿Ｌ，０，０，０，０：ＢＥＥＰ　７：ＷＡＩＴ　２０
ＮＥＸＴ

ＩＦ　ＣＬＲ＝＝０　ＴＨＥＮ　ＧＴ＄＝”３６３Ｆ０Ｅ３１０Ｆ”：ＧＸ＝４５　’シッハ゜イ
ＩＦ　ＣＬＲ＝＝１　ＴＨＥＮ　ＧＴ＄＝”２５２６２４”：ＧＸ＝５４：ＧＰ＝３　’クリア
ＩＦ　ＣＬＲ＝＝２　ＴＨＥＮ　ＧＴ＄＝”２７２８２３２９２Ａ３０”：ＧＸ＝３９：ＧＰ＝３　’フルコンホ゛
ＩＦ　ＣＬＲ＝＝３　ＴＨＥＮ　ＧＴ＄＝”２０３１３３２７２Ｂ２５２Ｃ”：ＧＸ＝３０：ＧＰ＝３　’ハ゜－フェクト
ＧＹ＝１２０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ１２
ＧＰ＝０

ＩＦ　ＣＬＲ＝＝０　ＴＨＥＮ　ＢＥＥＰ　８

ＩＦ　ＡＵＴＯ　ＯＲ　ＳＣＯＲＥ＜＝ＯＬＤＳＣＯＲＥ　ＴＨＥＮ　＠ＨＳ＿ＳＫＩＰ
ＩＦ　ＭＯＤＥ＝＝２　ＴＨＥＮ　＠ＨＳ＿ＳＫＩＰ
ＷＡＩＴ　３０
ＧＴ＄＝”２０２１２２２３２４”　’ハイスコア
ＧＸ＝３６：ＧＹ＝１４８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ１２
ＧＴ＄＝”３４３５３６３７３２”　’コウシン！
ＧＸ＝５４：ＧＹ＝１６８：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ１２
ＢＥＥＰ　５

＠ＨＳ＿ＳＫＩＰ

ＣＲＢ＄＝”ＢＧ”：ＣＲＩ＝＆Ｈ３Ｆ：ＧＯＳＵＢ　＠ＣＯＬＲＤ
ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ３Ｆ，Ｃ＄
ＣＯＬＳＥＴ　”ＧＲＰ”，＆Ｈ３０，ＢＧ＿Ｃ１＄

ＴＴＲ＿ＲＳＬＴ＝１
ＲＳＬＴＣＮＴ＝０
＠ＲＳＬＴＬＯＯＰ
ＶＳＹＮＣ　１
ＲＳＬＴＣＮＴ＝（ＲＳＬＴＣＮＴ＋１）％１２
ＧＰＡＧＥ　１
ＧＤＲＡＷＭＤ　１
ＩＦ　ＲＳＬＴＣＮＴ＝＝０　ＴＨＥＮ　ＧＦＩＬＬ　２６，１４４，１１７，１７９，＆Ｈ３０
ＩＦ　ＭＯＤＥ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＡＭＥ＿ＴＴＲ
ＩＦ　ＭＯＤＥ＝＝２　ＡＮＤ　（ＴＴＲ＿ＲＳＬＴ＜２　ＯＲ　！ＴＴＲ＿ＦＩＮ）　ＴＨＥＮ　＠ＲＳＬＴＬＯＯＰ
ＩＦ　！ＢＵＴＴＯＮ（２）　ＴＨＥＮ　＠ＲＳＬＴＬＯＯＰ
ＧＤＲＡＷＭＤ　０

ＧＯＳＵＢ　＠ＳＡＶ

ＩＦ　ＭＯＤＥ＝＝０　ＴＨＥＮ　＠ＭＥＮＵ
ＧＯＴＯ　＠ＴＩＴ

＠ＲＥＳＵＬＴ２

ＣＬＲ＝１
ＩＦ　ＲＥＳＴ＋ＨＮＴ３Ｃ＋ＨＮＴ４Ｃ＝＝０　ＴＨＥＮ　ＣＬＲ＝２
ＩＦ　ＣＬＲ＝＝２　ＡＮＤ　ＨＮＴ２Ｃ＝＝０　ＴＨＥＮ　ＣＬＲ＝３

ＩＦ　ＣＬＲ＝＝１　ＴＨＥＮ　ＧＴ＄＝”２５２６２４”：ＧＸ＝５４：ＧＰ＝３　’クリア
ＩＦ　ＣＬＲ＝＝２　ＴＨＥＮ　ＧＴ＄＝”２７２８２３２９２Ａ３０”：ＧＸ＝３９：ＧＰ＝３　’フルコンホ゛
ＩＦ　ＣＬＲ＝＝３　ＴＨＥＮ　ＧＴ＄＝”２０３１３３２７２Ｂ２５２Ｃ”：ＧＸ＝３０：ＧＰ＝３　’ハ゜－フェクト
ＧＹ＝９０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ１２
ＧＴ＄＝”＋　５０．００”：ＧＸ＝６０
ＩＦ　ＣＬＲ＞＝２　ＴＨＥＮ　ＧＹ＝１１０：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＰ＝０

＿ＳＰＮＵＭＩＤ＝ＳＰＮＵＭ１６＿Ｌ
ＳＩ＝３０
ＩＦ　ＣＬＲ＞＝２　ＴＨＥＮ　ＢＥＥＰ　１２：ＭＰ＝ＭＰ＋５０００：ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＦＬＯＯＲ（ＦＬＯＯＲ（ＭＰ＋．５）／１００）：ＧＯＳＵＢ　＠ＳＣＳＥＴ：ＧＯＳＵＢ　＠ＳＣＭＯＶ
ＩＦ　ＣＬＲ＝＝１　ＴＨＥＮ　ＢＥＥＰ　７
ＷＡＩＴ　３０

＠ＲＳＬＴ２＿Ｗ
ＶＳＹＮＣ　１
ＩＦ　！ＢＵＴＴＯＮ（２）　ＴＨＥＮ　＠ＲＳＬＴ２＿Ｗ

ＣＨＡ＿ＭＰ［ＢＧＭ］＝ＦＬＯＯＲ（ＭＰ＋．５）
ＣＨＡ＿ＣＬＲ［ＢＧＭ］＝ＣＬＲ

ＧＯＴＯ　”＠ＣＨＡ”＋ＳＴＲ＄（ＢＧＭ）＋”Ｃ”

＠ＳＡＶ
ＩＦ　ＢＧＭ＞＝７　ＴＨＥＮ　ＲＥＴＵＲＮ
ＩＦ　ＡＵＴＯ　ＴＨＥＮ　ＲＥＴＵＲＮ
ＩＦ　ＳＣＯＲＥ＜＝ＯＬＤＳＣＯＲＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
ＩＦ　ＣＬＲ＞＝１　ＴＨＥＮ　ＳＴＡＲ＝ＳＴＡＲ　ＯＲ　１＋ＥＸ＊７
ＩＦ　ＣＬＲ＞＝２　ＴＨＥＮ　ＳＴＡＲ＝ＳＴＡＲ　ＯＲ　２＋ＥＸ＊１４
ＩＦ　ＣＬＲ＞＝３　ＴＨＥＮ　ＳＴＡＲ＝ＳＴＡＲ　ＯＲ　４＋ＥＸ＊２８
ＳＶＤＡＴＡ＄＝ＣＨＲ＄（ＳＴＡＲ）＋ＲＩＧＨＴ＄（ＳＶＤＡＴＡ＄，３４）
ＳＶＤＡＴＡ１＄＝ＨＥＸ＄（ＳＣＯＲＥ，５）
ＳＶＤＡＴＡ１＄＝ＳＶＤＡＴＡ１＄＋ＨＥＸ＄（ＨＮＴ１Ｃ，３）
ＳＶＤＡＴＡ１＄＝ＳＶＤＡＴＡ１＄＋ＨＥＸ＄（ＨＮＴ２Ｃ，３）
ＳＶＤＡＴＡ１＄＝ＳＶＤＡＴＡ１＄＋ＨＥＸ＄（ＨＮＴ３Ｃ，３）
ＳＶＤＡＴＡ１＄＝ＳＶＤＡＴＡ１＄＋ＨＥＸ＄（ＨＮＴ４Ｃ，３）
ＳＶＤＡＴＡ＄＝ＳＵＢＳＴ＄（ＳＶＤＡＴＡ＄，１＋ＳＶＬＥＮ１＊ＥＸ，ＳＶＬＥＮ１，ＳＶＤＡＴＡ１＄）
ＭＥＭ＄＝ＳＵＢＳＴ＄（ＭＥＭ＄，ＳＶＬＥＮ＊ＢＧＭ，ＳＶＬＥＮ，ＳＶＤＡＴＡ＄）
ＳＡＶＥ　ＳＡＶＦＩＬＥ＄
ＲＥＴＵＲＮ

’－－－－－－－－－－－－－－－－－－－－－－－－－－－
＠ＣＨＡ
ＣＨＡ＿ＨＰＭＡＸ＝５０
ＣＨＡ＿ＨＰ＝ＣＨＡ＿ＨＰＭＡＸ

ＦＯＲ　Ｉ＝０　ＴＯ　８
　ＣＨＡ＿ＭＰ［Ｉ］＝０
　ＣＨＡ＿ＣＬＲ［Ｉ］＝０
ＮＥＸＴ

’ＩＮＰＵＴ　ＢＧＭ
’ＧＯＴＯ　”＠ＣＨＡ”＋ＳＴＲ＄（ＢＧＭ）
ＧＯＴＯ　＠ＣＨＡ０

＠ＣＨＡＩＮＩＴ
ＢＧＭＳＴＯＰ　

ＣＬＳ
ＧＰＡＧＥ　１：ＧＣＬＳ
ＳＰＰＡＧＥ　１：ＳＰＣＬＲ

＿ＳＰＮＵＭＩＤ＝ＳＰＮＵＭ１６＿Ｌ

ＧＴ＄＝”チャレンシ゛　モ－ト゛　　スコア”
ＧＸ＝２４：ＧＹ＝２４
ＩＦ　ＣＨＡ＿ＣＬＲ［０］　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＦＯＲ　Ｊ＝０　ＴＯ　８
　ＧＴ＄＝”［”＋ＳＴＲ＄（Ｊ＋１）＋”］”
　ＧＸ＝３６＋１０４＊（Ｊ＞＝４）
　ＧＹ＝５４＋３０＊（Ｊ％４）＋１５＊（Ｊ＞＝４）
　ＩＦ　ＣＨＡ＿ＣＬＲ［Ｊ］　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
　ＧＰ＝０
　ＩＦ　ＣＨＡ＿ＣＬＲ［Ｊ］＝＝２　ＴＨＥＮ　ＧＰ＝３
　ＩＦ　ＣＨＡ＿ＣＬＲ［Ｊ］＝＝３　ＴＨＥＮ　ＧＰ＝７
　ＦＯＲ　Ｉ＝０　ＴＯ　３
　　ＳＰＳＥＴ　３０＋Ｊ＊６＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０，ＧＰ，０，０，０
　　ＳＸ＝２２０－１６＊Ｉ－２８－１０４＊（Ｊ＜４）
　　ＳＹ＝５０＋３０＊（Ｊ％４）＋１５＊（Ｊ＞＝４）
　　ＩＦ　Ｊ＝＝８　ＴＨＥＮ　ＳＸ＝ＳＸ－５：ＳＹ＝２０
　　ＳＰＯＦＳ　３０＋Ｊ＊６＋Ｉ，ＳＸ，ＳＹ
　ＮＥＸＴ
　ＧＴ＄＝”．”
　ＧＸ＝２１０－１０４＊（Ｊ＜４）
　ＧＹ＝５８＋３０＊（Ｊ％４）＋１５＊（Ｊ＞＝４）
　ＩＦ　ＣＨＡ＿ＣＬＲ［Ｊ］　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
　ＦＯＲ　Ｉ＝０　ＴＯ　１
　　ＳＰＳＥＴ　３４＋Ｊ＊６＋Ｉ，ＳＰＮＵＭ１６＿Ｌ＋１０，ＧＰ，０，０，０，８，８
　　ＳＸ＝２２４－７＊Ｉ－１０４＊（Ｊ＜４）
　　ＳＹ＝ＧＹ
　　ＩＦ　Ｊ＝＝８　ＴＨＥＮ　ＳＸ＝ＳＸ－５：ＳＹ＝２８
　　ＳＰＯＦＳ　３４＋Ｊ＊６＋Ｉ，ＳＸ，ＳＹ
　ＮＥＸＴ
　ＭＰ＝ＣＨＡ＿ＭＰ［Ｊ］
　ＳＩ＝３０＋６＊Ｊ：ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＦＬＯＯＲ（ＭＰ／１００）
　ＩＦ　ＣＨＡ＿ＣＬＲ［Ｊ］　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＳＥＴ
　ＩＦ　ＣＨＡ＿ＣＬＲ［Ｊ］　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＳＥＴ＿ＭＰ
　ＧＰ＝０
＠ＣＨＡＳＣＲＳＫＰ
ＮＥＸＴ

ＧＰＡＧＥ　０：ＧＣＬＳ　
ＳＰＰＡＧＥ　０：ＳＰＣＬＲ　
’ＢＧＰＡＧＥ　０：ＢＧＣＬＲ　

ＢＧＯＦＳ　０，ＳＣＸ＿ＧＲＮＤ，ＳＣＹ＿ＧＲＮＤ
ＢＧＦＩＬＬ　１，３２，０，６３，６３，０
ＢＧＯＦＳ　１，３２，０

＠ＣＨＡ＿ＧＩＮＩＴ
’ＧＣＯＰＹ　２，０，０，１２７，４５，０，１９２－４６，１
’ＧＣＯＰＹ　２，０，０，１２７，４５，１２８，１９２－４６，１
ＧＦＩＬＬ　０，ＣＨＡ＿ＧＹ，２５５，１９１，０

ＲＥＴＵＲＮ

＠ＣＨＡ＿ＧＰ＿Ｒ
ＧＰＰ＝！ＦＴ＿Ｌ
ＳＫＩＰＡ＝０
ＴＡＬＫ　ＴＳ＄＋ＴＴ＄
ＧＴ＿Ｓ＝ＩＮＳＴＲ（ＧＴ＄，”／”）
ＧＴ１＄＝ＬＥＦＴ＄（ＧＴ＄，ＧＴ＿Ｓ）：ＧＹ＝ＣＨＡ＿ＧＹ＋１７：ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ０
ＧＴ１＄＝ＲＩＧＨＴ＄（ＧＴ＄，ＬＥＮ（ＧＴ＄）－ＧＴ＿Ｓ－１）：ＧＹ＝ＣＨＡ＿ＧＹ＋２７：ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ０

ＣＨＡ＿ＧＰ＿Ｃ＝０
＠ＣＨＡ＿ＧＰ＿Ｒ１
ＶＳＹＮＣ　１
ＩＦ　！ＴＡＬＫＣＨＫ（）　ＴＨＥＮ　ＣＨＡ＿ＧＰ＿Ｃ＝ＣＨＡ＿ＧＰ＿Ｃ＋１
ＩＦ　ＣＨＡ＿ＧＰ＿Ｃ＜１２０　ＡＮＤ　！（ＢＵＴＴＯＮ（２）　ＡＮＤ　１６）　ＴＨＥＮ　＠ＣＨＡ＿ＧＰ＿Ｒ１

ＴＡＬＫＳＴＯＰ
ＧＯＴＯ　＠ＣＨＡ＿ＧＩＮＩＴ

＠ＣＨＡ＿ＧＰ＿Ｒ０
ＣＨＭ＝０
ＧＸ＝２５６－１２
＿ＧＣＳ＝０：＿ＧＣＷ＝７
ＦＯＲ　Ｉ＝ＬＥＮ（ＧＴ１＄）－１　ＴＯ　０　ＳＴＥＰ　－１
　ＣＣ＝ＡＳＣ（ＭＩＤ＄（ＧＴ１＄，Ｉ，１））
　ＩＦ　ＣＣ＝＝ＡＳＣ（”＄”）　ＴＨＥＮ　ＣＨＭ＝！ＣＨＭ：ＧＯＴＯ　＠ＣＨＡ＿ＧＰ＿Ｒ２
　ＩＦ　ＣＨＭ　ＡＮＤ　ＣＣ＞＝１６０　ＴＨＥＮ　ＣＣ＝ＣＣ－３２
　ＩＦ　ＣＨＭ　ＡＮＤ　ＣＣ＞＝１９２－３２　ＴＨＥＮ　ＣＣ＝ＣＣ＋３２＋３２
　ＩＦ　ＧＰＰ　ＴＨＥＮ　＿ＧＣＳ＝ＰＦＴ＿Ｓ［ＣＣ］：＿ＧＣＷ＝ＰＦＴ＿Ｗ［ＣＣ］
　ＧＸ＝ＧＸ－＿ＧＣＷ－２＊ＧＰＰ
＠ＣＨＡ＿ＧＰ＿Ｒ２
ＮＥＸＴ
ＧＸ＝ＧＸ＋２

ＣＨＭ＝０
ＶＳＹＮＣ　１
ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＧＴ１＄）－１
　ＣＣ＝ＡＳＣ（ＭＩＤ＄（ＧＴ１＄，Ｉ，１））
　ＩＦ　ＣＣ＝＝ＡＳＣ（”＄”）　ＴＨＥＮ　ＣＨＭ＝！ＣＨＭ：ＧＯＴＯ　＠ＣＨＡ＿ＧＰ＿Ｒ３
　ＩＦ　ＣＨＭ　ＡＮＤ　ＣＣ＞＝１６０　ＴＨＥＮ　ＣＣ＝ＣＣ－３２
　ＩＦ　ＣＨＭ　ＡＮＤ　ＣＣ＞＝１９２－３２　ＴＨＥＮ　ＣＣ＝ＣＣ＋３２＋３２
　ＩＦ　ＧＰＰ　ＴＨＥＮ　＿ＧＣＳ＝ＰＦＴ＿Ｓ［ＣＣ］：＿ＧＣＷ＝ＰＦＴ＿Ｗ［ＣＣ］
　ＧＰＵＴＣＨＲ　ＧＸ－＿ＧＣＳ，ＧＹ，”ＢＧＦ０”＋”Ｌ”＊ＦＴ＿Ｌ，ＣＣ，０，１
　
　ＦＯＲ　Ｊ＝１　ＴＯ　４
　　ＩＦ　ＢＵＴＴＯＮ（２）　ＡＮＤ　１６　ＴＨＥＮ　ＳＫＩＰＡ＝１
　　ＩＦ　！ＳＫＩＰＡ　ＴＨＥＮ　ＶＳＹＮＣ　１
　ＮＥＸＴ
　ＧＸ＝ＧＸ＋＿ＧＣＷ＋２＊ＧＰＰ
＠ＣＨＡ＿ＧＰ＿Ｒ３
ＮＥＸＴ

ＲＥＴＵＲＮ

＠ＴＴＲ＿ＧＰ＿Ｌ
ＴＴＲ＿ＦＩＮ＝０
ＣＨＭ＝０
ＴＴＲ＿Ｉ＝－１
ＴＴＲ＿Ｗ＝０
＠ＴＴＲ＿ＧＰ＿Ｌ０
　ＴＴＲ＿Ｗ＝ＴＴＲ＿Ｗ－１
　ＩＦ　ＴＴＲ＿Ｗ＞０　ＴＨＥＮ　ＲＥＴＵＲＮ
　ＴＴＲ＿Ｗ＝４
　ＴＴＲ＿Ｉ＝ＴＴＲ＿Ｉ＋１
　ＩＦ　ＴＴＲ＿Ｉ＞＝ＬＥＮ（ＧＴ１＄）　ＴＨＥＮ　ＴＴＲ＿ＦＩＮ＝１：ＲＥＴＵＲＮ
　ＣＣ＝ＡＳＣ（ＭＩＤ＄（ＧＴ１＄，ＴＴＲ＿Ｉ，１））
　ＩＦ　ＣＣ＝＝ＡＳＣ（”＄”）　ＴＨＥＮ　ＣＨＭ＝！ＣＨＭ：ＧＯＴＯ　＠ＴＴＲ＿ＧＰ＿Ｌ０
　ＩＦ　ＣＨＭ　ＡＮＤ　ＣＣ＞＝１６０　ＴＨＥＮ　ＣＣ＝ＣＣ－３２
　ＩＦ　ＣＨＭ　ＡＮＤ　ＣＣ＞＝１９２－３２　ＴＨＥＮ　ＣＣ＝ＣＣ＋３２＋３２
　ＩＦ　ＧＰＰ　ＴＨＥＮ　＿ＧＣＳ＝ＰＦＴ＿Ｓ［ＣＣ］：＿ＧＣＷ＝ＰＦＴ＿Ｗ［ＣＣ］
　ＧＰＵＴＣＨＲ　ＴＴＲ＿ＧＸ－＿ＧＣＳ，ＴＴＲ＿ＧＹ，”ＢＧＦ０”＋”Ｌ”＊ＦＴ＿Ｌ，ＣＣ，０，１
　ＴＴＲ＿ＧＸ＝ＴＴＲ＿ＧＸ＋＿ＧＣＷ＋２＊ＧＰＰ
ＲＥＴＵＲＮ

＠ＣＨＡ＿Ｂ
　ＳＰＳＥＴ　１０，６４，２，０，０，０
　ＳＰＨＯＭＥ　１０，８，１５
　ＳＰＳＣＡＬＥ　１０，２００
　ＳＰＯＦＳ　１０，－３２，ＣＨＡ＿ＧＹ
　ＳＰＯＦＳ　１０，４０，ＣＨＡ＿ＧＹ，６０＊ＡＮ
　ＩＦ　ＡＮ　ＴＨＥＮ　ＳＰＡＮＩＭ　１０，４，８，２
　ＳＰＳＥＴ　０，１６，３，０，０，０
　ＳＰＨＯＭＥ　０，０，８
　ＳＰＳＣＡＬＥ　０，１２０
　ＳＰＡＮＧＬＥ　０，－２０
　ＳＰＯＦＳ　０，－３２＋４，ＣＨＡ＿ＧＹ－８
　ＳＰＯＦＳ　０，４０＋４，ＣＨＡ＿ＧＹ－８，６０＊ＡＮ
ＲＥＴＵＲＮ

＠ＣＨＡ＿Ｍ
　ＳＰＳＥＴ　１１，１０４，４，０，０，０
　ＳＰＨＯＭＥ　１１，８，１５
　ＳＰＳＣＡＬＥ　１１，２００
　ＳＰＯＦＳ　１１，２５６－４０，ＣＨＡ＿ＧＹ
　ＳＰＳＥＴ　１，２６，３，０，０，０
　ＳＰＨＯＭＥ　１，１５，８
　ＳＰＳＣＡＬＥ　１，１２０
　ＳＰＡＮＧＬＥ　１，１０
　ＳＰＯＦＳ　１，２５６－４０－４，ＣＨＡ＿ＧＹ－８
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＨＬ
　ＳＰＳＥＴ　１１，４１６，５，０，０，０，３２，３２
　ＳＰＳＣＡＬＥ　１１，２００
　ＳＰＨＯＭＥ　１１，１６，３２
　ＳＰＯＦＳ　１１，２５６＋３２，ＣＨＡ＿ＧＹ
　ＩＦ　ＡＮ　ＴＨＥＮ　ＳＰＡＮＩＭ　１１，２，１２
　ＳＰＯＦＳ　１１，２５６－４０－１６，ＣＨＡ＿ＧＹ，１８０＊ＡＮ
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＨＬ２
　ＳＰＳＥＴ　１，１８０，４，０，０，０
　ＳＰＨＯＭＥ　１，８，１５
　ＳＰＳＣＡＬＥ　１，１００
　ＳＰＯＦＳ　１，２５６－３２，ＣＨＡ＿ＧＹ
　ＳＰＡＮＩＭ　１，２，６
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＧＨ
　ＳＰＳＥＴ　１１，１９６，４，０，０，０
　ＳＰＨＯＭＥ　１１，８，１５
　ＳＰＳＣＡＬＥ　１１，２００
　ＳＰＯＦＳ　１１，２５６－３２＋６４＊ＡＮ，ＣＨＡ＿ＧＹ－１６
　ＳＰＡＮＩＭ　１１，２，１２
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＢＫ
　ＳＰＳＥＴ　５，１８４，０，０，０，０，３２，３２
　ＳＰＨＯＭＥ　５，８，１２
　ＩＦ　ＯＦ＝＝０　ＴＨＥＮ　ＳＰＯＦＳ　５，４０＋４＋１６，ＣＨＡ＿ＧＹ－８
　ＩＦ　ＯＦ＝＝１　ＴＨＥＮ　ＳＰＯＦＳ　５，２５６－４０－４－１６，ＣＨＡ＿ＧＹ－８
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＨＫ
　ＳＰＳＥＴ　１１，ＳＰＸ０１＋ＦＣ＊４，１１，１，０，０，３２，３２
　ＳＰＨＯＭＥ　１１，１６，３２＋２０－２
　ＳＰＯＦＳ　１１，２５６－４０，ＣＨＡ＿ＧＹ
　ＳＰＳＥＴ　１２，ＳＰＸ０１＋４＊４，１１，１，０，０，３２，３２
　ＳＰＨＯＭＥ　１２，１６，３２－２
　ＳＰＯＦＳ　１２，２５６－４０，ＣＨＡ＿ＧＹ
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＤＭ
　ＳＰＳＥＴ　１１，ＳＰＸ０３＋ＦＣ＊４，１０，０，０，０，３２，３２
　ＳＰＨＯＭＥ　１１，１６，３２＋２０－２
　ＳＰＯＦＳ　１１，－４０，ＣＨＡ＿ＧＹ
　ＳＰＯＦＳ　１１，２５６－４０，ＣＨＡ＿ＧＹ，１０＊ＡＮ
　ＳＰＳＥＴ　１２，ＳＰＸ０３＋４＊４，１０，０，０，０，３２，３２
　ＳＰＨＯＭＥ　１２，１６，３２－２
　ＳＰＯＦＳ　１２，－４０，ＣＨＡ＿ＧＹ
　ＳＰＯＦＳ　１２，２５６－４０，ＣＨＡ＿ＧＹ，１０＊ＡＮ
　ＳＰＡＮＩＭ　１２，２，８
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＷＰ
　ＳＰＳＥＴ　１１，ＳＰＸ０１＋３２＋ＦＣ＊４，１３，１，０，０，３２，３２
　ＳＰＨＯＭＥ　１１，１６，３２＋２０－２
　ＳＰＯＦＳ　１１，２５６－４０，ＣＨＡ＿ＧＹ
　ＳＰＳＥＴ　１２，ＳＰＸ０１＋３２＋４＊４，１０，０，０，０，３２，３２
　ＳＰＨＯＭＥ　１２，１６，３２－２
　ＳＰＯＦＳ　１２，２５６－４０，ＣＨＡ＿ＧＹ
ＲＥＴＵＲＮ

＠ＣＨＡ０Ｃ
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ
ＡＮ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ
ＦＣ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿ＨＫ

ＧＯＴＯ　＠ＣＨＡ＿ＭＰ

＠ＣＨＡ＿ＭＰ
ＧＴ＄＝”ＭＰ　”＋ＳＴＲ＄（ＦＬＯＯＲ（ＣＨＡ＿ＭＰ［ＢＧＭ］／１００＋．５））：ＧＸ＝３０：ＧＹ＝ＣＨＡ＿ＧＹ－４４：ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＢＥＥＰ　５
ＷＡＩＴ　３０
ＧＯＴＯ　”＠ＣＨＡ”＋ＳＴＲ＄（ＢＧＭ）＋ＳＴＲ＄（ＣＬＲ）

＠ＣＨＡ＿ＭＶ１
ＦＯＲ　Ｉ＝１　ＴＯ　２
　ＢＥＥＰ　ＢＰ
　ＳＰＡＮＧＬＥ　０，３０，１５
　ＷＡＩＴ　１５
　ＳＰＡＮＧＬＥ　０，－７０，１５，－１
　ＷＡＩＴ　１５
ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ８
ＢＥＥＰ　８
ＳＰＡＮＧＬＥ　０，－７０，１５，－１
ＷＡＩＴ　１５
ＢＥＥＰ　ＢＰ
ＳＰＡＮＧＬＥ　０，３０，１５
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ１１
ＳＰＡＮＧＬＥ　０，－７０，１５，－１
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ２
ＳＰＯＦＳ　１０，２５６－７０，ＣＨＡ＿ＧＹ，６０
ＳＰＯＦＳ　０，２５６－７０＋４，ＣＨＡ＿ＧＹ－８，６０
ＳＰＡＮＩＭ　１０，４，８，２
ＷＡＩＴ　６０
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ３
ＢＥＥＰ　６
ＳＰＯＦＳ　０，４０＋（２５６－７０）＊２＋４，ＣＨＡ＿ＧＹ－８，６０
ＷＡＩＴ　３０
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ１２
ＢＥＥＰ　６
ＳＰＯＦＳ　０，４０＋（２５６－７０）＋４，ＣＨＡ＿ＧＹ－８，３０
ＳＰＡＮＧＬＥ　０，－７０，３０，－１
ＷＡＩＴ　３０
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ４
ＢＥＥＰ　１３
ＢＥＥＰ　１４
ＳＰＯＦＳ　１１，２５６－４０＋（２５６－７０），ＣＨＡ＿ＧＹ－６０，３０
ＳＰＯＦＳ　１２，２５６－４０＋（２５６－７０），ＣＨＡ＿ＧＹ－６０，３０
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ１３
ＳＰＯＦＳ　１１，２５６－４０＋（２５６－７０），ＣＨＡ＿ＧＹ，１８０
ＳＰＯＦＳ　１２，２５６－４０＋（２５６－７０），ＣＨＡ＿ＧＹ，１８０
ＳＰＯＦＳ　５，２５６－４０－４－１６＋（２５６－７０），ＣＨＡ＿ＧＹ－８，１８０
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ１５
ＳＰＯＦＳ　１１，２５６－４０＋（２５６－７０），ＣＨＡ＿ＧＹ－１２０，９０
ＳＰＯＦＳ　１２，２５６－４０＋（２５６－７０），ＣＨＡ＿ＧＹ－１２０，９０
ＳＰＯＦＳ　５，２５６－４０－４－１６＋（２５６－７０），ＣＨＡ＿ＧＹ－１２０－８，９０
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ１６
ＳＰＯＦＳ　１１，２５６－４０＋２０，ＣＨＡ＿ＧＹ，３０
ＳＰＯＦＳ　１２，２５６－４０＋２０，ＣＨＡ＿ＧＹ，３０
ＳＰＯＦＳ　５，２５６－４０－４－１６－２０，ＣＨＡ＿ＧＹ，３０
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ１４
ＳＰＯＦＳ　１１，２５６－４０＋２０，ＣＨＡ＿ＧＹ－６０，２０
ＳＰＯＦＳ　１２，２５６－４０＋２０，ＣＨＡ＿ＧＹ－６０，２０
ＳＰＯＦＳ　５，２５６－４０－４－１６＋２０，ＣＨＡ＿ＧＹ－６０－８，２０
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ７
ＢＥＥＰ　１５
ＳＰＣＨＲ　１，１７６
ＳＰＯＦＳ　１，２５６＋３２，ＣＨＡ＿ＧＹ，１５
ＷＡＩＴ　１５
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ１０
ＳＰＣＨＲ　１１，１９２
ＳＰＯＦＳ　１１，２５６＋３２，ＣＨＡ＿ＧＹ－８０，９０
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ６
ＢＥＥＰ　１３
ＢＥＥＰ　１４
ＳＰＣＨＲ　１１，１２２
ＳＰＯＦＳ　１１，２５６－４０＋（２５６－７０），ＣＨＡ＿ＧＹ－６０，６０
ＳＰＯＦＳ　１，２５６－４０＋（２５６－７０）－４，ＣＨＡ＿ＧＹ－６０－８，６０
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ５
ＢＥＥＰ　８
ＢＥＥＰ　１３
ＳＰＡＮＧＬＥ　０，－７０，１５，－１
ＳＰＡＮＧＬＥ　１，４０，１５
ＳＰＯＦＳ　１０，２５６－９０，ＣＨＡ＿ＧＹ，３０
ＳＰＯＦＳ　０，２５６－９０＋４，ＣＨＡ＿ＧＹ－８，３０
ＳＰＯＦＳ　１１，２５６－２０，ＣＨＡ＿ＧＹ，３０
ＳＰＯＦＳ　１，２５６－２０－４，ＣＨＡ＿ＧＹ－８，３０

ＳＰＳＥＴ　２，２０，０，０，０，０
ＳＰＨＯＭＥ　２，８，８
ＳＰＯＦＳ　２，２５６－５５，ＣＨＡ＿ＧＹ－３０
ＳＰＯＦＳ　２，２５６－７５，ＣＨＡ＿ＧＹ－５０，３０
ＳＰＡＮＩＭ　２，４，８

ＷＡＩＴ　３０
ＳＰＣＬＲ　２
ＲＥＴＵＲＮ

＠ＣＨＡ＿ＭＶ９
ＳＰＣＨＲ　１１，４４４
ＳＰＡＮＩＭ　１１，１，１
ＲＥＴＵＲＮ

＠ＣＨＡ＿Ｗ
ＦＴ＿Ｌ＝０：ＧＰＰ＝１
ＷＡＩＴ　３０
＠ＣＨＡ＿Ｗ２
ＶＳＹＮＣ　１
ＷＴ＝ＷＴ－１
ＩＦ　ＷＴ＞０　ＡＮＤ　！ＢＵＴＴＯＮ（２）　ＴＨＥＮ　＠ＣＨＡ＿Ｗ２
ＧＯＴＯ　”＠ＣＨＡ”＋ＳＴＲ＄（ＢＧＭ＋１）

＠ＣＨＡ０１
ＢＰ＝５９：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１

＠ＣＨＡ０１＿２

ＧＴ＄＝”＄ヤルキハ　ハ゛ッチリ　アルンシ゛ャナ＄／＄タノンタ゛ソ゛イ＄
ＴＴ＄＝”ヤルキワ／ハ゛ッチ’リ／ア’ルン／シ゛ャナ＿／タノ’ンタ゛／ソ゛イ”
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ０２
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ２
ＢＰ＝８：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１

ＧＯＴＯ　＠ＣＨＡ０１＿２

＠ＣＨＡ０３
ＢＰ＝５９：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ３
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ４
ＧＴ＄＝”＄ア＆＃１２３１６；レ＆＃１２３１６；＄／
ＴＴ＄＝”＠Ｅ１３ア－－－レ－－－
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ０
ＢＧＭ＝０
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ
ＴＳ＄＝”＠Ｓ４”

ＡＮ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ

ＦＣ＝３：ＧＯＳＵＢ　＠ＣＨＡ＿ＨＫ
ＳＰＡＮＩＭ　１２，２，５

ＢＧＭＰＬＡＹ　６，１４１，７５

ＧＴ＄＝”＄タイヘン　シ゛ャ！＄／
ＴＴ＄＝”＠Ｅ４タイヘンシ゛ャ！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＴ＄＝”ワシ＄ノ「＄フ゜チコン＄　セツメイショ」カ゛＄／＄ヌスマレタノシ゛ャ＄
ＴＴ＄＝”＠Ｅ４ワシノ｜フ゜チコンセツメイショ｜カ゛／ヌスマ’レタノシ゛ャ！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＴ＄＝”ワシ＄ノ　カワリニ　トリカエシテキテ＄／＄クレンカノウ？＄
ＴＴ＄＝”＠Ｅ４ワシノ／カワリニ／トリカ’エシテキテ／クレン／カノ’オ
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＯＴＯ　＠ＣＨＡ＿ＯＫ

＠ＣＨＡ１Ｃ
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ
ＡＮ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ
ＧＯＳＵＢ　＠ＣＨＡ＿Ｍ

ＧＯＴＯ　＠ＣＨＡ＿ＭＰ

＠ＣＨＡ１１
ＢＰ＝５９：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１
ＧＴ＄＝”＄ウ－ン、　ソンナ　オモチャ　ミタイナノテ゛＄／＄タタカエルノ　カナ？＄
ＴＴ＄＝”ウ’－ン＿／ソンナ／オモ’チャ／ミ’タイナノテ゛／タタカエル’ノ／カナ
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ１２
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ２
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ５

ＧＴ＄＝”＄フ－ン、　オモッタ　ヨリ＄／＄チャント　テ゛キル　ミタイネ＄
ＴＴ＄＝”フ－ン＿／オモ’ッタ／ヨ’リ／チャント／テ゛キ’ル／ミ’タイ／ネ
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ１３
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ２
ＢＰ＝１３：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１１
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ６

ＧＴ＄＝”＄ウワ－＄／＄ヒ゛ックリ＄
ＴＴ＄＝”ウワ’－－／ヒ゛ック’リ
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ


＠ＣＨＡ１
ＢＧＭ＝１
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ

ＴＳ＄＝”＠Ｓ７

ＡＮ＝１：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ

ＧＯＳＵＢ　＠ＣＨＡ＿Ｍ

ＢＧＭＰＬＡＹ　６，１４３，７５
ＷＡＩＴ　６０

ＳＰＣＨＲ　１０，６４

ＧＴ＄＝”＄ト゛コヘ　イクノ？＄／
ＴＴ＄＝”ト゛’コエ／イク／ノ？
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＴ＄＝”＄ヘェ、＄ハカセ＄ニ　オツカイヲ＄／＄タノマレタノネ＄
ＴＴ＄＝”ヘエ＿ハ’カセニ／オツカイヲ／タノマ’レタ／ノネ
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＴ＄＝”＄ソンナ　ソウヒ゛シ゛ャ　＄モンスタ－＄ニ＄／＄ヤラレチャワナイカナ？＄
ＴＴ＄＝”＠Ｅ１１ソンナ／ソ’オヒ゛シ゛ャ／モ’ンスタ－ニ／ヤラレチャワナ’イ／カナ？
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＯＴＯ　＠ＣＨＡ＿ＯＫ

＠ＣＨＡ２Ｃ
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ
ＡＮ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ
ＡＮ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿ＨＬ
ＧＯＴＯ　＠ＣＨＡ＿ＭＰ

＠ＣＨＡ２１
ＢＰ＝５９：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１

＠ＣＨＡ２１＿２
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ９
ＢＥＥＰ　１１
ＧＯＳＵＢ　＠ＣＨＡ＿ＨＬ２
ＷＡＩＴ　３０

ＴＳ＄＝”＠Ｓ２
ＧＴ＄＝”＄ヒエ－、　チョウシニ　ノッテ＄／＄スミマセン　テ゛シタ－！＄
ＴＴ＄＝”＠Ｅ１２ヒエ’－＿／チョウシニ／ノッテ／スミマセ’ン／テ゛シタ－
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ７

ＷＴ＝１２０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ２２
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ２
ＢＰ＝８：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１

ＧＯＴＯ　＠ＣＨＡ２１＿２

＠ＣＨＡ２３
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ２
ＢＰ＝１３：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ８
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ９
ＷＡＩＴ　１５

ＧＴ＄＝”＄ク゛エ－＄／
ＴＴ＄＝”ク゛エ－－－
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ２
ＢＧＭ＝２
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ

ＴＳ＄＝”＠Ｓ１１

ＡＮ＝１：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ

ＡＮ＝１：ＧＯＳＵＢ　＠ＣＨＡ＿ＨＬ

ＢＧＭＰＬＡＹ　６，１３，７０
ＷＡＩＴ　６０
ＳＰＣＨＲ　１０，６４
ＷＡＩＴ　１２０

ＳＰＣＨＲ　１１，４２４
ＳＰＡＮＩＭ　１１，２，１２

ＧＴ＄＝”＄ココカラ　サキハ　トオサン！＄／
ＴＴ＄＝”＠Ｅ０ココカラ／サキワ／トオサ’ン！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＳＰＣＨＲ　１１，４３２
ＳＰＡＮＩＭ　１１，３，１８，１

ＧＴ＄＝”＄トオリタケレハ゛　オレヲ＄／＄タオシテミロ！＄
ＴＴ＄＝”＠Ｅ０トオリタ’ケレハ゛／オレオ／タオ’シテ／ミ’ロ！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＳＰＣＨＲ　１１，４３２
ＢＧＭＳＴＯＰ　６，０．２５
ＷＡＩＴ　３０

ＧＴ＄＝”＄．．．エ、＄／＄コワカ゛ッテクレナイノ？＄
ＴＴ＄＝”＿エ＿｜コワカ゛’ッテ／クレナ’イ／ノ？
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＯＴＯ　＠ＣＨＡ＿ＯＫ

＠ＣＨＡ３Ｃ
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ
ＡＮ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ
ＡＮ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿ＧＨ
ＧＯＴＯ　＠ＣＨＡ＿ＭＰ

＠ＣＨＡ３１
ＢＰ＝５９：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１
ＧＴ＄＝”＄ソンナ　オモチャ　フリマワシテモ＄／＄ナニモ　オシエテ　アケ゛ナイシ　＄ムタ゛＄タ゛ヨ－＄
ＴＴ＄＝”ソンナ／オモ’チャ／フリマワ’シテモ／ナニモ／オシエテ／アケ゛ナ’イシ／ムタ゛タ゛ヨ－
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ３２
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ２
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１０
ＢＰ＝６：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ８

ＧＴ＄＝”＄ソラ　トヘ゛ナイン　テ゛ショ？＄／＄オイカケテ　キテモ　＄ムタ゛＄タ゛ヨ－＄
ＴＴ＄＝”ソ’ラ／トヘ゛ナ’イン／テ゛ショ？＿／オイカ’ケテ／キ’テモ／ムタ゛タ゛ヨ－
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ３３
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１２
ＢＥＥＰ　１１
ＧＴ＄＝”＄ウワ－　フツウニ　イタイ　コレ＄／
ＴＴ＄＝”ウワ’－／フツウニ／イタ’イ／コレ
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ３
ＢＧＭ＝３
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ

ＴＳ＄＝”＠Ｓ６

ＡＮ＝１：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ

ＡＮ＝１：ＧＯＳＵＢ　＠ＣＨＡ＿ＧＨ

ＢＧＭＰＬＡＹ　６，２１，８０

ＦＯＲ　Ｉ＝１　ＴＯ　１８０
　ＳＰＯＦＳ　１１，２５６＋４０－７２＊Ｉ／１８０，ＣＨＡ＿ＧＹ－３２＋１６＊ＣＯＳ（Ｉ／１８０＊２＊ＰＩ（））
　ＶＳＹＮＣ　１
　ＩＦ　Ｉ＝＝６０　ＴＨＥＮ　ＳＰＣＨＲ　１０，６４
ＮＥＸＴ

ＧＴ＄＝”＄サカ゛シモノカナ？＄／
ＴＴ＄＝”サカ゛シモノ／カナ？
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＴ＄＝”＄アカイ　ホンヲ　モッタ＄／メカ゛ネ＄ノ　ヒトカ゛　ソッチニ　イタケト゛＄
ＴＴ＄＝”アカイ／ホ’ンヲ／モ’ッタ／メ’カ゛ネノ／ヒト’カ゛／ソッチ’ニ／イタ’ケト゛
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＴ＄＝”＄ソンナコト　オシエテ　アケ゛ナイ　モンネ－＄／
ＴＴ＄＝”ソンナコ’ト／オシエテ／アケ゛ナ’イ／モンネ－
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＢＧＭＳＴＯＰ　６
ＳＰＣＨＲ　１１，１９４
ＳＰＡＮＩＭ　１１，２，１２
ＷＡＩＴ　６０

ＧＯＴＯ　＠ＣＨＡ＿ＯＫ

＠ＣＨＡ４Ｃ
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ
ＡＮ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ
ＡＮ＝０：ＦＣ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿ＤＭ
ＦＴ＿Ｌ＝１
ＧＯＴＯ　＠ＣＨＡ＿ＭＰ

＠ＣＨＡ４１
ＢＰ＝５９：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１
ＳＰＡＮＩＭ　１１，２，６
ＧＴ＄＝”ト゛ウシテモ　トオシテ　ホシイノ？／
ＴＴ＄＝”ト゛オシテモトオシテホシイノ？
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＳＰＣＨＲ　１１，ＳＰＸ０３＋２＊４
ＳＰＡＮＩＭ　１１，１，１
ＧＴ＄＝”シ゛ャア　トオシテ　アケ゛ルワ／タ゛ミ－　メッチャ　ヤサシイ　コ！
ＴＴ＄＝”シ゛ャアトオシテアケ゛ルワ＿／タ゛ミ－メッチャヤサシイコ
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ４２
ＳＰＡＮＩＭ　１１，２，６
ＧＴ＄＝”マタ゛マタ゛　ネ／テ゛ナオシテ　キナサイ！
ＴＴ＄＝”マタ゛マタ゛ネ＿／テ゛ナオシテキナサイ！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＳＰＡＮＩＭ　１１，１，１
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ２
ＳＰＣＨＲ　１１，ＳＰＸ０３＋２＊４
ＢＰ＝９：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１
ＢＥＥＰ　２
ＳＰＣＨＲ　１１，ＳＰＸ０３＋３＊４
ＷＡＩＴ　１５

ＧＴ＄＝”ワカッタ　ワカッタ／トオシテ　アケ゛ルカラ
ＴＴ＄＝”ワカッタ／ワカッタ／トオシテアケ゛ルカラ
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ４３
ＳＰＣＨＲ　１１，ＳＰＸ０３＋２＊４
ＧＴ＄＝”チエッ　ソレナラ　コ゛ウカクテンヲ／　　　　１７０クライニ　シタホウカ゛　ヨカッタ　カシラ
ＴＴ＄＝”チェ＿／ソレナラコ゛ウカクテンヲヒャクナナシ゛ュウクライニシタホウカ゛ヨカッタカシラ？
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ４
ＢＧＭ＝４
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ

ＴＳ＄＝”＠Ｓ９

ＡＮ＝１：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ

ＡＮ＝０：ＦＣ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿ＤＭ

ＢＧＭＰＬＡＹ　６，１４４，９５
ＷＡＩＴ　６０
ＳＰＣＨＲ　１０，６４

ＳＰＡＮＩＭ　１１，２，６

ＦＴ＿Ｌ＝１
ＧＴ＄＝”ハシ゛メマシテ　アタシ　タ゛ミ－　ヨ／
ＴＴ＄＝”ハシ゛メマシテ｜アタシ｜タ゛ミ－’ヨ
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＴ＄＝”ココカラ　サキニ　ススミタケレハ゛／アタシノ　テストヲ　クリア　シテネ
ＴＴ＄＝”ココカラサキニススミタケレハ゛＿アタシノテストヲクリアシテネ？
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＳＰＣＨＲ　１１，ＳＰＸ０３＋２＊４
ＳＰＡＮＩＭ　１１，１，１

ＧＴ＄＝”ＭＰ＞＝１５０　テ゛／　　　　コ゛ウカク　タ゛カラネ？
ＴＴ＄＝”エムヒ゜－ヒャクコ゛シ゛ュウイシ゛ョウテ゛／コ゛ウカクタ゛カラネ？
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＯＴＯ　＠ＣＨＡ＿ＯＫ

＠ＣＨＡ５Ｃ
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ
ＡＮ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ
ＦＣ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿ＷＰ
ＯＦ＝１：ＧＯＳＵＢ　＠ＣＨＡ＿ＢＫ
ＧＯＴＯ　＠ＣＨＡ＿ＭＰ

＠ＣＨＡ５１
ＢＰ＝５９：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１

＠ＣＨＡ５１＿２
ＳＰＣＨＲ　１１，ＳＰＸ０１＋３２＋２＊４
ＧＴ＄＝”＄ソンナニ　＄カエ＄シテ　ホシイノカ？＄／＄シ゛ャア　＄カエ＄シテ　ヤルヨ＄
ＴＴ＄＝”＠Ｅ１１ソンナニ／カ’エシテ／ホシ’イノ／カ？＿／シ゛ャ’ア／カ’エシテ／ヤル’ヨ
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ５２
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ２
ＢＰ＝８：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１
ＧＯＴＯ　＠ＣＨＡ５１＿２

＠ＣＨＡ５３
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ２
ＢＰ＝１３：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１１
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ４

ＧＴ＄＝”メチャクチャ＄ナ　ヤリカタ　タ゛ナ、＄　オイ！／
ＴＴ＄＝”＠Ｅ１３メチャクチャナ／ヤリカタ／タ゛ナ／オ’イ！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ５
ＢＧＭ＝５
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ

ＴＳ＄＝”＠Ｓ０

ＡＮ＝１：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ

ＦＣ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿ＷＰ
ＯＦ＝１：ＧＯＳＵＢ　＠ＣＨＡ＿ＢＫ

ＢＧＭＰＬＡＹ　６，３，８５
ＷＡＩＴ　６０

ＳＰＣＨＲ　１０，６４

ＳＰＡＮＩＭ　１１，２，６
ＧＴ＄＝”＄ナニ、　コノ　＄ホン＄ヲ＄／カエ＄シテ　ホシイッツ－ノカ？＄
ＴＴ＄＝”ナニ＿｜コノ／ホ’ンヲ／カ’エシテ／ホシ’イッツ－ノ／カ？
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＴ＄＝”＄オチテタノヲ　＄ハ゜クッ＄タ　タ゛ケタ゛＄／＄オトシタノカ゛　＄ワル＄インシ゛ャ　ネ＄ェ＄ノカ？＄
ＴＴ＄＝”オ’チテタノヲ／ハ゜ク’ッタ／タ゛ケ’タ゛＿｜オト’シタノカ゛／ワル’インシ゛ャ／ネ’エノ／カ？
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＳＰＣＨＲ　１１，ＳＰＸ０１＋３２＋２＊４
ＳＰＡＮＩＭ　１１，１，１

ＧＴ＄＝”＄ソレニ　＄セツメイショ＄　ナンカ　ナクテモ＄／ク゛ク゛レ＄ハ゛　スムタ゛ロ？＄
ＴＴ＄＝”ソレニ／セツメイショ／ナ’ンカ／ナ’クテモ／ク゛ク゛’レハ゛／ス’ムタ゛／ロ？
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＯＴＯ　＠ＣＨＡ＿ＯＫ

＠ＣＨＡ６Ｃ
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ
ＡＮ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ
ＡＮ＝０：ＦＣ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿ＤＭ
ＯＦ＝１：ＧＯＳＵＢ　＠ＣＨＡ＿ＢＫ
ＦＴ＿Ｌ＝１
ＧＯＴＯ　＠ＣＨＡ＿ＭＰ

＠ＣＨＡ６１
ＢＰ＝５９：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１
ＳＰＡＮＩＭ　１１，２，６
ＧＴ＄＝”オモチャ　フリマワシタッテ　イミナイ　ヨ－／カエシテ　アケ゛ナイ　モン！
ＴＴ＄＝”オモチャフリマワシタッテ／イミナイヨ－－！＿カエシテアケ゛ナイモン！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＳＰＣＨＲ　１１，ＳＰＸ０３＋２＊４
ＳＰＡＮＩＭ　１１，１，１
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１３
ＧＴ＄＝”テ゛イシ゛－、　テ゛イシ゛－♪／
ＴＴ＄＝”＠Ｅ８＠Ｎ１９７１テ゛ェエエエイ｜＠Ｎ１５５９シ゛イイイイイイ＿＠Ｎ２２４９テ゛ェエエエイ｜＠Ｎ２０９３シ゛イイイイイイ”
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ６２
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ２
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１４
ＢＰ＝５９：ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１

ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１５
ＳＰＣＨＲ　１１，ＳＰＸ０３＋２＊４
ＧＴ＄＝”キャ－　ツカマエラレナイ　ヨウニ／ハヤク　ニケ゛ナキャ
ＴＴ＄＝”キャ－＿ツカマエラレナイヨウニ／ハヤクニケ゛ナキャ！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ６３
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１２
ＢＥＥＰ　１１
ＢＥＥＰ　２
ＳＰＣＨＲ　１１，ＳＰＸ０３＋３＊４
ＳＰＡＮＧＬＥ　１２，１，１
ＧＯＳＵＢ　＠ＣＨＡ＿ＭＶ１６

ＧＴ＄＝”ウワ－　イシ゛ワル！／カエシテ　アケ゛ルッテハ゛！
ＴＴ＄＝”ウワ－イシ゛ワル！＿／カエシテアケ゛ルッテハ゛！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＷＴ＝０：ＧＯＴＯ　＠ＣＨＡ＿Ｗ

＠ＣＨＡ６
ＢＧＭ＝６
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ
ＴＳ＄＝”＠Ｓ９

ＡＮ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿Ｂ

ＯＦ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿ＢＫ

ＷＡＩＴ　３０

ＳＰＯＦＳ　５，２５６－４０－４－１６，ＣＨＡ＿ＧＹ－８，１０
ＡＮ＝１：ＦＣ＝０：ＧＯＳＵＢ　＠ＣＨＡ＿ＤＭ

ＢＧＭＰＬＡＹ　６，１４５，６０
ＷＡＩＴ　２０

ＳＰＡＮＩＭ　１１，２，６
ＦＴ＿Ｌ＝１
ＧＴ＄＝”コノ　ホン　オモシロソウ　タ゛カラ／アタシカ゛　モラッテ　イクヨ！
ＴＴ＄＝”コノホンオモシロソウタ゛カラ＿アタシカ゛モラッテイクヨ！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＴ＄＝”ヘ゛ツニ　イラナイ　テ゛ショ？／アリカ゛ト－ネ！
ＴＴ＄＝”ヘ゛ツニイラナイテ゛ショ？アリカ゛ト－ネ！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＳＰＣＨＲ　１１，ＳＰＸ０３＋２＊４
ＳＰＡＮＩＭ　１１，１，１
ＧＴ＄＝”ハ゛イハ゛イ／
ＴＴ＄＝”ハ゛イハ゛イ！
ＧＯＳＵＢ　＠ＣＨＡ＿ＧＰ＿Ｒ

ＧＯＴＯ　＠ＣＨＡ＿ＯＫ

＠ＣＨＡ７
ＧＯＳＵＢ　＠ＣＨＡＩＮＩＴ

ＢＧＭＰＬＡＹ　６，１２，６０

ＧＴ＄＝”チャレンシ゛　モ－ト゛　クリア！”
ＧＸ＝１２８－１０７／２：ＧＹ＝ＣＨＡ＿ＧＹ＋２２
ＩＦ　ＣＨＡ＿ＣＬＲ［６］＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

ＷＡＩＴ　９０

ＧＰＡＧＥ　１
ＳＰＰＡＧＥ　１

ＩＦ　ＣＨＡ＿ＣＬＲ［６］＜＝０　ＴＨＥＮ　＠ＣＨＡ＿Ｒ＿ＨＰＳＫＰ

ＧＴ＄＝”ＨＰ”：ＧＸ＝３６＋１０４：ＧＹ＝５４＋３０＊３＋１５
ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝”．”：ＧＸ＝２１０：ＧＹ＝５８＋３０＊３＋１５
ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ

ＣＨＡ＿ＭＰ［７］＝ＦＬＯＯＲ（ＣＨＡ＿ＨＰ＊１００＋．５）
ＭＰ＝ＣＨＡ＿ＭＰ［７］
ＳＩ＝３０＋６＊７：ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＦＬＯＯＲ（ＭＰ／１００）
ＧＯＳＵＢ　＠ＳＣＳＥＴ
’ＧＯＳＵＢ　＠ＳＣＭＯＶ
ＧＯＳＵＢ　＠ＳＣＳＥＴ＿ＭＰ

ＢＥＥＰ　３
ＷＡＩＴ　６０

＠ＣＨＡ＿Ｒ＿ＨＰＳＫＰ

’ＧＴ＄＝”＄コ゛ウケイ＄”：ＧＸ＝１２８：ＧＹ＝２４
’ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＧＴ＄＝”．”：ＧＸ＝２１０－５：ＧＹ＝２８
ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ
ＭＰ＝０
ＦＯＲ　Ｉ＝０　ＴＯ　７
　ＭＰ＝ＭＰ＋ＣＨＡ＿ＭＰ［Ｉ］
ＮＥＸＴ
ＳＩ＝３０＋６＊８：ＳＣ＝４：ＳＺ＝０：ＳＶ＝ＦＬＯＯＲ（ＭＰ／１００）
ＧＯＳＵＢ　＠ＳＣＳＥＴ
’ＧＯＳＵＢ　＠ＳＣＭＯＶ
ＧＯＳＵＢ　＠ＳＣＳＥＴ＿ＭＰ

ＦＯＲ　Ｉ＝０　ＴＯ　５
　ＳＰＲＥＡＤ（ＳＩ＋Ｉ），ＳＸ，ＳＹ
　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ，ＳＹ－４
　ＳＰＯＦＳ　ＳＩ＋Ｉ，ＳＸ，ＳＹ，４
ＮＥＸＴ

ＢＥＥＰ　１２
ＷＡＩＴ　６０

ＳＶＤＡＴＡ＄＝ＲＩＧＨＴ＄（ＭＥＭ＄，２５６－ＳＶＬＥＮ＊７）
ＯＬＤＳＣＯＲＥ＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＳＶＤＡＴＡ＄，５＊ＥＸ，５））

ＧＴ＄＝”ハイスコア　＄コウシン！＄”：ＧＸ＝１５２：ＧＹ＝４０：ＧＰ＝３
ＩＦ　ＭＰ＞ＯＬＤＳＣＯＲＥ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＰＲＴ＿Ｌ：ＢＥＥＰ　５
ＧＰ＝０

＠ＣＨＡ＿ＲＳ＿１
ＶＳＹＮＣ　１
ＩＦ　！ＢＵＴＴＯＮ（２）　ＴＨＥＮ　＠ＣＨＡ＿ＲＳ＿１

ＩＦ　ＭＰ＞ＯＬＤＳＣＯＲＥ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＡＶ１

ＢＧＭＳＴＯＰ　６，０．５

ＧＯＴＯ　＠ＴＩＴ

＠ＳＡＶ１
ＳＶＤＡＴＡ＄＝ＳＵＢＳＴ＄（ＳＶＤＡＴＡ＄，５＊ＥＸ，５，ＨＥＸ＄（ＭＰ，５））
ＭＥＭ＄＝ＳＵＢＳＴ＄（ＭＥＭ＄，ＳＶＬＥＮ＊７，２５６－ＳＶＬＥＮ＊７，ＳＶＤＡＴＡ＄）
ＳＡＶＥ　ＳＡＶＦＩＬＥ＄
ＲＥＴＵＲＮ


’－－－－－－－－－－－－－－－－－－－－－－－－－－－
＠ＬＩＳＴ
ＤＡＴＡ　７
ＤＡＴＡ　０，８０，”ＢＧＭ００”，”フ゜リセット”，１，５
ＤＡＴＡ　”０００１０２－０－０
ＤＡＴＡ　１５４，７５，”フ゜チコマシ゛ック！”，”オリシ゛ナル”，２，５
ＤＡＴＡ　”２７３１１Ａ２３１Ｃ１Ｄ３０１Ｅ２５３２
ＤＡＴＡ　２５，９５，”ＢＧＭ２５”，”フ゜リセット”，２，６
ＤＡＴＡ　”０００１０２－２－５
ＤＡＴＡ　１５５，８５，”┿┨└┼Шж┰■┴□”，”オリシ゛ナル”，３，７
ＤＡＴＡ　”３８３９３４３５３Ａ３Ｂ３Ｃ３Ｄ３３３Ｅ
ＤＡＴＡ　２２，１００，”ＢＧＭ２２”，”フ゜リセット”，３，７
ＤＡＴＡ　”０００１０２－２－２
ＤＡＴＡ　１５６，８０，”Ｓｕｄｄｅｎ”，”オリシ゛ナル”，４，８
ＤＡＴＡ　”０４１８１６１６１３１９
ＤＡＴＡ　１５７，５０，”Ｌｉｍｉｔｅｌｏｄｙ”，”オリシ゛ナル”，５，９
ＤＡＴＡ　”０３１０１１１０１２１３１４１５１６１７

’ＤＡＴＡ　１４，８５，”ＢＧＭ１４”，”フ゜リセット”，１，５
’ＤＡＴＡ　””
’ＤＡＴＡ　１５２，１２０，”リス゛ミカルГチャイム”，”オリシ゛ナル”，２，６
’ＤＡＴＡ　””
’ＤＡＴＡ　１５３，１１５，”ＢＧＭ１１（アレンシ゛）”，”フ゜リセット”，２，７
’ＤＡＴＡ　””
’ＤＡＴＡ　１５０，８０，”Ｇｅｔ　Ｓｔａｒｔｅｄ！”，”オリシ゛ナル”，３，７
’ＤＡＴＡ　””
’ＤＡＴＡ　２３，９５，”ＢＧＭ２３”，”フ゜リセット”，４，８
’ＤＡＴＡ　””
’ＤＡＴＡ　２，９０，”ＢＧＭ０２”，”フ゜リセット”，４，１０
’ＤＡＴＡ　””
’ＤＡＴＡ　１５１，１２７，”│кжд┌вШ”，”オリシ゛ナル”，５，１０
’ＤＡＴＡ　””

ＤＡＴＡ　１５８，１００，”Ｄｅｆａｕｌｔ－ｍ”，””，０，０
ＤＡＴＡ　””
この後ろに譜面データとMMLがあります。
一部の記号はひらがなに割り当てられています。
CHECKER FLAG (ひとことコメント)

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

投稿プログラム : Drop-m(リズムゲーム)

パンくずリスト

概要

前作との違い

操作方法(メニュー)

遊び方

フリープレイ

チャレンジ

チュートリアル

収録曲

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

QR コード

プログラムリスト

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

メニュー

外部リンク

プチコン4

プチコン3号&BIG

プチコン初代&mkII
