トレジャーバレー by えぬおう
画面固定型のサイドビューアクションゲームが登場だ。
主人公の操作は左右ボタンで移動、Ａボタンでジャンプ。まずは画面内に散らばる星を全て集めよう。そして鍵を取ってから扉に入ればゴール、ステージクリアだ。
あちこちにあるコインを取ればスコアがアップするぞ。多く集めながら全５面のステージを突破しよう。
私が作りました
えぬおう
プチコン作成ゲーム１本目です。スプライトを表示させたところから気がついたら４日後には出来上がっていました。
CHECK POiNT 
スプライトを使った、本格的なジャンプアクションゲームじゃな。
簡単なようで意外とお邪魔キャラの配置に手応えがあるね。半キャラ単位のフワッとした操作感も、独特のいい味があるよ。
悪く言えば操作にクセが強いってコトだが……慣れてくるとたしかにココが面白みではあるな！
スコアアタックの要素が強いけど、慣れきっちゃうとスコアが頭打ちになっちゃう。クリア時間によってスコアに変化があると、さらに楽しめるかもしれないね。
ステージ構成はプログラムを見ての通り、わかりやすいDATA文になっておるから、各自ここを工夫して新しいステージを作るのもいいじゃろうな。
プログラムリスト
- ＣＬＥＡＲ
- ＶＩＳＩＢＬＥ １，１，１，１，１，１
- ＢＧＰＡＧＥ ０
- ＳＰＰＡＧＥ ０
- ＢＧＯＦＳ ０，０，０
- ＢＧＣＬＩＰ ０，０，３１，２３
- ＢＧＭＳＴＯＰ
- ’ハイケイ クロ０ レンカ゛１ イシ２ クロ３
- ’フ゛ロック イワ４ キヒタ゛リ５ キミキ゛６ キ７
- ＠ＬＭＡＰ１
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ２２２２００２２２２００２２２２
- ＤＡＴＡ ５６５６００５６５６００５６５６
- ＤＡＴＡ ０２２００００２２００００２２０
- ＤＡＴＡ ０２２０００５６５６０００２２０
- ＤＡＴＡ ０２２００００２２００４４４２０
- ＤＡＴＡ ２２２２２２２２２２２４４４２２
- ＤＡＴＡ ４４４４４４４４４４４４４４１１
- ＤＡＴＡ １１１１１１１１１１１１１１１１
- ＤＡＴＡ ７１１１１１１１１１１１１１１１
- ＤＡＴＡ １１１１１１１１１１１１１１１１
- ＤＡＴＡ ４４４４４４４４４４４４４４４４
- ’ナシ０ コイン１ ヒ２ スタ－３
- ’カキ゛４ トヒ゛ラ５ フ゜レイヤ－６ テキ７
- ＠ＬＯＢＪ１
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ０３３００００３３００００３３０
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ００００００１１１１００１１１１
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ６０００００００００００００００
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ４１１２２１１２２１１２２１１５
- ＤＡＴＡ ００００００００００００００００
- ＠ＬＭＡＰ２
- ＤＡＴＡ ２２２２２２２２２２２２２２２２
- ＤＡＴＡ ２２２２２２２２２２２２２２２２
- ＤＡＴＡ ２７２７２７２７２７２２４４４４
- ＤＡＴＡ ２２００２２００２７００２２００
- ＤＡＴＡ ２２００２２００２７００２２００
- ＤＡＴＡ ２２２２２２２２４４４４２２２２
- ＤＡＴＡ ２２２２２２２４２２２２２２２２
- ＤＡＴＡ ２２２２２２２２２２２２２２２２
- ＤＡＴＡ ２２００２２４４２２００２２４４
- ＤＡＴＡ ２００００２４４２００００２４４
- ＤＡＴＡ ２００００２４４２００００２４４
- ＤＡＴＡ ４４４４４４４４４４４４４４４４
- ＠ＬＯＢＪ２
- ＤＡＴＡ ０４０１０１０１０００００６００
- ＤＡＴＡ ０００００００００００００００５
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ０２２２２２２２００００００００
- ＤＡＴＡ ００００００００１１１１００００
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ００００００１１００００００１１
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ００１１００００００１１００００
- ＤＡＴＡ ００２２００２２００２２００００
- ＤＡＴＡ ３０２２０３２２３０２２０３００
- ＤＡＴＡ ００００００００００００００００
- ＠ＬＭＡＰ３
- ＤＡＴＡ ０００００４４４０００００２２２
- ＤＡＴＡ ０００００２２２０００００２２２
- ＤＡＴＡ ０００７０４４４２７２７２２２２
- ＤＡＴＡ ０００１０００２２２２２２４４４
- ＤＡＴＡ ０７０１０００００２２２７２２２
- ＤＡＴＡ ０１０１００００００５６２２２２
- ＤＡＴＡ ０１０１１１１１００２２２２２２
- ＤＡＴＡ ０１０１１１５６５６２２２２２２
- ＤＡＴＡ ０１４４１１１１１１２２２２２２
- ＤＡＴＡ ４４４４１４４４４４４４４４４４
- ＤＡＴＡ ４１１１１１１１１１１１１１１４
- ＤＡＴＡ ４４４４４４４４４４４４４４４４
- ＠ＬＯＢＪ３
- ＤＡＴＡ ０００００００００１０１０００３
- ＤＡＴＡ ００００３１１０００００００００
- ＤＡＴＡ ０３００００００００００００７５
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ０００００００１１０００００００
- ＤＡＴＡ ００１１００００００００００００
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ６００００００００２０１１０２３
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ０４０００００１１１１１１１１０
- ＤＡＴＡ ００００００００００００００００
- ＠ＬＭＡＰ４
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ４４０００４４４４４４０００４４
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ４４０００４４４４４４０００４４
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ４４０００４４４４４４０００４４
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ４４０００４４４４４４０００４４
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ４４０００４４４４４４０００４４
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ４４４４４４４４４４４４４４４４
- ＠ＬＯＢＪ４
- ＤＡＴＡ ４００１００００３０００１００５
- ＤＡＴＡ ００００００２２２２００００００
- ＤＡＴＡ ０００１０００３００００１０００
- ＤＡＴＡ ００００００２２２２００００００
- ＤＡＴＡ ７００１００００３０００１００７
- ＤＡＴＡ ００００００２２２２００００００
- ＤＡＴＡ ０００１０００３００００１０００
- ＤＡＴＡ ００００００２２２２００００００
- ＤＡＴＡ ０００１００００３０００１０００
- ＤＡＴＡ ００００００２２２２００００００
- ＤＡＴＡ ０００１０００３００００１００６
- ＤＡＴＡ ００００００００００００００００
- ＠ＬＭＡＰ５
- ＤＡＴＡ １０１１１０１０１１１０１１１１
- ＤＡＴＡ ４０１０１０１０１０１０１０１０
- ＤＡＴＡ ４０１０１０００１０１０００１４
- ＤＡＴＡ ４０１０００４０１０００００１４
- ＤＡＴＡ ４０００００４０１０００００１４
- ＤＡＴＡ ４０００００４０００００４００４
- ＤＡＴＡ ４００４００４０００００４００４
- ＤＡＴＡ ４２０４０２４０００００４２０４
- ＤＡＴＡ ４２２４０２４２０４００４２２４
- ＤＡＴＡ ４２２４２２４２０４０２４２２４
- ＤＡＴＡ ４２２４２２４２２４２２４２２４
- ＤＡＴＡ ４４４４４４４４４４４４４４４４
- ＠ＬＯＢＪ５
- ＤＡＴＡ ５０００００３００００００００６
- ＤＡＴＡ ０００００００００００００００４
- ＤＡＴＡ ００００００００００００３０００
- ＤＡＴＡ １００３００００００００００００
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ １０００００１００３００１００１
- ＤＡＴＡ ００００００００００００００００
- ＤＡＴＡ ０００１００００００００１００１
- ＤＡＴＡ ００００００１０００００００００
- ＤＡＴＡ ０００００００００１００００００
- ＤＡＴＡ ７２２０２２７２２７２２０２２７
- ＤＡＴＡ ００００００００００００００００
- ＤＩＭ ＳＰＮＵＭ（１６，１６）
- ＤＩＭ ＥＮＬＩＳＴ（１６，６）
- ＤＩＭ ＭＡＰＤＡＴ（１７，１６）
- ＤＩＭ ＯＢＪＤＡＴ（１７，１６）
- ＤＩＭ ＪＭＰＤＡＴ（８）
- ＪＭＰＤＡＴ（０）＝－１６
- ＪＭＰＤＡＴ（１）＝－８
- ＪＭＰＤＡＴ（２）＝－４
- ＪＭＰＤＡＴ（３）＝０
- ＪＭＰＤＡＴ（４）＝４
- ＪＭＰＤＡＴ（５）＝８
- ＪＭＰＤＡＴ（６）＝１６
- ＪＭＰＤＡＴ（７）＝０
- ＤＩＭ ＢＧＰＡＴ（８，５）
- ＠ＬＢＧＰＡＴ
- ＤＡＴＡ ０，０，０，０，８
- ＤＡＴＡ ６４，６５，９６，９７，８
- ＤＡＴＡ ４３，４４，７５，７６，８
- ＤＡＴＡ ０，０，０，０，８
- ＤＡＴＡ １９５，１９６，２２７，２２８，８
- ＤＡＴＡ ４５，４６，４５，４６，８
- ＤＡＴＡ ４６，４７，４６，４７，８
- ＤＡＴＡ ４５，４７，４５，４７，８
- ＲＥＳＴＯＲＥ ＠ＬＢＧＰＡＴ
- ＦＯＲ Ｘ＝０ ＴＯ ８－１
- ＦＯＲ Ｙ＝０ ＴＯ ５－１
- ＲＥＡＤ Ａ
- ＢＧＰＡＴ（Ｘ，Ｙ）＝Ａ
- ＮＥＸＴ Ｙ
- ＮＥＸＴ Ｘ
- ＤＩＭ ＯＢＪＰＡＴ（８，５）
- ＠ＬＯＢＪＰＡＴ
- ＤＡＴＡ ３６，２，４，２０，０
- ＤＡＴＡ ４２，２，２，２０，０
- ＤＡＴＡ １５６，２，４，２０，０
- ＤＡＴＡ １４，１０，１，６０，０
- ＤＡＴＡ ５８，６，１，６０，０
- ＤＡＴＡ ６４，３，４，１０，０
- ＤＡＴＡ １２８，３，２，１０，０
- ＲＥＳＴＯＲＥ ＠ＬＯＢＪＰＡＴ
- ＦＯＲ Ｘ＝１ ＴＯ ８－１
- ＦＯＲ Ｙ＝０ ＴＯ ５－１
- ＲＥＡＤ Ａ
- ＯＢＪＰＡＴ（Ｘ，Ｙ）＝Ａ
- ＮＥＸＴ Ｙ
- ＮＥＸＴ Ｘ
- ＤＩＭ ＢＧＩ（５）
- ＢＧＩ（０）＝１４
- ＢＧＩ（１）＝１
- ＢＧＩ（２）＝９
- ＢＧＩ（３）＝１
- ＢＧＩ（４）＝９
- ＳＣ＝０
- ＳＴＧ＝０
- ＠ＴＩＴＬＥ
- ＣＬＳ
- ＳＰＣＬＲ
- ＧＯＳＵＢ ＠ＢＧＣＬＲ
- ＬＯＣＡＴＥ １０，８
- ＣＯＬＯＲ ３
- ＰＲＩＮＴ ”┝トレシ゛ャ－ハ゛レ－┰”
- ＬＯＣＡＴＥ １０，１４
- ＣＯＬＯＲ １３
- ＰＲＩＮＴ ”ＰＵＳＨ АＢＵＴＴＯＮ”
- ＬＯＣＡＴＥ ０，０
- ＣＯＬＯＲ １５
- ＰＲＩＮＴ ”ＳＣ：”；ＳＣ
- ＬＯＣＡＴＥ １２，０
- ＰＲＩＮＴ ”ＦＬＯＯＲ：”；ＳＴＧ＋１
- ＠ＴＩＴＬＥ１
- ＢＴＮ＝ＢＵＴＴＯＮ（）
- ＩＦ （ＢＴＮ ＡＮＤ ＆Ｈ１０）＝＝０ ＴＨＥＮ ＠ＴＩＴＬＥ１
- ＳＣ＝０
- ＲＳＴ＝３
- ＳＴＧ＝０
- ＬＶＬ＝２０
- ＠ＲＥＳＴＡＲＴ
- ＣＬＳ
- ＳＰＣＬＲ
- ＧＯＳＵＢ ＠ＢＧＣＬＲ
- ＬＯＣＡＴＥ １２，１０
- ＰＲＩＮＴ ”ＦＬＯＯＲ：”；ＳＴＧ＋１
- ＯＮ ＳＴＧ ＧＯＳＵＢ ＠ＳＴＡＧＥ１，＠ＳＴＡＧＥ２，＠ＳＴＡＧＥ３，＠ＳＴＡＧＥ４，＠ＳＴＡＧ５
- ＢＧＭＰＬＡＹ ４
- ＶＳＹＮＣ（１８０）
- ＣＬＳ
- ’ＧＯＳＵＢ ＠ＢＧＣＬＲ
- ＧＯＳＵＢ ＠ＢＧＤＲＡＷ
- ＧＯＳＵＢ ＠ＯＢＪＤＲＡＷ
- ＬＯＣＡＴＥ ０，０
- ＰＲＩＮＴ ”ＳＣ：”；ＳＣ
- ＬＯＣＡＴＥ １２，０
- ＰＲＩＮＴ ”ＦＬＯＯＲ：”；ＳＴＧ＋１
- ＳＰＳＥＴ ８，０，０，０，０，１
- ＳＰＳＥＴ ４，０，０，０，０，１
- ＧＯＳＵＢ ＠ＳＴＡＲＴ
- ＢＧＭＰＬＡＹ ＢＧＩ（ＳＴＧ）
- ＠ＬＯＯＰ１
- ＢＴＮ＝ＢＵＴＴＯＮ（）
- ＩＦ ＳＰＣＨＫ（８）＝＝ＦＡＬＳＥ ＴＨＥＮ ＧＯＳＵＢ ＠ＰＬＡＹＥＲ
- ＦＯＲ ＥＮＬ＝０ ＴＯ ＥＮ－１
- ＥＮＳＰ＝ＥＮＬＩＳＴ（ＥＮＬ，０）
- ＩＦ ＳＰＣＨＫ（ＥＮＳＰ）＝＝ＦＡＬＳＥ ＴＨＥＮ ＧＯＳＵＢ ＠ＥＮＥＭＹ
- ＩＦ ＭＫ ＜＝０ ＴＨＥＮ ＧＯＳＵＢ ＠ＥＮＨＩＴ
- ＮＥＸＴ ＥＮＬ
- ＧＯＴＯ ＠ＬＯＯＰ１
- ＠ＳＴＡＧＥ１
- ＲＥＳＴＯＲＥ ＠ＬＯＢＪ１
- ＧＯＳＵＢ ＠ＯＢＪＲＥＡＤ
- ＲＥＳＴＯＲＥ ＠ＬＭＡＰ１
- ＧＯＳＵＢ ＠ＭＡＰＲＥＡＤ
- ＲＥＴＵＲＮ
- ＠ＳＴＡＧＥ２
- ＲＥＳＴＯＲＥ ＠ＬＯＢＪ２
- ＧＯＳＵＢ ＠ＯＢＪＲＥＡＤ
- ＲＥＳＴＯＲＥ ＠ＬＭＡＰ２
- ＧＯＳＵＢ ＠ＭＡＰＲＥＡＤ
- ＲＥＴＵＲＮ
- ＠ＳＴＡＧＥ３
- ＲＥＳＴＯＲＥ ＠ＬＯＢＪ３
- ＧＯＳＵＢ ＠ＯＢＪＲＥＡＤ
- ＲＥＳＴＯＲＥ ＠ＬＭＡＰ３
- ＧＯＳＵＢ ＠ＭＡＰＲＥＡＤ
- ＲＥＴＵＲＮ
- ＠ＳＴＡＧＥ４
- ＲＥＳＴＯＲＥ ＠ＬＯＢＪ４
- ＧＯＳＵＢ ＠ＯＢＪＲＥＡＤ
- ＲＥＳＴＯＲＥ ＠ＬＭＡＰ４
- ＧＯＳＵＢ ＠ＭＡＰＲＥＡＤ
- ＲＥＴＵＲＮ
- ＠ＳＴＡＧＥ５
- ＲＥＳＴＯＲＥ ＠ＬＯＢＪ５
- ＧＯＳＵＢ ＠ＯＢＪＲＥＡＤ
- ＲＥＳＴＯＲＥ ＠ＬＭＡＰ５
- ＧＯＳＵＢ ＠ＭＡＰＲＥＡＤ
- ＲＥＴＵＲＮ
- ＠ＭＡＰＲＥＡＤ
- ＦＯＲ Ｙ＝４ ＴＯ １６－１
- ＲＥＡＤ Ａ＄
- ＦＯＲ Ｘ＝０ ＴＯ １６－１
- ＭＡＰＤＡＴ（Ｘ，Ｙ）＝ＶＡＬ（ＭＩＤ＄（Ａ＄，Ｘ，１））
- ＮＥＸＴ Ｘ
- ＮＥＸＴ Ｙ
- ＲＥＴＵＲＮ
- ＠ＯＢＪＲＥＡＤ
- ＦＯＲ Ｙ＝４ ＴＯ １６－１
- ＲＥＡＤ Ａ＄
- ＦＯＲ Ｘ＝０ ＴＯ １６－１
- ＯＢＪＤＡＴ（Ｘ，Ｙ）＝ＶＡＬ（ＭＩＤ＄（Ａ＄，Ｘ，１））
- ＮＥＸＴ Ｘ
- ＮＥＸＴ Ｙ
- ＲＥＴＵＲＮ
- ＠ＰＬＡＹＥＲ
- ＩＦ （ＢＴＮ ＡＮＤ ＆Ｈ０４）＝＝０ ＴＨＥＮ ＠ＰＬＡＹＥＲ５
- Ｘ＝Ｘ－８
- ＩＦ Ｘ＜０ ＴＨＥＮ Ｘ＝０
- ＳＰＣＨＲ ８，７２，２，０，０，１
- ＠ＰＬＡＹＥＲ５
- ＩＦ （ＢＴＮ ＡＮＤ ＆Ｈ０８）＝＝０ ＴＨＥＮ ＠ＰＬＡＹＥＲ６
- Ｘ＝Ｘ＋８
- ＩＦ Ｘ＞２５６－１６ ＴＨＥＮ Ｘ＝２５６－１６
- ＳＰＣＨＲ ８，６４，２，０，０，１
- ＠ＰＬＡＹＥＲ６
- ＩＦ ＪＭＰ＜＝６ ＴＨＥＮ ＠ＰＬＡＹＥＲ１
- Ｉ＝ＦＬＯＯＲ（Ｘ／１６）
- Ｊ＝ＦＬＯＯＲ（（Ｘ＋１５）／１６）
- Ｌ＝ＦＬＯＯＲ（Ｙ／１６）＋１＋４
- ＩＦ ＭＡＰＤＡＴ（Ｉ，Ｌ）＜４ ＯＲ ＭＡＰＤＡＴ（Ｊ，Ｌ）＜４ ＴＨＥＮ ＪＭＰ＝４
- ＩＦ （ＢＴＮ ＡＮＤ ＆Ｈ１０）！＝０ ＴＨＥＮ ＪＭＰ＝０：ＢＥＥＰ ８，０，８８
- ＠ＰＬＡＹＥＲ１
- Ｙ＝Ｙ＋ＪＭＰＤＡＴ（ＪＭＰ）
- ＩＦ ＪＭＰ＜３ ＴＨＥＮ ＠ＰＬＡＹＥＲ３
- Ｉ＝ＦＬＯＯＲ（Ｘ／１６）
- Ｊ＝ＦＬＯＯＲ（（Ｘ＋１５）／１６）
- Ｌ＝ＦＬＯＯＲ（Ｙ／１６）＋１＋４
- ＩＦ ＭＡＰＤＡＴ（Ｉ，Ｌ）＞３ ＡＮＤ ＭＡＰＤＡＴ（Ｊ，Ｌ）＞３ ＴＨＥＮ ＪＭＰ＝７：Ｙ＝ＦＬＯＯＲ（Ｙ／１６）＊１６
- ＠ＰＬＡＹＥＲ３
- ＩＦ ＪＭＰ＜６ ＴＨＥＮ ＪＭＰ＝ＪＭＰ＋１
- ＳＰＯＦＳ ８，Ｘ，Ｙ，１０
- ＳＰＯＦＳ ４，Ｘ，Ｙ，１０
- Ｉ＝ＦＬＯＯＲ（Ｘ／１６）
- Ｌ＝ＦＬＯＯＲ（Ｙ／１６）＋４
- ＯＮ ＯＢＪＤＡＴ（Ｉ，Ｌ） ＧＯＳＵＢ ＠ＰＬＡＹＥＲ４，＠ＢＯＮＵＳ，＠ＴＲＡＰ，＠ＳＴＡＲ，＠ＧＥＴＫＥＹ，＠ＤＯＯＲ，＠ＰＬＡＹＥＲ４，＠ＰＬＡＹＥＲ４
- ＠ＰＬＡＹＥＲ４
- ＩＦ ＭＫ＜＝０ ＴＨＥＮ ＠ＰＬＡＹＥＲ２
- ＩＦ ＭＫ＝＝１６ ＴＨＥＮ ＳＰＣＨＲ ４，５２，２，０，０，１：ＳＰＡＮＩＭ ４，４，１０，０
- ＭＫ＝ＭＫ－１
- ＩＦ ＭＫ＞０ ＴＨＥＮ ＠ＰＬＡＹＥＲ２
- ＳＰＣＨＲ ４，４４８，０，０，０，１
- ＳＰＡＮＩＭ ４，１，１０，０
- ＠ＰＬＡＹＥＲ２
- ＲＥＴＵＲＮ
- ＠ＢＯＮＵＳ
- ＯＢＪＤＡＴ（Ｉ，Ｌ）＝０
- ＳＰＣＬＲ ＳＰＮＵＭ（Ｉ，Ｌ）
- Ｉ＝１０
- ＧＯＳＵＢ ＠ＳＣＯＲＥ
- ＢＥＥＰ ７，０，８０
- ＲＥＴＵＲＮ
- ＠ＯＵＴ
- ＳＰＣＨＲ ８，８８，２，０，０，１
- ＳＰＡＮＩＭ ８，４，１０，２
- ＳＰＯＦＳ ８，Ｘ，Ｙ，１０
- ＢＥＥＰ １４，０，８０
- ＠ＯＵＴ１
- ＩＦ ＳＰＣＨＫ（８）＝＝ＴＲＵＥ ＴＨＥＮ ＠ＯＵＴ１
- ＳＰＯＦＳ ８，Ｘ，Ｙ，１０
- ＶＳＹＮＣ（９０）
- ＲＳＴ＝ＲＳＴ－１
- ＩＦ ＲＳＴ＜＝０ ＴＨＥＮ ＠ＯＶＥＲ
- ＲＥＴＵＲＮ
- ＠ＴＲＡＰ
- ＧＯＳＵＢ ＠ＯＵＴ
- ＧＯＳＵＢ ＠ＳＴＡＲＴ
- ＲＥＴＵＲＮ
- ＠ＳＴＡＲ
- ＯＢＪＤＡＴ（Ｉ，Ｌ）＝０
- ＳＰＣＬＲ ＳＰＮＵＭ（Ｉ，Ｌ）
- Ｉ＝５０
- ＧＯＳＵＢ ＠ＳＣＯＲＥ
- ＫＹ＝ＫＹ－１
- ＢＥＥＰ １２，０，８０
- ＲＥＴＵＲＮ
- ＠ＧＥＴＫＥＹ
- ＩＦ ＫＹ＞０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＯＢＪＤＡＴ（Ｉ，Ｌ）＝０
- ＳＰＣＬＲ ＳＰＮＵＭ（Ｉ，Ｌ）
- Ｉ＝１００
- ＧＯＳＵＢ ＠ＳＣＯＲＥ
- ＫＹ＝－１
- ＢＥＥＰ ５，０，８０
- ＲＥＴＵＲＮ
- ＠ＳＣＯＲＥ
- ＳＣ＝ＳＣ＋Ｉ
- ＬＯＣＡＴＥ ０，０
- ＰＲＩＮＴ ”ＳＣ：”；ＳＣ
- ＲＥＴＵＲＮ
- ＠ＤＯＯＲ
- ＩＦ ＫＹ＞＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｉ＝５００
- ＧＯＳＵＢ ＠ＳＣＯＲＥ
- ＬＯＣＡＴＥ １０，１０
- ＰＲＩＮＴ ” ＣＬＥＡＲИ ”
- ＢＧＭＰＬＡＹ ５
- ＳＴＧ＝ＳＴＧ＋１
- ＩＦ ＳＴＧ＜５ ＴＨＥＮ ＠ＤＯＯＲ１
- ＳＴＧ＝０
- ＬＶＬ＝１０
- ＲＳＴ＝ＲＳＴ＋１
- Ｉ＝５００
- ＧＯＳＵＢ ＠ＳＣＯＲＥ
- ＬＯＣＡＴＥ １０，１２
- ＰＲＩＮＴ ”ＡＬＬ ＣＬＥＡＲО”
- ＢＧＭＰＬＡＹ ７
- ＶＳＹＮＣ（６００）
- ＧＯＴＯ ＠ＲＥＳＴＡＲＴ
- ＠ＤＯＯＲ１
- ＶＳＹＮＣ（１２０）
- ＧＯＴＯ ＠ＲＥＳＴＡＲＴ
- ＠ＯＶＥＲ
- ＬＯＣＡＴＥ １０，１０
- ＰＲＩＮＴ ”ＧＡＭＥ ＯＶＥＲ”
- ＢＧＭＰＬＡＹ ６
- ＶＳＹＮＣ（１２０）
- ＧＯＴＯ ＠ＴＩＴＬＥ
- ＠ＳＴＡＲＴ
- ＬＯＣＡＴＥ ２５，０
- ＰＲＩＮＴ ”ＲＥＳＴ：”；ＲＳＴ
- Ｘ＝ＰＸ＊１６
- Ｙ＝ＰＹ＊１６
- ＪＭＰ＝７
- ＭＫ＝１６
- ＳＰＣＨＲ ８，６４，２，０，０，１
- ＳＰＡＮＩＭ ８，４，１０，０
- ＳＰＯＦＳ ８，Ｘ，Ｙ，１
- ＳＰＣＨＲ ４，５２，２，０，０，１
- ＳＰＡＮＩＭ ４，４，１０，０
- ＳＰＯＦＳ ４，Ｘ，Ｙ，１
- ＠ＳＴＡＲＴ１
- ＩＦ ＳＰＣＨＫ（８）＝＝ＴＲＵＥ ＴＨＥＮ ＠ＳＴＡＲＴ１
- ＲＥＴＵＲＮ
- ＠ＥＮＥＭＹ
- ＥＮＸ＝ＥＮＬＩＳＴ（ＥＮＬ，１）
- ＥＮＹ＝ＥＮＬＩＳＴ（ＥＮＬ，２）
- ＥＮＪ＝ＥＮＬＩＳＴ（ＥＮＬ，３）
- ＩＦ ＥＮＪ＜＝６ ＴＨＥＮ ＠ＥＮＥＭＹ２
- ＩＦ Ｘ＞ＥＮＸ ＴＨＥＮ ＥＮＸ＝ＥＮＸ＋８：ＳＰＣＨＲ ＥＮＳＰ，ＯＢＪＰＡＴ（７，０），ＯＢＪＰＡＴ（７，１）
- ＩＦ Ｘ＞ＥＮＸ ＴＨＥＮ ＥＮＸ＝ＥＮＸ－８：ＳＰＣＨＲ ＥＮＳＰ，ＯＢＪＰＡＴ（７，０）＋４，ＯＢＪＰＡＴ（７，１），０，０，１
- ＩＦ Ｘ＝＝ＥＮＸ ＴＨＥＮ ＥＮＪ＝０
- Ｉ＝ＦＬＯＯＲ（ＥＮＸ／１６）
- Ｌ＝ＦＬＯＯＲ（ＥＮＹ／１６）＋１＋４
- ＩＦ ＭＡＰＤＡＴ（Ｉ，Ｌ）＜４ ＴＨＥＮ ＥＮＪ＝４
- ＠ＥＮＥＭＹ２
- ＩＦ ＥＮＪ＞６ ＴＨＥＮ ＠ＥＮＥＭＹ１
- ＥＮＹ＝ＥＮＹ＋ＪＭＰＤＡＴ（ＥＮＪ）
- ＥＮＪ＝ＥＮＪ＋１
- ＠ＥＮＥＭＹ１
- ＩＦ ＥＮＪ＜４ ＴＨＥＮ ＠ＥＮＥＭＹ３
- Ｉ＝ＦＬＯＯＲ（ＥＮＸ／１６）
- Ｌ＝ＦＬＯＯＲ（ＥＮＹ／１６）＋１＋４
- ＩＦ ＭＡＰＤＡＴ（Ｉ，Ｌ）＞３ ＴＨＥＮ ＥＮＪ＝７：ＥＮＹ＝ＦＬＯＯＲ（ＥＮＹ／１６）＊１６
- ＠ＥＮＥＭＹ３
- ＳＰＯＦＳ ＥＮＳＰ，ＥＮＸ，ＥＮＹ，ＬＶＬ
- ＥＮＬＩＳＴ（ＥＮＬ，１）＝ＥＮＸ
- ＥＮＬＩＳＴ（ＥＮＬ，２）＝ＥＮＹ
- ＥＮＬＩＳＴ（ＥＮＬ，３）＝ＥＮＪ
- ＲＥＴＵＲＮ
- ＠ＥＮＨＩＴ
- ＥＮＸ＝ＥＮＬＩＳＴ（ＥＮＬ，１）
- ＥＮＹ＝ＥＮＬＩＳＴ（ＥＮＬ，２）
- ＩＦ ＥＮＸ＞＝Ｘ＋１６ ＯＲ ＥＮＸ＋１６＜＝Ｘ ＴＨＥＮ ＠ＥＮＨＩＴ１
- ＩＦ ＥＮＹ＞＝Ｙ＋１６ ＯＲ ＥＮＹ＋１６＜＝Ｙ ＴＨＥＮ ＠ＥＮＨＩＴ１
- ＧＯＳＵＢ ＠ＯＵＴ
- ＧＯＳＵＢ ＠ＳＴＡＲＴ
- ＠ＥＮＨＩＴ１
- ＲＥＴＵＲＮ
- ＠ＢＧＤＲＡＷ
- ＦＯＲ Ｙ＝０ ＴＯ １２－１
- ＦＯＲ Ｘ＝０ ＴＯ １６－１
- Ｉ＝ＭＡＰＤＡＴ（Ｘ，Ｙ＋４）
- ＢＧＰＵＴ ０，Ｘ＊２，Ｙ＊２，ＢＧＰＡＴ（Ｉ，０），ＢＧＰＡＴ（Ｉ，４），０，０
- ＢＧＰＵＴ ０，Ｘ＊２＋１，Ｙ＊２，ＢＧＰＡＴ（Ｉ，１），ＢＧＰＡＴ（Ｉ，４），０，０
- ＢＧＰＵＴ ０，Ｘ＊２，Ｙ＊２＋１，ＢＧＰＡＴ（Ｉ，２），ＢＧＰＡＴ（Ｉ，４），０，０
- ＢＧＰＵＴ ０，Ｘ＊２＋１，Ｙ＊２＋１，ＢＧＰＡＴ（Ｉ，３），ＢＧＰＡＴ（Ｉ，４），０，０
- ＮＥＸＴ Ｘ
- ＮＥＸＴ Ｙ
- ＲＥＴＵＲＮ
- ＠ＯＢＪＤＲＡＷ
- ＳＰ＝５０
- ＫＹ＝０
- ＥＮ＝０
- ＦＯＲ Ｙ＝０ ＴＯ １２－１
- ＦＯＲ Ｘ＝０ ＴＯ １６－１
- Ｉ＝ＯＢＪＤＡＴ（Ｘ，Ｙ＋４）
- ＩＦ Ｉ＝＝０ ＡＮＤ ＳＰ＜１００ ＴＨＥＮ ＠ＯＢＪＤＲＡＷ２
- ＩＦ Ｉ＝＝３ ＴＨＥＮ ＫＹ＝ＫＹ＋１
- ＩＦ Ｉ＝＝６ ＴＨＥＮ ＰＸ＝Ｘ：ＰＹ＝Ｙ：ＧＯＴＯ ＠ＯＢＪＤＲＡＷ２
- Ｌ＝ＳＰ
- Ｊ＝Ｘ
- Ｋ＝Ｙ
- ＧＯＳＵＢ ＠ＯＢＪＳＥＴ
- ＩＦ Ｉ＝＝７ ＴＨＥＮ ＧＯＳＵＢ ＠ＥＮＭＳＥＴ
- ＳＰ＝ＳＰ＋１
- ＠ＯＢＪＤＲＡＷ２
- ＮＥＸＴ Ｘ
- ＮＥＸＴ Ｙ
- ＲＥＴＵＲＮ
- ＠ＯＢＪＳＥＴ
- ＳＰＳＥＴ Ｌ，ＯＢＪＰＡＴ（Ｉ，０），ＯＢＪＰＡＴ（Ｉ，１），０，０，１
- ＳＰＡＮＩＭ Ｌ，ＯＢＪＰＡＴ（Ｉ，２），ＯＢＪＰＡＴ（Ｉ，３），０
- ＳＰＯＦＳ Ｌ，Ｊ＊１６，Ｋ＊１６，１
- ＳＰＮＵＭ（Ｊ，Ｋ＋４）＝Ｌ
- ＲＥＴＵＲＮ
- ＠ＥＮＭＳＥＴ
- ＥＮＬＩＳＴ（ＥＮ，０）＝Ｌ
- ＥＮＬＩＳＴ（ＥＮ，１）＝Ｊ＊１６
- ＥＮＬＩＳＴ（ＥＮ，２）＝Ｋ＊１６
- ＥＮＬＩＳＴ（ＥＮ，３）＝７
- ＥＮ＝ＥＮ＋１
- ＲＥＴＵＲＮ
- ＠ＢＧＣＬＲ
- ＦＯＲ Ｙ＝０ ＴＯ ６３
- ＦＯＲ Ｘ＝０ ＴＯ ６３
- ＢＧＰＵＴ ０，Ｘ，Ｙ，０，０，０，０
- ＮＥＸＴ Ｘ
- ＮＥＸＴ Ｙ
- ＲＥＴＵＲＮ
