スルーカ by petacorn
スピーディーなシューティングタイプのアクションゲームだ。
自機「スルーカ」を十字ボタンで操って、スターを逃さず取っていこう。スルーカの通ったあとは不毛の大地が緑に変わるオマケ付き。
壁や赤い敵機に当たれば１ミス。Ａボタンで敵機を倒すボムが発射できるので、ここぞという場面で使っていこう。ボムの残量は画面上部のゲージで確認できるぞ。スターを取り続ければゲージは回復する。
STARTボタンはポーズに使う。ゲーム終了はＲ＋STARTボタンだ。
キミはスターを連続で取るCHAINカウントをどこまで稼げるかな？
私が作りました
petacorn
BASICで書くのは二十数年ぶりじゃわい。
CHECK POiNT 
ヘンなとこで感心してねえで、プログラムを見ろや、ファック！ コレけっこう本格的なんじゃねえのか？
ゲームのシステム上いわゆるショットはないけど、縦スクロールシューティングのヒナ型としてもよさそうだね。
通過した後のグラフィックが変わるのは、シューティング以外にも応用できそうな面白い工夫だね。BG面の手前側が透過されて、奥側のBG面が見えるしくみだよ。
プログラムリスト
- ’＊＊＊＊＊＊＊＊＊＊＊＊
- ’スル－カ
- ＣＬＥＡＲ：ＣＬＳ
- ＶＩＳＩＢＬＥ １，１，０，０，０，０
- ’
- ＧＷ＝２５６：ＧＨ＝１９２
- ＣＷ＝３２：ＣＨ＝２４
- ＢＧＷ＝６４：ＢＧＨ＝６４
- ＦＯＲ Ｉ＝０ ＴＯ ３１：ＳＰ＄＝ＳＰ＄＋” ”：ＮＥＸＴ
- ’
- ＦＰＳ＝０：ＣＮＴＬ＝０：ＣＮＴＦ＝０
- ＲＥＱ＝０：ＦＬＷ＝－１
- ＢＴＮ＝０：ＢＴＮＯ＝０：ＢＴＮＤ＝０
- ＴＭＲ＝０：ＰＡＵＳＥ＝０
- ＳＣＯＲＥ＝０：ＨＩＳＣＯＲＥ＝１００００：ＳＣＭＡＸ＝５０００００
- ＬＩＦＥ＝０：ＬＩＦＥＭＡＸ＝３
- ＬＥＶＥＬ＝０：ＬＥＶＥＬＭＡＸ＝９９
- ＣＨＡＩＮ＝０：ＣＨＡＩＮＭＡＸ＝０：ＣＨＡＩＮＭＵＬ＝１０
- ＣＨＧ＝０：ＣＨＧＭＡＸ＝１６
- ＳＣＲＸ＝０：ＳＣＲＹ＝０：ＢＧＰＹ＝０
- ＳＳＰＤ＝０：ＳＳＰＤＭＩＮ＝２：ＳＳＰＤＭＡＸ＝６
- ＳＴＭＲ＝０：ＳＴＭＲＭＩＮ＝６０＊２０：ＳＴＭＲＭＡＸ＝０
- ＲＸ＝０：ＲＷ＝０：ＲＷＭＩＮ＝１３：ＲＷＭＡＸ＝１８
- ＢＴＭＲ＝－１：ＢＴＭＲＭＡＸ＝３０
- ＣＴＭＲ＝０：ＣＴＭＲＭＡＸ＝４８
- ＥＴＭＲ＝０：ＥＴＭＲＭＩＮ＝３２：ＥＴＭＲＭＡＸ＝０
- ＰＷ＝８：ＰＨ＝８：ＰＷＨ＝ＰＷ／２：ＰＨＨ＝ＰＨ／２
- ＰＸ＝０：ＰＹ＝０：ＰＳＰＤ＝２
- ＯＸ＝８：ＯＹ＝８
- ＢＣＳＨ＝５：ＢＳＨ＝（ＢＣＳＨ＊２＋１）＊８／２
- ’
- ＤＩＭ ＲＡＮＫ（１０）
- ＦＯＲ Ｉ＝０ ＴＯ １０－１
- ＲＡＮＫ（Ｉ）＝ＨＩＳＣＯＲＥ－Ｉ＊１０００
- ＮＥＸＴ
- ＤＩＭ ＢＣ（４），ＢＰ（４）
- ＢＣ（０）＝＆Ｈ０２０：ＢＰ（０）＝１
- ＢＣ（１）＝＆Ｈ３０Ｆ：ＢＰ（１）＝２
- ＢＣ（２）＝＆Ｈ０２５：ＢＰ（２）＝９
- ＢＣ（３）＝＆Ｈ０６５：ＢＰ（３）＝９
- ＥＳＮ＝８：ＥＮ＝４
- ＣＳＮ＝ＥＳＮ＋ＥＮ：ＣＮ＝６
- ＢＳＮ＝ＣＳＮ＋ＣＮ：ＢＮ＝１０
- ＤＩＭ ＥＸ（ＥＮ），ＥＹ（ＥＮ），ＥＦ（ＥＮ）
- ＤＩＭ ＣＸ（ＣＮ），ＣＹ（ＣＮ），ＣＦ（ＣＮ）
- ＤＩＭ ＢＸ（ＢＮ），ＢＹ（ＢＮ），ＢＳ（ＢＮ，２）
- ’
- ’＊＊＊＊＊＊＊＊＊＊＊＊
- ＠ＬＯＯＰ
- ＣＮＴＬ＝ＭＡＩＮＣＮＴＬ：ＦＰＳ＝０
- ＢＴＮＯ＝ＢＴＮ：ＢＴＮ＝ＢＵＴＴＯＮ（）
- ＢＴＮＤ＝ＢＴＮＯ ＸＯＲ ＢＴＮ ＡＮＤ ＢＴＮ
- ＩＦ ＢＴＮ＝＝５１２＋１０２４ ＴＨＥＮ ＠ＥＸＩＴ
- ＧＯＳＵＢ ＠ＰＡＵＳＥＣＨＫ
- ＩＦ ＰＡＵＳＥ ＧＯＴＯ ＠ＪＰＰＡＵＳＥ
- ＩＦ ＦＬＷ＝＝ＲＥＱ ＧＯＴＯ ＠ＪＰＦＬＯＷ
- ＦＬＷ＝ＲＥＱ
- ＯＮ ＦＬＷ ＧＯＳＵＢ ＠ＴＴＬＩ，＠ＧＮＥＷＩ，＠ＧＳＴＩ，＠ＧＡＭＥＩ，＠ＧＭＳＩ，＠ＧＣＬＲＩ，＠ＧＯＶＩ，＠ＲＮＫＩ
- ＠ＪＰＦＬＯＷ
- ＯＮ ＦＬＷ ＧＯＳＵＢ ＠ＴＴＬＬ，＠ＧＮＥＷＬ，＠ＧＳＴＬ，＠ＧＡＭＥＬ，＠ＧＭＳＬ，＠ＧＣＬＲＬ，＠ＧＯＶＬ，＠ＲＮＫＬ
- ＠ＪＰＰＡＵＳＥ
- ＶＳＹＮＣ １
- ＣＮＴＦ＝（ＣＮＴＦ＋１） ＡＮＤ ＆Ｈ７ＦＦＦＦ
- ＧＯＳＵＢ ＠ＦＰＳＰＲＴ
- ＧＯＴＯ ＠ＬＯＯＰ
- ＠ＥＸＩＴ
- ＰＮＬＴＹＰＥ”ＫＹＡ”
- ＶＩＳＩＢＬＥ １，１，０，０，０，０
- ＢＧＭＳＴＯＰ
- ＧＯＳＵＢ ＠ＧＡＬＬＣＬＲ
- ＥＮＤ
- ’＊＊＊＊＊＊＊＊＊＊＊＊
- ’ＳＵＢ
- ＠ＦＰＳＰＲＴ
- ＣＮＴＬ＝ＭＡＩＮＣＮＴＬ－ＣＮＴＬ
- ＩＦ ＣＮＴＬ ＴＨＥＮ ＦＰＳ＝６０／ＣＮＴＬ
- ＣＯＬＯＲ ３：ＬＯＣＡＴＥ ０，２３
- ＰＲＩＮＴ ＦＬＯＯＲ（ＦＰＳ）；” ”；
- ＲＥＴＵＲＮ
- ’ＰＡＵＳＥ ＣＨＥＣＫ ＳＴＡＲＴ ＢＵＴＴＯＮ ＰＡＵＳＥ
- ＠ＰＡＵＳＥＣＨＫ
- ＩＦ ＦＬＷ！＝３ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ （ＢＴＮＤ ＡＮＤ １０２４）＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＰＡＵＳＥ＝（ＰＡＵＳＥ＝＝０）
- ＢＥＥＰ ３
- Ｓ＄＝”ＰＡＵＳＥ”
- ＩＦ ＰＡＵＳＥ＝＝０ ＴＨＥＮ Ｓ＄＝ＭＩＤ＄（ＳＰ＄，０，ＬＥＮ（Ｓ＄））
- ＣＯＬＯＲ ３：ＬＯＣＡＴＥ １３，１１
- ＰＲＩＮＴ Ｓ＄
- ＲＥＴＵＲＮ
- ’ＡＬＬ ＣＬＥＡＲ
- ＠ＧＡＬＬＣＬＲ
- ＣＬＳ：ＣＯＬＯＲ ０
- ＳＰＰＡＧＥ １：ＳＰＣＬＲ：ＳＰＰＡＧＥ ０：ＳＰＣＬＲ
- ＦＯＲ Ｉ＝０ ＴＯ １
- ＢＧＰＡＧＥ Ｉ
- ＢＧＯＦＳ ０，０，０：ＢＧＯＦＳ １，０，０
- ＢＧＣＬＩＰ ０，０，３１，２３
- ＦＯＲ Ｙ＝０ ＴＯ ＢＧＨ－１
- ＦＯＲ Ｘ＝０ ＴＯ ＢＧＷ－１
- ＢＧＰＵＴ ０，Ｘ，Ｙ，０，０，０，０
- ＢＧＰＵＴ １，Ｘ，Ｙ，０，０，０，０
- ＮＥＸＴ
- ＮＥＸＴ
- ＮＥＸＴ
- ＢＧＰＡＧＥ ０
- ＧＰＡＧＥ １：ＧＣＯＬＯＲ ０：ＧＣＬＳ
- ＧＰＡＧＥ ０：ＧＣＯＬＯＲ ０：ＧＣＬＳ
- ＲＥＴＵＲＮ
- ’＊＊＊＊＊＊＊＊＊＊＊＊
- ’ＦＬＯＷ
- ’ＴＩＴＬＥ
- ＠ＴＴＬＩ
- ＢＧＭＳＴＯＰ
- ＶＩＳＩＢＬＥ １，１，０，０，０，０
- ＧＯＳＵＢ ＠ＧＡＬＬＣＬＲ
- ＲＥＳＴＯＲＥ ＠ＴＩＴＬＥＤ
- ＹＹ＝ＣＨ
- ＦＯＲ Ｙ＝０ ＴＯ ５
- ＸＸ＝２
- ＦＯＲ Ｘ＝０ ＴＯ １
- ＲＥＡＤ Ｃ
- Ｂ＝＆Ｈ８０００
- ＦＯＲ Ｉ＝０ ＴＯ １５
- ＩＦ Ｃ ＡＮＤ Ｂ ＴＨＥＮ ＢＧＰＵＴ １，ＸＸ，ＹＹ，ＢＣ（１），ＢＰ（１），０，０
- ＸＸ＝ＸＸ＋１：Ｂ＝Ｂ／２
- ＮＥＸＴ
- ＮＥＸＴ
- ＹＹ＝ＹＹ＋１
- ＮＥＸＴ
- ＶＩＳＩＢＬＥ １，１，１，１，１，１
- ＢＧＯＦＳ １，０，ＧＨ－２＊８，６０
- ＴＭＲ＝６０＊１０
- ＲＥＴＵＲＮ
- ＠ＴＴＬＬ
- ＴＭＲ＝ＴＭＲ－１
- ＩＦ ＴＭＲ＜＝０ ＴＨＥＮ ＲＥＱ＝７
- ＣＯＬＯＲ ０：ＬＯＣＡＴＥ ９，１６
- Ｓ＄＝”ＰＵＳＨ Ａ ＢＵＴＴＯＮ”
- ＩＦ ＣＮＴＦ ＡＮＤ ＆Ｈ２０ ＴＨＥＮ Ｓ＄＝ＭＩＤ＄（ＳＰ＄，０，ＬＥＮ（Ｓ＄））
- ＰＲＩＮＴ Ｓ＄
- ＩＦ ＢＴＮＤ ＡＮＤ １６ ＴＨＥＮ ＲＥＱ＝１
- ＬＯＣＡＴＥ １１，２０
- ＰＲＩＮＴ ＣＨＲ＄（＆Ｈ１３）；”：ＭＯＶＥ”
- ＬＯＣＡＴＥ １１，２１
- ＰＲＩＮＴ ＣＨＲ＄（＆Ｈ０１）；”：ＢＯＭＢＥＲ”
- ＲＥＴＵＲＮ
- ’ＮＥＷ ＧＡＭＥ
- ＠ＧＮＥＷＩ
- ＳＣＯＲＥ＝０：ＬＥＶＥＬ＝０
- ＳＳＰＤ＝ＳＳＰＤＭＩＮ
- ＲＷ＝ＲＷＭＡＸ
- ＬＩＦＥ＝ＬＩＦＥＭＡＸ
- ＣＨＧ＝０
- ＲＥＱ＝２
- ＲＥＴＵＲＮ
- ＠ＧＮＥＷＬ
- ＲＥＴＵＲＮ
- ’ＧＡＭＥ ＳＴＡＲＴ
- ＠ＧＳＴＩ
- ＣＬＳ
- ＴＭＲ＝６０＊２
- Ｌ＝ＬＥＶＥＬ％１０
- ＳＴＭＲ＝０
- ＳＴＭＲＭＡＸ＝ＬＥＶＥＬ＊６０＊２＋ＳＴＭＲＭＩＮ
- ＲＷ＝ＲＷＭＡＸ－Ｌ
- ＩＦ ＲＷ＜ＲＷＭＩＮ ＴＨＥＮ ＲＷ＝ＲＷＭＩＮ
- ＲＸ＝（ＣＷ－ＲＷ）／２
- ＳＳＰＤ＝ＳＳＰＤＭＩＮ＋（Ｌ＊０．５）
- ＩＦ ＳＳＰＤ＞ＳＳＰＤＭＡＸ ＴＨＥＮ ＳＳＰＤ＝ＳＳＰＤＭＡＸ
- ＥＴＭＲＭＡＸ＝１００－（Ｌ＊５）
- ＩＦ ＥＴＭＲＭＡＸ＜ＥＴＭＲＭＩＮ ＴＨＥＮ ＥＴＭＲＭＡＸ＝ＥＴＭＲＭＩＮ
- ＰＸ＝ＧＷ／２：ＰＹ＝ＧＨ－ＰＨ－１６
- ＳＣＲＸ＝０：ＳＣＲＹ＝０：ＢＧＰＹ＝９９９９
- ＣＨＡＩＮ＝０：ＣＨＡＩＮＭＡＸ＝０
- ＣＨＧ＝ＣＨＧＭＡＸ
- ＢＴＭＲ＝－１
- ＧＯＳＵＢ ＠ＧＢＧＩ
- ＧＯＳＵＢ ＠ＰＬＡＹＥＲＩ
- ＧＯＳＵＢ ＠ＥＮＥＭＹＩ
- ＧＯＳＵＢ ＠ＣＯＩＮＩ
- ＧＯＳＵＢ ＠ＢＯＭＢＥＦＦＩ
- ＧＯＳＵＢ ＠ＳＣＯＲＥＩ
- ＢＧＯＦＳ １，ＳＣＲＸ，ＳＣＲＹ
- ＳＰＯＦＳ ０，ＰＸ－ＯＸ，ＰＹ－ＯＹ
- ＶＩＳＩＢＬＥ １，１，１，１，１，１
- ＢＧＭＰＬＡＹ ４
- ＣＯＬＯＲ ０：ＬＯＣＡＴＥ １２，１０
- ＰＲＩＮＴ”ＬＥＶＥＬ ”；ＬＥＶＥＬ＋１
- ＬＯＣＡＴＥ １２，１２
- ＰＲＩＮＴ”ＬＥＦＴ ”；ＬＩＦＥ－１
- ＬＯＣＡＴＥ １２，１４
- ＰＲＩＮＴ ＦＬＯＯＲ（ＳＴＭＲＭＡＸ／６０）；”ＳＥＣ ＴＨＲＯＵＧＨ”
- ＲＥＴＵＲＮ
- ＠ＧＳＴＬ
- ＴＭＲ＝ＴＭＲ－１
- ＩＦ ＴＭＲ＜＝０ ＴＨＥＮ ＲＥＱ＝３
- ＩＦ ＲＥＱ！＝ＦＬＷ ＴＨＥＮ ＣＬＳ：ＧＯＳＵＢ ＠ＳＣＯＲＥＩ
- ＲＥＴＵＲＮ
- ’ＧＡＭＥ
- ＠ＧＡＭＥＩ
- ＢＧＭＰＬＡＹ ３
- ＲＥＴＵＲＮ
- ＠ＧＡＭＥＬ
- ＧＯＳＵＢ ＠ＧＢＧ
- ＧＯＳＵＢ ＠ＰＬＡＹＥＲ
- ＧＯＳＵＢ ＠ＥＮＥＭＹ
- ＧＯＳＵＢ ＠ＣＯＩＮ
- ＧＯＳＵＢ ＠ＢＯＭＢＥＦＦ
- ＧＯＳＵＢ ＠ＳＣＯＲＥ
- ＲＥＴＵＲＮ
- ’ＧＡＭＥ ＭＩＳＳ
- ＠ＧＭＳＩ
- ＬＩＦＥ＝ＬＩＦＥ－１
- ＴＭＲ＝６０＊２
- ＳＰＳＥＴ １，＆ＨＦ８，０，０，０，１
- ＳＰＯＦＳ １，ＰＸ－ＯＸ，ＰＹ－ＯＹ
- ＳＰＡＮＩＭ １，３，４，０
- ＢＥＥＰ １３：ＢＧＭＳＴＯＰ
- ＲＥＴＵＲＮ
- ＠ＧＭＳＬ
- ＴＭＲ＝ＴＭＲ－１
- ＩＦ ＴＭＲ＜＝０ ＴＨＥＮ ＲＥＱ＝２
- ＩＦ ＲＥＱ＝＝２ ＡＮＤ ＬＩＦＥ＜＝０ ＴＨＥＮ ＲＥＱ＝６
- ＩＦ ＲＥＱ！＝ＦＬＷ ＴＨＥＮ ＳＰＣＬＲ １
- ＲＥＴＵＲＮ
- ’ＧＡＭＥ ＳＴＡＧＥ ＣＬＥＡＲ
- ＠ＧＣＬＲＩ
- ＬＥＶＥＬ＝ＬＥＶＥＬ＋１
- ＩＦ ＬＥＶＥＬ＞ＬＥＶＥＬＭＡＸ ＴＨＥＮ ＬＥＶＥＬ＝ＬＥＶＥＬＭＡＸ
- ＴＭＲ＝６０＊３
- ＳＣＯＲＥ＝ＳＣＯＲＥ＋ＣＨＡＩＮＭＡＸ＊ＣＨＡＩＮＭＵＬ
- ＧＯＳＵＢ ＠ＳＣＯＲＥ
- ＢＧＭＰＬＡＹ ５
- ＳＰＯＦＳ ０，ＰＸ－ＯＸ，ＰＹ－ＯＹ－ＧＨ－１６，ＴＭＲ／３
- ＣＯＬＯＲ ０
- ＬＯＣＡＴＥ １３，１０
- ＰＲＩＮＴ”ＣＬＥＡＲ”
- ＬＯＣＡＴＥ １０，１２
- ＰＲＩＮＴ”ＭＡＸ ＣＨＡＩＮ ”；ＣＨＡＩＮＭＡＸ
- ＬＯＣＡＴＥ １０，１４
- ＰＲＩＮＴ”ＢＯＮＵＳ ”；ＣＨＡＩＮＭＡＸ＊ＣＨＡＩＮＭＵＬ；”０”
- ＲＥＴＵＲＮ
- ＠ＧＣＬＲＬ
- ＴＭＲ＝ＴＭＲ－１
- ＩＦ ＴＭＲ＜＝０ ＴＨＥＮ ＲＥＱ＝２
- ＧＯＳＵＢ ＠ＢＯＭＢＥＦＦ
- ＲＥＴＵＲＮ
- ’ＧＡＭＥ ＯＶＥＲ
- ＠ＧＯＶＩ
- ＴＭＲ＝６０＊６
- ＢＧＭＰＬＡＹ ６
- ＣＯＬＯＲ １３
- ＬＯＣＡＴＥ １１，１１：ＰＲＩＮＴ”ＧＡＭＥ ＯＶＥＲ”
- ＣＯＬＯＲ ０
- ＲＥＴＵＲＮ
- ＠ＧＯＶＬ
- ＩＦ ＢＴＮＤ ＡＮＤ １６ ＴＨＥＮ ＲＥＱ＝７
- ＴＭＲ＝ＴＭＲ－１
- ＩＦ ＴＭＲ＜＝０ ＴＨＥＮ ＲＥＱ＝７
- ＲＥＴＵＲＮ
- ’ＲＡＮＫＩＮＧ
- ＠ＲＮＫＩ
- ＢＧＭＳＴＯＰ
- ＧＯＳＵＢ ＠ＧＡＬＬＣＬＲ
- ＴＭＲ＝６０＊１０
- ＩＦ ＳＣＯＲＥ＞ＨＩＳＣＯＲＥ ＴＨＥＮ ＨＩＳＣＯＲＥ＝ＳＣＯＲＥ
- ＲＡＮＫＩＮ＝－１
- ＦＯＲ Ｉ＝０ ＴＯ ９
- ＩＦ ＳＣＯＲＥ＞＝ＲＡＮＫ（Ｉ） ＴＨＥＮ ＲＡＮＫＩＮ＝Ｉ：Ｉ＝９９９９
- ＮＥＸＴ
- ＩＦ ＲＡＮＫＩＮ＜０ ＴＨＥＮ ＠ＪＰＲＡＮＫＩＮ
- ＦＯＲ Ｉ＝８ ＴＯ ＲＡＮＫＩＮ ＳＴＥＰ －１
- ＲＡＮＫ（Ｉ＋１）＝ＲＡＮＫ（Ｉ）
- ＮＥＸＴ
- ＲＡＮＫ（ＲＡＮＫＩＮ）＝ＳＣＯＲＥ
- ＠ＪＰＲＡＮＫＩＮ
- ＣＯＬＯＲ ０：ＬＯＣＡＴＥ ８，５
- ＰＲＩＮＴ”ＴＯＤＡＹ’Ｓ ＲＡＮＫＩＮＧ”
- ＦＯＲ Ｉ＝０ ＴＯ １０－１
- ＣＯＬＯＲ ０
- ＩＦ Ｉ＝＝ＲＡＮＫＩＮ ＴＨＥＮ ＣＯＬＯＲ ３
- Ｓ＄＝ＳＴＲ＄（Ｉ＋１）
- ＬＯＣＡＴＥ ８＋（６－ＬＥＮ（Ｓ＄）），７＋Ｉ
- ＰＲＩＮＴ Ｓ＄
- Ｓ＄＝ＳＴＲ＄（ＲＡＮＫ（Ｉ））
- ＬＯＣＡＴＥ １５＋（６－ＬＥＮ（Ｓ＄）），７＋Ｉ
- ＰＲＩＮＴ Ｓ＄；”０”
- ＮＥＸＴ
- ＳＣＯＲＥ＝０
- ＲＥＴＵＲＮ
- ＠ＲＮＫＬ
- ＴＭＲ＝ＴＭＲ－１
- ＩＦ ＴＭＲ＜＝０ ＴＨＥＮ ＲＥＱ＝０
- ＩＦ ＢＴＮＤ ＡＮＤ １６ ＴＨＥＮ ＲＥＱ＝０
- ＲＥＴＵＲＮ
- ’＊＊＊＊＊＊＊＊＊＊＊＊
- ’ＧＡＭＥ ＳＵＢ
- ’ＰＬＡＹＥＲ
- ＠ＰＬＡＹＥＲＩ
- ＳＰＳＥＴ ０，＆Ｈ８Ｂ，１１，０，０，２
- ＲＥＴＵＲＮ
- ＠ＰＬＡＹＥＲ
- ＩＦ ＢＴＮ ＡＮＤ １ ＴＨＥＮ ＰＹ＝ＰＹ－ＰＳＰＤ
- ＩＦ ＢＴＮ ＡＮＤ ２ ＴＨＥＮ ＰＹ＝ＰＹ＋ＰＳＰＤ
- ＩＦ ＢＴＮ ＡＮＤ ４ ＴＨＥＮ ＰＸ＝ＰＸ－ＰＳＰＤ
- ＩＦ ＢＴＮ ＡＮＤ ８ ＴＨＥＮ ＰＸ＝ＰＸ＋ＰＳＰＤ
- ＩＦ ＰＸ＜ＯＸ ＴＨＥＮ ＰＸ＝ＯＸ
- ＩＦ ＰＸ＞ＧＷ－ＯＸ ＴＨＥＮ ＰＸ＝ＧＷ－ＯＸ
- ＩＦ ＰＹ＜ＯＹ ＴＨＥＮ ＰＹ＝ＯＹ
- ＩＦ ＰＹ＞ＧＨ－ＯＹ ＴＨＥＮ ＰＹ＝ＧＨ－ＯＹ
- ＳＰＯＦＳ ０，ＰＸ－ＯＸ，ＰＹ－ＯＹ
- ＧＯＳＵＢ ＠ＢＯＭＢＥＲ
- ＨＦ＝０
- ＦＯＲ Ｙ＝－ＰＨＨ ＴＯ ＰＨＨ ＳＴＥＰ ＰＨＨ
- ＹＹ＝（Ｙ＋ＰＹ＋ＳＣＲＹ）／ＰＨ
- ＦＯＲ Ｘ＝－ＰＷＨ ＴＯ ＰＷＨ ＳＴＥＰ ＰＷＨ
- ＸＸ＝（Ｘ＋ＰＸ＋ＳＣＲＸ）／ＰＷ
- ＢＧＲＥＡＤ（１，ＸＸ，ＹＹ），Ｃ，Ｐ，Ｈ，Ｖ
- ＩＦ Ｃ＝＝ＢＣ（１） ＴＨＥＮ ＨＦ＝１
- ＩＦ Ｃ＝＝ＢＣ（３） ＴＨＥＮ ＲＥＱ＝５
- ＩＦ Ｃ！＝ＢＣ（０） ＴＨＥＮ ＠ＪＰＨＩＴ
- ＢＧＰＵＴ １，ＸＸ，ＹＹ，ＢＣ（２），ＢＰ（２），０，０
- ＳＣＯＲＥ＝ＳＣＯＲＥ＋１
- ＠ＪＰＨＩＴ
- ＮＥＸＴ
- ＮＥＸＴ
- ＩＦ ＨＦ ＴＨＥＮ ＲＥＱ＝４
- ＲＥＴＵＲＮ
- ’ＢＯＭＢＥＲ
- ＠ＢＯＭＢＥＲ
- ＩＦ （ＢＴＮＤ ＡＮＤ １６）＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＣＨＧ＜ＣＨＧＭＡＸ ＴＨＥＮ ＲＥＴＵＲＮ
- ＣＨＧ＝０
- ＢＥＥＰ １０：ＢＥＥＰ １３
- ＹＹ＝（ＰＹ＋ＳＣＲＹ）／８
- ＦＯＲ Ｙ＝－ＢＣＳＨ ＴＯ ＢＣＳＨ
- ＸＸ＝（ＰＸ＋ＳＣＲＸ）／８
- ＦＯＲ Ｘ＝－ＢＣＳＨ ＴＯ ＢＣＳＨ
- ＢＧＰＵＴ １，ＸＸ＋Ｘ，ＹＹ＋Ｙ，ＢＣ（２），ＢＰ（２），０，０
- ＮＥＸＴ
- ＮＥＸＴ
- ＦＯＲ Ｉ＝０ ＴＯ ＥＮ－１
- ＩＦ ＥＦ（Ｉ）＜＝０ ＴＨＥＮ ＠ＪＰＢＯＭＢ
- ＩＦ ＰＹ－ＢＳＨ＞ＥＹ（Ｉ）＋ＯＹ ＴＨＥＮ ＠ＪＰＢＯＭＢ
- ＩＦ ＰＹ＋ＢＳＨ＜ＥＹ（Ｉ）－ＯＹ ＴＨＥＮ ＠ＪＰＢＯＭＢ
- ＩＦ ＰＸ－ＢＳＨ＞ＥＸ（Ｉ）＋ＯＸ ＴＨＥＮ ＠ＪＰＢＯＭＢ
- ＩＦ ＰＸ＋ＢＳＨ＜ＥＸ（Ｉ）－ＯＸ ＴＨＥＮ ＠ＪＰＢＯＭＢ
- ＥＦ（Ｉ）＝０
- ＳＰＣＬＲ ＥＳＮ＋Ｉ
- ＠ＪＰＢＯＭＢ
- ＮＥＸＴ
- ＢＴＭＲ＝ＢＴＭＲＭＡＸ
- Ｓ＝ＢＳＨ／ＢＴＭＲ
- ＦＯＲ Ｉ＝０ ＴＯ ＢＮ－１
- ＢＸ（Ｉ）＝ＰＸ：ＢＹ（Ｉ）＝ＰＹ
- Ｒ＝ＲＡＤ（Ｉ＊３６０／ＢＮ）
- ＢＳ（Ｉ，０）＝ＣＯＳ（Ｒ）＊Ｓ
- ＢＳ（Ｉ，１）＝ＳＩＮ（Ｒ）＊Ｓ
- ＳＰＳＥＴ ＢＳＮ＋Ｉ，＆Ｈ３４，３，０，０，１
- ＳＰＯＦＳ ＢＳＮ＋Ｉ，ＢＸ（Ｉ）－ＯＸ，ＢＹ（Ｉ）－ＯＹ
- ＳＰＡＮＩＭ ＢＳＮ＋Ｉ，４，４，０
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’ＢＯＭＢＥＲ ＥＦＦＥＣＴ
- ＠ＢＯＭＢＥＦＦＩ
- ＦＯＲ Ｉ＝０ ＴＯ ＢＮ－１
- ＳＰＣＬＲ ＢＳＮ＋Ｉ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＢＯＭＢＥＦＦ
- ＩＦ ＢＴＭＲ＜０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＢＴＭＲ＝ＢＴＭＲ－１
- ＩＦ ＢＴＭＲ＜０ ＴＨＥＮ ＠ＢＯＭＢＥＦＦＩ
- ＦＯＲ Ｉ＝０ ＴＯ ＢＮ－１
- ＢＸ（Ｉ）＝ＢＸ（Ｉ）＋ＢＳ（Ｉ，０）
- ＢＹ（Ｉ）＝ＢＹ（Ｉ）＋ＢＳ（Ｉ，１）＋ＳＳＰＤ
- ＳＰＯＦＳ ＢＳＮ＋Ｉ，ＢＸ（Ｉ）－ＯＸ，ＢＹ（Ｉ）－ＯＹ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’ＥＮＥＭＹ
- ＠ＥＮＥＭＹＩ
- ＦＯＲ Ｉ＝０ ＴＯ ＥＮ－１
- ＥＦ（Ｉ）＝０
- ＳＰＣＬＲ ＥＳＮ＋Ｉ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＥＮＥＭＹＧＥＮ
- ＩＦ ＳＴＭＲ＞＝ＳＴＭＲＭＡＸ ＴＨＥＮ ＲＥＴＵＲＮ
- ＥＴＭＲ＝ＥＴＭＲ＋ＳＳＰＤ
- ＩＦ ＥＴＭＲ＜ＥＴＭＲＭＡＸ ＴＨＥＮ ＲＥＴＵＲＮ
- ＥＩ＝－１：ＥＴＭＲ＝０
- ＦＯＲ Ｉ＝０ ＴＯ ＥＮ－１
- ＩＦ ＥＦ（Ｉ）＜＝０ ＴＨＥＮ ＥＩ＝Ｉ：Ｉ＝９９９９
- ＮＥＸＴ
- ＩＦ ＥＩ＜０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＥＸ（ＥＩ）＝（ＲＸ＋ＲＮＤ（ＲＷ））＊８
- ＥＹ（ＥＩ）＝－ＯＹ
- ＥＦ（ＥＩ）＝１
- ＳＰＳＥＴ ＥＳＮ＋ＥＩ，＆ＨＢ２，１１，０，０，２
- ＳＰＯＦＳ ＥＳＮ＋ＥＩ，ＥＸ（ＥＩ）－ＯＸ，ＥＹ（ＥＩ）－ＯＹ
- ＳＰＡＮＩＭ ＥＳＮ＋ＥＩ，３，８，０
- ＲＥＴＵＲＮ
- ＠ＥＮＥＭＹ
- ＧＯＳＵＢ ＠ＥＮＥＭＹＧＥＮ
- ＦＯＲ Ｉ＝０ ＴＯ ＥＮ－１
- ＩＦ ＥＦ（Ｉ）＜＝０ ＴＨＥＮ ＠ＪＰＥＮＥ
- ＥＹ（Ｉ）＝ＥＹ（Ｉ）＋ＳＳＰＤ
- ＩＦ ＥＹ（Ｉ）＞＝ＧＨ＋ＯＹ ＴＨＥＮ ＠ＥＮＥＣＬＲ
- ＳＰＯＦＳ ＥＳＮ＋Ｉ，ＥＸ（Ｉ）－ＯＸ，ＥＹ（Ｉ）－ＯＹ
- ＩＦ ＰＹ－ＰＨＨ＞ＥＹ（Ｉ）＋ＯＹ ＴＨＥＮ ＠ＪＰＥＮＥ
- ＩＦ ＰＹ＋ＰＨＨ＜ＥＹ（Ｉ）－ＯＹ ＴＨＥＮ ＠ＪＰＥＮＥ
- ＩＦ ＰＸ－ＰＷＨ＞ＥＸ（Ｉ）＋ＯＸ ＴＨＥＮ ＠ＪＰＥＮＥ
- ＩＦ ＰＸ＋ＰＷＨ＜ＥＸ（Ｉ）－ＯＸ ＴＨＥＮ ＠ＪＰＥＮＥ
- ＲＥＱ＝４
- ＠ＥＮＥＣＬＲ
- ＥＦ（Ｉ）＝０
- ＳＰＣＬＲ ＥＳＮ＋Ｉ
- ＠ＪＰＥＮＥ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’ＣＯＩＮトイウカＳＴＡＲ
- ＠ＣＯＩＮＩ
- ＣＴＭＲ＝０
- ＦＯＲ Ｉ＝０ ＴＯ ＣＮ－１
- ＣＦ（Ｉ）＝０
- ＳＰＣＬＲ ＣＳＮ＋Ｉ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＣＯＩＮＧＥＮ
- ＩＦ ＳＴＭＲ＞＝ＳＴＭＲＭＡＸ ＴＨＥＮ ＲＥＴＵＲＮ
- ＣＴＭＲ＝ＣＴＭＲ＋ＳＳＰＤ
- ＩＦ ＣＴＭＲ＜ＣＴＭＲＭＡＸ ＴＨＥＮ ＲＥＴＵＲＮ
- ＣＴＭＲ＝０：ＣＩ＝－１
- ＦＯＲ Ｉ＝０ ＴＯ ＣＮ－１
- ＩＦ ＣＦ（Ｉ）＜＝０ ＴＨＥＮ ＣＩ＝Ｉ：Ｉ＝９９９９
- ＮＥＸＴ
- ＩＦ ＣＩ＜０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＣＸ（ＣＩ）＝（ＲＸ＋ＲＷ／２）＊８＋ＲＮＤ（３２）－１６
- ＣＹ（ＣＩ）＝－ＯＹ
- ＣＦ（ＣＩ）＝１
- ＳＰＳＥＴ ＣＳＮ＋ＣＩ，＆Ｈ９Ｃ，３，０，０，２
- ＳＰＯＦＳ ＣＳＮ＋ＣＩ，ＣＸ（ＣＩ）－ＯＸ，ＣＹ（ＣＩ）－ＯＹ
- ＳＰＡＮＩＭ ＣＳＮ＋ＣＩ，４，４，０
- ＲＥＴＵＲＮ
- ＠ＣＯＩＮ
- ＧＯＳＵＢ ＠ＣＯＩＮＧＥＮ
- ＦＯＲ Ｉ＝０ ＴＯ ＣＮ－１
- ＩＦ ＣＦ（Ｉ）＜＝０ ＴＨＥＮ ＠ＪＰＣＯＩＮ
- ＣＹ（Ｉ）＝ＣＹ（Ｉ）＋ＳＳＰＤ
- ＩＦ ＣＹ（Ｉ）＞＝ＧＨ＋ＯＹ ＴＨＥＮ ＣＨＡＩＮ＝０：ＧＯＴＯ ＠ＣＯＩＮＣＬＲ
- ＳＰＯＦＳ ＣＳＮ＋Ｉ，ＣＸ（Ｉ）－ＯＸ，ＣＹ（Ｉ）－ＯＹ
- ＩＦ ＰＹ－ＰＨＨ＞ＣＹ（Ｉ）＋ＯＹ ＴＨＥＮ ＠ＪＰＣＯＩＮ
- ＩＦ ＰＹ＋ＰＨＨ＜ＣＹ（Ｉ）－ＯＹ ＴＨＥＮ ＠ＪＰＣＯＩＮ
- ＩＦ ＰＸ－ＰＷＨ＞ＣＸ（Ｉ）＋ＯＸ ＴＨＥＮ ＠ＪＰＣＯＩＮ
- ＩＦ ＰＸ＋ＰＷＨ＜ＣＸ（Ｉ）－ＯＸ ＴＨＥＮ ＠ＪＰＣＯＩＮ
- ＢＥＥＰ ７
- ＳＣＯＲＥ＝ＳＣＯＲＥ＋１
- ＣＨＡＩＮ＝ＣＨＡＩＮ＋１
- ＩＦ ＣＨＡＩＮ＞ＣＨＡＩＮＭＡＸ ＴＨＥＮ ＣＨＡＩＮＭＡＸ＝ＣＨＡＩＮ
- ＣＨＧＯ＝ＣＨＧ：ＣＨＧ＝ＣＨＧ＋１
- ＩＦ ＣＨＧ＞ＣＨＧＭＡＸ ＴＨＥＮ ＣＨＧ＝ＣＨＧＭＡＸ
- ＩＦ ＣＨＧＯ！＝ＣＨＧ ＡＮＤ ＣＨＧ＝＝ＣＨＧＭＡＸ ＴＨＥＮ ＢＥＥＰ ３７
- ＠ＣＯＩＮＣＬＲ
- ＣＦ（Ｉ）＝０
- ＳＰＣＬＲ ＣＳＮ＋Ｉ
- ＠ＪＰＣＯＩＮ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ’ＢＧ
- ＠ＧＢＧＩ
- ＢＧＰＡＧＥ ０
- ＦＯＲ Ｙ＝０ ＴＯ ＣＨ－１
- ＦＯＲ Ｘ＝０ ＴＯ ＣＷ－１
- ＢＧＰＵＴ １，Ｘ，Ｙ，ＢＣ（１），ＢＰ（１），０，０
- ＮＥＸＴ
- ＦＯＲ Ｘ＝ＲＸ ＴＯ ＲＸ＋ＲＷ－１
- ＢＧＰＵＴ １，Ｘ，Ｙ，ＢＣ（０），ＢＰ（０），０，０
- ＮＥＸＴ
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＧＢＧ
- ＳＴＭＲ＝ＳＴＭＲ＋１
- ＢＧＰＹＯ＝ＢＧＰＹ
- ＢＧＰＹ＝（（ＳＣＲＹ－７）／８） ＡＮＤ ６３
- ＩＦ ＢＧＰＹＯ＝＝ＢＧＰＹ ＴＨＥＮ ＠ＪＰＧＢＧ
- ＩＦ ＳＴＭＲ＞＝ＳＴＭＲＭＡＸ ＴＨＥＮ ＠ＢＧＧＯＡＬ
- ＦＯＲ Ｘ＝０ ＴＯ ＲＸ－１
- ＢＧＰＵＴ １，Ｘ，ＢＧＰＹ，ＢＣ（１），ＢＰ（１），０，０
- ＮＥＸＴ
- ＦＯＲ Ｘ＝ＲＸ ＴＯ ＲＸ＋ＲＷ－１
- ＢＧＰＵＴ １，Ｘ，ＢＧＰＹ，ＢＣ（０），ＢＰ（０），０，０
- ＮＥＸＴ
- ＦＯＲ Ｘ＝ＲＸ＋ＲＷ ＴＯ ＣＷ－１
- ＢＧＰＵＴ １，Ｘ，ＢＧＰＹ，ＢＣ（１），ＢＰ（１），０，０
- ＮＥＸＴ
- ＧＯＴＯ ＠ＪＰＢＧＧＯＡＬ
- ＠ＢＧＧＯＡＬ
- ＦＯＲ Ｘ＝０ ＴＯ ＣＷ－１
- ＢＧＰＵＴ １，Ｘ，ＢＧＰＹ，ＢＣ（３），ＢＰ（３），０，０
- ＮＥＸＴ
- ＠ＪＰＢＧＧＯＡＬ
- ＲＸ＝ＲＸ＋ＲＮＤ（３）－１
- ＩＦ ＲＸ＜１ ＴＨＥＮ ＲＸ＝１
- ＩＦ ＲＸ＞ＣＷ－ＲＷ－１ ＴＨＥＮ ＲＸ＝ＣＷ－ＲＷ－１
- ＠ＪＰＧＢＧ
- ＳＣＲＹ＝ＳＣＲＹ－ＳＳＰＤ
- ＩＦ ＳＣＲＹ＜０ ＴＨＥＮ ＳＣＲＹ＝ＳＣＲＹ ＡＮＤ ５１１
- ＢＧＯＦＳ １，ＳＣＲＸ，ＳＣＲＹ
- ＲＥＴＵＲＮ
- ’ＳＣＯＲＥ ＥＴＣ．
- ＠ＳＣＯＲＥＩ
- ＣＯＬＯＲ ３：ＬＯＣＡＴＥ ０，０
- ’０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９
- ＰＲＩＮＴ”ＳＣＯＲＥ： ０ ＨＩ－ＳＣＯＲＥ： ０”；
- ＬＯＣＡＴＥ ０，１
- ＦＯＲ Ｉ＝０ ＴＯ ＬＩＦＥ－２
- ＰＲＩＮＴ ＣＨＲ＄（５）；
- ＮＥＸＴ
- Ｓ＄＝ＳＴＲ＄（ＨＩＳＣＯＲＥ）
- ＬＯＣＡＴＥ ２５＋（６－ＬＥＮ（Ｓ＄）），０
- ＰＲＩＮＴ Ｓ＄
- ＠ＳＣＯＲＥ
- ＩＦ ＳＣＯＲＥ＞ＳＣＭＡＸ ＴＨＥＮ ＳＣＯＲＥ＝ＳＣＭＡＸ
- ＣＯＬＯＲ ３
- Ｓ＄＝ＳＴＲ＄（ＳＣＯＲＥ）
- ＬＯＣＡＴＥ ６＋（６－ＬＥＮ（Ｓ＄）），０
- ＰＲＩＮＴ Ｓ＄
- Ｐ＝０
- ＩＦ （ＣＨＧ＞＝ＣＨＧＭＡＸ） ＡＮＤ （ＣＮＴＦ ＡＮＤ ２）！＝０ ＴＨＥＮ Ｐ＝２
- ＳＰＳＥＴ ２，＆ＨＤＢ，Ｐ，０，０，１
- ＳＰＯＦＳ ２，１１２，１２－１６＊ＣＨＧ／ＣＨＧＭＡＸ
- ＳＰＳＣＡＬＥ ２，ＣＨＧ／ＣＨＧＭＡＸ＊２００
- ＲＥＴＵＲＮ
- ’＊＊＊＊＊＊＊＊＊＊＊＊
- ’ＤＡＴＡ
- ’ＴＩＴＬＥ ＤＡＴＡ
- ＠ＴＩＴＬＥＤ
- ＤＡＴＡ ＆Ｈ７Ｃ０４，＆Ｈ００８０
- ＤＡＴＡ ＆Ｈ０８２４，＆Ｈ０３Ｆ０
- ＤＡＴＡ ＆Ｈ１０２４，＆ＨＦ８９０
- ＤＡＴＡ ＆Ｈ２０４８，＆Ｈ０１２０
- ＤＡＴＡ ＆Ｈ５０９２，＆Ｈ０２２０
- ＤＡＴＡ ＆Ｈ８Ｄ１Ｃ，＆Ｈ０４４０
