SKULL MADNESS by たけぽん
本格的なルールのアクションゲームの登場だ。
主人公は魔法使い。まずは十字ボタンで移動・Ａボタンのショットを使って、無限に現われるガイコツ（スカル）をかわしつつ、マップのどこかにある３つのオーブ（宝玉）を探そう。
取ったオーブは、画面右のステータスに追加される。３色すべて集めれば「封印」の条件が整うぞ。マップ最上段にある扉にショットを撃って封印しよう。
扉を封印すると、スカルはこれ以上出てこない。マップ上のスカルを全滅させて、平和な土地に変えてしまおう！
私が作りました
たけぽん
ほぼ２日で作ってます。BASICは気楽に書いていけるのでやはりいいですね。
De・バグ コーナー
（5月12日）下記のように訂正してください
79行目 WM=0:GX=WX:GY=WY:GJ=0
325行目 FE=0:RETURN
491行目 IF B!=0 THEN @PAUSE
494行目 IF B AND 1024 THEN @PA2
CHECK POiNT 
攻防のメリハリがついた、シンプルだけど面白いルールのアクションゲームだね。
なかなか遊べるじゃねェか。だがよォ、敵味方がゴチャゴチャして「突然死」になった時はムカつくぜ。シット！
敵の数が多いこともこのゲームの面白さだから、難しいところだね。
そこはせっかくのスプライトキャラじゃしナメラカに動かすと……とも思うが、スピード感とのかねあいもありそうじゃな。
表示にナカナカ凝っておるので、各自で解析してスムーズ移動に改造するのも面白そうじゃが。
表示にナカナカ凝っておるので、各自で解析してスムーズ移動に改造するのも面白そうじゃが。
敵を180度回頭させずに、90度限定でしか向きを変えないようにすると、動きの予測がしやすくなるかもね。直進するか回頭するかに、確率で変化を付けるのも動きが人間的になっていいと思うよ。
ワシとしては完全にランダム移動というのも、古きよきアクションRPGの香りがして好きなのじゃが……。
プログラムリスト
- ’ＳＫＵＬＬ ＭＡＤＮＥＳＳ И ｂｙ タケホ゜ン И
- ＣＬＳ：ＣＬＥＡＲ：ＶＩＳＩＢＬＥ １，１，０，１，１，０
- ＢＧＰＡＧＥ ０：ＢＧＣＬＩＰ ０，０，２３，２３
- ＳＰＰＡＧＥ ０：ＨＩ＝０
- ＤＩＭ ＦＬ（６，２５），Ｆ（３２，３２），ＯＲＢ（４）
- ＧＯＳＵＢ ＠ＦＬＰＡＴ
- ＤＩＭ ＦＫ（５），ＦＪ（５），ＦＸ（５），ＦＹ（５）
- ＤＩＭ ＦＤ（５），ＳＦ（３２，３２）
- ＤＩＭ ＳＫ（６１），ＳＸ（６１），ＳＹ（６１）
- ＤＩＭ ＳＪ（６１），ＳＤ（６１），ＳＥ（６１）
- ＦＯＲ Ｋ＝１ ＴＯ ４
- ＳＰＳＥＴ Ｋ，５２，１１，０，０，２
- ＳＰＡＮＩＭ Ｋ，４，５，０：ＳＰＯＦＳ Ｋ，０，－３２
- ＦＪ（Ｋ）＝０：ＮＥＸＴ
- ＦＯＲ Ｋ＝１１ ＴＯ ６０
- ＳＰＳＥＴ Ｋ，１２８，５，０，０，１
- ＳＰＡＮＩＭ Ｋ，２，１０，０：ＳＰＯＦＳ Ｋ，０，－３２
- ＮＥＸＴ
- ＠ＳＴＡＲＴ１
- ＳＣ＝０：ＲＯ＝１：ＷＩ＝４：ＢＧＭＳＴＯＰ
- ＠ＳＴＡＲＴ２
- ＧＯＳＵＢ ＠ＢＧＣＬ：ＱＰ＝０：Ｑ＝０：ＳＮ＝３０
- ＳＰＳＥＴ ０，１０８，５，０，０，１
- ＳＰＡＮＩＭ ０，４，１０，０：ＳＰＯＦＳ ０，８８，８８
- ＢＧＯＦＳ １，２００，３９２
- ＷＥ＝（１１－ＲＯ）＊５：ＧＯＳＵＢ ＠ＦＭＡＫＥ
- ＦＯＲ Ｋ＝１ ＴＯ ３：ＯＲＢ（Ｋ）＝０：ＮＥＸＴ
- ＠ＳＴＡＲＴ３
- ＷＫ＝０：ＷＸ＝１８：ＷＹ＝３０：ＷＤ＝３：ＷＣ＝１
- ＷＳ＝０：ＢＢ１＝０：ＢＢ２＝０
- ＳＰＳＥＴ ０，１０８，５，０，０，１
- ＳＰＡＮＩＭ ０，４，１０，０：ＳＰＯＦＳ ０，８８，８８
- ＢＧＯＦＳ １，２００，３９２
- ＦＯＲ Ｋ＝１ ＴＯ ４
- ＳＰＯＦＳ Ｋ，０，－３２：ＮＥＸＴ
- ＦＯＲ Ｋ＝１１ ＴＯ ４０
- ＳＰＯＦＳ Ｋ，０，－３２：ＮＥＸＴ
- ＦＳ＝０：ＤＩＥ＝０：ＦＥ＝０：ＳＡ＝１１
- ＦＯＲ Ｋ＝０ ＴＯ ３１
- ＦＯＲ Ｊ＝０ ＴＯ ３１
- ＳＦ（Ｊ，Ｋ）＝０：ＮＥＸＴ
- ＮＥＸＴ：Ｊ＝ＳＮ
- ＦＯＲ Ｋ＝１１ ＴＯ ４０
- ＩＦ Ｊ＜１ ＴＨＥＮ ＠ＳＫＰ１
- Ｊ＝Ｊ－１
- ＠ＳＫＰＵＴ
- Ｉ＝ＲＮＤ（３０）＋１：Ｕ＝ＲＮＤ（２２）＋６
- ＩＦ Ｆ（Ｉ，Ｕ）！＝０ ＴＨＥＮ ＠ＳＫＰＵＴ
- ＳＫ（Ｋ）＝０：ＳＪ（Ｋ）＝１：ＳＸ（Ｋ）＝Ｉ
- ＳＹ（Ｋ）＝Ｕ：ＳＤ（Ｋ）＝ＲＮＤ（４）：ＳＥ（Ｋ）＝０
- ＳＦ（Ｉ，Ｕ）＝Ｋ
- ＠ＳＫＰ１
- ＮＥＸＴ
- ＣＬＳ：ＧＯＳＵＢ ＠ＳＫＤＲＡＷ
- ＧＯＳＵＢ ＠ＯＲＢＤＲＡＷ
- ＣＯＬＯＲ １０：ＬＯＣＡＴＥ ２６，０：？”ＳＫＵＬＬ”
- ＬＯＣＡＴＥ ２５，１：？”ＭＡＤＮＥＳＳ”
- ＣＯＬＯＲ ０：ＬＯＣＡＴＥ ２６，３：？”ＳＴＡＧＥ”
- ＬＯＣＡＴＥ ２８，４：？ ＲＯ
- ＬＯＣＡＴＥ ２６，７：？”ＳＣＯＲＥ”
- ＬＯＣＡＴＥ ２７，１５：？”ＯＲＢ”
- ＧＯＳＵＢ ＠ＤＲＡＷＳＣ：ＣＯＬＯＲ ４
- ＬＯＣＡＴＥ ２６，２２：？”ノコリ ”；ＷＩ；
- ＧＯＳＵＢ ＠ＳＫＬＡＳＴ
- ＧＯＳＵＢ ＠ＩＮＦＯ
- ＶＳＹＮＣ ３０：ＢＧＭＰＬＡＹ ２２
- ＩＦ ＱＰ＝＝１ ＴＨＥＮ ＢＧＭＰＬＡＹ ２９
- ＠ＭＡＩＮ
- ＧＯＳＵＢ ＠ＫＥＹＩＮ
- ＷＫ＝ＷＫ＋１：ＩＦ ＷＫ＜１２ ＴＨＥＮ ＠ＭＡＩＮ２
- ＷＫ＝０：ＧＯＳＵＢ ＠ＷＭＯＶＥ
- ＧＯＳＵＢ ＠ＷＤＲ１
- Ｋ＝（ＷＸ－５）＊１６－８：Ｊ＝（ＷＹ－５）＊１６－８
- ＢＧＯＦＳ １，Ｋ，Ｊ
- ＩＦ ＷＭ＜１ ＯＲ ＷＭ＞３ ＴＨＥＮ ＠ＭＡＩＮ２
- Ｆ（ＷＸ，ＷＹ）＝０：ＯＲＢ（ＷＭ）＝１：ＢＥＥＰ ８
- ＷＭ＝０：ＧＸ＝ＷＸ：ＧＹ＝ＷＹ：ＧＪ＝０
- ＧＯＳＵＢ ＠ＢＧＤＲＡＷ
- ＧＯＳＵＢ ＠ＯＲＢＤＲＡＷ
- ＠ＭＡＩＮ２
- ＧＯＳＵＢ ＠ＦＳＴＡＲＴ
- ＧＯＳＵＢ ＠ＦＭＯＶＥ
- ＧＯＳＵＢ ＠ＦＤＲＡＷ
- ＧＯＳＵＢ ＠ＳＫＭＯＶＥ
- ＧＯＳＵＢ ＠ＳＫＤＲＡＷ
- ＩＦ ＤＩＥ＝＝１ ＴＨＥＮ ＠ＤＩＥ
- ＷＳ＝０：ＢＢ１＝０：ＢＢ２＝０
- ＦＯＲ Ｋ＝０ ＴＯ ＷＥ：ＮＥＸＴ
- ＧＯＴＯ ＠ＭＡＩＮ
- ＠ＢＧＣＬ
- ＣＬＳ：ＦＯＲ Ｋ＝０ ＴＯ ６３
- ＦＯＲ Ｊ＝０ ＴＯ ６３
- ＢＧＰＵＴ １，Ｊ，Ｋ，０，０，０，０：ＮＥＸＴ
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＦＬＤＲＡＷ
- ＧＯＳＵＢ ＠ＦＰＡＴ
- ＧＯＳＵＢ ＠ＦＭＡＫＥ
- ＦＯＲ ＫＫ＝０ ＴＯ １５
- ＦＯＲ ＪＪ＝０ ＴＯ １５
- ＧＸ＝ＪＪ：ＧＹ＝ＫＫ：ＧＪ＝Ｆ（ＪＪ，ＫＫ）
- ＧＯＳＵＢ ＠ＢＧＤＲＡＷ
- ＮＥＸＴ
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＢＧＤＲＡＷ
- ＩＦ ＧＪ＜１ ＴＨＥＮ ＠ＢＧ０
- ＩＦ ＧＪ＜４ ＴＨＥＮ ＠ＢＧ１
- ＩＦ ＧＪ＜６ ＴＨＥＮ ＠ＢＧ４
- ＢＧＰＵＴ １，ＧＸ＊２，ＧＹ＊２，６８４，３，０，０
- ＢＧＰＵＴ １，ＧＸ＊２＋１，ＧＹ＊２，６８６，３，０，０
- ＢＧＰＵＴ １，ＧＸ＊２，ＧＹ＊２＋１，７４８，３，０，０
- ＴＴ＝ＧＸ＊２＋１
- ＢＧＰＵＴ １，ＴＴ，ＧＹ＊２＋１，７５０，３，０，０
- ＲＥＴＵＲＮ
- ＠ＢＧ０
- ＦＯＲ Ｋ＝０ ＴＯ １
- ＦＯＲ Ｊ＝０ ＴＯ １
- ＢＧＰＵＴ １，ＧＸ＊２＋Ｊ，ＧＹ＊２＋Ｋ，０，０，０，０
- ＮＥＸＴ
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＢＧ１
- Ｋ＝ＧＸ＊２：Ｊ＝ＧＹ＊２
- ＢＧＰＵＴ １，Ｋ，Ｊ，８３７，ＧＪ＋１０，０，０
- ＢＧＰＵＴ １，Ｋ＋１，Ｊ，８３８，ＧＪ＋１０，０，０
- ＢＧＰＵＴ １，Ｋ，Ｊ＋１，８６９，ＧＪ＋１０，０，０
- ＢＧＰＵＴ １，Ｋ＋１，Ｊ＋１，８７０，ＧＪ＋１０，０，０
- ＲＥＴＵＲＮ
- ＠ＢＧ４
- Ｋ＝ＧＸ＊２：Ｊ＝ＧＹ＊２：Ｉ＝（ＧＪ－４）＊２
- ＢＧＰＵＴ １，Ｋ，Ｊ，７００，Ｉ，０，０
- ＢＧＰＵＴ １，Ｋ＋１，Ｊ，７０１，Ｉ，０，０
- ＢＧＰＵＴ １，Ｋ，Ｊ＋１，７３２，Ｉ，０，０
- ＢＧＰＵＴ １，Ｋ＋１，Ｊ＋１，７３３，Ｉ，０，０
- ＲＥＴＵＲＮ
- ＤＡＴＡ ”０００００”，”０００００”，”０００００”
- ＤＡＴＡ ”０００００”，”０６６６０”，”０６６６０”
- ＤＡＴＡ ”６６０６６”，”６６０６６”，”０００００”
- ＤＡＴＡ ”６６０６６”，”６０００６”，”０００００”
- ＤＡＴＡ ”０００６０”，”６６０６０”，”０００００”
- ＤＡＴＡ ”０６０００”，”００００６”，”０００００”
- ＠ＦＬＰＡＴ
- ＦＯＲ Ｋ＝０ ＴＯ ５
- ＦＯＲ Ｊ＝０ ＴＯ ２：ＲＥＡＤ Ａ＄
- ＦＯＲ Ｉ＝０ ＴＯ ４
- Ａ＝ＶＡＬ（ＭＩＤ＄（Ａ＄，Ｉ，１））
- ＦＬ（Ｋ，Ｊ＊５＋１）＝Ａ：ＮＥＸＴ
- ＮＥＸＴ
- ＦＯＲ Ｊ＝３ ＴＯ ４
- ＦＯＲ Ｉ＝０ ＴＯ ４
- ＦＬ（Ｋ，Ｊ＊５＋Ｉ）＝ＦＬ（Ｋ，（４－Ｊ）＊５＋４－Ｉ）
- ＮＥＸＴ
- ＮＥＸＴ
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＦＭＡＫＥ
- ＦＯＲ ＫＫ＝０ ＴＯ ３１
- ＦＯＲ ＪＪ＝０ ＴＯ ３１
- Ｆ（ＪＪ，ＫＫ）＝６：ＧＸ＝ＪＪ：ＧＹ＝ＫＫ：ＧＪ＝６
- ＮＥＸＴ
- ＮＥＸＴ
- ＦＯＲ ＫＫ＝０ ＴＯ ５
- ＦＯＲ ＪＪ＝０ ＴＯ ５：Ａ＝ＲＮＤ（６）
- ＩＦ ＪＪ＝＝２ ＡＮＤ ＫＫ＝＝０ ＴＨＥＮ Ａ＝０
- ＦＯＲ ＩＫ＝０ ＴＯ ４
- ＦＯＲ ＩＪ＝０ ＴＯ ４
- ＧＸ＝ＪＪ＊５＋ＩＪ＋１：ＧＹ＝ＫＫ＊５＋ＩＫ＋１
- ＧＪ＝ＦＬ（Ａ，ＩＫ＊５＋ＩＪ）：Ｆ（ＧＸ，ＧＹ）＝ＧＪ
- ＮＥＸＴ
- ＮＥＸＴ
- ＮＥＸＴ
- ＮＥＸＴ：Ｆ（１３，０）＝４
- ＦＯＲ Ｋ＝１ ＴＯ ３
- ＠ＦＭ１
- Ｊ＝ＲＮＤ（３０）＋１：Ｉ＝ＲＮＤ（２３）＋７
- ＩＦ Ｆ（Ｊ，Ｉ）！＝０ ＴＨＥＮ ＠ＦＭ１
- Ｆ（Ｊ，Ｉ）＝Ｋ：ＮＥＸＴ
- ＦＯＲ ＫＫ＝０ ＴＯ ３１
- ＦＯＲ ＪＪ＝０ ＴＯ ３１
- ＧＸ＝ＪＪ：ＧＹ＝ＫＫ：ＧＪ＝Ｆ（ＪＪ，ＫＫ）
- ＧＯＳＵＢ ＠ＢＧＤＲＡＷ
- ＮＥＸＴ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＷＤＲ１
- ＩＦ ＷＣ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＠ＷＤＲ２
- ＳＰＣＨＲ ０，９６＋ＷＤ＊４：Ｋ＝（ＷＸ－５）＊１６－８
- ＢＧＯＦＳ １，Ｋ，（ＷＹ－５）＊１６－８
- ＲＥＴＵＲＮ
- ＠ＫＥＹＩＮ
- Ｂ＝ＢＵＴＴＯＮ（）：ＢＦ＝０
- ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＢＢ１＝１
- ＩＦ Ｂ ＡＮＤ ２ ＴＨＥＮ ＢＢ２＝１
- ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＢＢ１＝－１
- ＩＦ Ｂ ＡＮＤ １ ＴＨＥＮ ＢＢ２＝－１
- ＩＦ Ｂ ＡＮＤ １６ ＴＨＥＮ ＢＦ＝１
- ＩＦ Ｂ ＡＮＤ １０２４ ＴＨＥＮ ＠ＰＡＵＳＥ
- ＲＥＴＵＲＮ
- ＠ＷＭＯＶＥ
- ＩＦ ＷＤ＝＝０ ＯＲ ＷＤ＝＝２ ＴＨＥＮ ＠Ｋ２
- ＷＳ＝０：ＩＦ ＢＢ１！＝１ ＴＨＥＮ ＠Ｋ１
- ＷＤ＝０：Ｋ＝Ｆ（ＷＸ＋１，ＷＹ）
- ＩＦ Ｋ＞３ ＴＨＥＮ ＠Ｋ２
- ＷＸ＝ＷＸ＋１：ＷＭ＝Ｋ：ＷＳ＝１：ＧＯＴＯ ＠Ｋ０
- ＠Ｋ１
- ＩＦ ＢＢ１！＝－１ ＴＨＥＮ ＠Ｋ２
- ＷＤ＝２：Ｋ＝Ｆ（ＷＸ－１，ＷＹ）
- ＩＦ Ｋ＞３ ＴＨＥＮ ＠Ｋ２
- ＷＸ＝ＷＸ－１：ＷＭ＝Ｋ：ＷＳ＝１
- ＠Ｋ０
- ＩＦ ＷＳ＝＝１ ＴＨＥＮ ＲＥＴＵＲＮ
- ＠Ｋ２
- ＩＦ ＢＢ２！＝１ ＴＨＥＮ ＠Ｋ３
- ＷＤ＝１：Ｋ＝Ｆ（ＷＸ，ＷＹ＋１）
- ＩＦ Ｋ＞３ ＴＨＥＮ ＠Ｋ５
- ＷＹ＝ＷＹ＋１：ＷＭ＝Ｋ：ＷＳ＝２：ＧＯＴＯ ＠Ｋ４
- ＠Ｋ３
- ＩＦ ＢＢ２！＝－１ ＴＨＥＮ ＠Ｋ５
- ＷＤ＝３：Ｋ＝Ｆ（ＷＸ，ＷＹ－１）
- ＩＦ Ｋ＞３ ＴＨＥＮ ＠Ｋ５
- ＷＹ＝ＷＹ－１：ＷＭ＝Ｋ：ＷＳ＝２
- ＠Ｋ４
- ＩＦ ＷＳ＝＝２ ＴＨＥＮ ＲＥＴＵＲＮ
- ＠Ｋ５
- ＩＦ ＢＢ１！＝１ ＴＨＥＮ ＠Ｋ６
- ＷＤ＝０：Ｋ＝Ｆ（ＷＸ＋１，ＷＹ）
- ＩＦ Ｋ＞３ ＴＨＥＮ ＲＥＴＵＲＮ
- ＷＸ＝ＷＸ＋１：ＷＭ＝Ｋ：ＷＳ＝１：ＲＥＴＵＲＮ
- ＠Ｋ６
- ＩＦ ＢＢ１！＝－１ ＴＨＥＮ ＲＥＴＵＲＮ
- ＷＤ＝２：Ｋ＝Ｆ（ＷＸ－１，ＷＹ）
- ＩＦ Ｋ＞３ ＴＨＥＮ ＲＥＴＵＲＮ
- ＷＸ＝ＷＸ－１：ＷＭ＝Ｋ：ＷＳ＝１
- ＲＥＴＵＲＮ
- ＠ＦＳＴＡＲＴ
- ＦＳ＝ＦＳ－１：ＩＦ ＦＳ＜０ ＴＨＥＮ ＦＳ＝０
- ＩＦ ＦＳ＞０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＢＦ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｋ＝１
- ＠ＦＳ１
- ＩＦ ＦＪ（Ｋ）＝＝０ ＴＨＥＮ ＠ＦＳ２
- Ｋ＝Ｋ＋１：ＩＦ Ｋ＞４ ＴＨＥＮ ＲＥＴＵＲＮ
- ＧＯＴＯ ＠ＦＳ１
- ＠ＦＳ２
- ＦＳ＝２３：ＦＪ（Ｋ）＝１：ＦＸ（Ｋ）＝ＷＸ
- ＦＹ（Ｋ）＝ＷＹ：ＦＤ（Ｋ）＝ＷＤ：ＦＫ（Ｋ）＝０
- ＢＥＥＰ ３７，０，３０，６４：ＲＥＴＵＲＮ
- ＠ＦＭＯＶＥ
- ＵＫ＝１
- ＠ＦＭ８
- ＩＦ ＦＪ（ＵＫ）＝＝０ ＴＨＥＮ ＠ＦＭ７
- ＦＫ（ＵＫ）＝ＦＫ（ＵＫ）＋１
- ＩＦ ＦＫ（ＵＫ）＜６ ＴＨＥＮ ＠ＦＭ７
- ＦＫ（ＵＫ）＝０
- ＩＦ ＦＤ（ＵＫ）＝＝１ ＴＨＥＮ ＠ＦＭ３
- ＩＦ ＦＤ（ＵＫ）＝＝２ ＴＨＥＮ ＠ＦＭ４
- ＩＦ ＦＤ（ＵＫ）＝＝３ ＴＨＥＮ ＠ＦＭ５
- ＦＸ（ＵＫ）＝ＦＸ（ＵＫ）＋１：ＧＯＴＯ ＠ＦＭ６
- ＠ＦＭ３
- ＦＹ（ＵＫ）＝ＦＹ（ＵＫ）＋１：ＧＯＴＯ ＠ＦＭ６
- ＠ＦＭ４
- ＦＸ（ＵＫ）＝ＦＸ（ＵＫ）－１：ＧＯＴＯ ＠ＦＭ６
- ＠ＦＭ５
- ＦＹ（ＵＫ）＝ＦＹ（ＵＫ）－１
- ＠ＦＭ６
- ＵＪ＝Ｆ（ＦＸ（ＵＫ），ＦＹ（ＵＫ））
- ＩＦ ＵＪ＝＝４ ＴＨＥＮ ＠ＦＵＵＩＮ
- ＠ＦＭ９
- ＩＦ ＵＪ＞＝４ ＴＨＥＮ ＠ＦＭ１１
- ＵＪ＝ＳＦ（ＦＸ（ＵＫ），ＦＹ（ＵＫ））
- ＩＦ ＵＪ＝＝０ ＴＨＥＮ ＠ＦＭ７
- ＩＦ ＳＪ（ＵＪ）＝＝０ ＴＨＥＮ ＠ＦＭ７
- ＠ＳＫＤＩＥ
- ＳＦ（ＦＸ（ＵＫ），ＦＹ（ＵＫ））＝０：ＢＥＥＰ １２
- ＳＣ＝ＳＣ＋１０：ＧＯＳＵＢ ＠ＤＲＡＷＳＣ
- ＩＦ Ｑ＝＝１ ＴＨＥＮ ＠ＳＫＤＩＥ２
- ＠ＦＭ１０
- ＳＫ（ＵＪ）＝０：ＳＸ（ＵＪ）＝１３：ＳＹ（ＵＪ）＝１
- ＳＤ（ＵＪ）＝１：ＳＦ（１３，１）＝ＵＪ
- ＳＰＯＦＳ ＵＪ，０，－３２：ＧＯＴＯ ＠ＦＭ７
- ＠ＦＭ１１
- ＦＪ（ＵＫ）＝０：ＳＰＯＦＳ ＵＫ，０，－３２
- ＧＯＴＯ ＠ＦＭ７
- ＠ＳＫＤＩＥ２
- ＳＪ（ＵＪ）＝０：ＳＰＯＦＳ ＵＪ，０，－３２
- ＳＮ＝ＳＮ－１：ＧＯＳＵＢ ＠ＳＫＬＡＳＴ
- ＩＦ ＳＮ＜１ ＴＨＥＮ ＠ＣＬ
- ＧＯＴＯ ＠ＦＭ７
- ＠ＦＵＵＩＮ
- ＦＪ（ＵＫ）＝０：ＳＰＯＦＳ ＵＫ，０，－３２
- ＩＦ ＱＰ！＝１ ＴＨＥＮ ＠ＦＭ９
- ＢＧＭＰＬＡＹ ３：Ｆ（１３，０）＝５
- ＣＯＬＯＲ １５：ＬＯＣＡＴＥ ７，８
- ？”フウイン セイコウ！”：Ｑ＝１
- ＳＣ＝ＳＣ＋１０００：ＧＯＳＵＢ ＠ＩＮＦＯ
- ＧＸ＝１３：ＧＹ＝０：ＧＯＳＵＢ ＠ＤＲＡＷＳＣ
- ＧＪ＝５：ＧＯＳＵＢ ＠ＢＧＤＲＡＷ
- ＶＳＹＮＣ ８０：ＬＯＣＡＴＥ ７，８
- ？” ”：ＢＧＭＰＬＡＹ ２９
- ＠ＦＭ７
- ＵＫ＝ＵＫ＋１：ＩＦ ＵＫ＜５ ＴＨＥＮ ＠ＦＭ８
- ＲＥＴＵＲＮ
- ＠ＦＤＲＡＷ
- ＩＦ ＦＪ（ＦＥ）＝＝０ ＴＨＥＮ ＠ＦＤ１
- Ｉ＝ＦＸ（ＦＥ）：Ｊ＝ＦＹ（ＦＥ）
- ＩＦ Ｉ＜ＷＸ－６ ＴＨＥＮ ＠ＦＤ２
- ＩＦ Ｉ＞ＷＸ＋６ ＴＨＥＮ ＠ＦＤ２
- ＩＦ Ｊ＜ＷＹ－６ ＴＨＥＮ ＠ＦＤ２
- ＩＦ Ｊ＞ＷＹ＋６ ＴＨＥＮ ＠ＦＤ２
- ＵＫ＝（ＦＸ（ＦＥ）－ＷＸ）＊１６＋８８
- ＳＰＯＦＳ ＦＥ，ＵＫ，（ＦＹ（ＦＥ）－ＷＹ）＊１６＋８８
- ＠ＦＤ１
- ＦＥ＝ＦＥ＋１：ＩＦ ＦＥ＜５ ＴＨＥＮ ＲＥＴＵＲＮ
- ＦＥ＝０：ＲＥＴＵＲＮ
- ＠ＦＤ２
- ＳＰＯＦＳ ＦＥ，０，－３２：ＧＯＴＯ ＠ＦＤ１
- ＠ＳＫＤＲＡＷ
- ＳＢ＝ＳＡ＋６
- ＠ＳＤ０
- ＩＦ ＳＪ（ＳＡ）＝＝０ ＴＨＥＮ ＠ＳＤ１
- Ｉ＝ＳＸ（ＳＡ）：Ｊ＝ＳＹ（ＳＡ）
- ＩＦ Ｉ＜ＷＸ－６ ＴＨＥＮ ＠ＳＤ２
- ＩＦ Ｉ＞ＷＸ＋６ ＴＨＥＮ ＠ＳＤ２
- ＩＦ Ｊ＜ＷＹ－６ ＴＨＥＮ ＠ＳＤ２
- ＩＦ Ｊ＞ＷＹ＋６ ＴＨＥＮ ＠ＳＤ２
- ＵＪ＝（ＳＸ（ＳＡ）－ＷＸ）＊１６＋８８
- ＳＰＯＦＳ ＳＡ，ＵＪ，（ＳＹ（ＳＡ）－ＷＹ）＊１６＋８８
- ＳＰＣＨＲ ＳＡ，１２８＋ＳＤ（ＳＡ）＊２
- ＳＥ（ＳＡ）＝１
- ＠ＳＤ１
- ＳＡ＝ＳＡ＋１：ＩＦ ＳＡ＜ＳＢ ＴＨＥＮ ＠ＳＤ０
- ＩＦ ＳＡ＞＝４１ ＴＨＥＮ ＳＡ＝１１
- ＲＥＴＵＲＮ
- ＠ＳＤ２
- ＩＦ ＳＥ（ＳＡ）！＝１ ＴＨＥＮ ＠ＳＤ３
- ＳＰＯＦＳ ＳＡ，０，－３２
- ＠ＳＤ３
- ＳＥ（ＳＡ）＝０：ＧＯＴＯ ＠ＳＤ１
- ＠ＳＫＭＯＶＥ
- ＺＫ＝１１
- ＠ＳＭ０
- ＩＦ ＳＪ（ＺＫ）＝＝０ ＴＨＥＮ ＠ＳＭ７
- ＳＫ（ＺＫ）＝ＳＫ（ＺＫ）＋１
- ＩＦ ＳＫ（ＺＫ）＜１３ ＴＨＥＮ ＠ＳＭ７
- ＳＫ（ＺＫ）＝０：ＳＦ（ＳＸ（ＺＫ），ＳＹ（ＺＫ））＝０
- Ｒ＝ＲＮＤ（２０）＋ＲＯ＋ＱＰ＊５
- ＴＫ＝ＳＸ（ＺＫ）：ＴＪ＝ＳＹ（ＺＫ）
- ＩＦ Ｒ＞２５ ＴＨＥＮ ＠ＳＭ１０
- ＠ＳＭＡ
- Ｊ＝ＲＮＤ（４）
- ＯＮ Ｊ ＧＯＴＯ ＠ＳＭ１，＠ＳＭ２，＠ＳＭ３，＠ＳＭ４
- ＠ＳＭ１
- ＩＦ Ｆ（ＴＫ＋１，ＴＪ）＜４ ＴＨＥＮ ＠ＳＭ２１
- ＠ＳＭ２
- ＩＦ Ｆ（ＴＫ，ＴＪ＋１）＜４ ＴＨＥＮ ＠ＳＭ２２
- ＠ＳＭ３
- ＩＦ Ｆ（ＴＫ－１，ＴＪ）＜４ ＴＨＥＮ ＠ＳＭ２３
- ＠ＳＭ４
- ＩＦ Ｆ（ＴＫ，ＴＪ－１）＜４ ＴＨＥＮ ＠ＳＭ２４
- ＧＯＴＯ ＠ＳＭ１
- ＠ＳＭ２１
- ＳＸ（ＺＫ）＝ＳＸ（ＺＫ）＋１：ＳＤ（ＺＫ）＝０
- ＧＯＴＯ ＠ＳＭ５
- ＠ＳＭ２２
- ＳＹ（ＺＫ）＝ＳＹ（ＺＫ）＋１：ＳＤ（ＺＫ）＝１
- ＧＯＴＯ ＠ＳＭ５
- ＠ＳＭ２３
- ＳＸ（ＺＫ）＝ＳＸ（ＺＫ）－１：ＳＤ（ＺＫ）＝２
- ＧＯＴＯ ＠ＳＭ５
- ＠ＳＭ２４
- ＳＹ（ＺＫ）＝ＳＹ（ＺＫ）－１：ＳＤ（ＺＫ）＝３
- ＠ＳＭ５
- ＩＦ ＴＫ！＝ＷＸ ＴＨＥＮ ＠ＳＭ６
- ＩＦ ＴＪ＝＝ＷＹ ＴＨＥＮ ＤＩＥ＝１
- ＠ＳＭ６
- Ｉ＝１
- ＠ＳＭＣ
- ＩＦ ＳＸ（ＺＫ）！＝ＦＸ（Ｉ） ＴＨＥＮ ＠ＳＭＢ
- ＩＦ ＳＹ（ＺＫ）！＝ＦＹ（Ｉ） ＴＨＥＮ ＠ＳＭＢ
- ＩＦ ＦＪ（Ｉ）！＝１ ＴＨＥＮ ＠ＳＭＢ
- ＢＥＥＰ １２：ＳＣ＝ＳＣ＋１０
- ＧＯＳＵＢ ＠ＤＲＡＷＳＣ
- ＩＦ Ｑ＝＝１ ＴＨＥＮ ＠ＳＭＤ
- ＳＫ（ＺＫ）＝０：ＳＸ（ＺＫ）＝１３：ＳＹ（ＺＫ）＝１
- ＳＤ（ＺＫ）＝１：ＳＦ（１３，１）＝ＺＫ
- ＳＰＯＦＳ ＺＫ，０，－３２：ＧＯＴＯ ＠ＳＭＢ
- ＠ＳＭＤ
- ＳＪ（ＺＫ）＝０：ＳＰＯＦＳ ＺＫ，０，－３２
- ＳＮ＝ＳＮ－１：ＧＯＳＵＢ ＠ＳＫＬＡＳＴ
- ＩＦ ＳＮ＜１ ＴＨＥＮ ＠ＣＬ
- ＠ＳＭＢ
- Ｉ＝Ｉ＋１：ＩＦ Ｉ＜５ ＴＨＥＮ ＠ＳＭＣ
- ＳＦ（ＳＸ（ＺＫ），ＳＹ（ＺＫ））＝ＺＫ
- ＠ＳＭ７
- ＺＫ＝ＺＫ＋１：ＩＦ ＺＫ＜４１ ＴＨＥＮ ＠ＳＭ０
- ＲＥＴＵＲＮ
- ＠ＳＭ１０
- Ｒ＝ＲＮＤ（１０）：ＩＦ Ｒ＞４ ＴＨＥＮ ＠ＳＭ１１
- ＩＦ ＳＸ（ＺＫ）＞ＷＸ ＴＨＥＮ ＠ＳＭ３
- ＩＦ ＳＸ（ＺＫ）＜ＷＸ ＴＨＥＮ ＠ＳＭ１
- ＧＯＴＯ ＠ＳＭＡ
- ＠ＳＭ１１
- ＩＦ ＳＹ（ＺＫ）＞ＷＹ ＴＨＥＮ ＠ＳＭ４
- ＩＦ ＳＹ（ＺＫ）＜ＷＹ ＴＨＥＮ ＠ＳＭ２
- ＧＯＴＯ ＠ＳＭＡ
- ＠ＯＲＢＤＲＡＷ
- ＣＯＬＯＲ １４：ＬＯＣＡＴＥ ２６，１６
- ＰＲＩＮＴ ”○ ○ ○”
- ＩＦ ＯＲＢ（１）＝＝１ ＴＨＥＮ ＧＯＳＵＢ ＠ＯＲＢ１
- ＩＦ ＯＲＢ（２）＝＝１ ＴＨＥＮ ＧＯＳＵＢ ＠ＯＲＢ２
- ＩＦ ＯＲＢ（３）＝＝１ ＴＨＥＮ ＧＯＳＵＢ ＠ＯＲＢ３
- Ｋ＝ＯＲＢ（１）＋ＯＲＢ（２）＋ＯＲＢ（３）
- ＩＦ Ｋ＝＝３ ＴＨＥＮ ＱＰ＝１：ＢＧＭＰＬＡＹ ２９
- ＧＯＳＵＢ ＠ＩＮＦＯ：ＲＥＴＵＲＮ
- ＠ＯＲＢ１
- ＣＯＬＯＲ ２：ＬＯＣＡＴＥ ２６，１６
- ＰＲＩＮＴ ”●”；：ＲＥＴＵＲＮ
- ＠ＯＲＢ２
- ＣＯＬＯＲ １１：ＬＯＣＡＴＥ ２８，１６
- ＰＲＩＮＴ ”●”；：ＲＥＴＵＲＮ
- ＠ＯＲＢ３
- ＣＯＬＯＲ １３：ＬＯＣＡＴＥ ３０，１６
- ＰＲＩＮＴ ”●”；：ＲＥＴＵＲＮ
- ＠ＳＫＬＡＳＴ
- ＣＯＬＯＲ ９：ＬＯＣＡＴＥ ２６，１１
- ＰＲＩＮＴ ”ＥＮＥＭＹ”
- ＬＯＣＡＴＥ ２８，１２
- ＰＲＩＮＴ ＳＮ；” ”；：ＲＥＴＵＲＮ
- ＠ＣＬ
- ＢＧＭＳＴＯＰ：ＦＯＲ Ｋ＝１１ ＴＯ ４０
- ＳＰＯＦＳ Ｋ，０，－３２：ＮＥＸＴ：ＣＯＬＯＲ １５
- ＬＯＣＡＴＥ ９，８：？”ＣＬＥＡＲ！”：ＢＥＥＰ ４２
- ＶＳＹＮＣ １５０：ＷＩ＝ＷＩ＋１：ＳＣ＝ＳＣ＋５０００
- ＲＯ＝ＲＯ＋１：ＩＦ ＲＯ＞１０ ＴＨＥＮ ＲＯ＝１
- ＧＯＴＯ ＠ＳＴＡＲＴ２
- ＠ＤＲＡＷＳＣ
- Ａ＄＝ＳＴＲ＄（ＳＣ）：Ｒ＝ＬＥＮ（Ａ＄）
- Ａ＄＝” ”＋Ａ＄
- Ｂ＄＝ＭＩＤ＄（Ａ＄，Ｒ－１，５）：ＣＯＬＯＲ ０
- ＬＯＣＡＴＥ ２６，８：？ Ｂ＄
- ＲＥＴＵＲＮ
- ＠ＤＩＥ
- ＢＧＭＳＴＯＰ：ＢＥＥＰ ６：ＳＰＣＨＲ ０，１２０
- ＶＳＹＮＣ ９０
- ＷＩ＝ＷＩ－１：ＩＦ ＷＩ＞－１ ＴＨＥＮ ＠ＳＴＡＲＴ３
- ＢＧＭＰＬＡＹ ６：ＣＯＬＯＲ １５
- ＬＯＣＡＴＥ ７，８：？”ＧＡＭＥ ＯＶＥＲ”
- ＠ＧＶ１
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ！＝０ ＴＨＥＮ ＠ＧＶ１
- ＬＯＣＡＴＥ ６，１８：？”ＨＩＴ Ａ ＢＵＴＴＯＮ”
- ＠ＧＶ２
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ ＡＮＤ １６ ＴＨＥＮ ＠ＳＴＡＲＴ１
- ＩＦ Ｂ ＡＮＤ １０２４ ＴＨＥＮ ＥＮＤ
- ＧＯＴＯ ＠ＧＶ２
- ＠ＩＮＦＯ
- ＣＯＬＯＲ ３：ＬＯＣＡＴＥ ２６，１８
- ＩＦ Ｑ＝＝１ ＴＨＥＮ ＠ＩＮ１
- ＩＦ ＱＰ＝＝１ ＴＨＥＮ ＠ＩＮ２
- ？”オ－フ゛ヲ”：ＬＯＣＡＴＥ ２６，１９
- ？ ”アツメロ ”：ＲＥＴＵＲＮ
- ＠ＩＮ１
- ？ ” テキヲ ”：ＬＯＣＡＴＥ ２６，１９
- ？ ”セ゛ンメツ”：ＲＥＴＵＲＮ
- ＠ＩＮ２
- ？ ”フウイン ”：ＬＯＣＡＴＥ ２６，１９
- ？ ” セヨ ”：ＲＥＴＵＲＮ
- ＠ＰＡＵＳＥ
- ＢＧＭＳＴＯＰ：Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ！＝０ ＴＨＥＮ ＠ＰＡＵＳＥ
- ＠ＰＡ１
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ ＡＮＤ １０２４ ＴＨＥＮ ＠ＰＡ２
- ＧＯＴＯ ＠ＰＡ１
- ＠ＰＡ２
- ＶＳＹＮＣ ２０：ＢＧＭＰＬＡＹ ２２
- ＩＦ ＱＰ＝＝１ ＴＨＥＮ ＢＧＭＰＬＡＹ ２９
- ＲＥＴＵＲＮ
