COSMIC BLASTER by たけぽん
最初にサンプル動画を撮ったらあまりのスピードにコマ落ちしすぎて使い物にならなかったという、トンデモないハイスピードシューティング（そこでサンプル動画ではフレームレートを思いきり落として撮影している。ゴメン！）。
操作は十字ボタンで移動、Ａボタンでショット。ノーミスで「Ｐ」のパワーカプセルを取り続けると３段階までショットがパワーアップするぞ。
「Ｂ」のボーナスカプセルもノーミス・連続で取ればボーナス点が上昇。ハイスコアを目指せ！
私が作りました
たけぽん
BASICだけでここまで遊べるゲームが作れるなんて、昔の８ビットのマイコンでは考えられないことでした。
ゲームでスピードを出すためにはマシン語を使いましたが、複雑な計算ができませんでした。
25〜30年くらい前にプチコンがあったら、もっといろいろゲームを作ったんだろうなと思います（私はいわゆるマイコン少年でしたが、結局コンピューター関係の仕事には進みませんでした。プチコンにはまるのは、その反動かも……）。
CHECK POiNT 
前回はゲーム性が薄かったけど、今回はすごく本格的だね。ボスキャラまでいるよ！
システムはシンプルだが、敵の動きがランダムじゃなくて個性があるのがポイントだな。ウマく早めに叩き落としてラクにするのがゲーム性になってるゼ！
ここまで完成度が高いと、ワシも言うことがなかなかないのう。プチコンの機能はすでに使いこなしておるわけじゃから、次は処理落ちを避けるようにプログラム、ゲームシステムを応用して考えてみるのがいいかもしれん。
プログラムリスト
- ’ＣＯＳＭＩＣ ＢＬＡＳＴＥＲ И ｂｙ タケホ゜ン И
- ＣＬＳ：ＣＬＥＡＲ：ＶＩＳＩＢＬＥ １，１，１，１，１，０
- ＢＧＰＡＧＥ ０：ＢＧＣＬＩＰ ０，０，３１，２３
- ＳＰＰＡＧＥ ０：ＨＩ＝１０００：ＧＯＳＵＢ ＠ＢＧＣＬ
- ＧＯＳＵＢ ＠ＢＧＳＴＡＲ
- ＧＯＳＵＢ ＠ＣＹＡＲＡ
- ＤＩＭ ＧＲ（４），ＧＮ（４），ＧＤ（３５），ＧＫ（３５）
- ＤＩＭ ＧＪ（３５），ＧＸ（３５），ＧＹ（３５）
- ＤＩＭ ＧＢ（３５），ＧＨ（３５），ＧＬ（３５）
- ＤＩＭ ＴＤ（１７），ＴＸ（１７），ＴＹ（１７）
- ＤＩＭ ＴＷ（１７）
- ＤＩＭ ＥＤ（２１），ＥＸ（２１），ＥＹ（２１）
- ＤＩＭ ＥＭ（２１），ＥＮ（２１），ＥＳ（２１）
- ＦＯＲ Ｉ＝０ ＴＯ ７０：ＳＰＣＬＲ Ｉ：ＮＥＸＴ
- ＦＯＲ Ｊ＝１１ ＴＯ ３４
- ＳＰＳＥＴ Ｊ，１４０，５，０，０，１：ＮＥＸＴ
- ＳＰＳＥＴ ０，１７６，２，０，０，１
- ＦＯＲ Ｋ＝１ ＴＯ １２
- ＳＰＳＥＴ Ｋ＋８０，１９０，２，０，０，０：ＮＥＸＴ
- ＦＯＲ Ｋ＝１ ＴＯ ２０
- ＳＰＳＥＴ Ｋ＋５０，２１４，２，０，０，０：ＮＥＸＴ
- ＳＰＳＥＴ ８０，２３２，２，０，０，０
- ＠ＳＴＡＲＴ１
- ＣＬＳ：ＳＣ＝０：ＲＯ＝１：ＬＩ＝１：ＶＬ＝２：ＰＤ＝０
- ＢＧＬ１＝３２０：ＢＧＸ１＝１２８：ＬＴ＝０
- ＢＧＬ２＝３２０：ＢＧＸ２＝１２８：ＵＰ＝０
- ＦＯＲ Ｋ＝１１ ＴＯ ３４：ＧＤ（Ｋ）＝０
- ＳＰＯＦＳ Ｋ，０，－３２：ＮＥＸＴ
- ＦＯＲ Ｋ＝１ ＴＯ １２：ＴＤ（Ｋ）＝０
- ＳＰＯＦＳ Ｋ＋８０，０，－３２：ＮＥＸＴ
- ＦＯＲ Ｋ＝１ ＴＯ ２０：ＥＤ（Ｋ）＝０
- ＳＰＯＦＳ Ｋ＋５０，０，－３２：ＮＥＸＴ
- ＳＰＯＦＳ ８０，０，－３２
- ＠ＳＴＡＲＴ２
- ＬＫ＝３０：ＬＨ＝０：ＳＰＣＨＲ ０，１７６
- ＳＰＡＮＩＭ ０，２，５０，０：ＳＰＡＮＧＬＥ ０，９０
- ＳＰＯＦＳ ０，ＶＸ＋８，ＶＹ－８
- ＠ＳＴＡＲＴ３
- ＣＯＬＯＲ ０：ＩＦ ＬＴ＞０ ＴＨＥＮ ＠ＳＴＡ３
- ＢＧＭＰＬＡＹ １３：ＧＯＴＯ ＠ＳＴＡ５
- ＠ＳＴＡ３
- ＢＧＭＰＬＡＹ ２
- ＠ＳＴＡ５
- ＬＯＣＡＴＥ ０，０：？”ＳＣＯＲＥ”
- ＧＯＳＵＢ ＠ＤＲＡＷＳＣ：ＬＯＣＡＴＥ ２１，０
- ？”ＨＩＧＨ”：ＧＯＳＵＢ ＠ＤＲＡＷＨＩ
- ＧＯＳＵＢ ＠ＤＲＡＷＶＬ：ＣＯＬＯＲ １３
- ＶＸ＝１２８：ＶＹ＝１２０：ＴＫ＝１：ＴＰ＝０：ＬＨ＝０
- ＶＤ＝０：ＥＫ＝０：ＪＫ＝０：ＶＰ＝０：ＰＪ＝８
- ＰＨ＝１００：ＬＯＣＡＴＥ １３，８：？”ＲＥＡＤＹ！”
- ＠ＳＴＡＲＴ４
- ＧＯＳＵＢ ＠ＫＥＹＩＮ
- ＧＯＳＵＢ ＠ＪＩＭＯＶＥ
- ＧＯＳＵＢ ＠ＭＳＴＡＲＴ
- ＧＯＳＵＢ ＠ＭＭＯＶＥ
- ＧＯＳＵＢ ＠ＴＭＯＶＥ
- ＧＯＳＵＢ ＠ＥＭＯＶＥ
- ＧＯＳＵＢ ＠ＰＭＯＶＥ
- ＧＯＳＵＢ ＠ＳＣＲＯＬＬ：ＶＳＹＮＣ ２：ＪＫ＝ＪＫ＋１
- ＩＦ ＪＫ＜１００ ＴＨＥＮ ＠ＳＴＡＲＴ４
- ＶＤ＝０：ＬＯＣＡＴＥ １３，８：？” ”
- ＠ＭＡＩＮ
- ＧＯＳＵＢ ＠ＴＳＴＡＲＴ
- ＧＯＳＵＢ ＠ＫＥＹＩＮ
- ＧＯＳＵＢ ＠ＪＩＭＯＶＥ
- ＧＯＳＵＢ ＠ＭＳＴＡＲＴ
- ＧＯＳＵＢ ＠ＭＭＯＶＥ
- ＩＦ ＶＰ＝＝２ ＡＮＤ ＴＨ＝＝１ ＴＨＥＮ ＠ＭＡＩ２
- ＶＳＹＮＣ １
- ＠ＭＡＩ２
- ＧＯＳＵＢ ＠ＴＭＯＶＥ
- ＧＯＳＵＢ ＠ＥＳＴＡＲＴ
- ＧＯＳＵＢ ＠ＥＭＯＶＥ
- ＧＯＳＵＢ ＠ＰＳＴＡＲＴ
- ＧＯＳＵＢ ＠ＰＭＯＶＥ
- ＧＯＳＵＢ ＠ＳＣＲＯＬＬ
- ＩＦ ＶＤ＝＝１ ＴＨＥＮ ＠ＤＩＥ
- ＶＳＹＮＣ １：ＧＯＴＯ ＠ＭＡＩＮ
- ＠ＴＳＴＡＲＴ
- ＩＦ ＬＨ＝＝１ ＴＨＥＮ ＠ＴＳＨ
- ＬＫ＝ＬＫ－１：ＩＦ ＬＫ＞０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＬＫ＝１００－ＬＩ
- ＠ＴＳ２
- ＬＨ＝１：ＬＪ＝１：ＬＬ＝０
- ＠ＴＳＨ
- ＬＬ＝ＬＬ－１：ＩＦ ＬＬ＞０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＬＬ＝１２：Ｐ＝ＬＩ（ＬＩ）：Ｊ＝１１
- ＠ＴＳ３
- ＩＦ ＧＤ（Ｊ）＝＝０ ＴＨＥＮ ＠ＴＳ４
- Ｊ＝Ｊ＋１：ＩＦ Ｊ＜３５ ＴＨＥＮ ＠ＴＳ３
- ＲＥＴＵＲＮ
- ＠ＴＳ４
- ＧＤ（Ｊ）＝１：ＧＫ（Ｊ）＝０
- ＧＢ（Ｊ）＝Ｐ：ＧＬ（Ｊ）＝１：ＧＨ（Ｊ）＝１
- ＩＦ Ｐ＜１２ ＯＲ Ｐ＞１４ ＴＨＥＮ ＠ＴＳ７
- ＧＬ（Ｊ）＝－１
- ＠ＴＳ７
- ＩＦ ＶＸ＜１２８ ＴＨＥＮ ＧＨ（Ｊ）＝－１
- ＧＯＳＵＢ ＠ＴＩＣＨＩ
- ＳＰＣＨＲ Ｊ，ＢＴ（Ｐ），ＢＰ（Ｐ），０，０，１
- ＳＰＡＮＩＭ Ｊ，ＢＡ（Ｐ），５，０
- ＳＰＯＦＳ Ｊ，ＧＸ（Ｊ）－８，ＧＹ（Ｊ）－８
- ＩＦ Ｐ＜１５ ＴＨＥＮ ＠ＴＳ８
- ＬＫ＝６００－ＬＩ：ＳＰＳＣＡＬＥ Ｊ，２００
- ＢＧＭＰＬＡＹ ２
- ＬＢ＝１：ＬＴ＝ＬＩ／２＋２０：ＧＯＴＯ ＠ＴＳ６
- ＠ＴＳ８
- ＳＰＳＣＡＬＥ Ｊ，１００
- ＬＪ＝ＬＪ＋１：ＩＦ ＬＪ＜９ ＴＨＥＮ ＲＥＴＵＲＮ
- ＠ＴＳ６
- ＬＩ＝ＬＩ＋１：ＬＨ＝０
- ＩＦ ＬＩ＜４８ ＴＨＥＮ ＲＥＴＵＲＮ
- ＬＩ＝１：ＲＯ＝ＲＯ＋１：ＲＥＴＵＲＮ
- ＠ＴＭＯＶＥ
- Ｏ＝１１
- ＠ＴＭＳ
- ＩＦ ＧＤ（Ｏ）＝＝０ ＴＨＥＮ ＠ＴＭ０
- ＩＦ ＧＤ（Ｏ）＝＝２ ＴＨＥＮ ＠ＴＭ２
- ＩＦ ＧＤ（Ｏ）＞２ ＴＨＥＮ ＠ＴＭ３
- ＧＫ（Ｏ）＝ＧＫ（Ｏ）＋２
- ＩＦ ＧＫ（Ｏ）＜３６０ ＴＨＥＮ ＠ＴＭ９
- ＩＦ ＧＢ（Ｏ）＜１５ ＴＨＥＮ ＠ＴＭ１
- ＧＫ（Ｏ）＝０
- ＠ＴＭ９
- Ｐ＝ＢＩ（ＧＢ（Ｏ））：Ｊ＝Ｏ：ＧＯＳＵＢ ＠ＴＩＣＨＩ
- ＳＰＯＦＳ Ｏ，ＧＸ（Ｏ）－８，ＧＹ（Ｏ）－８：Ｕ＝１
- ＠ＴＭ８
- ＩＦ ＴＤ（Ｕ）！＝１ ＴＨＥＮ ＠ＴＭ７
- ＩＦ ＧＸ（Ｏ）＞ＴＸ（Ｕ）＋８ ＴＨＥＮ ＠ＴＭ７
- ＩＦ ＧＸ（Ｏ）＜ＴＸ（Ｕ）－８ ＴＨＥＮ ＠ＴＭ７
- ＩＦ ＧＹ（Ｏ）＞ＴＹ（Ｕ）＋８ ＴＨＥＮ ＠ＴＭ７
- ＩＦ ＧＹ（Ｏ）＜ＴＹ（Ｕ）－８ ＴＨＥＮ ＠ＴＭ７
- ＩＦ ＧＢ（Ｏ）＞１４ ＴＨＥＮ ＠ＴＭ６
- ＧＤ（Ｏ）＝２
- ＠ＴＭ４
- ＴＤ（Ｕ）＝０：ＳＰＯＦＳ Ｕ＋８０，０，－３２
- ＠ＴＭ７
- Ｕ＝Ｕ＋１：ＩＦ Ｕ＜１３ ＴＨＥＮ ＠ＴＭ８
- ＩＦ ＧＸ（Ｏ）＞ＶＸ＋８ ＴＨＥＮ ＠ＴＭ０
- ＩＦ ＧＸ（Ｏ）＜ＶＸ－８ ＴＨＥＮ ＠ＴＭ０
- ＩＦ ＧＹ（Ｏ）＞ＶＹ＋８ ＴＨＥＮ ＠ＴＭ０
- ＩＦ ＧＹ（Ｏ）＜ＶＹ－８ ＴＨＥＮ ＠ＴＭ０
- ＶＤ＝１
- ＠ＴＭ０
- Ｏ＝Ｏ＋１：ＩＦ Ｏ＜３５ ＴＨＥＮ ＠ＴＭＳ
- ＲＥＴＵＲＮ
- ＠ＴＭ１
- ＧＤ（Ｏ）＝０：ＳＰＯＦＳ Ｏ，０，－３２
- ＧＯＴＯ ＠ＴＭ０
- ＠ＴＭ２
- ＢＥＥＰ １２：ＳＣ＝ＳＣ＋１：ＧＯＳＵＢ ＠ＤＲＡＷＳＣ
- ＰＪ＝ＰＪ＋１：ＳＰＣＨＲ Ｏ，２４８，３，０，０，０
- ＳＰＡＮＩＭ Ｏ，８，５，１：ＧＤ（Ｏ）＝３
- ＧＯＴＯ ＠ＴＭ０
- ＠ＴＭ３
- ＧＤ（Ｏ）＝ＧＤ（Ｏ）＋１
- ＩＦ ＧＤ（Ｏ）＜１２ ＴＨＥＮ ＠ＴＭ０
- ＧＯＴＯ ＠ＴＭ１
- ＠ＴＩＣＨＩ
- ＩＦ Ｐ＞１５ ＴＨＥＮ ＠ＴＩ３
- ＩＦ Ｐ＞９ ＴＨＥＮ ＠ＴＩ２
- ＠ＴＩ１
- Ｚ＝Ｐ＊０．５：Ｋ＝ＧＫ（Ｊ）：Ｃ１＝Ｚ＊Ｋ
- Ｃ＝Ｃ１－ＦＬＯＯＲ（Ｃ１／３６０）＊３６０
- Ｓ＝ＳＩＮ（ＲＡＤ（Ｋ））：Ｃ２＝ＣＯＳ（ＲＡＤ（Ｃ））
- ＧＸ（Ｊ）＝－Ｓ＊Ｃ２＊１２０＊ＧＨ（Ｊ）＋１２８
- ＧＹ（Ｊ）＝－ＣＯＳ（ＲＡＤ（Ｋ））＊Ｃ２＊８８＋９６
- ＲＥＴＵＲＮ
- ＠ＴＩ２
- Ｚ＝０．５：ＩＦ Ｐ＞１１ ＴＨＥＮ Ｚ＝１．５
- ＩＦ Ｐ＞１３ ＴＨＥＮ Ｚ＝２．５
- Ｋ＝ＧＫ（Ｊ）：Ｃ１＝Ｚ＊Ｋ
- Ｃ＝Ｃ１－ＦＬＯＯＲ（Ｃ１／３６０）＊３６０
- Ｃ２＝ＣＯＳ（ＲＡＤ（Ｃ））：Ｓ＝ＣＯＳ（ＲＡＤ（Ｋ））
- ＧＸ（Ｊ）＝－Ｃ２＊１２０＊ＧＨ（Ｊ）＋１２８
- ＧＹ（Ｊ）＝－Ｓ＊８８＊ＧＬ（Ｊ）＋９６
- ＲＥＴＵＲＮ
- ＠ＴＩ３
- Ｚ＝１．５：ＩＦ Ｐ＝＝１７ ＴＨＥＮ Ｚ＝２
- ＩＦ Ｐ＝＝１８ ＴＨＥＮ Ｚ＝３
- Ｋ＝ＧＫ（Ｊ）：Ｃ１＝Ｚ＊Ｋ
- Ｃ＝Ｃ１－ＦＬＯＯＲ（Ｃ１／３６０）＊３６０
- Ｓ＝ＳＩＮ（ＲＡＤ（Ｃ））
- ＧＸ（Ｊ）＝Ｓ＊８０＊ＧＨ（Ｊ）＋１２８
- ＧＹ（Ｊ）＝（Ｋ／１８０－１）＊８８＋９６
- ＲＥＴＵＲＮ
- ＠ＫＥＹＩＮ
- ＴＲ＝ＢＵＴＴＯＮ（）
- ＩＦ ＴＲ ＡＮＤ ４ ＴＨＥＮ ＶＸ＝ＶＸ－８
- ＩＦ ＴＲ ＡＮＤ ８ ＴＨＥＮ ＶＸ＝ＶＸ＋８
- ＩＦ ＴＲ ＡＮＤ １ ＴＨＥＮ ＶＹ＝ＶＹ－８
- ＩＦ ＴＲ ＡＮＤ ２ ＴＨＥＮ ＶＹ＝ＶＹ＋８
- ＴＨ＝０：ＩＦ ＴＲ ＡＮＤ １６ ＴＨＥＮ ＴＨ＝１
- ＩＦ ＶＸ＜８ ＴＨＥＮ ＶＸ＝８
- ＩＦ ＶＸ＞２４８ ＴＨＥＮ ＶＸ＝２４８
- ＩＦ ＶＹ＜１６ ＴＨＥＮ ＶＹ＝１６
- ＩＦ ＶＹ＞１８４ ＴＨＥＮ ＶＹ＝１８４
- ＩＦ ＴＲ ＡＮＤ １０２４ ＴＨＥＮ ＠ＫＥＹ１
- ＲＥＴＵＲＮ
- ＠ＫＥＹ１
- ＴＲ＝ＢＵＴＴＯＮ（）
- ＩＦ ＴＲ！＝０ ＴＨＥＮ ＠ＫＥＹ１
- ＠ＫＥＹ２
- ＴＲ＝ＢＵＴＴＯＮ（）
- ＩＦ ＴＲ！＝１０２４ ＴＨＥＮ ＠ＫＥＹ２
- ＶＳＹＮＣ １０：ＲＥＴＵＲＮ
- ＠ＪＩＭＯＶＥ
- ＳＰＯＦＳ ０，ＶＸ＋８，ＶＹ－８：ＲＥＴＵＲＮ
- ＠ＭＳＴＡＲＴ
- ＩＦ ＴＫ＞０ ＴＨＥＮ ＴＫ＝ＴＫ－１：ＲＥＴＵＲＮ
- ＩＦ ＴＨ！＝１ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｊ＝１：ＴＫ＝４
- ＠ＭＳ２
- Ｋ＝１
- ＠ＭＳ０
- ＩＦ ＴＤ（Ｋ）＝＝０ ＴＨＥＮ ＠ＭＳ１
- Ｋ＝Ｋ＋１：ＩＦ Ｋ＜１３ ＴＨＥＮ ＠ＭＳ０
- ＲＥＴＵＲＮ
- ＠ＭＳ１
- ＴＤ（Ｋ）＝１：ＴＹ（Ｋ）＝ＶＹ
- ＩＦ ＶＰ＞０ ＴＨＥＮ ＠ＭＳ３
- ＴＸ（Ｋ）＝ＶＸ：ＴＷ（Ｋ）＝０：ＲＥＴＵＲＮ
- ＠ＭＳ３
- ＩＦ Ｊ＞１ ＴＨＥＮ ＠ＭＳ４
- ＴＸ（Ｋ）＝ＶＸ－４：ＴＷ（Ｋ）＝０：ＧＯＴＯ ＠ＭＳ８
- ＠ＭＳ４
- ＩＦ Ｊ＞２ ＴＨＥＮ ＠ＭＳ６
- ＴＸ（Ｋ）＝ＶＸ＋４：ＴＷ（Ｋ）＝０：ＧＯＴＯ ＠ＭＳ８
- ＠ＭＳ６
- ＩＦ Ｊ＞３ ＴＨＥＮ ＠ＭＳ７
- ＴＸ（Ｋ）＝ＶＸ：ＴＷ（Ｋ）＝－８：ＧＯＴＯ ＠ＭＳ８
- ＠ＭＳ７
- ＴＸ（Ｋ）＝ＶＸ：ＴＷ（Ｋ）＝８：ＲＥＴＵＲＮ
- ＠ＭＳ８
- Ｊ＝Ｊ＋１
- ＩＦ Ｊ＞２ ＡＮＤ ＶＰ＝＝１ ＴＨＥＮ ＲＥＴＵＲＮ
- ＧＯＴＯ ＠ＭＳ２
- ＠ＭＭＯＶＥ
- ＦＯＲ Ｋ＝１ ＴＯ １２
- ＩＦ ＴＤ（Ｋ）！＝１ ＴＨＥＮ ＠ＭＭ０
- ＴＸ（Ｋ）＝ＴＸ（Ｋ）＋ＴＷ（Ｋ）
- ＴＹ（Ｋ）＝ＴＹ（Ｋ）－１２
- ＳＰＯＦＳ Ｋ＋８０，ＴＸ（Ｋ）－７，ＴＹ（Ｋ）－８
- ＩＦ ＴＹ（Ｋ）＜０ ＴＨＥＮ ＠ＭＭ３
- Ｊ＝１１
- ＠ＭＭ１
- ＩＦ ＧＤ（Ｊ）！＝１ ＴＨＥＮ ＠ＭＭ２
- ＩＦ ＴＸ（Ｋ）＞ＧＸ（Ｊ）＋１６ ＴＨＥＮ ＠ＭＭ７
- ＩＦ ＴＸ（Ｋ）＜ＧＸ（Ｊ）－１６ ＴＨＥＮ ＠ＭＭ７
- ＩＦ ＴＹ（Ｋ）＞ＧＹ（Ｊ）＋１６ ＴＨＥＮ ＠ＭＭ７
- ＩＦ ＴＹ（Ｋ）＜ＧＹ（Ｊ）－１６ ＴＨＥＮ ＠ＭＭ７
- ＩＦ ＧＢ（Ｊ）＞１４ ＴＨＥＮ ＠ＭＭＢ
- ＠ＭＭ７
- ＩＦ ＴＸ（Ｋ）＞ＧＸ（Ｊ）＋８ ＴＨＥＮ ＠ＭＭ２
- ＩＦ ＴＸ（Ｋ）＜ＧＸ（Ｊ）－８ ＴＨＥＮ ＠ＭＭ２
- ＩＦ ＴＹ（Ｋ）＞ＧＹ（Ｊ）＋８ ＴＨＥＮ ＠ＭＭ２
- ＩＦ ＴＹ（Ｋ）＜ＧＹ（Ｊ）－８ ＴＨＥＮ ＠ＭＭ２
- ＧＤ（Ｊ）＝２
- ＠ＭＭ４
- ＴＤ（Ｋ）＝０：ＳＰＯＦＳ Ｋ＋８０，０，－３２
- ＠ＭＭ２
- Ｊ＝Ｊ＋１：ＩＦ Ｊ＜３５ ＴＨＥＮ ＠ＭＭ１
- ＠ＭＭ０
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＭＭ３
- ＴＤ（Ｋ）＝０：ＳＰＯＦＳ Ｋ＋８０，０，－３２
- ＧＯＴＯ ＠ＭＭ０
- ＠ＭＭＢ
- Ｂ＝ＧＢ（Ｊ）：ＬＴ＝ＬＴ－１
- ＩＦ ＬＴ！＝４ ＴＨＥＮ ＠ＭＭ８
- ＳＰＣＨＲ Ｊ，ＢＴ（Ｂ），ＢＹ（Ｂ），０，０，１
- ＳＰＡＮＩＭ Ｊ，ＢＡ（Ｂ），５，０
- ＠ＭＭ８
- ＢＥＥＰ １１：ＩＦ ＬＴ＞０ ＴＨＥＮ ＠ＭＭ４
- ＳＣ＝ＳＣ＋ＬＩ＊１５：ＢＥＥＰ １３：ＬＫ＝５０
- ＧＤ（Ｊ）＝２：ＢＧＭＰＬＡＹ １３：ＧＯＴＯ ＠ＭＭ４
- ＠ＴＭ６
- Ｂ＝ＧＢ（Ｏ）：ＬＴ＝ＬＴ－１
- ＩＦ ＬＴ！＝４ ＴＨＥＮ ＠ＴＭ６１
- ＳＰＣＨＲ Ｏ，ＢＴ（Ｂ），ＢＹ（Ｂ），０，０，１
- ＳＰＡＮＩＭ Ｏ，ＢＡ（Ｂ），５，０
- ＠ＴＭ６１
- ＢＥＥＰ １１：ＩＦ ＬＴ＞０ ＴＨＥＮ ＠ＴＭ４
- ＳＣ＝ＳＣ＋ＬＩ＊１５：ＢＥＥＰ １３：ＬＫ＝５０
- ＧＤ（Ｏ）＝２：ＢＧＭＰＬＡＹ １３：ＧＯＴＯ ＠ＴＭ４
- ＠ＥＳＴＡＲＴ
- ＥＫ＝ＥＫ＋１
- ＩＦ ＥＫ＜（２８－ＲＯ＊８） ＴＨＥＮ ＲＥＴＵＲＮ
- Ｊ＝（ＬＩ＋４）／１０＋ＲＮＤ（５）＋ＲＯ
- ＩＦ Ｊ＜６ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｋ＝１：ＥＫ＝０
- ＠ＥＳ１
- ＩＦ ＥＤ（Ｋ）＝＝０ ＴＨＥＮ ＠ＥＳ２
- Ｋ＝Ｋ＋１：ＩＦ Ｋ＜２１ ＴＨＥＮ ＠ＥＳ１
- ＲＥＴＵＲＮ
- ＠ＥＳ２
- Ｊ＝０：Ｉ＝ＲＮＤ（２４）＋１１
- ＠ＥＳ３
- ＩＦ ＧＤ（Ｉ）＝＝１ ＴＨＥＮ ＠ＥＳ５
- Ｊ＝Ｊ＋１：Ｉ＝Ｉ＋１
- ＩＦ Ｊ＞２４ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ Ｉ＞３４ ＴＨＥＮ Ｉ＝１１
- ＧＯＴＯ ＠ＥＳ３
- ＠ＥＳ５
- ＥＤ（Ｋ）＝１：ＥＸ（Ｋ）＝ＧＸ（Ｉ）
- ＥＹ（Ｋ）＝ＧＹ（Ｉ）
- Ｊ＝（ＬＩ＋４）／２０＋ＲＮＤ（５）－４＋ＲＯ
- ＩＦ Ｊ＜１ ＴＨＥＮ Ｊ＝１
- ＥＳ（Ｋ）＝Ｊ：Ｍ＝ＶＸ－ＥＸ（Ｋ）：Ｎ＝ＶＹ－ＥＹ（Ｋ）
- Ａ＝ＳＱＲ（Ｍ＊Ｍ＋Ｎ＊Ｎ）
- ＩＦ Ａ＝＝０ ＴＨＥＮ Ａ＝１
- ＥＭ（Ｋ）＝Ｍ＊２＊Ｊ／Ａ：ＥＮ（Ｋ）＝Ｎ＊２＊Ｊ／Ａ
- ＲＥＴＵＲＮ
- ＠ＥＭＯＶＥ
- ＦＯＲ Ｋ＝１ ＴＯ ２０
- ＩＦ ＥＤ（Ｋ）！＝１ ＴＨＥＮ ＠ＥＭ８
- ＥＸ（Ｋ）＝ＥＸ（Ｋ）＋ＥＭ（Ｋ）
- ＥＹ（Ｋ）＝ＥＹ（Ｋ）＋ＥＮ（Ｋ）
- ＳＰＯＦＳ Ｋ＋５０，ＥＸ（Ｋ）－８，ＥＹ（Ｋ）－８
- ＩＦ ＥＸ（Ｋ）＞ＶＸ＋６ ＴＨＥＮ ＠ＥＭ１
- ＩＦ ＥＸ（Ｋ）＜ＶＸ－６ ＴＨＥＮ ＠ＥＭ１
- ＩＦ ＥＹ（Ｋ）＞ＶＹ＋６ ＴＨＥＮ ＠ＥＭ１
- ＩＦ ＥＹ（Ｋ）＜ＶＹ－６ ＴＨＥＮ ＠ＥＭ１
- ＶＤ＝１
- ＠ＥＭ１
- ＩＦ ＥＸ（Ｋ）＜０ ＴＨＥＮ ＠ＥＭ２
- ＩＦ ＥＸ（Ｋ）＞２５６ ＴＨＥＮ ＠ＥＭ２
- ＩＦ ＥＹ（Ｋ）＜０ ＴＨＥＮ ＠ＥＭ２
- ＩＦ ＥＹ（Ｋ）＞１９２ ＴＨＥＮ ＠ＥＭ２
- ＠ＥＭ８
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＥＭ２
- ＥＤ（Ｋ）＝０：ＳＰＯＦＳ Ｋ＋５０，０，－３２
- ＧＯＴＯ ＠ＥＭ８
- ＠ＰＳＴＡＲＴ
- ＩＦ ＰＤ＞０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＰＪ＜２０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＰＪ＝０：ＰＫ＝０
- ＩＦ ＶＰ＜２ ＴＨＥＮ ＠ＰＳ１
- ＳＰＣＨＲ ８０，２３４，３，０，０，０
- ＳＰＡＮＩＭ ８０，２，５，０：ＰＤ＝２：ＲＥＴＵＲＮ
- ＠ＰＳ１
- ＰＤ＝１：ＳＰＣＨＲ ８０，２３２，１３，０，０，０
- ＳＰＡＮＩＭ ８０，２，５，０：ＲＥＴＵＲＮ
- ＠ＰＭＯＶＥ
- ＩＦ ＰＤ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＰＤ＞２ ＴＨＥＮ ＠ＰＭ６
- Ｚ＝２．５：ＰＫ＝ＰＫ＋３：Ｃ１＝Ｚ＊ＰＫ
- Ｃ＝Ｃ１－ＦＬＯＯＲ（Ｃ１／３６０）＊３６０
- ＰＸ＝－ＳＩＮ（ＲＡＤ（Ｃ））＊４０＋１２８
- ＰＹ＝（ＰＫ／１８０－１）＊８８＋９６
- ＳＰＯＦＳ ８０，ＰＸ，ＰＹ
- ＩＦ ＰＫ＞＝３６６ ＴＨＥＮ ＠ＰＭ５
- ＩＦ ＰＸ＞ＶＸ＋１２ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＰＸ＜ＶＸ－１２ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＰＹ＞ＶＹ＋１２ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＰＹ＜ＶＹ－１２ ＴＨＥＮ ＲＥＴＵＲＮ
- ＠ＰＭ３
- ＩＦ ＰＤ＝＝１ ＴＨＥＮ ＠ＰＭ４
- ＳＣ＝ＳＣ＋ＰＨ：ＧＯＳＵＢ ＠ＤＲＡＷＳＣ
- ＣＯＬＯＲ ９：ＬＯＣＡＴＥ ＰＸ／８－１，ＰＹ／８
- ？ＰＨ；”０”；：ＢＥＥＰ ７：ＰＨ＝ＰＨ＊２
- ＩＦ ＰＨ＞６４００ ＴＨＥＮ ＰＨ＝６４００
- ＳＰＯＦＳ ８０，０，－３２：ＰＫ＝０：ＰＤ＝３
- ＲＥＴＵＲＮ
- ＠ＰＭ４
- ＶＰ＝ＶＰ＋１：ＢＥＥＰ ３６
- ＰＤ＝０：ＳＰＯＦＳ ８０，０，－３２：ＲＥＴＵＲＮ
- ＠ＰＭ５
- ＰＤ＝０：ＰＨ＝１００：ＳＰＯＦＳ ８０，０，－３２
- ＲＥＴＵＲＮ
- ＠ＰＭ６
- ＰＫ＝ＰＫ＋１：ＩＦ ＰＫ＜５０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＬＯＣＡＴＥ ＰＸ／８－１，ＰＹ／８：？” ”；
- ＰＤ＝０：ＲＥＴＵＲＮ
- ＠ＤＩＥ
- ＩＦ ＶＰ＝＝０ ＴＨＥＮ ＠ＤＩ０
- ＶＰ＝ＶＰ－１：ＢＥＥＰ １１：ＶＤ＝０：ＰＨ＝１００
- ＧＯＴＯ ＠ＭＡＩＮ
- ＠ＤＩ０
- ＢＥＥＰ １３：ＳＰＣＨＲ ０，２４８
- ＳＰＡＮＩＭ ０，８，１０，０：ＫＪ＝０
- ＠ＤＩ１
- ＧＯＳＵＢ ＠ＴＭＯＶＥ
- ＧＯＳＵＢ ＠ＥＭＯＶＥ
- ＧＯＳＵＢ ＠ＭＭＯＶＥ
- ＧＯＳＵＢ ＠ＰＭＯＶＥ
- ＧＯＳＵＢ ＠ＳＣＲＯＬＬ
- ＶＳＹＮＣ ２
- ＫＪ＝ＫＪ＋１：ＩＦ ＫＪ＜７０ ＴＨＥＮ ＠ＤＩ１
- ＶＬ＝ＶＬ－１：ＩＦ ＶＬ＞＝０ ＴＨＥＮ ＠ＳＴＡＲＴ２
- ＣＯＬＯＲ １３：ＬＯＣＡＴＥ １１，９
- ？”ＧＡＭＥ ＯＶＥＲ”：ＢＧＭＰＬＡＹ ２４
- ＩＦ ＳＣ＞ＨＩ ＴＨＥＮ ＨＩ＝ＳＣ
- ＣＯＬＯＲ １３：ＬＯＣＡＴＥ １０，１７
- ？”ＨＩＴ Ａ ＢＵＴＴＯＮ”：ＳＰＯＦＳ ０，０，－３２
- ＠ＤＩ３
- Ｂ＝ＢＵＴＴＯＮ（）：ＩＦ Ｂ！＝０ ＴＨＥＮ ＠ＤＩ３
- ＠ＤＩ２
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ ＡＮＤ １６ ＴＨＥＮ ＠ＳＴＡＲＴ１
- ＩＦ Ｂ ＡＮＤ １０２４ ＴＨＥＮ ＠ＤＩ４
- ＧＯＳＵＢ ＠ＴＳＴＡＲＴ
- ＧＯＳＵＢ ＠ＴＭＯＶＥ
- ＧＯＳＵＢ ＠ＥＭＯＶＥ
- ＧＯＳＵＢ ＠ＳＣＲＯＬＬ
- ＩＦ ＬＩ（ＬＩ）＞１４ ＴＨＥＮ ＬＩ＝ＬＩ＋１
- ＶＳＹＮＣ １：ＧＯＴＯ ＠ＤＩ２
- ＠ＤＩ４
- ＢＧＭＳＴＯＰ：ＥＮＤ
- ＠ＳＣＲＯＬＬ
- ＢＧＯＦＳ ０，ＶＸ／２，ＢＧＬ１：ＢＧＬ１＝ＢＧＬ１－８
- ＢＧＯＦＳ １，ＶＸ／８，ＢＧＬ２：ＢＧＬ２＝ＢＧＬ２－２
- ＩＦ ＢＧＬ１＜０ ＴＨＥＮ ＢＧＬ１＝５０４
- ＩＦ ＢＧＬ２＜０ ＴＨＥＮ ＢＧＬ２＝５１０
- ＲＥＴＵＲＮ
- ＠ＤＲＡＷＳＣ
- Ａ＄＝ＳＴＲ＄（ＳＣ）：Ｒ＝ＬＥＮ（Ａ＄）
- Ａ＄＝” ”＋Ａ＄
- Ｂ＄＝ＭＩＤ＄（Ａ＄，Ｒ－１，６）：ＣＯＬＯＲ ０
- ＬＯＣＡＴＥ ５，０： ？Ｂ＄；”０”；
- ＩＦ ＵＰ！＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＳＣ＜１０００ ＴＨＥＮ ＲＥＴＵＲＮ
- ＶＬ＝ＶＬ＋１：ＵＰ＝１：ＧＯＳＵＢ ＠ＤＲＡＷＶＬ
- ＲＥＴＵＲＮ
- ＠ＤＲＡＷＨＩ
- Ａ＄＝ＳＴＲ＄（ＨＩ）：Ｒ＝ＬＥＮ（Ａ＄）
- Ａ＄＝” ”＋Ａ＄
- Ｂ＄＝ＭＩＤ＄（Ａ＄，Ｒ－１，６）：ＣＯＬＯＲ ０
- ＬＯＣＡＴＥ ２５，０： ？Ｂ＄；”０”；：ＲＥＴＵＲＮ
- ＠ＤＲＡＷＶＬ
- ＣＯＬＯＲ ７：ＬＯＣＡＴＥ ０，２３：？” ”；
- ＬＯＣＡＴＥ ０，２３
- ＩＦ ＶＬ＜１ ＴＨＥＮ ＲＥＴＵＲＮ
- ＦＯＲ ＺＷ＝１ ＴＯ ＶＬ：？”Г”；：ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＣＹＡＲＡ
- ＤＩＭ ＢＴ（２１），ＢＡ（２１），ＢＰ（２１）
- ＤＩＭ ＢＩ（２１），ＢＹ（２１），ＬＩ（４８）
- ＲＥＳＴＯＲＥ ＠ＣＹ１：ＦＯＲ Ｋ＝１ ＴＯ ２０
- ＲＥＡＤ ＢＴ（Ｋ），ＢＡ（Ｋ），ＢＰ（Ｋ），ＢＩ（Ｋ）
- ＮＥＸＴ
- ＦＯＲ Ｋ＝１５ ＴＯ ２０：ＲＥＡＤ ＢＹ（Ｋ）
- ＮＥＸＴ
- ＠ＣＹ１
- ＤＡＴＡ １４０，２，５，１８，１４０，２，４，１７
- ＤＡＴＡ １４０，２，２，１６，１７４，２，５，１
- ＤＡＴＡ １７４，２，１２，３，１７４，２，０，５
- ＤＡＴＡ １３７，１，４，７，１３７，１，５，９
- ＤＡＴＡ １７８，３，２，１０，１７８，３，３，１２
- ＤＡＴＡ １７８，３，１０，１４，１８０，３，２，１１
- ＤＡＴＡ １８０，３，３，１３，１８０，３，１０，１５
- ＤＡＴＡ １７４，２，１０，６，１６３，１，１０，４
- ＤＡＴＡ １７８，３，７，６，１７４，２，８，４
- ＤＡＴＡ １７８，３，２，８，１３７，１，３，８
- ＤＡＴＡ １１，３，３，１１，５，１２
- ＦＯＲ Ｋ＝１ ＴＯ ４７：ＲＥＡＤ ＬＩ（Ｋ）
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＤＡＴＡ １，２，５，４，１０，１５
- ＤＡＴＡ １，３，６，４，９，１２，１１，１６
- ＤＡＴＡ ２，３，５，６，１１，１，１３，１７
- ＤＡＴＡ ３，４，１４，９，１０，１２，７，１８
- ＤＡＴＡ １，６，１３，１１，５，１２，８，１９
- ＤＡＴＡ ９，１０，１１，１４，１３，１２，８，２０，２
- ＠ＢＧＣＬ
- ＦＯＲ Ｋ＝０ ＴＯ ６３
- ＦＯＲ Ｊ＝０ ＴＯ ６３
- ＢＧＰＵＴ ０，Ｊ，Ｋ，０，０，０，０
- ＢＧＰＵＴ １，Ｊ，Ｋ，０，０，０，０：ＮＥＸＴ
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＢＧＳＴＡＲ
- ＦＯＲ Ｋ＝０ ＴＯ ８０：Ｘ＝ＲＮＤ（４８）
- Ｙ＝ＲＮＤ（６４）：Ｃ＝ＲＮＤ（１４）＋２
- Ｊ＝８５９＋ＲＮＤ（２）＊３２
- ＢＧＰＵＴ １，Ｘ，Ｙ，Ｊ，Ｃ，０，０：ＮＥＸＴ
- ＦＯＲ Ｋ＝０ ＴＯ ２
- ＦＯＲ Ｊ＝０ ＴＯ １５：ＲＥＳＴＯＲＥ ＠ＢＧＰ３Ｄ
- ＦＯＲ Ｙ＝０ ＴＯ ２
- ＦＯＲ Ｏ＝０ ＴＯ １
- ＦＯＲ Ｘ＝０ ＴＯ ２：ＲＥＡＤ Ｉ
- Ｌ＝Ｘ＋Ｏ＊３７＋Ｋ＊４
- ＢＧＰＵＴ ０，Ｌ，Ｙ＋Ｊ＊４，Ｉ＋７６８，１０，０，０
- ＮＥＸＴ
- ＮＥＸＴ
- ＮＥＸＴ
- ＮＥＸＴ
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＢＧＰ３Ｄ
- ＤＡＴＡ １０８，４５，１１０，４４，４５，４６
- ＤＡＴＡ ０，７６，７７，７６，７７，０
- ＤＡＴＡ ４４，１０９，４６，１０８，１０９，１１０
