SHOOT! by 武部健一
あの『日経ソフトウエア』からの投稿！ 近日発売の６月号（2011年4月23日発売予定）ではプチコンがちょっとだけ記事になるぞ。
プログラムは本格派のシューティング。十字ボタンで自機を操作して、Ａボタンのショットで敵機を破壊しよう。
弾は微妙に角度をつけて発射される。Ａボタン押しっぱなしで連射になるぞ。
キミは敵の猛攻をくぐり抜けてボスキャラクターを倒せるかな？
私が作りました
武部健一
本業は日経ソフトウエアの編集者です。FM-NEW7のユーザーでした。
BASICは超久しぶり！
プチコンをまだよくわかっていないときに作ったのでちょっと無意味なコード（CHRINITの呼び出し）が混じってますがカンベン！
CHECK POiNT 
ほほう、紙媒体の雑誌記事にも登場か。これでまた一歩『年刊 A● Sk●!』に近づいたわい。
そこ？
ともあれ、非常にシンプルなリストでこれだけ本格的に作ってあるのはサスガじゃな。
作者コメントには
作者コメントには
ＣＨＲＩＮＩＴが無意味とあるが、他のプログラムの後に実行することも考えればこれも必要じゃろう。
読みやすいプログラムリストだから参考にするにはとても良さそうだね。
テメエら大企業相手だからって逃げ腰になってんじゃねえぞ！ ゲット・ピス！ ハードすぎてなかなか勝てねえぜ、シット！
せっかく分かりやすいプログラムなのじゃから、敵の出現率を低めたり、敵弾の角度を限定したりと改造してもいいかもしれんな。
敵弾は
敵弾は
ＡＴＡＮ関数に引数を２つ渡して自機の方向を求めているのがポイントじゃ。ワシの青春時代は敵弾は16方向限定とかよくあったものじゃよ。（ん？ ……博士の青春時代……？ ジジイ、本当はいくつなんだ？）
プログラムリスト
- ＠ＳＴＡＲＴ
- ＣＬＥＡＲ：ＣＬＳ：ＧＣＬＳ：ＳＰＣＬＲ：ＣＯＬＯＲ ０
- ＶＩＳＩＢＬＥ ０，０，０，０，０，０
- ＳＣＯＲＥ＝０：ＴＩＭＥ＝０
- ’シ゛キ ショキカ ＳＰ＝０
- ＣＨＲＩＮＩＴ ”ＳＰＵ４”
- ＳＰＳＥＴ ０，２８８，３，０，０，０
- ＳＨＩＰＸ＝１２０：ＳＨＩＰＹ＝１３０
- ’シ゛タ゛ン ショキカ ＳＰ＝１―９
- ＤＩＭ ＳＨＯＴＸ（９），ＳＨＯＴＹ（９）
- ＤＩＭ ＳＨＯＴＬ（９）
- ＣＨＲＩＮＩＴ ”ＳＰＵ３”
- ＦＯＲ Ｉ＝０ ＴＯ ８
- ＳＰＳＥＴ Ｉ＋１，２０２，０，０，０，０
- ＳＰＯＦＳ Ｉ＋１，－１００，０
- ＳＨＯＴＸ（Ｉ）＝－１００：ＳＨＯＴＹ（Ｉ）＝０
- ＳＨＯＴＬ（Ｉ）＝０
- ＮＥＸＴ Ｉ
- ＳＨＯＴＩ＝０：ＳＨＯＴＳＫ＝０
- ’テキ ショキカ ＳＰ＝１０―１５
- ＣＨＲＩＮＩＴ ”ＳＰＵ２”
- ＤＩＭ ＥＸ（６），ＥＹ（６），ＥＬ（６），ＥＤ（６）
- ＤＩＭ ＥＶＸ（６），ＥＶＹ（６）
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＳＰＳＥＴ Ｉ＋１０，１８０，３，０，０，０
- ＳＰＡＮＩＭ Ｉ＋１０，３，３
- ＳＰＯＦＳ Ｉ＋１０，０，－１６
- ＥＸ（Ｉ）＝０：ＥＹ（Ｉ）＝０：ＥＬ（Ｉ）＝０
- ＥＤ（Ｉ）＝１：ＥＶＸ（Ｉ）＝０：ＥＶＹ（Ｉ）＝２
- ＮＥＸＴ Ｉ
- ’テキタ゛ン ショキカ ＳＰ＝１６―２１
- ＣＨＲＩＮＩＴ ”ＳＰＵ３”
- ＤＩＭ ＥＳＸ（６），ＥＳＹ（６），ＥＳＬ（６）
- ＤＩＭ ＥＳＶＸ（６），ＥＳＶＹ（６）
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＳＰＳＥＴ Ｉ＋１６，２０３，０，０，０，０
- ＳＰＯＦＳ Ｉ＋１６，０，－１６
- ＥＳＸ（Ｉ）＝０：ＥＳＹ（Ｉ）＝０：ＥＳＬ（Ｉ）＝０
- ＥＳＶＸ（Ｉ）＝０：ＥＳＶＹ（Ｉ）＝０
- ＮＥＸＴ Ｉ
- ’シ゛キ ハ゛クハツハ゜タ－ン ショキカ ＳＰ＝２２
- ＳＰＳＥＴ ２２，２４９，０，０，０，０
- ＳＰＡＮＩＭ ２２，５，５
- ＳＰＯＦＳ ２２，０，－１６
- ’テキ ハ゛クハツハ゜タ－ン ショキカ ＳＰ＝２３
- ＳＰＳＥＴ ２３，２５１，０，０，０，０
- ＳＰＡＮＩＭ ２３，３，３
- ＳＰＯＦＳ ２３，０，－１６
- ＥＥＸ＝０：ＥＥＹ＝０：ＥＥＣ＝０
- ’ホ゛ス ショキカ
- ＣＨＲＩＮＩＴ ”ＳＰＵ７”
- ＦＯＲ Ｉ＝０ ＴＯ １５
- ＳＰＳＥＴ Ｉ＋２４，４９６＋Ｉ，２，０，０，０
- ＳＰＯＦＳ Ｉ＋２４，０，－１６
- ＮＥＸＴ Ｉ
- ＧＡＭＥＯＶＥＲ＝０
- ’ハイケイ ショキカ
- ＤＩＭ ＢＧＸ（１５），ＢＧＹ（１５），ＢＧＣ（１５）
- ＦＯＲ Ｉ＝０ ＴＯ １４
- ＢＧＸ（Ｉ）＝ＲＮＤ（２５６）
- ＢＧＹ（Ｉ）＝ＲＮＤ（１９２）
- ＢＧＣ（Ｉ）＝ＲＮＤ（２５５）
- ＮＥＸＴ Ｉ
- ＶＩＳＩＢＬＥ １，１，０，０，１，１
- ＣＯＬＯＲＴ＝０
- ’タイトル
- ＠ＴＩＴＬＥ
- ＬＯＣＡＴＥ ０，４：ＣＯＬＯＲ ＣＯＬＯＲＴ
- ＰＲＩＮＴ” ┿┿ ┿ ┿ ┿ ┿ ┿┿┿ ┿”
- ＰＲＩＮＴ” ┿ ┿ ┿ ┿ ┿ ┿ ┿ ┿ ┿”
- ＰＲＩＮＴ” ┿ ┿ ┿ ┿ ┿ ┿ ┿ ┿ ┿”
- ＰＲＩＮＴ” ┿ ┿ ┿ ┿ ┿ ┿ ┿ ┿ ┿”
- ＰＲＩＮＴ” ┿ ┿┿┿ ┿ ┿ ┿ ┿ ┿ ┿”
- ＰＲＩＮＴ” ┿ ┿ ┿ ┿ ┿ ┿ ┿ ┿ ┿”
- ＰＲＩＮＴ” ┿ ┿ ┿ ┿ ┿ ┿ ┿ ┿ ”
- ＰＲＩＮＴ” ┿┿ ┿ ┿ ┿ ┿ ┿ ┿”
- ＰＲＩＮＴ””
- ＬＯＣＡＴＥ ６，１５
- ＰＲＩＮＴ”フ゜ロク゛ラム ＢＹ ニッケイ ソフトウエア”
- ＣＯＬＯＲＴ＝ＣＯＬＯＲＴ＋１
- ＩＦ ＣＯＬＯＲＴ＝＝１６ ＴＨＥＮ ＣＯＬＯＲＴ＝０
- ＳＰＯＦＳ ０，１２０，１３０
- Ｋ＝ＢＵＴＴＯＮ（）
- ＬＯＣＡＴＥ ８，２０
- ＰＲＩＮＴ”ＨＩＴ ＳＴＡＲＴ ＢＵＴＴＯＮ”
- ＩＦ Ｋ ＡＮＤ １０２４ ＧＯＴＯ ＠ＭＬＰＩＮＩＴ
- ＧＯＴＯ ＠ＴＩＴＬＥ
- ’メインル－フ゜ ノ ショキカ
- ＠ＭＬＰＩＮＩＴ
- ＣＯＬＯＲ ０：ＣＬＳ：ＢＧＭＰＬＡＹ ０
- ’メインル－フ゜
- ＠ＭＡＩＮＬＯＯＰ
- ＬＯＣＡＴＥ ０，０：ＰＲＩＮＴ”ＳＣＯＲＥ：”
- ＬＯＣＡＴＥ ６，０：ＰＲＩＮＴ ＳＴＲ＄（ＳＣＯＲＥ）
- ＧＯＳＵＢ ＠ＤＲＡＷＢＧ
- ＧＯＳＵＢ ＠ＳＨＩＰＭＯＶＥ
- ＧＯＳＵＢ ＠ＥＮＥＧＥＮ
- ＧＯＳＵＢ ＠ＥＮＥＭＯＶＥ
- ＧＯＳＵＢ ＠ＥＮＥＳＨＯＴ
- ＧＯＳＵＢ ＠ＳＨＯＴＭＯＶＥ
- ＧＯＳＵＢ ＠ＨＩＴＴＥＳＴ
- ＩＦ ＧＡＭＥＯＶＥＲ＝＝１ ＧＯＴＯ ＠Ｇ＿ＯＶＥＲ
- ’テキ ハ゛クハツ
- ＩＦ ＥＥＣ＞０ ＴＨＥＮ ＥＥＣ＝ＥＥＣ－１：ＳＰＯＦＳ ２３，ＥＥＸ，ＥＥＹ
- ＩＦ ＥＥＣ＝＝０ ＴＨＥＮ ＳＰＯＦＳ ２３，０，－１７
- ＩＦ ＴＩＭＥ＞３０００ ＧＯＴＯ ＠＿ＢＯＳＬＯＯＰ
- ＧＯＴＯ ＠ＭＡＩＮＬＯＯＰ
- ＠＿ＢＯＳＬＯＯＰ
- ＢＯＳＳＹ＝－６５：ＢＯＳＳＶＹ＝０．１
- ＢＯＳＳＤ＝５０：ＢＣＯＵＮＴ＝０：ＢＯＳＳＤＥＡＤ＝０
- ＠ＢＯＳＳＬＯＯＰ
- ＬＯＣＡＴＥ ０，０：ＰＲＩＮＴ”ＳＣＯＲＥ：”
- ＬＯＣＡＴＥ ６，０：ＰＲＩＮＴ ＳＴＲ＄（ＳＣＯＲＥ）
- ＧＯＳＵＢ ＠ＢＯＳＳＭＯＶＥ
- ＧＯＳＵＢ ＠ＢＯＳＳＡＴＫ
- ＧＯＳＵＢ ＠ＳＨＩＰＭＯＶＥ
- ＧＯＳＵＢ ＠ＳＨＯＴＭＯＶＥ
- ＧＯＳＵＢ ＠ＥＮＥＭＯＶＥ２
- ＧＯＳＵＢ ＠ＥＮＥＳＨＯＴ
- ＧＯＳＵＢ ＠ＨＩＴＴＥＳＴ
- ＧＯＳＵＢ ＠ＢＯＳＳＨＩＴ
- ＩＦ ＥＥＣ＞０ ＴＨＥＮ ＥＥＣ＝ＥＥＣ－１：ＳＰＯＦＳ ２３，ＥＥＸ，ＥＥＹ
- ＩＦ ＥＥＣ＝＝０ ＴＨＥＮ ＳＰＯＦＳ ２３，０，－１７
- ＢＣＯＵＮＴ＝ＢＣＯＵＮＴ＋０．５
- ＩＦ ＢＣＯＵＮＴ＞６５５３５ ＴＨＥＮ ＢＯＳＳＤＥＡＤ＝１
- ＩＦ ＢＯＳＳＤＥＡＤ＝＝１ ＧＯＴＯ ＠ＢＯＳＳＤＥＡＤ
- ＩＦ ＧＡＭＥＯＶＥＲ＝＝１ ＧＯＴＯ ＠Ｇ＿ＯＶＥＲ
- ＧＯＴＯ ＠ＢＯＳＳＬＯＯＰ
- ＠ＢＯＳＳＤＥＡＤ
- ＢＥＥＰ １３
- ＴＩＭＥ＝０
- ＳＣＯＲＥ＝ＳＣＯＲＥ＋５０００
- ＥＥＸ＝ＢＯＳＳＸ＋３２：ＥＥＹ＝ＢＯＳＳＹ＋３２
- ＥＥＣ＝１６
- ＦＯＲ Ｉ＝０ ＴＯ １５
- ＳＰＯＦＳ Ｉ＋２４，０，－１６
- ＮＥＸＴ Ｉ
- ＢＯＳＳＸ＝－１００
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＥＶＸ（Ｉ）＝０：ＥＶＹ（Ｉ）＝２
- ＮＥＸＴ Ｉ
- ＧＯＴＯ ＠ＭＡＩＮＬＯＯＰ
- ＠ＢＯＳＳＡＴＫ
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＩＦ ＥＬ（Ｉ）＝＝１ ＧＯＴＯ ＠ＳＫＢＯＳＡ
- ＥＸ（Ｉ）＝ＢＯＳＳＸ＋Ｉ＊１２
- ＥＹ（Ｉ）＝ＢＯＳＳＹ＋５０
- ＥＬ（Ｉ）＝１
- Ｔ＝ＡＴＡＮ（ＳＨＩＰＹ－ＥＹ（Ｉ），ＳＨＩＰＸ＋４－ＥＸ（Ｉ））
- ＥＶＸ（Ｉ）＝ＣＯＳ（Ｔ）
- ＥＶＹ（Ｉ）＝ＳＩＮ（Ｔ）
- ＠ＳＫＢＯＳＡ
- ＮＥＸＴ Ｉ
- ＧＯＳＵＢ ＠ＥＮＥＧＥＮ
- ＲＥＴＵＲＮ
- ＠ＢＯＳＳＭＯＶＥ
- ＢＯＳＳＸ＝７０＊ＣＯＳ（ＢＣＯＵＮＴ／１６）＋９６
- ＢＯＳＳＹ＝ＢＯＳＳＹ＋ＢＯＳＳＶＹ
- ＩＦ ＢＯＳＳＹ＞８０ ＴＨＥＮ ＢＯＳＳＶＹ＝－０．１
- ＩＦ ＢＯＳＳＹ＜－１２ ＴＨＥＮ ＢＯＳＳＶＹ＝０．１
- ＦＯＲ Ｉ＝０ ＴＯ ３
- ＳＰＯＦＳ Ｉ＋２４，ＢＯＳＳＸ＋Ｉ＊１６，ＢＯＳＳＹ
- ＳＰＯＦＳ Ｉ＋２８，ＢＯＳＳＸ＋Ｉ＊１６，ＢＯＳＳＹ＋１６
- ＳＰＯＦＳ Ｉ＋３２，ＢＯＳＳＸ＋Ｉ＊１６，ＢＯＳＳＹ＋３２
- ＳＰＯＦＳ Ｉ＋３６，ＢＯＳＳＸ＋Ｉ＊１６，ＢＯＳＳＹ＋４８
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ＠ＤＲＡＷＢＧ
- ＦＯＲ Ｉ＝Ｏ ＴＯ １４
- ＧＰＳＥＴ ＢＧＸ（Ｉ），ＢＧＹ（Ｉ），０
- ＢＧＹ（Ｉ）＝ＢＧＹ（Ｉ）＋４
- ＮＥＸＴ Ｉ
- ＦＯＲ Ｉ＝Ｏ ＴＯ １４
- ＧＰＳＥＴ ＢＧＸ（Ｉ），ＢＧＹ（Ｉ），ＢＧＣ（Ｉ）
- ＩＦ ＢＧＹ（Ｉ）＞１９１ ＴＨＥＮ ＢＧＹ（Ｉ）＝０
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ＠Ｇ＿ＯＶＥＲ
- ＢＧＭＳＴＯＰ：ＢＥＥＰ １３：ＳＰＣＬＲ ０
- ＠＿Ｇ＿ＯＶＥＲ
- ＳＰＯＦＳ ２２，ＳＨＩＰＸ，ＳＨＩＰＹ
- ＳＰＳＣＡＬＥ ２２，２００
- ＬＯＣＡＴＥ １２，１１：ＰＲＩＮＴ”ＧＡＭＥ ＯＶＥＲ”
- ＬＯＣＡＴＥ ８，２０：
- ＰＲＩＮＴ”ＨＩＴ ＳＴＡＲＴ ＢＵＴＴＯＮ”
- Ｋ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｋ ＡＮＤ １０２４ ＧＯＴＯ ＠ＳＴＡＲＴ
- ＧＯＴＯ ＠＿Ｇ＿ＯＶＥＲ
- ＠ＢＯＳＳＨＩＴ
- ＦＯＲ Ｉ＝０ ＴＯ ８
- ＩＦ ＳＨＯＴＸ（Ｉ）＋８＜ＢＯＳＳＸ ＧＯＴＯ ＠ＳＫＢＨＩＴ
- ＩＦ ＳＨＯＴＸ（Ｉ）＞ＢＯＳＳＸ＋６４ ＧＯＴＯ ＠ＳＫＢＨＩＴ
- ＩＦ ＳＨＯＴＹ（Ｉ）＋８＜ＢＯＳＳＹ ＧＯＴＯ ＠ＳＫＢＨＩＴ
- ＩＦ ＳＨＯＴＹ（Ｉ）＞ＢＯＳＳＹ＋５０ ＧＯＴＯ ＠ＳＫＢＨＩＴ
- ’アタリ
- ＳＨＯＴＬ（Ｉ）＝０：ＳＨＯＴＹ（Ｉ）＝－２００
- ＳＰＯＦＳ Ｉ＋１，ＳＨＯＴＸ（Ｉ），ＳＨＯＴＹ（Ｉ）
- ＢＯＳＳＤ＝ＢＯＳＳＤ－１
- ＩＦ ＢＯＳＳＤ＜０ ＴＨＥＮ ＢＯＳＳＤＥＡＤ＝１
- ＢＥＥＰ １１，６４
- ＠ＳＫＢＨＩＴ
- ＮＥＸＴ Ｉ
- ＩＦ ＳＨＩＰＸ＋１６＜ＢＯＳＳＸ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＳＨＩＰＸ＞ＢＯＳＳＸ＋６４ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＳＨＩＰＹ＋１６＜ＢＯＳＳＹ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＳＨＩＰＹ＞ＢＯＳＳＹ＋６４ ＴＨＥＮ ＲＥＴＵＲＮ
- ＧＡＭＥＯＶＥＲ＝１
- ＲＥＴＵＲＮ
- ＠ＨＩＴＴＥＳＴ
- ’シ゛タ゛ン ト テキ
- ＦＯＲ Ｊ＝０ ＴＯ ５
- ＦＯＲ Ｉ＝０ ＴＯ ８
- ＩＦ ＳＨＯＴＸ（Ｉ）＋８＜ＥＸ（Ｊ） ＧＯＴＯ ＠Ｓ１
- ＩＦ ＳＨＯＴＸ（Ｉ）＞ＥＸ（Ｊ）＋８ ＧＯＴＯ ＠Ｓ１
- ＩＦ ＳＨＯＴＹ（Ｉ）＋８＜ＥＹ（Ｊ） ＧＯＴＯ ＠Ｓ１
- ＩＦ ＳＨＯＴＹ（Ｉ）＞ＥＹ（Ｊ）＋８ ＧＯＴＯ ＠Ｓ１
- ’アタリ
- ＳＣＯＲＥ＝ＳＣＯＲＥ＋１００
- ＴＩＭＥ＝ＴＩＭＥ＋１００
- ＳＨＯＴＬ（Ｉ）＝０：ＳＨＯＴＹ（Ｉ）＝－２００
- ＳＰＯＦＳ Ｉ＋１，ＳＨＯＴＸ（Ｉ），ＳＨＯＴＹ（Ｉ）
- ＥＤ（Ｊ）＝ＥＤ（Ｊ）－１
- ＩＦ ＥＤ（Ｊ）！＝０ ＧＯＴＯ ＠Ｓ１
- ＥＬ（Ｊ）＝０：ＥＤ（Ｊ）＝１
- ＥＥＸ＝ＥＸ（Ｊ）：ＥＥＹ＝ＥＹ（Ｊ）：ＥＥＣ＝１６
- ＢＥＥＰ １３，０，６４
- ＠Ｓ１
- ＮＥＸＴ Ｉ
- ＮＥＸＴ Ｊ
- ’シ゛キ ト テキタ゛ン
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＩＦ ＥＳＸ（Ｉ）＋４＜ＳＨＩＰＸ ＧＯＴＯ ＠Ｓ２
- ＩＦ ＥＳＸ（Ｉ）＞ＳＨＩＰＸ＋４ ＧＯＴＯ ＠Ｓ２
- ＩＦ ＥＳＹ（Ｉ）＋４＜ＳＨＩＰＹ ＧＯＴＯ ＠Ｓ２
- ＩＦ ＥＳＹ（Ｉ）＞ＳＨＩＰＹ＋４ ＧＯＴＯ ＠Ｓ２
- ’アタリ
- ＧＡＭＥＯＶＥＲ＝１
- ＠Ｓ２
- ＮＥＸＴ Ｉ
- ’シ゛キ ト テキ
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＩＦ ＥＸ（Ｉ）＋８＜ＳＨＩＰＸ ＧＯＴＯ ＠Ｓ３
- ＩＦ ＥＸ（Ｉ）＞ＳＨＩＰＸ＋４ ＧＯＴＯ ＠Ｓ３
- ＩＦ ＥＹ（Ｉ）＋８＜ＳＨＩＰＹ ＧＯＴＯ ＠Ｓ３
- ＩＦ ＥＹ（Ｉ）＞ＳＨＩＰＹ＋４ ＧＯＴＯ ＠Ｓ３
- ’アタリ
- ＧＡＭＥＯＶＥＲ＝１
- ＠Ｓ３
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ＠ＥＮＥＧＥＮ
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＩＦ ＥＬ（Ｉ）＝＝０ ＴＨＥＮ ＥＬ（Ｉ）＝１：ＥＸ（Ｉ）＝ＲＮＤ（２４０）：ＥＹ（Ｉ）＝－１６－ＲＮＤ（１００）
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ＠ＥＮＥＳＨＯＴ
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＩＦ ＥＳＬ（Ｉ）＝＝１ ＧＯＴＯ ＠Ｓ４
- Ｒ＝ＲＮＤ（５）
- ＩＦ ＥＬ（Ｒ）＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｔ＝ＡＴＡＮ（ＳＨＩＰＹ－ＥＹ（Ｒ），ＳＨＩＰＸ＋４－ＥＸ（Ｒ））
- ＥＳＸ（Ｉ）＝ＥＸ（Ｒ）
- ＥＳＹ（Ｉ）＝ＥＹ（Ｒ）
- ＥＳＶＸ（Ｉ）＝３＊ＣＯＳ（Ｔ）
- ＥＳＶＹ（Ｉ）＝３＊ＳＩＮ（Ｔ）
- ＥＳＬ（Ｉ）＝１
- ＠Ｓ４
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ＠ＥＮＥＭＯＶＥ
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＳＰＯＦＳ Ｉ＋１０，ＥＸ（Ｉ），ＥＹ（Ｉ）
- ＥＹ（Ｉ）＝ＥＹ（Ｉ）＋ＥＶＹ（Ｉ）
- ＥＸ（Ｉ）＝ＥＸ（Ｉ）＋ＥＶＸ（Ｉ）
- ＩＦ ＥＹ（Ｉ） ＞ １９１ ＴＨＥＮ ＥＬ（Ｉ）＝０
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ＠ＥＮＥＭＯＶＥ２
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＳＰＯＦＳ Ｉ＋１０，ＥＸ（Ｉ），ＥＹ（Ｉ）
- ＥＹ（Ｉ）＝ＥＹ（Ｉ）＋ＥＶＹ（Ｉ）
- ＥＸ（Ｉ）＝ＥＸ（Ｉ）＋ＥＶＸ（Ｉ）
- ＩＦ ＥＹ（Ｉ） ＞ １９１ ＴＨＥＮ ＥＬ（Ｉ）＝０
- ＩＦ ＥＹ（Ｉ） ＜ －１６ ＴＨＥＮ ＥＬ（Ｉ）＝０
- ＩＦ ＥＸ（Ｉ） ＞ ２５５ ＴＨＥＮ ＥＬ（Ｉ）＝０
- ＩＦ ＥＸ（Ｉ） ＜ －１６ ＴＨＥＮ ＥＬ（Ｉ）＝０
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ＠ＳＨＩＰＭＯＶＥ
- ＳＰＯＦＳ Ｏ，ＳＨＩＰＸ，ＳＨＩＰＹ
- Ｋ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｋ ＡＮＤ １ ＴＨＥＮ ＳＨＩＰＹ＝ＳＨＩＰＹ－３
- ＩＦ Ｋ ＡＮＤ ２ ＴＨＥＮ ＳＨＩＰＹ＝ＳＨＩＰＹ＋３
- ＩＦ Ｋ ＡＮＤ ４ ＴＨＥＮ ＳＨＩＰＸ＝ＳＨＩＰＸ－３．５
- ＩＦ Ｋ ＡＮＤ ８ ＴＨＥＮ ＳＨＩＰＸ＝ＳＨＩＰＸ＋３．５
- ＩＦ Ｋ ＡＮＤ １６ ＴＨＥＮ ＧＯＳＵＢ ＠ＦＩＲＥ
- ＩＦ ＳＨＩＰＸ＞２４２ ＴＨＥＮ ＳＨＩＰＸ＝２４２
- ＩＦ ＳＨＩＰＸ＜０ ＴＨＥＮ ＳＨＩＰＸ＝０
- ＩＦ ＳＨＩＰＹ＜０ ＴＨＥＮ ＳＨＩＰＹ＝０
- ＩＦ ＳＨＩＰＹ＞１７５ ＴＨＥＮ ＳＨＩＰＹ＝１７５
- ＲＥＴＵＲＮ
- ＠ＦＩＲＥ
- ＳＨＯＴＳＫ＝ＳＨＯＴＳＫ＋１
- ＩＦ ＳＨＯＴＳＫ ％ ４ ＴＨＥＮ ＲＥＴＵＲＮ
- ＳＨＯＴＳＫ ＝ ＳＨＯＴＳＫ ＡＮＤ ２５５
- ＩＦ ＳＨＯＴＬ（ＳＨＯＴＩ）＝＝１ ＴＨＥＮ ＲＥＴＵＲＮ
- ＳＨＯＴＸ（ＳＨＯＴＩ）＝ＳＨＩＰＸ
- ＳＨＯＴＹ（ＳＨＯＴＩ）＝ＳＨＩＰＹ
- ＳＨＯＴＬ（ＳＨＯＴＩ）＝１
- ＳＨＯＴＩ＝ＳＨＯＴＩ＋１
- ＩＦ ＳＨＯＴＩ＝＝９ ＴＨＥＮ ＳＨＯＴＩ＝０
- ＢＥＥＰ １０，０，６４
- ＲＥＴＵＲＮ
- ＠ＳＨＯＴＭＯＶＥ
- ＦＯＲ Ｉ＝０ ＴＯ ８
- ＩＦ ＳＨＯＴＬ（Ｉ）＝＝０ ＧＯＴＯ ＠Ｓ５
- ＳＰＯＦＳ Ｉ＋１，ＳＨＯＴＸ（Ｉ），ＳＨＯＴＹ（Ｉ）
- ＳＨＯＴＹ（Ｉ）＝ＳＨＯＴＹ（Ｉ）－４
- ＩＦ Ｉ％３ ＴＨＥＮ ＳＨＯＴＸ（Ｉ）＝ＳＨＯＴＸ（Ｉ）－１
- ＩＦ （Ｉ＋１）％３ ＴＨＥＮ ＳＨＯＴＸ（Ｉ）＝ＳＨＯＴＸ（Ｉ）＋１
- ＩＦ ＳＨＯＴＹ（Ｉ）＜－１６ ＴＨＥＮ ＳＨＯＴＬ（Ｉ）＝０：ＳＨＯＴＹ（Ｉ）＝－２００
- ＠Ｓ５
- ＮＥＸＴ Ｉ
- ＦＯＲ Ｉ＝０ ＴＯ ５
- ＩＦ ＥＳＬ（Ｉ）＝＝０ ＧＯＴＯ ＠Ｓ６
- ＳＰＯＦＳ Ｉ＋１６，ＥＳＸ（Ｉ），ＥＳＹ（Ｉ）
- ＥＳＸ（Ｉ）＝ＥＳＸ（Ｉ）＋ＥＳＶＸ（Ｉ）
- ＥＳＹ（Ｉ）＝ＥＳＹ（Ｉ）＋ＥＳＶＹ（Ｉ）
- ＩＦ ＥＳＸ（Ｉ）＞２５５ ＴＨＥＮ ＥＳＬ（Ｉ）＝０
- ＩＦ ＥＳＸ（Ｉ）＜－８ ＴＨＥＮ ＥＳＬ（Ｉ）＝０
- ＩＦ ＥＳＹ（Ｉ）＜－８ ＴＨＥＮ ＥＳＬ（Ｉ）＝０
- ＩＦ ＥＳＹ（Ｉ）＞１９６ ＴＨＥＮ ＥＳＬ（Ｉ）＝０
- ＠Ｓ６
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
