スマイルブーム自家製プログラム特集 PART5 →PART6
ESCAPE3 by スマイルブーム
迷路を使ったゲームのひな型になるのが、このサンプルプログラムだ。
起動後、迷路データの読み込みの確認があるが、最初は迷路を作成するＹ(Enter)を選んでおけばいいだろう。
こうして作られた迷路内は十字ボタンで移動できる。Ａボタンで周囲を明るくすることもできるぞ。
このプログラム自体は特にゲームとしての目的はないので、プログラムの参考にするもよし、追加要素を加えてゲームにするのもいいだろう。
CHECK POiNT 
……。
迷路を書くのに、ちょっと変わった方法を使っているね。
さよう。まず見えないグラフィック面に迷路をドットで書いているんじゃな。そこから
ＧＳＰＯＩＴ命令で点の色を読み取って、実際の迷路に反映しとるわけじゃ。ゲーム中でもカベにぶつかったかの判定にこのグラフィック面を使っておって、カンタンに当たり判定のかわりにしておるのう。
ゲーム画面はグラフィック面の拡大図、のようなものとして使っているんだね。
16×16ドット単位でしか移動しないようなＲＰＧなどには、使えるひとつのアイデアかもしれんのう。
明かりの表現も工夫があるぞい。これはコンソールに「
明かりの表現も工夫があるぞい。これはコンソールに「
╂」と「┿」とキャラクターで書くことで表現しているんじゃな。コンソール面がBGやスプライトより手前にあることを使っているんだね。キャラクターを書き換えればもっと自然になりそうだよ。
ファック！ そういうコトは分かったがよォ！ 下にあるメッセージ表示っぽいモンとかよォ！ カギだのゴールドだのヒトダマだの、全部意味ねえじゃねーか！ ゲームじゃねえだろコレ！
う、ウム。さすがにムリがあったかの。サンプルとしていろいろ応用がききそうということでカンベンしてもらえんじゃろうか。次はちゃんと完成までやりとげ……ムニャムニャ、ゲームらしいゲームを紹介するぞい。
プログラムリスト
- ’┌──────────┐
- ’│タ゛ンシ゛ョンメイロ│
- ’│ ｖ１．０ │
- ’└──────────┘
- ＣＬＥＡＲ
- ＶＩＳＩＢＬＥ １，１，０，０，０，０
- ＣＬＳ：ＣＯＬＯＲ ０
- ＳＰＰＡＧＥ ０：ＳＰＣＬＲ
- ＢＧＰＡＧＥ ０：ＰＧ＝１：ＰＲ＝１
- ＢＧＯＦＳ ０，０，０
- ＢＧＯＦＳ １，０，０
- ’－－－
- ＯＭＡＸ＝８
- ＤＩＭ Ｖ（４，２），Ｗ（２，５），Ｍ＄（３）
- ＤＩＭ Ｏ（ＯＭＡＸ，４），Ｂ＄（９）
- ＤＡＴＡ １，０，０，１，－１，０，０，－１
- ＦＯＲ Ｉ＝０ ＴＯ ３
- ＲＥＡＤ Ｖ（Ｉ，０），Ｖ（Ｉ，１）
- ＮＥＸＴ
- ＤＡＴＡ ９，＆Ｈ２Ｄ１，＆Ｈ２Ｄ２，＆Ｈ２Ｆ１，＆Ｈ２Ｆ２
- ＤＡＴＡ ９，＆Ｈ０２０，＆Ｈ０２１，＆Ｈ０２１，＆Ｈ０２０
- ＦＯＲ Ｉ＝０ ＴＯ １
- ＦＯＲ Ｊ＝０ ＴＯ ４
- ＲＥＡＤ Ｗ（Ｉ，Ｊ）
- ＮＥＸＴ
- ＮＥＸＴ
- ＤＡＴＡ ”┌”，”─”，”┐”
- ＤＡＴＡ ”│”，” ”，”│”
- ＤＡＴＡ ”└”，”─”，”┘”
- ＦＯＲ Ｉ＝０ ＴＯ ８
- ＲＥＡＤ Ｂ＄（Ｉ）
- ＮＥＸＴ
- Ｍ＄（０）＝”┿”
- Ｍ＄（１）＝”╂”
- Ｍ＄（２）＝” ”
- ’－－－
- Ｘ＝６：Ｙ＝１０：ＳＸ＝１９：ＳＹ＝３
- ＯＸ＝５：ＯＹ＝１：Ｔ＄＝”ｉｎｉｔｉａｌｉｚｅ”
- ＧＯＳＵＢ ＠ＰＵＴＢＯＸ
- ’－－－ＢＧショキカ
- ＦＯＲ Ｐ＝１ ＴＯ ０ ＳＴＥＰ －１
- ＢＧＰＡＧＥ Ｐ
- ＦＯＲ Ｙ＝０ ＴＯ ６３
- ＦＯＲ Ｘ＝０ ＴＯ ６３
- ＢＧＰＵＴ ０，Ｘ，Ｙ，０，０，０，０
- ＢＧＰＵＴ １，Ｘ，Ｙ，０，０，０，０
- ＮＥＸＴ
- ＮＥＸＴ
- ＮＥＸＴ
- ’－－－
- ＰＣＧ＝０
- Ｎ＝１３：ＧＯＳＵＢ ＠ＤＥＦＳＹＳ
- Ｎ＝１４：ＧＯＳＵＢ ＠ＤＥＦＳＹＳ
- Ｎ＝５７：ＧＯＳＵＢ ＠ＤＥＦＳＹＳ
- Ｎ＝５９：ＧＯＳＵＢ ＠ＤＥＦＳＹＳ
- Ｎ＝６０：ＧＯＳＵＢ ＠ＤＥＦＳＹＳ
- Ｎ＝２２４：ＧＯＳＵＢ ＠ＤＥＦＳＹＳ
- Ｎ＝２２５：ＧＯＳＵＢ ＠ＤＥＦＳＹＳ
- Ｎ＝２２６：ＧＯＳＵＢ ＠ＤＥＦＳＹＳ
- Ｎ＝２３１：ＧＯＳＵＢ ＠ＤＥＦＳＹＳ
- ’－－－
- ＠ＳＴＡＲＴ
- ＦＬＯＷ＝－１：ＲＥＱ＝１
- ’－－－
- ＠ＭＬＯＯＰ
- ＯＬＤＢ＝Ｂ：Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ ＦＬＯＷ＝＝ＲＥＱ ＧＯＴＯ ＠ＭＳＫＩＰ
- ＦＬＯＷ＝ＲＥＱ：Ｂ＝０：ＯＬＤＢ＝０
- ＯＮ ＦＬＯＷ ＧＯＳＵＢ ＠ＧＩ，＠ＴＩ
- ＠ＭＳＫＩＰ
- ＯＮ ＦＬＯＷ ＧＯＳＵＢ ＠ＧＭ，＠ＴＭ
- ＶＳＹＮＣ １
- ＧＯＴＯ ＠ＭＬＯＯＰ
- ’－－－
- ＠ＰＵＴＢＯＸ
- ＯＸ＝ＯＸ＋Ｘ：ＯＹ＝ＯＹ＋Ｙ
- Ｎ＝０：ＧＯＳＵＢ ＠ＰＵＴＬＩＮＥ
- ＦＯＲ Ｊ＝０ ＴＯ ＳＹ－３
- Ｎ＝３：ＧＯＳＵＢ ＠ＰＵＴＬＩＮＥ
- ＮＥＸＴ
- Ｎ＝６：ＧＯＳＵＢ ＠ＰＵＴＬＩＮＥ
- ＬＯＣＡＴＥ ＯＸ，ＯＹ：ＰＲＩＮＴ Ｔ＄
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＰＵＴＬＩＮＥ
- ＬＯＣＡＴＥ Ｘ，Ｙ
- ＰＲＩＮＴ Ｂ＄（Ｎ）；
- Ｎ＝Ｎ＋１
- ＦＯＲ Ｉ＝０ ＴＯ ＳＸ－２
- ＰＲＩＮＴ Ｂ＄（Ｎ）；
- ＮＥＸＴ
- ＰＲＩＮＴ Ｂ＄（Ｎ＋１）；
- Ｙ＝Ｙ＋１
- ＲＥＴＵＲＮ
- ’┌───────┐
- ’│メイロサクセイ│
- ’└───────┘
- ＠ＭＡＺＥ
- ＧＰ＝１：ＧＰＡＧＥ ＧＰ：ＧＣＬＳ ０
- ’－－－
- ＣＭ＝４
- ＣＫ＝１２
- ＣＤ＝１１
- Ｃ１＝１３
- Ｃ２＝１４
- ’－－－
- ＩＮＰＵＴ”Ж「メイロヲ、セイセイシマスカ」（Ｙ／Ｎ）”；Ｋ＄
- ＩＦ Ｋ＄！＝”Ｙ” ＧＯＴＯ ＠ＭＬＯＡＤ
- ’－－－アタラシクツクル
- ＠ＭＮＥＷ
- ＰＲＩＮＴ”Ж「メイロヲツクリマス」”
- ＩＮＰＵＴ”Ж「ヨコサイス゛」（１６―２５６）”；ＭＸ
- ＩＮＰＵＴ”Ж「タテサイス゛」（１２―１９２）”；ＭＹ
- ＩＦ ＭＸ＜１６ ＴＨＥＮ ＭＸ＝１６
- ＩＦ ＭＸ＞２５６ ＴＨＥＮ ＭＸ＝２５６
- ＩＦ ＭＹ＜１２ ＴＨＥＮ ＭＹ＝１２
- ＩＦ ＭＹ＞１９２ ＴＨＥＮ ＭＹ＝１９２
- ’－－－サイス゛ヲ３ケタス゛ツノモシ゛レツニヘンカン
- Ｋ＄＝”０”＋ＳＴＲ＄（ＭＸ）：Ｌ＝ＬＥＮ（Ｋ＄）
- ＭＥＭ＄＝ＭＩＤ＄（Ｋ＄，Ｌ－３，３）
- Ｋ＄＝”０”＋ＳＴＲ＄（ＭＹ）：Ｌ＝ＬＥＮ（Ｋ＄）
- ＭＥＭ＄＝ＭＥＭ＄＋ＭＩＤ＄（Ｋ＄，Ｌ－３，３）
- ’－－－ホソ゛ンシテオク
- ＰＲＩＮＴ”Ж「チョットマッテテネ」”
- ＧＯＳＵＢ ＠ＭＫＭＺ
- ＰＲＩＮＴ”Ж「メイロヲホソ゛ンシマス」”
- ＳＡＶＥ”ＧＲＰ１：ＭＡＰ”
- ＳＡＶＥ”ＭＥＭ：ＭＡＰ”
- ＲＥＴＵＲＮ
- ’－－－カコノマッフ゜ヲヨミコム
- ＠ＭＬＯＡＤ
- ’ＩＮＰＵＴ”Ж「メイロヲ、ヨミコミマスカ」（Ｙ／Ｎ）”；Ｋ＄
- ’ＩＦ Ｋ＄！＝”Ｙ” ＴＨＥＮ ＲＥＴＵＲＮ
- ＰＲＩＮＴ”Ж「メイロヲヨミコミマス」”
- ＬＯＡＤ”ＧＲＰ１：ＭＡＰ”，ＦＡＬＳＥ
- ＩＦ ＲＥＳＵＬＴ！＝ＴＲＵＥ ＧＯＴＯ ＠ＭＮＥＷ
- ＬＯＡＤ”ＭＥＭ：ＭＡＰ”，ＦＡＬＳＥ
- ＩＦ ＲＥＳＵＬＴ！＝ＴＲＵＥ ＧＯＴＯ ＠ＭＮＥＷ
- ＭＸ＝ＶＡＬ（ＭＩＤ＄（ＭＥＭ＄，０，３））
- ＭＹ＝ＶＡＬ（ＭＩＤ＄（ＭＥＭ＄，３，３））
- ＲＥＴＵＲＮ
- ’－－－オフ゛シ゛ェクトノハイチ
- ＠ＯＢＪＳＥＴ
- ’ＰＲＩＮＴ”ＳＩＺＥ：”；ＭＸ；”，”；ＭＹ
- ’ＰＲＩＮＴ”Ж「イヘ゛ントヲハイチシマス」”
- ＩＸ＝０
- ’－－－ カキ゛
- Ｃ＝ＣＫ：ＳＣ＝２：Ｎ＝１５
- ＧＯＳＵＢ ＠ＳＥＴＰＯＳ
- ’－－－
- Ｃ＝ＣＤ：ＳＣ＝２：Ｎ＝３１
- ＧＯＳＵＢ ＠ＳＥＴＰＯＳ
- ’－－－
- Ｃ＝Ｃ１：ＳＣ＝２：Ｎ＝３０
- ＧＯＳＵＢ ＠ＳＥＴＰＯＳ
- ’－－－
- Ｃ＝Ｃ２：ＳＣ＝２：Ｎ＝６３
- ＧＯＳＵＢ ＠ＳＥＴＰＯＳ
- ’－－－
- ＯＢＪＳＰ＝ＳＰ－１６
- ＲＥＴＵＲＮ
- ’－－－セットイチヲカクニン
- ＠ＳＥＴＰＯＳ
- Ｘ＝ＲＮＤ（２５４）＋１
- Ｙ＝ＲＮＤ（１９０）＋１
- ＩＦ ＧＳＰＯＩＴ（Ｘ，Ｙ）！＝ＣＭ ＧＯＴＯ ＠ＳＥＴＰＯＳ
- ’－－－
- ＧＰＳＥＴ Ｘ，Ｙ，Ｃ
- Ｏ（ＩＸ，＿Ｘ）＝Ｘ＊１６＋７
- Ｏ（ＩＸ，＿Ｙ）＝Ｙ＊１６＋７
- Ｏ（ＩＸ，＿Ｎ）＝Ｎ
- Ｏ（ＩＸ，＿Ｓ）＝ＳＣ
- ＳＰＳＥＴ ＳＰ，Ｎ，ＳＣ，０，０，０
- ＳＰ＝ＳＰ＋１
- ＩＸ＝ＩＸ＋１
- ＲＥＴＵＲＮ
- ’┌────┐
- ’│ケ゛－ム│
- ’└────┘
- ＠ＧＩ
- ＣＬＳ
- ＶＩＳＩＢＬＥ １，１，０，０，０，０
- ＢＧＰＡＧＥ ０
- ＤＸ＝２６：ＤＹ＝２２
- ＢＧＣＬＩＰ １，１，ＤＸ，ＤＹ
- ’－－－
- ＧＯＳＵＢ ＠ＭＡＺＥ
- ’－－－
- ＿Ｘ＝０：＿Ｙ＝１：＿Ｎ＝２：＿Ｓ＝３
- ＳＰ＝１６
- ＧＯＳＵＢ ＠ＯＢＪＳＥＴ
- ＣＬＳ
- ＧＰＡＧＥ ０：ＧＣＬＳ ０
- ’－－－
- Ｎ＝ＡＳＣ（”В”）
- ＦＯＲ Ｘ＝０ ＴＯ ２５５ ＳＴＥＰ ８
- ＧＰＵＴＣＨＲ Ｘ，０，”ＢＧＦ”，Ｎ，１４，１
- ＧＰＵＴＣＨＲ Ｘ，２３＊８，”ＢＧＦ”，Ｎ，１４，１
- ＮＥＸＴ
- ＦＯＲ Ｙ＝１＊８ ＴＯ ２２＊８ ＳＴＥＰ ８
- ＧＰＵＴＣＨＲ ０，Ｙ，”ＢＧＦ”，Ｎ，１４，１
- ＧＰＵＴＣＨＲ ２７＊８，Ｙ，”ＢＧＦ”，Ｎ，１４，１
- ＦＯＲ Ｘ＝２８＊８ ＴＯ ３１＊８ ＳＴＥＰ ８
- ＧＰＵＴＣＨＲ Ｘ，Ｙ，”ＢＧＦ”，Ｎ，１４，１
- ＮＥＸＴ
- ＮＥＸＴ
- ＧＰＡＧＥ ＧＰ
- ’－－－
- ＬＳ＝３
- ＧＯＳＵＢ ＠ＰＵＴＭＡＳＫ
- ’－－－
- ＯＸ＝－５：ＯＹ＝－４
- ＷＸ＝ＯＸ＊１６－８：ＷＹ＝ＯＹ＊１６－８
- ＶＸ＝０：ＶＹ＝０：ＶＳ＝０
- ＢＧＯＦＳ ＰＧ，ＷＸ，ＷＹ
- ＧＯＳＵＢ ＠ＰＵＴＢＧ
- ’－－－
- ＳＰＰＡＧＥ １：ＳＰＣＬＲ
- ＳＰＰＡＧＥ ０
- ’－－－ＰＬＡＹＥＲ
- ＳＰＳＥＴ ０，１２８，２，０，０，ＰＲ
- ＳＰＯＦＳ ０，１３＊８，１１＊８－８
- ＳＰＡＮＩＭ ０，２，８，０
- ＳＰＳＥＴ １，１５，２，０，０，ＰＲ
- ＳＰＯＦＳ １，１３＊８，１１＊８
- ’－－－ＧＯＬＤ
- ＳＰＳＥＴ ＳＰ，１３，３，０，０，ＰＲ
- ＳＰＯＦＳ ＳＰ，２８＊８＋２，１＊８
- ＬＯＣＡＴＥ ２８，３：ＰＲＩＮＴ”０００”
- ＳＰ＝ＳＰ＋１
- ’－－－ＫＥＹ
- ＳＰＳＥＴ ＳＰ，１４，３，０，０，ＰＲ
- ＳＰＯＦＳ ＳＰ，２８＊８＋２，５＊８
- ＬＯＣＡＴＥ ２８，７：ＰＲＩＮＴ”０００”
- ＳＰ＝ＳＰ＋１
- ’－－－
- ＫＭ＝０：ＫＷ＝０
- ＬＯＣＡＴＥ １，２３：ＰＲＩＮＴ”Й：”；
- ＶＩＳＩＢＬＥ １，１，０，１，１，１
- ’ＰＮＬＴＹＰＥ ”ＯＦＦ”
- ＲＥＴＵＲＮ
- ’┌───────┐
- ’│ケ゛－ムメイン│
- ’└───────┘
- ＠ＧＭ
- ＬＯＣＡＴＥ ３＋ＫＭ，２３
- Ｋ＄＝”■”：ＩＦ ＫＷ＞１６ ＴＨＥＮ Ｋ＄＝” ”
- ＰＲＩＮＴ Ｋ＄；
- ＫＷ＝ＫＷ＋１：ＫＷ＝ＫＷ ＡＮＤ ３１
- ’－－－
- Ｋ＄＝ＩＮＫＥＹ＄（）
- ＩＦ Ｋ＄＝＝”” ＧＯＴＯ ＠ＫＳＫＩＰ
- Ｋ＝ＡＳＣ（Ｋ＄）
- ＩＦ Ｋ＜ＡＳＣ（” ”） ＧＯＴＯ ＠ＫＳＫＩＰ
- ＩＦ Ｋ＞ＡＳＣ（”Ｚ”） ＧＯＴＯ ＠ＫＳＫＩＰ
- ’－－－
- ＩＦ ＫＭ＜１６ ＧＯＴＯ ＠ＫＰＵＴ
- ＬＯＣＡＴＥ ３，２３
- ＰＲＩＮＴ” ”；
- ＫＭ＝０
- ＠ＫＰＵＴ
- ＬＯＣＡＴＥ ３＋ＫＭ，２３
- ＰＲＩＮＴ Ｋ＄；
- ＫＭ＝ＫＭ＋１
- ’－－－
- ＠ＫＳＫＩＰ
- ＧＯＳＵＢ ＠ＣＴＲＬ
- ＧＯＳＵＢ ＠ＳＣＲＬ
- ＧＯＳＵＢ ＠ＯＢＪＥＣＴ
- ＲＥＴＵＲＮ
- ’┌────────┐
- ’│オフ゛シ゛ェクト│
- ’└────────┘
- ＠ＯＢＪＥＣＴ
- ＦＯＲ ＩＸ＝０ ＴＯ ＯＢＪＳＰ－１
- Ｘ＝Ｏ（ＩＸ，＿Ｘ）－ＷＸ－７
- Ｙ＝Ｏ（ＩＸ，＿Ｙ）－ＷＹ－７
- ＳＰＯＦＳ ＩＸ＋１６，Ｘ，Ｙ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’┌─────┐
- ’│スクロ－ル│
- ’└─────┘
- ＠ＳＣＲＬ
- ＩＦ ＶＳ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ’－－－
- ＳＴ＝２
- ＶＳ＝ＶＳ－ＳＴ
- ＷＸ＝ＷＸ＋ＶＸ＊ＳＴ
- ＷＹ＝ＷＹ＋ＶＹ＊ＳＴ
- ＢＧＯＦＳ ＰＧ，ＷＸ，ＷＹ
- ＲＥＴＵＲＮ
- ’┌───┐
- ’│ソウサ│
- ’└───┘
- ＠ＣＴＲＬ
- ＩＦ ＶＳ！＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ’－－－
- ’ＩＦ ＯＬＤＢ！＝０ ＧＯＴＯ ＠ＬＳＫＩＰ
- ＩＦ Ｂ！＝１６ ＧＯＴＯ ＠ＬＳＫＩＰ
- ＬＳ＝ＬＳ＋１：ＩＦ ＬＳ＞１８ ＴＨＥＮ ＬＳ＝３
- ＧＯＳＵＢ ＠ＰＵＴＭＡＳＫ
- ＠ＬＳＫＩＰ
- ’－－－
- Ｄ＝－１：ＶＳ＝０
- ＩＦ Ｂ ＡＮＤ １ ＴＨＥＮ Ｄ＝３：ＢＸ＝０：ＢＹ＝０
- ＩＦ Ｂ ＡＮＤ ２ ＴＨＥＮ Ｄ＝１：ＢＸ＝０：ＢＹ＝１１
- ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ Ｄ＝２：ＢＸ＝０：ＢＹ＝０
- ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ Ｄ＝０：ＢＸ＝１５：ＢＹ＝０
- ＩＦ Ｄ＝＝－１ ＴＨＥＮ ＲＥＴＵＲＮ
- ’－－－ススムシ゛ュンヒ゛
- ＳＰＣＨＲ ０，１２８＋Ｄ＊２
- ＶＸ＝Ｖ（Ｄ，０）：ＶＹ＝Ｖ（Ｄ，１）
- ’－－－ススメルカ？
- Ｘ＝ＯＸ＋ＶＸ＋５＋１
- Ｙ＝ＯＹ＋ＶＹ＋４＋１
- Ｎ＝ＧＳＰＯＩＴ（Ｘ，Ｙ）
- ＩＦ Ｎ＝＝－１ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ Ｎ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ’－－－ホウコウコ゛トニヒョウシ゛
- ＶＳ＝１６
- ＩＦ Ｄ＝＝１ ＯＲ Ｄ＝＝３ ＧＯＴＯ ＠ＭＶ＿Ｖ
- ’－－－
- ＯＸ＝ＯＸ＋ＶＸ
- ＦＯＲ ＢＹ＝０ ＴＯ ３１
- ＧＯＳＵＢ ＠ＰＵＴＢＬＫ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＭＶ＿Ｖ
- ＯＹ＝ＯＹ＋ＶＹ
- ＦＯＲ ＢＸ＝０ ＴＯ ３１
- ＧＯＳＵＢ ＠ＰＵＴＢＬＫ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’┌─────────┐
- ’│ライトヒョウケ゛ン│
- ’└─────────┘
- ＠ＰＵＴＭＡＳＫ
- ’－－－ク゛ラフィックニカク
- ＧＰＡＧＥ ０
- Ｏ＝６４
- ＧＦＩＬＬ ８，８，８＋ＤＸ＊８－１，８＋ＤＹ＊８－１，０
- Ｘ＝ＦＬＯＯＲ（ＤＸ／２）－１
- Ｙ＝ＦＬＯＯＲ（ＤＹ／２）－１
- Ｌ＝ＬＳ
- ＧＣＩＲＣＬＥ Ｏ＋Ｘ，Ｏ＋Ｙ，Ｌ，１
- ＩＦ ＬＳ＜８ ＧＯＴＯ ＠ＰＭＳＫＩＰ
- ＧＣＩＲＣＬＥ Ｏ＋Ｘ，Ｏ＋Ｙ，Ｌ－１，１
- Ｌ＝Ｌ－１
- ＠ＰＭＳＫＩＰ
- ＧＣＩＲＣＬＥ Ｏ＋Ｘ，Ｏ＋Ｙ，Ｌ－１，２
- ＧＰＡＩＮＴ Ｏ＋Ｘ，Ｏ＋Ｙ，２
- ’－－－ク゛ラフィックカラセイセイ
- ＣＯＬＯＲ １
- ＦＯＲ Ｙ＝０ ＴＯ ＤＹ－１
- ＦＯＲ Ｘ＝０ ＴＯ ＤＸ－１
- Ｃ＝ＧＳＰＯＩＴ（Ｏ＋Ｘ，Ｏ＋Ｙ）
- ＬＯＣＡＴＥ Ｘ＋１，Ｙ＋１
- ＰＲＩＮＴ Ｍ＄（Ｃ）
- ＮＥＸＴ
- ＮＥＸＴ
- ＣＯＬＯＲ ０
- ＧＰＡＧＥ ＧＰ
- ＲＥＴＵＲＮ
- ’┌────────┐
- ’│ＢＧノヒョウシ゛│
- ’└────────┘
- ＠ＰＵＴＢＧ
- ＦＯＲ ＢＹ＝０ ＴＯ １５
- ＦＯＲ ＢＸ＝０ ＴＯ １５
- ＧＯＳＵＢ ＠ＰＵＴＢＬＫ
- ＮＥＸＴ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’┌──────────────┐
- ’│２ｘ２フ゛ロックノヒョウシ゛│
- ’└──────────────┘
- ＠ＰＵＴＢＬＫ
- Ｘ＝ＢＸ＋ＯＸ
- Ｙ＝ＢＹ＋ＯＹ
- ’－－－カヘ゛
- Ｎ＝０：Ｃ＝１５
- ＩＦ Ｘ＜０ ＯＲ Ｙ＜０ ＧＯＴＯ ＠ＰＢＳＫＩＰ
- ＩＦ Ｘ＞＝ＭＸ ＯＲ Ｙ＞＝ＭＹ ＧＯＴＯ ＠ＰＢＳＫＩＰ
- ’－－－
- Ｇ＝ＧＳＰＯＩＴ（Ｘ，Ｙ）：Ｃ＝９：Ｎ＝１
- ＩＦ Ｇ＝＝０ ＴＨＥＮ Ｎ＝０
- ’－－－
- ＠ＰＢＳＫＩＰ
- Ｘ＝Ｘ＊２：Ｙ＝Ｙ＊２
- Ｘ＝Ｘ ＡＮＤ ６３：Ｙ＝Ｙ ＡＮＤ ６３
- ＢＧＰＵＴ ＰＧ，Ｘ，Ｙ，Ｗ（Ｎ，１），Ｃ，０，０
- ＢＧＰＵＴ ＰＧ，（Ｘ＋１） ＡＮＤ ６３，Ｙ，Ｗ（Ｎ，２），Ｃ，０，０
- Ｙ＝Ｙ＋１：Ｙ＝Ｙ ＡＮＤ ６３
- ＢＧＰＵＴ ＰＧ，Ｘ，Ｙ，Ｗ（Ｎ，３），Ｃ，０，０
- ＢＧＰＵＴ ＰＧ，（Ｘ＋１） ＡＮＤ ６３，Ｙ，Ｗ（Ｎ，４），Ｃ，０，０
- ＲＥＴＵＲＮ
- ’┌───────┐
- ’│メイロサクセイ│
- ’└───────┘
- ＠ＭＫＭＺ
- ＴＸ＝１：ＴＹ＝１
- ＧＰＳＥＴ ＴＸ，ＴＹ，ＣＭ
- ＰＣ＝０：ＰＲ＝１００／（ＭＸ＊ＭＹ）
- ＰＲＩＮＴ ”Р”；ＴＩＭＥ＄
- ＬＹ＝ＣＳＲＹ
- ’－－－
- ＠ＬＯＯＰ
- Ｘ＝ＴＸ：Ｙ＝ＴＹ
- ＬＯＣＡＴＥ ０，ＬＹ
- ＰＲＩＮＴ ＰＣ；”％ ”
- Ｖ＝ＲＮＤ（２）
- ＩＦ Ｖ＝＝０ ＴＨＥＮ Ｖ＝－１
- ’－－－
- ＠ＭＯＶＥＬＯＯＰ
- Ｄ＝ＲＮＤ（４）
- Ｃ＝４：ＰＸ＝Ｘ：ＰＹ＝Ｙ
- ’－－－
- ＠ＤＩＲＬＯＯＰ
- Ｘ＝ＰＸ＋Ｖ（Ｄ，０）
- Ｙ＝ＰＹ＋Ｖ（Ｄ，１）
- ＩＦ Ｘ＜１ ＯＲ Ｘ＞ＭＸ－２ ＧＯＴＯ ＠ＤＩＲＮＥＸＴ
- ＩＦ Ｙ＜１ ＯＲ Ｙ＞ＭＹ－２ ＧＯＴＯ ＠ＤＩＲＮＥＸＴ
- ’－－－サユウ
- ＿Ｘ＝Ｘ：＿Ｙ＝Ｙ
- Ｏ＝１：ＧＯＳＵＢ ＠ＷＡＬＬ
- ＩＦ Ｒ ＧＯＴＯ ＠ＤＩＲＮＥＸＴ
- Ｏ＝－１：ＧＯＳＵＢ ＠ＷＡＬＬ
- ＩＦ Ｒ ＧＯＴＯ ＠ＤＩＲＮＥＸＴ
- ’－－－マエ
- Ｏ＝０：ＧＯＳＵＢ ＠ＷＡＬＬ
- ＩＦ Ｒ ＧＯＴＯ ＠ＤＩＲＮＥＸＴ
- ’－－－マエノサユウ
- Ｘ＝ＣＸ：Ｙ＝ＣＹ
- Ｏ＝１：ＧＯＳＵＢ ＠ＷＡＬＬ
- ＩＦ Ｒ ＧＯＴＯ ＠ＤＩＲＮＥＸＴ
- Ｏ＝－１：ＧＯＳＵＢ ＠ＷＡＬＬ
- ＩＦ Ｒ ＧＯＴＯ ＠ＤＩＲＮＥＸＴ
- ’－－－
- Ｘ＝＿Ｘ：Ｙ＝＿Ｙ
- ＧＰＳＥＴ Ｘ，Ｙ，ＣＭ
- ＧＯＴＯ ＠ＭＯＶＥＬＯＯＰ
- ’－－－
- ＠ＤＩＲＮＥＸＴ
- Ｃ＝Ｃ－１：ＩＦ Ｃ＝＝０ ＧＯＴＯ ＠ＰＯＳＮＥＷ
- Ｄ＝Ｄ＋Ｖ：Ｄ＝Ｄ ＡＮＤ ３
- ＧＯＴＯ ＠ＤＩＲＬＯＯＰ
- ’－－－
- ＠ＰＯＳＮＥＷ
- ＰＣ＝ＰＣ＋ＰＲ
- ＴＸ＝ＴＸ＋１
- ＩＦ ＴＸ＜ＭＸ－２ ＧＯＴＯ ＠ＰＯＳＣＨＫ
- ＴＸ＝１：ＴＹ＝ＴＹ＋１
- ＩＦ ＴＹ＝＝ＭＹ－１ ＧＯＴＯ ＠ＰＯＳＥＮＤ
- ＠ＰＯＳＣＨＫ
- ＣＸ＝ＴＸ：ＣＹ＝ＴＹ：ＧＯＳＵＢ ＠ＷＡＬＬ２
- ＩＦ Ｒ＝＝ＦＡＬＳＥ ＧＯＴＯ ＠ＰＯＳＮＥＷ
- ＧＯＴＯ ＠ＬＯＯＰ
- ’－－－
- ＠ＰＯＳＥＮＤ
- ＰＲＩＮＴ ”Р”；ＴＩＭＥ＄
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＷＡＬＬ
- Ｉ＝Ｄ＋Ｏ：Ｉ＝Ｉ ＡＮＤ ３
- ＣＸ＝Ｘ＋Ｖ（Ｉ，０）：ＣＹ＝Ｙ＋Ｖ（Ｉ，１）
- ’－－－
- ＠ＷＡＬＬ２
- Ｒ＝ＦＡＬＳＥ
- ＩＦ ＣＸ＜１ ＯＲ ＣＸ＞ＭＸ－２ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＣＹ＜１ ＯＲ ＣＹ＞ＭＹ－２ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＧＳＰＯＩＴ（ＣＸ，ＣＹ）＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｒ＝ＴＲＵＥ
- ＲＥＴＵＲＮ
- ’┌────┐
- ’│タイトル│
- ’└────┘
- ＠ＴＩ
- ＶＩＳＩＢＬＥ １，１，０，０，０，１
- ＣＬＳ：ＧＰＡＧＥ ０：ＧＣＬＳ ０
- ＢＧＭＳＴＯＰ
- ＬＯＣＡＴＥ ０，６
- ＰＲＩＮＴ” й й й й й й йй”
- ＰＲＩＮＴ” и и и и зи зи з”
- ＰＲＩＮＴ” и и и и зи зи ┓ з”
- ＰＲＩＮＴ” ий ий и и зи зи ййз”
- ＰＲＩＮＴ” и зи ижзиж иж з”
- ＰＲＩＮＴ” и зи и зи и ━ з”
- ＰＲＩＮＴ” и зи и зи и з”
- ＰＲＩＮＴ” ж ж ж ж жж”
- ＬＯＣＡＴＥ ８，１７
- ＰＲＩＮＴ”ＰＵＳＨ ＡＮＹ ＢＵＴＴＯＮ”
- ＬＯＣＡＴＥ ３，２２
- ＰＲＩＮＴ”（Ｃ）２０１１ ＳｍｉｌｅＢｏｏｍ Ｃｏ．Ｌｔｄ．”
- ’－－－
- ＿Ｘ＝０：＿Ｙ＝１：＿Ｒ＝２：＿Ｗ＝３
- ’－－－
- ＦＯＲ Ｉ＝０ ＴＯ ＯＭＡＸ－１
- ＧＯＳＵＢ ＠ＭＫＲＩＮＧ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＭＫＲＩＮＧ
- Ｏ（Ｉ，＿Ｘ）＝ＲＮＤ（２００）＋２４
- Ｏ（Ｉ，＿Ｙ）＝ＲＮＤ（１５０）＋２０
- Ｏ（Ｉ，＿Ｒ）＝０
- Ｏ（Ｉ，＿Ｗ）＝ＲＮＤ（６０）
- ＲＥＴＵＲＮ
- ’－－－
- ＠ＴＭ
- ＦＯＲ Ｉ＝０ ＴＯ ＯＭＡＸ－１
- ’－－－
- ＩＦ Ｏ（Ｉ，＿Ｗ）＝＝０ ＧＯＴＯ ＠ＷＤＭＯＶＥ
- Ｏ（Ｉ，＿Ｗ）＝Ｏ（Ｉ，＿Ｗ）－１
- ＧＯＴＯ ＠ＷＤＮＥＸＴ
- ’－－－
- ＠ＷＤＭＯＶＥ
- Ｘ＝Ｏ（Ｉ，＿Ｘ）：Ｙ＝Ｏ（Ｉ，＿Ｙ）
- Ｒ＝Ｏ（Ｉ，＿Ｒ）
- ＧＣＩＲＣＬＥ Ｘ，Ｙ，Ｒ，０
- Ｒ＝Ｒ＋４
- ＩＦ Ｒ＜１００ ＧＯＴＯ ＠ＷＤＳＫＩＰ
- ＧＯＳＵＢ ＠ＭＫＲＩＮＧ
- ＧＯＴＯ ＠ＷＤＮＥＸＴ
- ’－－－
- ＠ＷＤＳＫＩＰ
- Ｏ（Ｉ，＿Ｒ）＝Ｒ
- ＧＣＩＲＣＬＥ Ｘ，Ｙ，Ｒ，５
- ’－－－
- ＠ＷＤＮＥＸＴ
- ’－－－
- ＮＥＸＴ
- ’－－－
- ＧＯＳＵＢ ＠ＡＮＹＢＵＴ
- ＩＦ Ｒ＝＝ＦＡＬＳＥ ＴＨＥＮ ＲＥＴＵＲＮ
- ’－－－
- ＲＥＱ＝０
- ＲＥＴＵＲＮ
- ’
- ＠ＡＮＹＢＵＴ
- Ｒ＝ＦＡＬＳＥ
- ＩＦ ＯＬＤＢ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ Ｂ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｒ＝ＴＲＵＥ
- ＲＥＴＵＲＮ
- ’┌───────────────┐
- ’│システムスフ゜ライトノテイキ゛│
- ’└───────────────┘
- ＠ＤＥＦＳＹＳ
- ＳＰＰＡＧＥ ０
- Ｎ＝Ｎ＊４
- Ｂ＝ＦＬＯＯＲ（Ｎ／２５６）
- Ｎ＝Ｎ ＡＮＤ ２５５
- Ｋ＄＝”ＳＰＵ”＋ＳＴＲ＄（Ｂ）
- ＣＨＲＲＥＡＤ（Ｋ＄，Ｎ），Ｃ１＄
- ＣＨＲＲＥＡＤ（Ｋ＄，Ｎ＋１），Ｃ２＄
- ＣＨＲＲＥＡＤ（Ｋ＄，Ｎ＋２），Ｃ３＄
- ＣＨＲＲＥＡＤ（Ｋ＄，Ｎ＋３），Ｃ４＄
- ＳＰＰＡＧＥ １
- ＣＨＲＳＥＴ ”ＳＰＳ０”，ＰＣＧ，Ｃ１＄
- ＣＨＲＳＥＴ ”ＳＰＳ０”，ＰＣＧ＋１，Ｃ２＄
- ＣＨＲＳＥＴ ”ＳＰＳ０”，ＰＣＧ＋２，Ｃ３＄
- ＣＨＲＳＥＴ ”ＳＰＳ０”，ＰＣＧ＋３，Ｃ４＄
- ＰＣＧ＝ＰＣＧ＋４
- ＳＰＰＡＧＥ ０
- ＲＥＴＵＲＮ
