スマイルブーム自家製プログラム特集 PART2 →PART3
ESCAPE2 by スマイルブーム
初代『ESCAPE』の続編、スプライトを使ったジャンプアクションのサンプルがこのプログラムだ。
ガイコツの主人公を操作して、カギを取って扉にたどりつけば１面クリアー。
「ある法則」で動くドロボーもカギを狙っているが、時にはこれをうまく利用することも必要とか……？
操作は十字ボタン左右で移動、Ｂボタンでジャンプ、Ｙボタンでダッシュ。
CHECK POiNT 
さっきはウマくまるめこまれた気がするが、……それにしても、これおかしくねェか……？
ふむ。たしかにＹボタンダッシュがいささか速すぎるようじゃの。しかしこれは176行の加速ルーチンのコントロールしだいでより使いやすくなるじゃろう。
ジャンプや落下の処理は、他のゲームにも使い回せそうだね。もちろんこのプログラムはサンプルだから、誰が使ってもＯＫだよ。
いや、そうじゃなくてよォ……
うむ。たしかに全３面とはサビしいかもしれんの。じゃが、このプログラムではステージ構成もシンプルに作ってあるので書き換えもカンタンじゃぞ。
325行以降で設定しているね。
ＤＡＴＡ文で定義している１文字がマップ１マスに対応してるのかあ。ステージもカンタンに増やせそうだよ。そういう話じゃねえよ！ シット！ 敵にぶつかっても何も起きやしねエ！ スコアやら時間制限やらの表示が何も動いてねェだろうが！ ファーック！
いやその、それはじゃの。あくまでサンプルとして、改造していかようにも使えるという……。
もうダマされねェぞ！ 作り飽きた処理は全部スッ飛ばして作りやがったなテメェらー！ デストローイ！
プログラムリスト
- ’┌─────────┐
- ’│アクションケ゛－ム│
- ’└─────────┘
- ＶＩＳＩＢＬＥ １，１，１，１，１，０
- ＢＧＭＳＴＯＰ
- ＣＯＬＯＲ ０：ＣＬＳ
- ＢＧＰＡＧＥ ０
- ＢＧＯＦＳ ０，０，０
- ＢＧＯＦＳ １，０，０
- ＣＬＥＡＲ
- ＤＩＭ Ｗ（６，４），Ｍ（１６，１２）
- ’－－－
- ＿Ｔ＝０ ：’シュルイ
- ＿Ｄ＝１ ：’ホウコウ
- ＿Ｘ＝２ ：’サ゛ヒョウ
- ＿Ｙ＝３ ：’
- ＿ＶＸ＝４ ：’イト゛ウリョウ
- ＿ＶＹ＝５ ：’
- ＿Ｖ＝６ ：’シ゛ャンフ゜リョウ
- ＿Ｊ＝７ ：’シ゛ャンフ゜シ゛ョウタイ
- ＿Ｂ＝８ ：’カヘ゛シ゛ョウホウ
- ＿Ｓ＝９ ：’スヒ゜－ト゛
- ＿Ｎ＝１０ ：’キャラ
- ＿ＪＣ＝１１ ：’シ゛ャンフ゜シ゛カン
- ’＿＿＿＿＿＿＿
- ＳＴＧＭＡＸ＝３
- ＿ＭＡＸ＝１６
- ＯＭＡＸ＝３＋３
- ＤＩＭ Ｏ（ＯＭＡＸ，＿ＭＡＸ）
- ＰＲ＝１
- ＧＯＳＵＢ ＠ＧＩＮＩＴ
- ＦＬＯＷ＝－１：ＲＥＱ＝０
- ＳＴＧ＝０
- ’－－－
- ＠ＬＯＯＰ
- ＯＬＤＢ＝Ｂ：Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ ＦＬＯＷ＝＝ＲＥＱ ＧＯＴＯ ＠ＦＳＫＩＰ
- ＦＬＯＷ＝ＲＥＱ
- ＯＮ ＦＬＯＷ ＧＯＳＵＢ ＠ＴＩ，＠ＧＩ，＠ＣＩ
- ＠ＦＳＫＩＰ
- ＯＮ ＦＬＯＷ ＧＯＳＵＢ ＠ＴＭ，＠ＧＭ，＠ＣＭ
- ＶＳＹＮＣ １
- ＧＯＴＯ ＠ＬＯＯＰ
- ＥＮＤ
- ’┌────┐
- ’│ケ゛－ム│
- ’└────┘
- ＠ＧＩ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＧＭ
- ＫＸ＝Ｏ（１，＿Ｘ）
- ＫＹ＝Ｏ（１，＿Ｙ）
- ＦＯＲ ＩＸ＝０ ＴＯ ＯＭＡＸ－１
- ’－－－
- ＰＸ＝Ｏ（ＩＸ，＿Ｘ）
- ＰＹ＝Ｏ（ＩＸ，＿Ｙ）
- ＶＸ＝Ｏ（ＩＸ，＿ＶＸ）
- ＶＹ＝Ｏ（ＩＸ，＿ＶＹ）
- ＪＣ＝Ｏ（ＩＸ，＿ＪＣ）
- ＪＳ＝Ｏ（ＩＸ，＿Ｊ）
- ＢＧ＝Ｏ（ＩＸ，＿Ｂ）
- ＰＤ＝Ｏ（ＩＸ，＿Ｄ）
- ＰＶ＝Ｏ（ＩＸ，＿Ｖ）
- ’－－－
- ＰＳ＝Ｏ（ＩＸ，＿Ｓ）
- ＰＮ＝Ｏ（ＩＸ，＿Ｎ）
- ’－－－
- ＯＮ Ｏ（ＩＸ，＿Ｔ） ＧＯＳＵＢ ＠＿Ｘ，＠＿Ｐ，＠＿Ｋ，＠＿Ｄ，＠＿Ｅ，＠＿Ｗ
- ’－－－
- Ｏ（ＩＸ，＿Ｘ）＝ＰＸ
- Ｏ（ＩＸ，＿Ｙ）＝ＰＹ
- Ｏ（ＩＸ，＿ＶＸ）＝ＶＸ
- Ｏ（ＩＸ，＿ＶＹ）＝ＶＹ
- Ｏ（ＩＸ，＿ＪＣ）＝ＪＣ
- Ｏ（ＩＸ，＿Ｊ）＝ＪＳ
- Ｏ（ＩＸ，＿Ｂ）＝ＢＧ
- Ｏ（ＩＸ，＿Ｄ）＝ＰＤ
- Ｏ（ＩＸ，＿Ｖ）＝ＰＶ
- ’－－－
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’－－－０：ナシ
- ＠＿Ｘ
- ＲＥＴＵＲＮ
- ’－－－３：ト゛ア
- ＠＿Ｄ
- ＩＦ ＫＮ＝＝－１ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｘ＝Ｏ（ＫＮ，＿Ｘ）：Ｙ＝Ｏ（ＫＮ，＿Ｙ）
- ＧＯＳＵＢ ＠ＨＣＨＫ
- ＩＦ Ｒ＝＝ＦＡＬＳＥ ＴＨＥＮ ＲＥＴＵＲＮ
- ’－－－
- ＲＥＱ＝２
- ＲＥＴＵＲＮ
- ’－－－２：カキ゛
- ＠＿Ｋ
- ＩＦ ＫＮ＝＝－１ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｘ＝Ｏ（ＫＮ，＿Ｘ）：Ｙ＝Ｏ（ＫＮ，＿Ｙ）
- ＳＰＯＦＳ ＩＸ，Ｘ－８，Ｙ－３２
- ＲＥＴＵＲＮ
- ’－－－ト゛アヒラク
- ＠ＯＰＥＮＤＯＯＲ
- ＫＮ＝ＩＸ
- Ｉ＝ＯＭＡＸ－１
- Ｏ（Ｉ，＿Ｎ）＝５９
- ＳＰＣＨＲ Ｉ，Ｏ（Ｉ，＿Ｎ）
- ＢＥＥＰ １５
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＨＩＴＣＨＫ
- Ｘ＝ＫＸ：Ｙ＝ＫＹ
- ＠ＨＣＨＫ
- Ｒ＝ＦＡＬＳＥ
- ＩＦ ＰＸ＜Ｘ－８ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＰＸ＞Ｘ＋８ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＰＹ＜Ｙ－８ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＰＹ＞Ｙ＋８ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｒ＝ＴＲＵＥ
- ＲＥＴＵＲＮ
- ’－－－５：テキ
- ＠＿Ｗ
- ＶＸ＝０．５
- ＩＦ ＰＤ ＴＨＥＮ ＶＸ＝－ＶＸ
- ＰＹ＝ＰＹ＋ＶＹ
- ＰＸ＝ＰＸ＋ＶＸ
- ＪＣ＝ＪＣ＋１
- ＩＦ ＪＣ＜８ ＧＯＴＯ ＠Ｅ５ＣＨＫ
- ＪＣ＝０
- ＶＹ＝－ＶＹ
- ＠Ｅ５ＣＨＫ
- ＧＯＳＵＢ ＠ＳＩＤＥ
- ＩＦ Ｒ＝＝１ ＴＨＥＮ ＰＤ＝ＰＤ ＸＯＲ ２
- ＳＰＣＨＲ ＩＸ，ＰＤ＊２＋ＰＮ
- ＳＰＯＦＳ ＩＸ，ＰＸ－８，ＰＹ－１６
- ＲＥＴＵＲＮ
- ’－－－４：テキ
- ＠＿Ｅ
- ＮＳ＝４：ＰＶ＝－６：ＰＤ＝０：Ｖ＝０．５
- ’ＢＴ＝ＲＮＤ（２５６）
- ’Ｖ＝ＲＮＤ（３）－１
- ’ＩＦ Ｖ＜０ ＴＨＥＮ ＰＤ＝２
- ＩＦ Ｏ（０，＿Ｄ）＝＝０ ＴＨＥＮ ＰＤ＝２：Ｖ＝－Ｖ
- ＧＯＴＯ ＠ＭＯＶＥ
- ’－－－１：フ゜レイヤ－
- ＠＿Ｐ
- ＢＴ＝Ｂ：ＯＢ＝ＯＬＤＢ：ＮＳ＝２
- Ｖ＝０
- ＩＦ ＢＴ ＡＮＤ ４ ＴＨＥＮ Ｖ＝－０．２５：ＰＤ＝２
- ＩＦ ＢＴ ＡＮＤ ８ ＴＨＥＮ Ｖ＝Ｖ＋０．２５：ＰＤ＝０
- ’－－－
- ＠ＭＯＶＥ
- ’－－－
- ＩＦ ＫＮ！＝－１ ＧＯＴＯ ＠ＭＶＴＯＰ
- ＧＯＳＵＢ ＠ＨＩＴＣＨＫ
- ＩＦ Ｒ＝＝ＦＡＬＳＥ ＧＯＴＯ ＠ＭＶＴＯＰ
- ’－－－カキ゛シュトク
- ＧＯＳＵＢ ＠ＯＰＥＮＤＯＯＲ
- ’－－－
- ＠ＭＶＴＯＰ
- ＩＦ Ｖ！＝０ ＧＯＴＯ ＠ＰＶＣＬＣ
- ’－－－ケ゛ンソク
- ＩＦ ＶＸ＞－０．０１ ＡＮＤ ＶＸ＜０．０１ ＴＨＥＮ ＶＸ＝０
- ＩＦ ＶＸ＜０ ＴＨＥＮ Ｖ＝０．２５
- ＩＦ ＶＸ＞０ ＴＨＥＮ Ｖ＝－０．２５
- ＠ＰＶＣＬＣ
- ＶＸ＝ＶＸ＋Ｖ
- ＩＦ ＶＸ＜－２ ＴＨＥＮ ＶＸ＝－２
- ＩＦ ＶＸ＞２ ＴＨＥＮ ＶＸ＝２
- ’－－－カソク
- Ｓ＝ＰＳ
- ＩＦ ＢＴ ＡＮＤ １２８ ＴＨＥＮ Ｓ＝Ｓ＊２．０
- ＶＸ＝ＶＸ＊Ｓ
- ＩＦ ＪＳ ＧＯＴＯ ＠ＰＪＵＭＰ
- ’－－－シ゛ャンフ゜ホ゛タンカクニン
- ＧＯＳＵＢ ＠ＣＨＫＪＵＭＰ
- ＧＯＴＯ ＠ＰＭＯＶＥ
- ’－－－シ゛ャンフ゜シ゛ソ゛ク
- ＠ＰＪＵＭＰ
- ＩＦ ＪＣ＝＝０ ＧＯＴＯ ＠ＰＭＯＶＥ
- ＩＦ ＢＴ ＡＮＤ ３２ ＧＯＴＯ ＠ＰＪＣＯＮＴ
- ＪＣ＝０
- ＧＯＴＯ ＠ＰＭＯＶＥ
- ’－－－
- ＠ＰＪＣＯＮＴ
- ＪＣ＝ＪＣ－１
- ＶＹ＝ＰＶ
- ’－－－
- ＠ＰＭＯＶＥ
- ＰＸ＝ＰＸ＋ＶＸ
- ＰＹ＝ＰＹ＋ＶＹ
- ＧＯＳＵＢ ＠ＳＩＤＥ
- ’－－－
- ＳＰＣＨＲ ＩＸ，ＰＤ＊ＮＳ＋ＰＮ
- ＳＰＯＦＳ ＩＸ，ＰＸ－８，ＰＹ－１６
- ’－－－アシモトカクニン（オチル？）
- ＪＳ＝ＴＲＵＥ
- ＶＹ＝ＶＹ＋（０．９８／２）
- ＩＦ ＶＹ＞８ ＴＨＥＮ ＶＹ＝８
- Ｘ＝ＰＸ：Ｙ＝ＰＹ＋ＶＹ＋１
- ＧＯＳＵＢ ＠ＣＨＫＷＡＬＬ
- ＩＦ ＶＹ＞０ ＧＯＴＯ ＠ＣＨＫＵＮＤＥＲ
- ’－－－シ゛ョウショウチュウ
- ＢＧ＝Ｒ：Ｙ＝Ｙ－１７
- ＧＯＳＵＢ ＠ＣＨＫＷＡＬＬ
- ＩＦ Ｒ！＝１ ＧＯＴＯ ＠ＰＥＮＤ
- ＵＹ＝ＵＹ＋２
- ＧＯＴＯ ＠ＦＡＬＬ
- ’－－－
- ＠ＣＨＫＵＮＤＥＲ
- ＩＦ ＢＧ＝＝０ ＧＯＴＯ ＠ＣＨＫＳＴＯＰ
- ＩＦ Ｒ！＝０ ＧＯＴＯ ＠ＰＥＮＤ
- ＢＧ＝Ｒ
- ’－－－
- ＠ＣＨＫＳＴＯＰ
- ＩＦ Ｒ＝＝０ ＧＯＴＯ ＠ＰＥＮＤ
- ’－－－ユカノウエ（ラッカシュウリョウ）
- ＠ＦＡＬＬ
- ＶＹ＝０：ＰＹ＝ＦＬＯＯＲ（ＵＹ）＊１６－１
- ＠ＰＳＴＯＰ
- ＪＳ＝ＦＡＬＳＥ
- ＠ＰＥＮＤ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＣＨＫＪＵＭＰ
- ＩＦ ＪＳ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＯＢ ＡＮＤ ３２ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ （ＢＴ ＡＮＤ ３２）＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＪＣ＝４＊ＰＳ：ＰＶ＝－４：ＶＹ＝ＰＶ
- ＪＳ＝ＴＲＵＥ
- ＲＥＴＵＲＮ
- ’－－－カヘ゛ソ゛クセイカクニン（Ｒ＝＝０ナシ）
- ＠ＣＨＫＷＡＬＬ
- ＵＸ＝Ｘ／１６：ＵＹ＝Ｙ／１６：Ｒ＝０
- ＩＦ ＵＸ＜１ ＯＲ ＵＸ＞１４ ＴＨＥＮ Ｒ＝１
- ＩＦ ＵＹ＞＝０ ＡＮＤ ＵＹ＜１２ ＴＨＥＮ Ｒ＝Ｍ（ＵＸ，ＵＹ）
- ＲＥＴＵＲＮ
- ’－－－ヨコカクニン
- ＠ＳＩＤＥ
- ＩＦ ＶＸ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｖ＝ＳＧＮ（ＶＸ）：Ｘ＝ＰＸ＋Ｖ＊８：Ｙ＝ＰＹ
- ＧＯＳＵＢ ＠ＣＨＫＷＡＬＬ
- ＩＦ Ｒ！＝１ ＴＨＥＮ ＲＥＴＵＲＮ
- ＰＸ＝ＵＸ＊１６－Ｖ＊９
- ＶＸ＝０
- ＲＥＴＵＲＮ
- ’┌────────────┐
- ’│オフ゛シ゛ェクトショキカ│
- ’└────────────┘
- ＠ＯＩＮＩＴ
- ’－－－
- ＫＮ＝－１：ＴＭ＝９９
- ’－－－
- ＦＯＲ ＩＸ＝０ ＴＯ ＯＭＡＸ－１
- ’－－－
- ＦＯＲ Ｉ＝０ ＴＯ ＿ＭＡＸ－１
- Ｏ（ＩＸ，Ｉ）＝０
- ＮＥＸＴ
- Ｏ（ＩＸ，＿Ｘ）＝－３２：’ＲＮＤ（１６）＊１６
- Ｏ（ＩＸ，＿Ｙ）＝－３２：’ＲＮＤ（１１）＊１６
- Ｏ（ＩＸ，＿Ｓ）＝１．０
- Ｏ（ＩＸ，＿Ｊ）＝ＦＡＬＳＥ
- Ｏ（ＩＸ，＿Ｎ）＝６４
- ’－－－
- ＳＰＳＥＴ ＩＸ，Ｏ（ＩＸ，＿Ｎ），２，０，０，ＰＲ
- ＳＰＡＮＩＭ ＩＸ，４，４，０
- ＳＰＯＦＳ ＩＸ，Ｏ（ＩＸ，＿Ｘ），Ｏ（ＩＸ，＿Ｙ）
- ’－－－
- ＮＥＸＴ
- ’－－－カキ゛カクホ
- Ｏ（１，＿Ｔ）＝２
- Ｏ（１，＿Ｎ）＝１４
- ＳＰＣＨＲ １，Ｏ（１，＿Ｎ），０，０，０，ＰＲ
- ＳＰＡＮＩＭ １，１，１，０
- ’－－－ト゛アカクホ
- Ｉ＝ＯＭＡＸ－１
- Ｏ（Ｉ，＿Ｔ）＝３
- Ｏ（Ｉ，＿Ｎ）＝５８
- ＳＰＣＨＲ Ｉ，Ｏ（Ｉ，＿Ｎ），３，０，０，ＰＲ
- ＳＰＡＮＩＭ Ｉ，１，１，０
- ’－－－フ゜レイヤ－カクホ
- Ｏ（０，＿Ｔ）＝１
- Ｏ（０，＿Ｎ）＝１２８
- ＳＰＣＨＲ ０，Ｏ（０，＿Ｎ），２，０，０，ＰＲ
- ＳＰＡＮＩＭ ０，２，１０，０
- ＲＥＴＵＲＮ
- ’┌────────┐
- ’│カ゛メンショキカ│
- ’└────────┘
- ＠ＧＩＮＩＴ
- ＳＰＰＡＧＥ ０：ＳＰＣＬＲ
- ＢＧＰＡＧＥ ０
- ＢＧＣＬＩＰ ０，０，３１，２３
- ’－－－ＢＧクリア
- ＦＯＲ Ｙ＝０ ＴＯ ６３
- ＦＯＲ Ｘ＝０ ＴＯ ６３
- ＢＧＰＵＴ １，Ｘ，Ｙ，＆Ｈ３２７，１３，０，０
- ＮＥＸＴ
- ＮＥＸＴ
- ’－－－マッフ゜ノカヘ゛
- ＤＡＴＡ ＆Ｈ０００，＆Ｈ０００，＆Ｈ０００，＆Ｈ０００
- ＤＡＴＡ ＆Ｈ２Ｄ１，＆Ｈ２Ｄ２，＆Ｈ２Ｆ１，＆Ｈ２Ｆ２
- ＤＡＴＡ ＆Ｈ１９３，＆Ｈ１９４，＆Ｈ１Ｂ３，＆Ｈ１Ｂ４
- ＤＡＴＡ ＆Ｈ１９４，＆Ｈ１９４，＆Ｈ１Ｂ４，＆Ｈ１Ｂ４
- ＤＡＴＡ ＆Ｈ１９４，＆Ｈ１９５，＆Ｈ１Ｂ４，＆Ｈ１Ｂ５
- ＤＡＴＡ ＆Ｈ２ＣＦ，＆Ｈ２Ｄ０，＆Ｈ２ＥＦ，＆Ｈ２Ｆ０
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＦＯＲ Ｊ＝０ ＴＯ ３
- ＲＥＡＤ Ｗ（Ｉ，Ｊ）
- ＮＥＸＴ Ｊ
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ’┌─────────┐
- ’│ステ－シ゛セッテイ│
- ’└─────────┘
- ＠ＳＴＧＳＥＴ
- ’－－－
- ’０―９：ＷＡＬＬ
- ’Ｐ ：ＰＬＡＹＥＲ
- ’Ｅ ：ＥＮＥＭＹ
- ’Ｋ ：ＫＥＹ
- ’Ｄ ：ＤＯＯＲ
- ’－－－
- ＠ＳＴＧ３
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００Ｋ００２３３４０００００１”
- ＤＡＴＡ ”１０１０１００００００１０１０１”
- ＤＡＴＡ ”１０００００００００００Ｅ０Ｄ１”
- ＤＡＴＡ ”１１１１１１１１１１１１１１１１”
- ＤＡＴＡ ”１００００００００００Ｗ０００１”
- ＤＡＴＡ ”１００００００２３３３３３４０１”
- ＤＡＴＡ ”１０２３４００００００００００１”
- ＤＡＴＡ ”１０００００００２３４００００１”
- ＤＡＴＡ ”１０２３３４００００００２４０１”
- ＤＡＴＡ ”１０Ｐ００００００００００００１”
- ＤＡＴＡ ”１１１１１１１１１１１１１１１１”
- ’－－－
- ＠ＳＴＧ２
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１０Ｅ００００１１００００Ｄ０１”
- ＤＡＴＡ ”１０２３４００００００２３４０１”
- ＤＡＴＡ ”１００００Ｗ０００００００００１”
- ＤＡＴＡ ”１３４００００Ｐ０Ｋ００２３３１”
- ＤＡＴＡ ”１００００２３３３３４００００１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１３３４００００００００２３３１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００００１１００１１００００１”
- ＤＡＴＡ ”１１１１１１１１１１１１１１１１”
- ’－－－
- ＠ＳＴＧ１
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１００００００００００００００１”
- ＤＡＴＡ ”１０Ｐ０００００Ｋ００００Ｄ０１”
- ＤＡＴＡ ”１１１１１１１１１１１１１１１１”
- ’－－－
- ＲＥＳＴＯＲＥ ＠ＳＴＧ１
- ＩＦ ＳＴＧ＝＝１ ＴＨＥＮ ＲＥＳＴＯＲＥ ＠ＳＴＧ２
- ＩＦ ＳＴＧ＝＝２ ＴＨＥＮ ＲＥＳＴＯＲＥ ＠ＳＴＧ３
- ’－－－マッフ゜スキャン
- ＩＸ＝２
- Ｙ＝０：Ｐ＝１２
- ＦＯＲ Ｉ＝０ ＴＯ １１
- ＲＥＡＤ Ｍ＄
- Ｘ＝０
- ＦＯＲ Ｊ＝０ ＴＯ １５
- Ｃ＄＝ＭＩＤ＄（Ｍ＄，Ｊ，１）
- Ｎ＝ＶＡＬ（Ｃ＄）
- Ｔ＝０：ＩＦ Ｃ＄＝＝”Ｐ” ＧＯＴＯ ＠ＴＰＳＥＴ
- Ｔ＝１：ＩＦ Ｃ＄＝＝”Ｋ” ＧＯＴＯ ＠ＴＰＳＥＴ
- Ｔ＝ＯＭＡＸ－１：ＩＦ Ｃ＄＝＝”Ｄ” ＧＯＴＯ ＠ＴＰＳＥＴ
- ’－－－
- ＩＦ ＩＸ＝＝ＯＭＡＸ ＧＯＴＯ ＠ＢＧＳＥＴ
- ＩＦ Ｏ（ＩＸ，＿Ｔ）！＝０ ＧＯＴＯ ＠ＢＧＳＥＴ
- Ｅ＝４：ＩＦ Ｃ＄＝＝”Ｅ” ＧＯＴＯ ＠ＴＰ＿Ｅ
- Ｅ＝５：ＩＦ Ｃ＄！＝”Ｗ” ＧＯＴＯ ＠ＢＧＳＥＴ
- ’－－－テキ（フユウ）
- ＠ＴＰ＿Ｗ
- Ｏ（ＩＸ，＿Ｎ）＝１９２
- Ｏ（ＩＸ，＿ＶＹ）＝－１．０
- ＳＰＣＨＲ ＩＸ，Ｏ（ＩＸ，＿Ｎ）
- ＳＰＡＮＩＭ ＩＸ，２，１０，０
- ’－－－テキ（シ゛ツカ゛イナシ）
- ＠ＴＰ＿Ｅ
- Ｔ＝ＩＸ：ＩＸ＝ＩＸ＋１
- Ｏ（Ｔ，＿Ｔ）＝Ｅ
- Ｏ（Ｔ，＿Ｄ）＝ＲＮＤ（２）＊２
- ’－－－サ゛ヒョウセッテイ
- ＠ＴＰＳＥＴ
- Ｏ（Ｔ，＿Ｘ）＝Ｘ＊８＋７
- Ｏ（Ｔ，＿Ｙ）＝Ｙ＊８＋１５
- ＳＰＯＦＳ Ｔ，Ｏ（Ｔ，＿Ｘ）－８，Ｏ（Ｔ，＿Ｙ）－１６
- ’－－－カヘ゛ハイチ
- ＠ＢＧＳＥＴ
- Ｍ（Ｊ，Ｉ）＝Ｎ
- ＢＧＰＵＴ ０，Ｘ，Ｙ，Ｗ（Ｎ，０），Ｐ，０，０
- ＢＧＰＵＴ ０，Ｘ＋１，Ｙ，Ｗ（Ｎ，１），Ｐ，０，０
- ＢＧＰＵＴ ０，Ｘ，Ｙ＋１，Ｗ（Ｎ，２），Ｐ，０，０
- ＢＧＰＵＴ ０，Ｘ＋１，Ｙ＋１，Ｗ（Ｎ，３），Ｐ，０，０
- ＠ＢＧＳＫＩＰ
- Ｘ＝Ｘ＋２
- ＮＥＸＴ Ｊ
- Ｙ＝Ｙ＋２
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ’┌────┐
- ’│タイトル│
- ’└────┘
- ＠ＴＩ
- ＣＬＳ
- ＬＯＣＡＴＥ ０，７
- ＰＲＩＮＴ” ┌┐┌┐┌┐┌┐┌┐┌┐ ┬┬”
- ＰＲＩＮＴ” ├┘└┐│ ┌┤├┘├┘：││”
- ＰＲＩＮＴ” └┘└┘└┘└┘│ └┘ ┴┴”
- ＬＯＣＡＴＥ ８，１２
- ＰＲＩＮＴ”ＰＵＳＨ ＡＮＹ ＢＵＴＴＯＮ！”
- ＬＯＣＡＴＥ ４，１８
- ＰＲＩＮＴ”（Ｃ）２０１１ ＳｍｉｌｅＢｏｏｍ Ｃｏ．Ｌｔｄ．”
- ’－－－
- ＳＣ＝０
- ＧＯＳＵＢ ＠ＯＩＮＩＴ
- ＧＯＳＵＢ ＠ＳＴＧＳＥＴ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＴＭ
- ＩＦ ＯＬＤＢ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ Ｂ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＣＬＳ
- ＧＯＳＵＢ ＠ＰＵＴＳＴ
- ＲＥＱ＝１
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＰＵＴＳＴ
- ＬＯＣＡＴＥ ３，０：ＰＲＩＮＴ”ＳＣＯＲＥ：”；ＳＣ
- ＬＯＣＡＴＥ ２５，０：ＰＲＩＮＴ”Р：”；ＴＭ
- ＲＥＴＵＲＮ
- ’┌───┐
- ’│クリア│
- ’└───┘
- ＠ＣＩ
- ＣＬＳ：ＢＧＭＰＬＡＹ ５
- ＧＯＳＵＢ ＠ＰＵＴＳＴ
- ＬＯＣＡＴＥ １３，１１
- ＰＲＩＮＴ”ＣＬＥＡＲ！”
- ＩＦ ＫＮ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＬＯＣＡＴＥ １０，１３
- ＰＲＩＮＴ”（ホカノヒトカ゛・・・）”
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＣＭ
- ＩＦ ＢＧＭＣＨＫ（） ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＯＬＤＢ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ Ｂ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ’－－－
- ＣＬＳ
- ＧＯＳＵＢ ＠ＰＵＴＳＴ
- ＲＥＱ＝１
- ＳＴＧ＝ＳＴＧ＋１
- ＩＦ ＳＴＧ＝＝ＳＴＧＭＡＸ ＧＯＴＯ ＠ＧＥＮＤ
- ＧＯＳＵＢ ＠ＯＩＮＩＴ
- ＧＯＳＵＢ ＠ＳＴＧＳＥＴ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＧＥＮＤ
- ＲＥＱ＝０
- ＳＴＧ＝０
- ＲＥＴＵＲＮ
