スマイルブーム自家製プログラム特集 PART7 →PART1に戻る
GALAXY01 by スマイルブーム
スプライトの回転・拡大縮小と、回転運動のサンプルプログラムだ。
操作方法はいわゆるラジコン型。十字ボタン左右で進行方向を回転させて、十字ボタン上下でスピードを増減することになる。
Ａボタンで弾を発射。プレイヤー機をしつこく追ってくる敵機に当てると、小さな敵機に分裂するぞ。
CHECK POiNT 
もうこのさいイキナリ言うがよォ、これまでで一番投げっぱなしなプログラムだなこのヤロウ！ ファーック！
ううむ。たしかにゲームとして完成していないのはその通りじゃ。
しかしこう見えて、三角関数を使ったキャラの動きや、スプライトの一通りの基本動作、それに関連した当たり判定、といったゲーム作りの重要なサンプルにはなっておるのじゃぞい。
しかしこう見えて、三角関数を使ったキャラの動きや、スプライトの一通りの基本動作、それに関連した当たり判定、といったゲーム作りの重要なサンプルにはなっておるのじゃぞい。
ムググ……。
BG面の星空を２つ重ねた、多重スクロールの手法も使われているね。星空にかぎらず透明色をうまく使えば、かなり効果的な演出に使えるよ。
そうじゃな。あとは……どのくらいスプライトを使うと「処理落ち」するか……とか？
テメエー！ やっぱり許せねェー!!
自家製プログラム特集はこれでおしまい。次回からはまた投稿プログラムの掲載に戻るよ。今回の特集が参考になると嬉しいけど、どうだったかな？
みなさんの投稿、お待ちしています！
みなさんの投稿、お待ちしています！
プログラムリスト
- ’┌──────────────────────────┐
- ’│ＧＡＬＡＸＹ０１ ｖ１．０ │
- ’└──────────────────────────┘
- ＶＩＳＩＢＬＥ １，１，１，１，１，１
- ＣＬＳ：ＣＯＬＯＲ ０
- ＧＰＡＧＥ ０：ＧＣＯＬＯＲ ０：ＧＣＬＳ
- ＳＰＰＡＧＥ ０：ＳＰＣＬＲ
- ＢＧＰＡＧＥ ０
- ＣＬＥＡＲ
- ’－－－
- ＤＩＭ Ｅ（１６，１０），ＣＬ（４）
- ＤＡＴＡ １４，１１，９，０
- ＦＯＲ Ｉ＝０ ＴＯ ３：ＲＥＡＤ ＣＬ（Ｉ）：ＮＥＸＴ
- ＿Ｘ＝０：＿Ｙ＝１：＿Ｃ＝２：＿Ｌ＝３
- ＿Ｗ＝４：＿Ｎ＝５：＿Ａ＝６：＿Ｓ＝７
- ＿Ｖ＝８
- ＥＣＮＴ＝１０
- ’－－－
- ＦＬ＝０：ＲＱ＝ＦＬ：ＢＧＭＷ＝ＦＡＬＳＥ
- ＧＯＳＵＢ ＠ＴＩＮＩＴ
- ’－－－
- ＠ＬＯＯＰ
- ＯＬＤＢ＝Ｂ：Ｂ＝ＢＵＴＴＯＮ（）
- ’
- ＧＯＳＵＢ ＠ＦＬＯＷ
- ’
- ＶＳＹＮＣ（１）
- ＧＯＴＯ ＠ＬＯＯＰ
- ＥＮＤ
- ’───────────────────────────
- ＠ＦＬＯＷ ’カ゛メンセンイ
- ’───────────────────────────
- ＩＦ ＲＱ＝＝ＦＬ ＧＯＴＯ ＠ＦＬＪＵＭＰ
- ＩＦ ＢＧＭＷ ＡＮＤ ＢＧＭＣＨＫ（） ＴＨＥＮ ＲＥＴＵＲＮ
- ＢＧＭＷ＝ＦＡＬＳＷ
- ’－－－ アタラシイ カ゛メンヘ
- ＯＮ ＲＱ ＧＯＳＵＢ ＠ＴＩＮＩＴ，＠ＳＳＩＮＩＴ，＠ＧＩＮＩＴ，＠ＯＶＩＮＩＴ，＠ＳＣＩＮＩＴ
- ＦＬ＝ＲＱ
- ’－－－ カ゛メンコ゛トノショリヘ
- ＠ＦＬＪＵＭＰ
- ＯＮ ＦＬ ＧＯＴＯ ＠ＴＩＴ，＠ＳＳＴＡＲＴ，＠ＧＡＭＥ，＠ＧＯＶＥＲ，＠ＳＣＬＥＡＲ
- ＲＥＴＵＲＮ
- ’───────────────────────────
- ’
- ’───────────────────────────
- ＠ＡＮＹＢＵＴ
- Ｒ＝ＦＡＬＳＥ
- ＩＦ ＯＬＤＢ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ Ｂ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｒ＝ＴＲＵＥ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＳＥ
- Ｐ＝（１２８／２３）＊Ｘ
- Ｖ＝（１００／２３）＊Ｙ＋２７
- ＢＥＥＰ Ｂ，Ｆ，Ｖ，Ｐ
- ＲＥＴＵＲＮ
- ’───────────────────────────
- ＠ＴＩＴ
- ’───────────────────────────
- ＧＯＳＵＢ ＠ＴＩＴＰＵＴ
- ＧＯＳＵＢ ＠ＡＮＹＢＵＴ
- ＩＦ Ｒ＝＝ＦＡＬＳＥ ＴＨＥＮ ＲＥＴＵＲＮ
- ＢＧＭＳＴＯＰ
- ＲＱ＝１
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＴＩＮＩＴ
- ＣＬＳ：ＢＧＭＰＬＡＹ ２８
- ＧＯＳＵＢ ＠ＢＧＩＮＩＴ
- ＳＴＧ＝０
- ’－－－
- ＳＰＣＬＲ
- ＦＯＲ Ｉ＝０ ＴＯ ３１
- ＳＰＳＥＴ Ｉ，１５６，３，０，０，１
- ＳＰＯＦＳ Ｉ，１２０，８８
- ＮＥＸＴ
- ’－－－
- ＠ＴＩＴＰＵＴ
- Ｉ＝（Ｃ／４） ＡＮＤ ７
- ＩＦ Ｉ＞３ ＴＨＥＮ Ｉ＝７－Ｉ
- ＣＯＬＯＲ ＣＬ（Ｉ）：Ｃ＝Ｃ＋１
- Ｘ＝６：Ｙ＝８
- ＬＯＣＡＴＥ Ｘ，Ｙ＋０：ＰＲＩＮＴ”┗┏┳┏┓┛ ┳┏┓┫┳━┫┳━┗┫┳┛”
- ＬＯＣＡＴＥ Ｘ，Ｙ＋１：ＰＲＩＮＴ”┛┻┻┠┛┛ ┻┠┛ ┛ ┛ ┛┻ ┛”
- ＬＯＣＡＴＥ Ｘ，Ｙ＋２：ＰＲＩＮＴ”┫┨┻ ┛┯┠┻ ┛┗┃┓ ┛ ┫┗ ┛”
- ＣＯＬＯＲ ９：Ｘ＝８：Ｙ＝Ｙ＋７
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ”ＰＵＳＨ ＡＮＹ ＢＵＴＴＯＮ！”
- ＣＯＬＯＲ ２：Ｘ＝４：Ｙ＝Ｙ＋５
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ”（Ｃ）２０１１ ＳｍｉｌｅＢｏｏｍ Ｃｏ．Ｌｔｄ．”
- ’－－－
- ＦＯＲ Ｉ＝０ ＴＯ ３１
- ＩＦ ＳＰＣＨＫ（Ｉ） ＧＯＴＯ ＠ＴＩＳＫＩＰ
- ’－－－ ＲＥＳＥＴ
- ＳＰＯＦＳ Ｉ，１２０，８８
- ＳＰＳＣＡＬＥ Ｉ，０，０
- ’－－－ ＮＥＷ
- Ｒ＝ＲＮＤ（６０）＋１５
- ＳＰＯＦＳ Ｉ，ＲＮＤ（２５６），ＲＮＤ（１９２），Ｒ
- ＳＰＳＣＡＬＥ Ｉ，５０，Ｒ
- ＠ＴＩＳＫＩＰ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’───────────────────────────
- ＠ＳＳＴＡＲＴ
- ’───────────────────────────
- Ｗ＝Ｗ－１：ＩＦ Ｗ＜０ ＧＯＴＯ ＠＿ＳＩＥＮＤ
- ＧＯＳＵＢ ＠ＡＮＹＢＵＴ
- ＩＦ Ｒ＝＝ＦＡＬＳＥ ＴＨＥＮ ＲＥＴＵＲＮ
- ＠＿ＳＩＥＮＤ
- ＲＱ＝２
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＳＳＩＮＩＴ
- ＣＬＳ：ＢＧＭＳＴＯＰ
- Ｘ＝１３：Ｙ＝１１：Ｗ＝６０＊１
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ”Ｒｅａｄｙ？”
- ＦＯＲ Ｉ＝０ ＴＯ ３１
- ＳＰＯＦＳ Ｉ，１２０，８８，１５
- ＳＰＳＣＡＬＥ Ｉ，０，１５
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＢＧＩＮＩＴ
- ＢＧＯＦＳ ０，０，０
- ＢＧＯＦＳ １，０，０
- ＦＯＲ Ｙ＝０ ＴＯ ６３
- ＦＯＲ Ｘ＝０ ＴＯ ６３
- ＢＧＰＵＴ ０，Ｘ，Ｙ，０，０，０，０
- ＢＧＰＵＴ １，Ｘ，Ｙ，０，０，０，０
- ＮＥＸＴ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’───────────────────────────
- ＠ＳＣＬＥＡＲ
- ’───────────────────────────
- ＧＯＳＵＢ ＠ＡＮＹＢＵＴ
- ＩＦ Ｒ＝＝ＦＡＬＳＥ ＴＨＥＮ ＲＥＴＵＲＮ
- ＲＱ＝３
- ＲＥＴＵＲＮ
- ’
- ＠ＳＣＩＮＩＴ
- ＣＬＳ：ＢＧＭＰＬＡＹ ９
- Ｘ＝１３：Ｙ＝１１：Ｗ＝６０＊１
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ”ＣＬＥＡＲ！”
- ＲＥＴＵＲＮ
- ’───────────────────────────
- ＠ＧＯＶＥＲ
- ’───────────────────────────
- ＧＬＩＮＥ ＭＸ＊８，ＭＹ＊８，ＲＮＤ（２５６），ＲＮＤ（２５６），ＲＮＤ（２５６）
- ＧＣＩＲＣＬＥ ＭＸ＊８，ＭＹ＊８，ＲＮＤ（１００）＋２，ＲＮＤ（２５６）
- ＩＦ ＢＧＭＣＨＫ（） ＴＨＥＮ ＲＥＴＵＲＮ
- ＧＯＳＵＢ ＠ＡＮＹＢＵＴ
- ＩＦ Ｒ＝＝ＦＡＬＳＥ ＴＨＥＮ ＲＥＴＵＲＮ
- ’－－－
- ＧＣＬＳ：ＳＰＣＬＲ
- ＲＱ＝０
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＯＶＩＮＩＴ
- ＣＬＳ：ＢＧＭＰＬＡＹ ６：ＢＧＭＷ＝ＴＲＵＥ
- Ｘ＝１１：Ｙ＝１１
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ”ＧＡＭＥ ＯＶＥＲ”
- ＲＥＴＵＲＮ
- ’───────────────────────────
- ＠ＧＡＭＥ
- ’───────────────────────────
- ＧＯＳＵＢ ＠ＭＹＳＨＩＰ
- ＧＯＳＵＢ ＠ＳＨＯＴ
- ＧＯＳＵＢ ＠ＥＮＥＭＹ
- ’ＧＯＳＵＢ ＠ＰＵＴＳＣＯ
- ＧＯＳＵＢ ＠ＭＡＰＳＣＲＬ
- ’
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＭＡＰＳＣＲＬ
- ＧＸ＝ＧＸ＋ＧＶＸ
- ＧＹ＝ＧＹ＋ＧＶＹ
- ＢＧＯＦＳ ０，ＧＸ＊２，ＧＹ＊２
- ＢＧＯＦＳ １，ＧＸ，ＧＹ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＭＹＳＨＩＰ
- ’－－－ ニュウリョクカクニン
- ＧＯＳＵＢ ＠ＧＥＴＶＥＣ
- ’－－－
- ＲＥＴＵＲＮ
- ’
- ＠ＭＹＣＬＲ
- ＢＥＥＰ ３２
- ＳＴＧ＝ＳＴＧ＋１
- ＩＦ ＳＴＧ＝＝４ ＴＨＥＮ ＲＱ＝４：ＲＥＴＵＲＮ
- ’－－－
- ＢＧＭＰＬＡＹ ４
- ＢＧＭＷ＝ＴＲＵＥ
- ＲＱ＝１
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＧＥＴＶＥＣ
- Ｃ＝Ｂ ＡＮＤ １５：Ｓ＝３
- ＩＦ Ｃ＝＝４ ＴＨＥＮ ＭＡ＝ＭＡ－Ｓ：ＩＦ ＭＡ＜０ ＴＨＥＮ ＭＡ＝ＭＡ＋３６０
- ＩＦ Ｃ＝＝８ ＴＨＥＮ ＭＡ＝ＭＡ＋Ｓ：ＩＦ ＭＡ＞３６０ ＴＨＥＮ ＭＡ＝ＭＡ－３６０
- ＩＦ Ｃ＝＝１ ＴＨＥＮ ＭＶ＝ＭＶ＋０．０５：ＩＦ ＭＶ＞２ ＴＨＥＮ ＭＶ＝２
- ＩＦ Ｃ＝＝２ ＴＨＥＮ ＭＶ＝ＭＶ－０．０５：ＩＦ ＭＶ＜１ ＴＨＥＮ ＭＶ＝１
- Ｒ＝ＲＡＤ（ＭＡ）
- ＶＸ＝ＣＯＳ（Ｒ）＊ＭＶ
- ＶＹ＝ＳＩＮ（Ｒ）＊ＭＶ
- ＭＸ＝ＭＸ＋ＶＸ：ＭＹ＝ＭＹ＋ＶＹ
- ＩＦ ＭＸ＜１６ ＴＨＥＮ ＭＸ＝１６
- ＩＦ ＭＸ＞２３９ ＴＨＥＮ ＭＸ＝２４０
- ＩＦ ＭＹ＜１６ ＴＨＥＮ ＭＹ＝１６
- ＩＦ ＭＹ＞１７５ ＴＨＥＮ ＭＹ＝１７６
- ＧＶＸ＝ＶＸ：ＧＶＹ＝ＶＹ
- Ｉ＝０：Ｘ＝ＭＸ：Ｙ＝ＭＹ：Ａ＝ＭＡ：Ｓ＝ＭＳ：Ｆ＝ＴＲＵＥ
- ＧＯＳＵＢ ＠ＳＥＴＯＦＳＰ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＤＥＡＤ
- ＢＥＥＰ ５５，－２０００
- ＲＱ＝３
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＳＨＯＴ
- ＩＦ ＱＣ ＧＯＴＯ ＠ＱＭＯＶＥ
- ＩＦ （Ｂ ＡＮＤ １６）＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ’－－－ ハッセイ
- ＱＣ＝１：ＱＡ＝ＭＡ：ＱＶ＝１．０
- ＱＸ＝ＭＸ：ＱＹ＝ＭＹ
- ’－－－ イト゛ウ
- ＠ＱＭＯＶＥ
- Ｘ＝ＱＸ：Ｙ＝ＱＹ：Ｒ＝ＲＡＤ（ＱＡ）
- ＶＸ＝ＣＯＳ（Ｒ）＊ＱＶ
- ＶＹ＝ＳＩＮ（Ｒ）＊ＱＶ
- Ｘ＝Ｘ＋ＶＸ
- Ｙ＝Ｙ＋ＶＹ
- ＩＦ Ｘ＜－１６ ＴＨＥＮ ＱＣ＝０
- ＩＦ Ｘ＞２７２ ＴＨＥＮ ＱＣ＝０
- ＩＦ Ｙ＜－１６ ＴＨＥＮ ＱＣ＝０
- ＩＦ Ｙ＞２０８ ＴＨＥＮ ＱＣ＝０
- ＱＶ＝ＱＶ＋０．５
- ＱＸ＝Ｘ：ＱＹ＝Ｙ
- Ｉ＝２
- ＳＰＯＦＳ Ｉ，Ｘ－８，Ｙ－８
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＥＮＥＭＹ
- Ｉ＝３：Ｆ＝ＦＡＬＳＥ
- ＦＯＲ Ｊ＝０ ＴＯ ＥＣＮＴ－１
-
- ’－－－ アキ？
- ＩＦ Ｅ（Ｊ，＿Ｃ）＝＝０ ＧＯＴＯ ＠ＥＮＥＸＴ
-
- ’－－－ タマニアタッタ？
- Ｘ＝Ｅ（Ｊ，＿Ｘ）：Ｙ＝Ｅ（Ｊ，＿Ｙ）
- Ｓ＝Ｅ（Ｊ，＿Ｓ）
- ＩＦ ＱＣ＝＝０ ＧＯＴＯ ＠ＥＲＯＬＬ
- ＩＦ Ｘ－８＊Ｓ＞ＱＸ ＧＯＴＯ ＠ＥＲＯＬＬ
- ＩＦ Ｘ＋８＊Ｓ＜ＱＸ ＧＯＴＯ ＠ＥＲＯＬＬ
- ＩＦ Ｙ－８＊Ｓ＞ＱＹ ＧＯＴＯ ＠ＥＲＯＬＬ
- ＩＦ Ｙ＋８＊Ｓ＜ＱＹ ＧＯＴＯ ＠ＥＲＯＬＬ
-
- ’－－－ アタリ
- ＧＯＳＵＢ ＠ＳＨＯＴＤＥＡＤ
- Ｅ（Ｊ，＿Ｃ）＝０
- Ｌ＝Ｅ（Ｊ，＿Ｌ）
- ＩＦ Ｌ＝＝３ ＧＯＴＯ ＠ＥＮＥＸＴ
-
- ’－－－ フ゛ンリ
- Ｌ＝Ｌ＋１：Ｓ＝Ｓ＊０．７５
- ＦＯＲ ＪＪ＝０ ＴＯ Ｌ
- ＧＯＳＵＢ ＠ＥＢＯＲＮ
- ＮＥＸＴ ＪＪ
- ＧＯＴＯ ＠ＥＮＥＸＴ
-
- ’－－－
- ＠ＥＲＯＬＬ
- Ａ＝Ｅ（Ｊ，＿Ａ）：Ｂ＝ＦＬＯＯＲ（Ａ）
- Ｃ＝ＦＬＯＯＲ（Ｅ（Ｊ，＿Ｎ））
- ＩＦ Ｂ＝＝Ｃ ＧＯＴＯ ＠ＥＳＫＩＰ
-
- ’－－－ カクト゛アワセ
- Ｂ＝Ｂ＋Ｅ（Ｊ，＿Ｖ）
- ＩＦ Ｂ＞３６０ ＴＨＥＮ Ｂ＝Ｂ－３６０
- ＩＦ Ｂ＜０ ＴＨＥＮ Ｂ＝Ｂ＋３６０
- Ｅ（Ｊ，＿Ａ）＝Ｂ：Ａ＝Ｂ
- Ｖ＝０
- ＩＦ Ｂ！＝Ｃ ＧＯＴＯ ＠ＥＭＯＶＥ
- Ｅ（Ｊ，＿Ｖ）＝８
- ＧＯＴＯ ＠ＥＭＯＶＥ
-
- ’－－－
- ＠ＥＳＫＩＰ
- Ｖ＝Ｅ（Ｊ，＿Ｖ）：Ｖ＝Ｖ－０．５
- Ｅ（Ｊ，＿Ｖ）＝Ｖ
- ＩＦ Ｖ＞０ ＧＯＴＯ ＠ＥＭＯＶＥ
-
- ’－－－ ネラウ
- Ｄ＝ＡＴＡＮ（ＭＹ－Ｙ，ＭＸ－Ｘ）
- Ｎ＝ＤＥＧ（Ｄ）
- ＩＦ Ｎ＜０ ＴＨＥＮ Ｎ＝Ｎ＋３６０
- ＩＦ Ｎ＞３６０ ＴＨＥＮ Ｎ＝Ｎ－３６０
- Ｅ（Ｊ，＿Ｎ）＝Ｎ
- Ｂ＝Ａ－Ｎ：Ｃ＝Ａ＋３６０－Ｎ：Ｖ＝ＳＧＮ（Ｂ）
- ＩＦ ＡＢＳ（Ｂ）＞ＡＢＳ（Ｃ） ＧＯＴＯ ＠ＥＡＶＥＣ
- Ｖ＝ＳＧＮ（Ｃ）
- ＠ＥＡＶＥＣ
- Ｅ（Ｊ，＿Ｖ）＝Ｖ
- ＧＯＴＯ ＠ＥＮＥＸＴ
-
- ’－－－ イト゛ウ
- ＠ＥＭＯＶＥ
- Ｒ＝ＲＡＤ（Ａ）
- ＶＸ＝ＣＯＳ（Ｒ）＊Ｖ
- ＶＹ＝ＳＩＮ（Ｒ）＊Ｖ
- Ｘ＝Ｘ＋ＶＸ：Ｅ（Ｊ，＿Ｘ）＝Ｘ
- Ｙ＝Ｙ＋ＶＹ：Ｅ（Ｊ，＿Ｙ）＝Ｙ
- ＧＯＳＵＢ ＠ＳＥＴＯＦＳ
-
- ’－－－
- ＠ＥＮＥＸＴ
- Ｉ＝Ｉ＋１
-
- ＮＥＸＴ Ｊ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＳＨＯＴＤＥＡＤ
- ＱＣ＝０：ＱＸ＝－６４
- ＳＰＯＦＳ ２，ＱＸ，ＱＹ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＰＵＴＳＣＯ
- Ｘ＝０：Ｙ＝１
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ” ”
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ ＳＣＯ
- Ｘ＝Ｘ＋１０
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ” ”
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ ＭＶ
- Ｘ＝Ｘ＋１０
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ” ”
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ ＤＯＴ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＧＩＮＩＴ
- ＣＬＳ：ＳＰＣＬＲ
- ＢＧＭＰＬＡＹ １７
- ＢＧＣＬＩＰ ０，２，３１，２３
- ’－－－
- ＧＸ＝０：ＧＹ＝０：ＧＶＸ＝０：ＧＶＹ＝０
- ＷＸ＝３３：ＢＹ＝０：ＳＹ＝２２
- ＹＹ＝０：ＷＸ２＝３３
- ’－－－
- ＣＯＬＯＲ ７
- Ｘ＝０：Ｙ＝０
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ”ＳＣＯＲＥ”；
- Ｘ＝Ｘ＋１０
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ”ＳＰＥＥＤ”；
- Ｘ＝Ｘ＋１０
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ”ＲＥＳＴ”；
- ＬＯＣＡＴＥ ０，２３：ＰＲＩＮＴ”ＳＴＡＧＥ：”；
- ＰＲＩＮＴ ＳＴＧ＋１；
- ＣＯＬＯＲ ０
- ’－－－ ＢＧクリア
- ＦＯＲ Ｉ＝０ ＴＯ １００
- Ｘ＝ＲＮＤ（６４）：Ｙ＝ＲＮＤ（６４）
- ＢＧＰＵＴ ０，Ｘ，Ｙ，＆Ｈ３５Ｂ，１２，０，０
- Ｘ＝ＲＮＤ（６４）：Ｙ＝ＲＮＤ（６４）
- ＢＧＰＵＴ １，Ｘ，Ｙ，＆Ｈ３７Ｂ，１２，０，０
- ＮＥＸＴ
- ’－－－ シ゛フ゛ン
- ＰＲ＝１：ＳＣＯ＝０：Ｉ＝０：Ｆ＝ＴＲＵＥ
- ＭＸ＝１２０：ＭＹ＝８８
- ＭＡ＝０：ＭＳ＝１．０：ＭＶ＝１．０
- ＳＰＳＥＴ Ｉ，１３６，２，０，０，ＰＲ
- ＳＰＳＥＴ Ｉ＋１，４０，０，０，０，ＰＲ
- ＳＰＡＮＩＭ Ｉ＋１，２，３，０
- Ｘ＝ＭＸ：Ｙ＝ＭＹ：Ａ＝ＭＡ：ＧＯＳＵＢ ＠ＳＥＴＯＦＳ
- ＳＰＳＥＴ Ｉ＋２，１０，０，０，０，０
- ＧＯＳＵＢ ＠ＳＥＴＯＦＳＰ
- ’－－－ タマ
- Ｉ＝２：ＱＸ＝－６４：ＱＹ＝ＱＸ
- ＱＶ＝１．０：ＱＣ＝０
- ＳＰＳＥＴ Ｉ，１４２，４，０，０，ＰＲ
- ＳＰＯＦＳ Ｉ，ＱＸ，ＱＹ
- ＳＰＡＮＩＭ Ｉ，２，４，０
- ’－－－ テキ
- Ｉ＝３：Ｓ＝２．０：Ｆ＝ＦＡＬＳＥ
- ＦＯＲ Ｊ＝０ ＴＯ ＥＣＮＴ－１
- ＳＰＳＥＴ Ｉ，１３６，１０，０，０，ＰＲ
- ＳＰＯＦＳ Ｉ，－６４，－６４
- Ｅ（Ｊ，＿Ｃ）＝０
- Ｉ＝Ｉ＋１
- ＮＥＸＴ
- ’－－－
- Ｌ＝０
- Ｘ＝ＲＮＤ（２５６）：Ｙ＝ＲＮＤ（１９２）
- ＧＯＳＵＢ ＠ＥＢＯＲＮ
- ＲＥＴＵＲＮ
- ’－－－ アタラシイテキノセイセイ
- ＠ＥＢＯＲＮ
- ＩＩ＝３
- ＦＯＲ Ｋ＝０ ＴＯ ＥＣＮＴ－１
- ＩＦ Ｅ（Ｋ，＿Ｃ）＝＝０ ＧＯＴＯ ＠ＥＭＡＫＥ
- ＩＩ＝ＩＩ＋１
- ＮＥＸＴ Ｋ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＥＭＡＫＥ
- Ｅ（Ｋ，＿Ｃ）＝１
- Ｅ（Ｋ，＿Ｘ）＝Ｘ：Ｅ（Ｋ，＿Ｙ）＝Ｙ
- Ｅ（Ｋ，＿Ｓ）＝Ｓ：Ｅ（Ｋ，＿Ｌ）＝Ｌ
- Ｅ（Ｋ，＿Ｖ）＝０．０
- Ａ＝ＲＮＤ（３６０）
- Ｅ（Ｋ，＿Ａ）＝Ａ
- Ｅ（Ｋ，＿Ｎ）＝Ａ
- ＴＭＰ＝Ｉ：Ｉ＝ＩＩ
- ＧＯＳＵＢ ＠ＳＥＴＯＦＳ
- Ｉ＝ＴＭＰ
- ＲＥＴＵＲＮ
- ’───────────────────────────
- ’カイテンヲコウリョシタヒョウシ゛
- ’───────────────────────────
- ＠ＳＥＴＯＦＳ ’Ｉ，Ｘ，Ｙ，Ａ，Ｓ
- Ｄ＝Ａ＋４５：Ｄ＝Ｄ％３６０
- Ｄ＝ＲＡＤ（Ｄ）
- Ｒ＝９．８ ：’ＳＱＲ（７＊７＋７＊７）
- Ｒ＝Ｒ＊Ｓ
- Ｘ＝Ｘ－ＣＯＳ（Ｄ）＊Ｒ
- Ｙ＝Ｙ－ＳＩＮ（Ｄ）＊Ｒ
- ＳＰＯＦＳ Ｉ，Ｘ，Ｙ
- ＳＰＡＮＧＬＥ Ｉ，Ａ
- ＳＰＳＣＡＬＥ Ｉ，Ｓ＊１００
- ＲＥＴＵＲＮ
- ’－－－ ホノオツキ
- ＠ＳＥＴＯＦＳＰ
- ＧＯＳＵＢ ＠ＳＥＴＯＦＳ
- ’－－－
- Ｄ＝ＲＡＤ（Ａ）
- ’Ｒ＝９．８ ：’テキト゛ナキョリ
- Ｘ＝Ｘ－ＣＯＳ（Ｄ）＊Ｒ
- Ｙ＝Ｙ－ＳＩＮ（Ｄ）＊Ｒ
- ＳＰＯＦＳ Ｉ＋１，Ｘ，Ｙ
- ＳＰＡＮＧＬＥ Ｉ＋１，Ａ
- ＳＰＳＣＡＬＥ Ｉ＋１，Ｓ＊１００
- ＲＥＴＵＲＮ
