ESCAPE by ノトホホ
縦スクロールのアクションゲームだ。下からせまってくるトゲトゲに刺される前にどんどん上に逃げていこう。
上から転がってくる火の玉にぶつかってもゲームオーバー。火の玉の動きには法則性があるので、うまく軌道を予測して逃げ切ろう。
操作は十字ボタンで移動。ハシゴの下で↑ボタンを押せば上に登れるけど、うかつに壁（天井）に頭をぶつけると火の玉の出現率が上がってしまうぞ！
ノトホホ
CHECK POiNT 
このプログラムはBG面やスプライトのテストも兼ねて作ったそうじゃ。プログラミングの参考にもなるかもしれんぞ。
シット！ 23～25行目のDATA文はなんだってんだ！ &Hとか言われてもサッパリだぜ！
&H～～というと、16進数の表記だっけ。
＆Ｈ０１０Ｄは普通に書けば、269……？ふむふむ、これは上位４ビットで反転情報を管理しておるようじゃな。
ジョ……？ ビッ……？
ミラ・ジョボビッチではないぞ。この作者は欲張ってDATA文の中に２つの要素を埋め込んだようじゃ。
このDATA文をよく見ると、&H直後の数字が０の時、１の時と２、３の時があるじゃろう。この部分が１の時は左右反転、２の時は上下反転、３の時は上下左右反転で表示するように作っているようじゃの。304行目あたりで表示しておる。
残りの３ケタの数字はBGのキャラクタ番号なんじゃな。
このDATA文をよく見ると、&H直後の数字が０の時、１の時と２、３の時があるじゃろう。この部分が１の時は左右反転、２の時は上下反転、３の時は上下左右反転で表示するように作っているようじゃの。304行目あたりで表示しておる。
残りの３ケタの数字はBGのキャラクタ番号なんじゃな。
ハン……ケタ……？
僕にはわかりますよ。３ケタ目以降の番号は、サンプルプログラム「CHRED」で確認できますね。
ウォォ──！ 分かるヤツにしか分からねえ話をしてんじぇねェぞテメエら──！
落ち着いて！ 落ち着いて、ワンパク君！ だいじょうぶ、ここはわからなくていいところだから！ BGを表示してるって思えばそれでいいから！
プログラムリスト
- ’┌──────────┐
- ’│タ゛ッシュツケ゛－ム│
- ’└──────────┘
- ＶＩＳＩＢＬＥ １，１，１，１，１，１
- ＣＬＳ
- ＧＰＡＧＥ ０：ＧＣＯＬＯＲ ０：ＧＣＬＳ
- ＳＰＰＡＧＥ ０：ＳＰＣＬＲ
- ＢＧＰＡＧＥ ０
- ＢＧＯＦＳ ０，０，０
- ＢＧＯＦＳ １，０，０
- ’－－－
- ＣＬＥＡＲ
- ＷＭＡＸ＝３：ＥＭＡＸ＝１６：ＨＩ＝１０００
- ＤＩＭ Ｗ（ＷＭＡＸ，４），ＯＸ（４），ＯＹ（４）
- ＤＩＭ Ｅ（ＥＭＡＸ，８）
- ＿Ｘ＝０：＿Ｙ＝１：＿Ｖ＝２：＿Ｓ＝３：’＿＿＿＿＿
- ’
- ＤＡＴＡ ０，０，１，０，０，１，１，１
- ＦＯＲ Ｉ＝０ ＴＯ ３
- ＲＥＡＤ ＯＸ（Ｉ），ＯＹ（Ｉ）
- ＮＥＸＴ
- ’－－－カヘ゛
- ＤＡＴＡ ＆Ｈ０１０Ｄ，＆Ｈ０１０Ｅ，＆Ｈ０１２Ｄ，＆Ｈ０１２Ｅ
- ＤＡＴＡ ＆Ｈ０００１，＆Ｈ１００１，＆Ｈ２００１，＆Ｈ３００１
- ＤＡＴＡ ＆Ｈ０００２，＆Ｈ１００２，＆Ｈ０００２，＆Ｈ１００２
- ＦＯＲ Ｉ＝０ ＴＯ ＷＭＡＸ－１
- ＦＯＲ Ｊ＝０ ＴＯ ３
- ＲＥＡＤ Ｗ（Ｉ，Ｊ）
- ＮＥＸＴ
- ＮＥＸＴ
- ’－－－ショキカ
- ＰＲ＝２：ＲＥＱ＝０：ＦＬＷ＝－１
- ’┌───────┐
- ’│メインル－フ゜│
- ’└───────┘
- ＠ＭＬＯＯＰ
- ＯＬＤＢ＝Ｂ：Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ ＦＬＷ＝＝ＲＥＱ ＧＯＴＯ ＠ＪＰＦＬＯＷ
- ＦＬＷ＝ＲＥＱ
- ＯＮ ＦＬＷ ＧＯＳＵＢ ＠ＴＩＮＩＴ，＠ＧＩＮＩＴ，＠ＯＶＩＮＩＴ
- ＠ＪＰＦＬＯＷ
- ＯＮ ＦＬＷ ＧＯＳＵＢ ＠ＴＩＴＬＥ，＠ＧＡＭＥ，＠ＧＯＶＥＲ
- ＶＳＹＮＣ １
- ＧＯＴＯ ＠ＭＬＯＯＰ
- ＥＮＤ
- ’┌────┐
- ’│ケ゛－ム│
- ’└────┘
- ＠ＧＡＭＥ
- ＧＯＳＵＢ ＠ＰＬＡＹＥＲ
- ＧＯＳＵＢ ＠ＰＵＴＳＴＡＴ
- ＧＯＳＵＢ ＠ＷＡＬＬ
- ＧＯＳＵＢ ＠ＥＮＥＭＹ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＰＵＴＳＴＡＴ
- ＬＯＣＡＴＥ ０，０：ＰＲＩＮＴ”１Ｐ：”；ＯＹ；”ｍ”
- ＣＯＬＯＲ １３
- ＬＯＣＡＴＥ １０，０：ＰＲＩＮＴ”ＨＩ：”；ＨＩ；”ｍ”
- ＣＯＬＯＲ ０
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＥＮＥＭＹ
- ’－－－シ゛カンテ゛ハッセイ
- ＥＴ＝ＥＴ－１
- ＩＦ ＥＴ！＝０ ＧＯＴＯ ＠ＥＬＯＯＰ
- ＧＯＳＵＢ ＠ＥＢＯＲＮ
- ’－－－
- ＠ＥＬＯＯＰ
- ＣＸ＝ＰＸ＋７
- ＦＯＲ Ｉ＝０ ＴＯ ＥＣＮＴ－１
- ＩＦ Ｅ（Ｉ，＿Ｓ）＝＝０ ＧＯＴＯ ＠ＥＮＥＸＴ
- ’－－－テキイト゛ウ
- ＥＸ＝Ｅ（Ｉ，＿Ｘ）：Ｖ＝Ｅ（Ｉ，＿Ｖ）
- ＥＹ＝Ｅ（Ｉ，＿Ｙ）＋ＯＹ
- ＩＦ Ｅ（Ｉ，＿Ｓ）＝＝１ ＧＯＴＯ ＠ＥＭＯＶＥ
- ’－－－オリテルサイチュウ
- Ｅ（Ｉ，＿Ｓ）＝Ｅ（Ｉ，＿Ｓ）－１
- ＥＹ＝ＥＹ＋１
- ＧＯＴＯ ＠ＥＰＵＴ
- ’－－－サユウイト゛ウ
- ＠ＥＭＯＶＥ
- ＥＸ＝ＥＸ＋Ｖ
- ＩＦ ＥＸ＜１６ ＴＨＥＮ ＥＸ＝１６：Ｖ＝－Ｖ
- ＩＦ ＥＸ＞２２３ ＴＨＥＮ ＥＸ＝２２４：Ｖ＝－Ｖ
- Ｅ（Ｉ，＿Ｖ）＝Ｖ
- ’－－－アシモトカクニン
- Ｘ＝（（ＥＸ＋８）／８） ＡＮＤ ６３
- Ｙ＝（（ＥＹ＋１６－ＯＹ）／８） ＡＮＤ ６３
- ＢＧＲＥＡＤ（１，Ｘ，Ｙ），Ｎ，Ｃ，Ｈ，Ｖ
- ＩＦ Ｎ＝＝１ ＧＯＴＯ ＠ＥＰＵＴ
- ’－－－オリル
- Ｅ（Ｉ，＿Ｓ）＝３２＋１
- ’－－－ヒョウシ゛
- ＠ＥＰＵＴ
- ＳＰＯＦＳ Ｉ＋１０，ＥＸ，ＥＹ
- Ｅ（Ｉ，＿Ｘ）＝ＥＸ
- Ｅ（Ｉ，＿Ｙ）＝ＥＹ－ＯＹ
- ’－－－シュウリョウカクニン
- ＩＦ ＥＹ＞１９２ ＴＨＥＮ Ｅ（Ｉ，＿Ｓ）＝０
- ’－－－アタリハンテイ
- ＩＦ ＰＹ！＝ＥＹ ＧＯＴＯ ＠ＥＮＥＸＴ
- ＩＦ ＣＸ＜ＥＸ ＧＯＴＯ ＠ＥＮＥＸＴ
- ＩＦ ＣＸ＞ＥＸ＋１５ ＧＯＴＯ ＠ＥＮＥＸＴ
- ’－－－タ゛メ－シ゛
- ＤＭ＝ＤＭ＋１
- ’－－－
- ＠ＥＮＥＸＴ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＷＡＬＬ
- ＳＴ＝ＳＴ－１
- ＩＦ ＳＴ＞０ ＧＯＴＯ ＠ＭＯＶＷＡＬＬ
- ’－－－テキヲフヤス
- ＳＴ＝１０００
- ＥＣＮＴ＝ＥＣＮＴ＋１
- ＩＦ ＥＣＮＴ＞ＥＭＡＸ ＴＨＥＮ ＥＣＮＴ＝ＥＭＡＸ
- ’－－－
- ＠ＭＯＶＷＡＬＬ
- ＨＹ＝ＨＹ＋０．５
- ＢＧＯＦＳ ０，０，ＨＹ ＡＮＤ ５１１
- ＢＧＯＦＳ １，０，（５１１－ＯＹ） ＡＮＤ ５１１
- ’－－－ ヤラレタ？
- ＩＦ ＤＭ＞０ ＧＯＴＯ ＠ＰＤＥＡＤ
- ＩＦ ＨＹ＜１６０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＠ＰＤＥＡＤ
- ＣＯＬＳＥＴ ”ＢＧ”，０，”ＦＦ００００”
- ＲＥＱ＝２
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＰＬＡＹＥＲ
- ’－－－シ゛ョウケ゛イト゛ウチュウ？
- ＩＦ ＭＹ＝＝０ ＧＯＴＯ ＠ＭＯＶＰ
- Ｖ＝１
- ＭＹ＝ＭＹ－Ｖ
- ＯＹ＝ＯＹ＋Ｖ：ＩＦ ＯＹ＞ＨＩ ＴＨＥＮ ＨＩ＝ＯＹ
- ＨＹ＝ＨＹ－Ｖ
- ＩＦ ＨＹ＜０ ＴＨＥＮ ＨＹ＝０
- ＩＦ ＭＹ＞０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＲＥＴＵＲＮ
- ’－－－イト゛ウ
- ＠ＭＯＶＰ
- ＩＦ Ｂ ＡＮＤ １ ＧＯＴＯ ＠ＭＯＶＵＰ
- ＠ＭＯＶＰＬＲ
- ＶＸ＝０
- ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＰＤ＝２：ＶＸ＝ＶＸ－１
- ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＰＤ＝０：ＶＸ＝ＶＸ＋１
- ＰＸ＝ＰＸ＋ＶＸ＊２
- ＩＦ ＰＸ＜１６ ＴＨＥＮ ＰＸ＝１６
- ＩＦ ＰＸ＞２２３ ＴＨＥＮ ＰＸ＝２２４
- ’－－－
- ＠ＰＥＮＤ
- ＳＰＯＦＳ ０，ＰＸ，ＰＹ
- ＳＰＣＨＲ ０，ＰＤ＊２＋１２８
- ＩＦ ＳＰＣＨＫ（１） ＴＨＥＮ ＲＥＴＵＲＮ
- ＳＰＯＦＳ １，－３２，－３２
- ＳＰＡＮＧＬＥ １，０
- ＲＥＴＵＲＮ
- ’－－－ノホ゛レタラノホ゛ル
- ＠ＭＯＶＵＰ
- Ｘ＝（（ＰＸ＋８）／８） ＡＮＤ ６３
- Ｙ＝（（ＰＹ－８－ＯＹ）／８） ＡＮＤ ６３
- ＩＦ ＢＸ＝＝Ｘ ＧＯＴＯ ＠ＭＯＶＰＬＲ
- ＢＸ＝Ｘ
- ＢＧＲＥＡＤ（１，Ｘ，Ｙ），Ｎ，Ｃ，Ｈ，Ｖ
- ＩＦ Ｎ！＝１ ＧＯＴＯ ＠ＵＰＯＫ
- ’－－－フ゛ツカッタ
- ＳＰＯＦＳ １，ＰＸ＋８，ＰＹ－８
- ＳＰＡＮＧＬＥ １，２７０，１５
- ＢＥＥＰ １１
- ＧＯＳＵＢ ＠ＥＢＯＲＮ
- ＧＯＴＯ ＠ＭＯＶＰＬＲ
- ’－－－
- ＠ＵＰＯＫ
- ＭＹ＝３２：ＰＤ＝３：ＢＸ＝－１：ＶＸ＝０
- ＧＯＳＵＢ ＠ＰＵＴＬＩＮＥ
- ＧＯＴＯ ＠ＰＥＮＤ
- ’－－－アタラシイマッフ゜ノセイセイ
- ＠ＰＵＴＬＩＮＥ
- ＳＸ＝ＳＸ＋（ＲＮＤ（３）＊２）
- Ｙ＝（ＢＹ－２） ＡＮＤ ６３
- ＦＯＲ Ｘ＝２ ＴＯ ２９ ＳＴＥＰ ２
- Ｎ＝１：ＳＸ＝ＦＬＯＯＲ（ＳＸ％２８）
- ＩＦ Ｘ！＝ＳＸ＋２ ＧＯＴＯ ＠ＳＫＰＷＡＬＬ
- Ｎ＝２：ＳＸ＝ＳＸ＋（ＲＮＤ（８）＊２）
- ＠ＳＫＰＷＡＬＬ
- Ｃ＝０：ＧＯＳＵＢ ＠ＰＵＴＷＡＬＬ
- ＮＥＸＴ
- ＢＹ＝ＢＹ－４：ＢＹ＝ＢＹ ＡＮＤ ６３
- ’－－－テキノハッセイ
- ＠ＥＢＯＲＮ
- ＥＴ＝ＲＮＤ（３０）＋３０
- Ｉ＝０
- ＠ＥＢＯＲＮＬＰ
- ＩＦ Ｅ（Ｉ，＿Ｓ）＝＝０ ＧＯＴＯ ＠ＥＳＥＴ
- Ｉ＝Ｉ＋１
- ＩＦ Ｉ＜ＥＭＡＸ ＧＯＴＯ ＠ＥＢＯＲＮＬＰ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＥＳＥＴ
- Ｅ（Ｉ，＿Ｓ）＝１
- Ｘ＝ＲＮＤ（２５６－３２）＋１６
- Ｖ＝ＳＧＮ（ＰＸ－Ｘ）
- ＩＦ Ｖ＝＝０ ＴＨＥＮ Ｖ＝１
- Ｅ（Ｉ，＿Ｘ）＝Ｘ
- Ｅ（Ｉ，＿Ｖ）＝Ｖ
- Ｙ＝ＦＬＯＯＲ（ＯＹ／３２）＊３２
- Ｅ（Ｉ，＿Ｙ）＝－Ｙ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＧＩＮＩＴ
- ＣＬＳ
- ＢＧＰＡＧＥ ０
- ＢＧＣＬＩＰ ０，０，３１，２３
- ＢＧＯＦＳ ０，０，０
- ＢＧＯＦＳ １，０，０
- ’－－－ キャラテイキ゛
- Ｂ＄＝”ＥＥＥＥＥＥＥＥ”
- Ｃ＄＝”ＥＦＦＦＦＦＦＦ”
- Ｄ＄＝”ＥＦＤＤＤＤＤＤ”
- ＣＨＲＳＥＴ ”ＢＧＵ０”，１，Ｂ＄＋Ｃ＄＋Ｄ＄＋Ｄ＄＋Ｄ＄＋Ｄ＄＋Ｄ＄＋Ｄ＄
- Ｃ＄＝”０７７０００００”
- Ｄ＄＝”０７７７７７７７”
- ＣＨＲＳＥＴ ”ＢＧＵ０”，２，Ｃ＄＋Ｄ＄＋Ｄ＄＋Ｃ＄＋Ｃ＄＋Ｄ＄＋Ｄ＄＋Ｃ＄
- Ｃ＄＝ ”０００Ｆ００００”
- Ｃ＄＝Ｃ＄＋”０００Ｆ１０００”
- Ｃ＄＝Ｃ＄＋”００ＦＦＦ１００”
- Ｃ＄＝Ｃ＄＋”００ＦＦＦ１００”
- Ｃ＄＝Ｃ＄＋”０ＦＦＦＦＦ１０”
- Ｃ＄＝Ｃ＄＋”０ＦＦＦＦＦ１０”
- Ｃ＄＝Ｃ＄＋”ＦＦＦＦＦＦＦ１”
- Ｃ＄＝Ｃ＄＋”ＦＦＦＦＦＦＦ１”
- ＣＨＲＳＥＴ ”ＢＧＵ０”，３，Ｃ＄
- ’－－－ カヘ゛カ゛ワ
- Ｃ＝０
- ＦＯＲ Ｙ＝０ ＴＯ ６３ ＳＴＥＰ ２
- Ｎ＝１：Ｘ＝０：ＧＯＳＵＢ ＠ＰＵＴＷＡＬＬ
- ＦＯＲ Ｘ＝２ ＴＯ ２８ ＳＴＥＰ ２
- Ｎ＝０：ＧＯＳＵＢ ＠ＰＵＴＷＡＬＬ
- ＮＥＸＴ
- Ｎ＝１：Ｘ＝３０：ＧＯＳＵＢ ＠ＰＵＴＷＡＬＬ
- ＮＥＸＴ
- ＦＯＲ Ｙ＝０ ＴＯ ６３
- ＦＯＲ Ｘ＝０ ＴＯ ３１
- ＢＧＰＵＴ ０，Ｘ，Ｙ，＆Ｈ０００，０，０，０
- ＮＥＸＴ
- ＮＥＸＴ
- ’－－－ トケ゛カ゛ワ
- ＦＯＲ Ｘ＝０ ＴＯ ３１
- ＢＧＰＵＴ ０，Ｘ，３２，＆Ｈ３，０，０，０
- ＮＥＸＴ
- ＦＯＲ Ｙ＝１ ＴＯ ３１
- ＦＯＲ Ｘ＝０ ＴＯ ３１
- ＢＧＰＵＴ ０，Ｘ，３２＋Ｙ，＆Ｈ３２７，１２，０，０
- ＮＥＸＴ
- ＮＥＸＴ
- ’－－－フ゜レイヤ－アニメ
- ＳＰＳＥＴ ０，１３４，２，０，０，ＰＲ
- ＳＰＡＮＩＭ ０，２，８，０
- ＳＰＯＦＳ ０，ＰＸ，ＰＹ
- ＳＰＳＥＴ １，４８，０，０，０，０
- ＳＰＡＮＩＭ １，４，２，０
- ＳＰＯＦＳ １，ＰＸ，ＰＹ
- ’－－－テキアニメ
- ＦＯＲ Ｉ＝０ ＴＯ ＥＭＡＸ－１
- Ｅ（Ｉ，＿Ｓ）＝０
- ＳＰＳＥＴ Ｉ＋１０，２４８，２，０，０，ＰＲ
- ＳＰＡＮＩＭ Ｉ＋１０，４，４，０
- ＳＰＯＦＳ Ｉ＋１０，－３２，－３２
- ＮＥＸＴ
- ’－－－
- ＳＰ＝５：ＳＸ＝０
- ＢＹ＝０：ＯＹ＝０
- ＰＸ＝１２０：ＰＹ＝９６：ＶＸ＝０
- ＰＤ＝３：ＭＹ＝０：ＤＭ＝０
- ＨＹ＝０：ＳＴ＝１０００：ＥＣＮＴ＝０
- ’－－－スタ－ト
- ＧＯＳＵＢ ＠ＰＵＴＬＩＮＥ
- ＶＩＳＩＢＬＥ １，１，１，１，１，１
- ＢＧＭＰＬＡＹ １１
- ＬＯＣＡＴＥ ９，２３
- ＰＲＩＮＴ ”П↑ノホ゛ル П←→イト゛ウ”；
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＰＵＴＷＡＬＬ
- ＦＯＲ Ｍ＝０ ＴＯ ３
- ＧＯＳＵＢ ＠ＰＵＴ１
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’
- ＠ＰＵＴ１
- Ｉ＝Ｗ（Ｎ，Ｍ）：Ｈ＝０：Ｖ＝０
- ＩＦ Ｉ ＡＮＤ ＆Ｈ１０００ ＴＨＥＮ Ｈ＝１
- ＩＦ Ｉ ＡＮＤ ＆Ｈ２０００ ＴＨＥＮ Ｖ＝１
- Ｉ＝Ｉ ＡＮＤ ＆Ｈ３ＦＦ
- ＢＧＰＵＴ １，Ｘ＋ＯＸ（Ｍ），Ｙ＋ＯＹ（Ｍ），Ｉ，Ｃ，Ｈ，Ｖ
- ＲＥＴＵＲＮ
- ’┌────┐
- ’│タイトル│
- ’└────┘
- ＠ＴＩＮＩＴ
- ＣＬＳ
- ＶＩＳＩＢＬＥ １，１，０，０，１，１
- ＢＧＭＰＬＡＹ ２２
- ＳＰＳＥＴ ０，４８，０，０，０，０
- ＳＰＯＦＳ ０，２３０，３２
- ＳＰＡＮＩＭ ０，４，４，０
- ＬＯＣＡＴＥ ０，５
- ＣＯＬＯＲ １１：ＰＲＩＮＴ” ┝┿┿┸┝┿┿┸┝┿┿┸┝┿┿┸┝┿┿┸┝┿┿┸”
- ＣＯＬＯＲ ９ ：ＰＲＩＮＴ” ┝┸ ┝┸ ┝┸ ┝┸┝┸┝┸┝┸┝┸”
- ＣＯＬＯＲ ０ ：ＰＲＩＮＴ” ┝┿┿┸┝┿┿┸┝┸ ┝┿┿┸┝┿┿┸┝┿┿┸”
- ＣＯＬＯＲ ９ ：ＰＲＩＮＴ” ┝┸ ┝┸┝┸ ┝┸┝┸┝┸ ┝┸”
- ＣＯＬＯＲ １１：ＰＲＩＮＴ” ┝┿┿┸┝┿┿┸┝┿┿┸┝┸┝┸┝┸ ┝┿┿┸”
- ＣＯＬＯＲ １３
- ＬＯＣＡＴＥ １２，１：ＰＲＩＮＴ”ＨＩ：”；ＨＩ；”ｍ”
- ＣＯＬＯＲ ０
- ＬＯＣＡＴＥ ８，１３
- ＰＲＩＮＴ ”ＰＵＳＨ ＡＮＹ ＢＵＴＴＯＮ”
- ＬＯＣＡＴＥ ３，２２
- ＰＲＩＮＴ ”（Ｃ）２０１１ ＳｍｉｌｅＢｏｏｍ Ｃｏ．Ｌｔｄ．”
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＴＩＴＬＥ
- ＩＦ Ｂ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＲＥＱ＝１
- ＶＩＳＩＢＬＥ １，１，０，０，０，０
- ＢＧＭＳＴＯＰ
- ＲＥＴＵＲＮ
- ’┌─────────┐
- ’│ケ゛－ムオ－ハ゛－│
- ’└─────────┘
- ＠ＯＶＩＮＩＴ
- ＶＩＳＩＢＬＥ １，１，０，０，１，０
- ＣＬＳ
- ＢＧＭＰＬＡＹ ６
- ＳＰＣＨＲ ０，１２８
- ＳＰＡＮＩＭ ０，８，２，０
- ＬＯＣＡＴＥ ＰＸ／８，１１
- ＰＲＩＮＴ”ウヘッ！”
- ＬＯＣＡＴＥ １０，２０
- ＰＲＩＮＴ”タ゛ッシュツ シッハ゜イ”
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＧＯＶＥＲ
- ＩＦ ＢＧＭＣＨＫ（） ＴＨＥＮ ＲＥＴＵＲＮ
- ＣＯＬＳＥＴ ”ＢＧ”，０，”００００００”
- ＳＰＣＬＲ
- ＲＥＱ＝０
- ＲＥＴＵＲＮ
