SAKE GAME by サケマス
横スクロールタイプのシンプルなショートプログラムだ。
十字ボタン上下で移動。ひたすら敵を避けまくろう！ 先に進むほど難易度も上がっていくぞ。
注意：５行目の”から”の間にはスペースが31文字入っています。
私が作りました
サケマス
半ばニートのエロ漫画家。代表作は「ぱんつ大好き」「妹ぱんつ」など。
その昔、P/ECEという忘れ去られたハードで行なわれたプログラムコンテストでの入賞歴もあるらしい。
とにかく短くてチープなゲームを目指しました。私のゲームそのものは大したものではありませんが「この程度のプログラムでゲームが出来るなんてBASICは面白い！」と思っていただければ幸いです。
CHECK POiNT 
プチコン発売後の投稿一番乗りだぜ！ プロフィールは本人の直筆だ。……ゴクリ。なんだかよくわからねえが、とにかくロックじゃねえか！
かつてBASIC華やかなりし頃、かの『テクノポリス』誌で連載されたプログラムマンガ、槇村ただし氏の『デクノポリス』のお色気ぶりが思い出されるのう。この符号にはロマンチックな運命を感じるわい。
博士、横道にそれすぎですよ。
このプログラムでは、５行目で定義した画面ヨコいっぱいのスペースに、21～22行で障害物を足したりしてるんだね。
このプログラムでは、５行目で定義した画面ヨコいっぱいのスペースに、21～22行で障害物を足したりしてるんだね。
ＭＩＤ＄をうまく使ってるね。テクニカルだけど、表示はシンプルなプログラムだから、キャラクタを入れ替えたりBG面でスクロールを表現してみるのも面白そうだよ。プログラムリスト
- ＣＬＳ：ＣＬＥＡＲ：ＤＩＭ ＭＡＰ＄（２２）
- ＶＩＳＩＢＬＥ １，１，０，０，０，０
- ＠ＲＥＴＲＹ
- ＦＯＲ Ｆ＝０ ＴＯ ２１
- ＭＡＰ＄（Ｆ）＝” ”
- ＮＥＸＴ Ｆ
- ＠ＴＩＴＬＥ
- ＬＯＣＡＴＥ １１，１０：ＰＲＩＮＴ ”ＳＡＫＥ ＧＡＭＥ”
- ＩＦ ＢＵＴＴＯＮ（）＞０ ＴＨＥＮ ＠ＳＴＡＲＴ
- ＧＯＴＯ ＠ＴＩＴＬＥ
- ＠ＳＴＡＲＴ
- ＣＬＳ：Ｘ＝２：Ｙ＝１１：Ｎ＝０：Ｓ＝０：ＳＫ＝０
- ＠ＭＡＩＮ
- Ｓ＝Ｓ＋１：ＩＦ Ｓ＞９９９９９ ＴＨＥＮ Ｓ＝９９９９９
- ＩＦ Ｓ／１００＞Ｎ ＴＨＥＮ Ｎ＝Ｎ＋１
- ＳＣ＄＝ＳＴＲ＄（Ｓ）：ＳＫ＝ＬＥＮ（ＳＣ＄）
- ＦＯＲ Ｆ＝０ ＴＯ ５－ＳＫ
- ＳＣ＄＝”０”＋ＳＣ＄：ＮＥＸＴ Ｆ
- ＦＯＲ Ｆ＝０ ＴＯ ２１
- Ｒ＝ＲＮＤ（５００）
- ＩＦ Ｒ＜＝Ｎ＋４ ＴＨＥＮ ＭＡＰ＄（Ｆ）＝ＭＩＤ＄（ＭＡＰ＄（Ｆ），１，３０）＋”Ｏ”：ＧＯＴＯ ＠ＪＵＭＰ
- ＭＡＰ＄（Ｆ）＝ＭＩＤ＄（ＭＡＰ＄（Ｆ），１，３０）＋” ”
- ＠ＪＵＭＰ
- ＮＥＸＴ Ｆ
- ＢＴ＝ＢＵＴＴＯＮ（）
- ＩＦ ＢＴ＝＝１ ＡＮＤ Ｙ＞１ ＴＨＥＮ Ｙ＝Ｙ－１
- ＩＦ ＢＴ＝＝２ ＡＮＤ Ｙ＜２１ ＴＨＥＮ Ｙ＝Ｙ＋１
- ＦＯＲ Ｆ＝０ ＴＯ ２１
- ＬＯＣＡＴＥ ０，Ｆ＋１：ＰＲＩＮＴ ＭＡＰ＄（Ｆ）：ＮＥＸＴ Ｆ
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ ”＞”
- ＬＯＣＡＴＥ １０，０：ＰＲＩＮＴ ”ＳＣＯＲＥ ”；ＳＣ＄
- ＡＴ＄＝ＭＩＤ＄（ＭＡＰ＄（Ｙ－１），Ｘ，１）
- ＩＦ ＡＴ＄＝＝”Ｏ” ＴＨＥＮ ＠ＧＡＭＥＯＶＥＲ
- ＶＳＹＮＣ ２：ＧＯＴＯ ＠ＭＡＩＮ
- ＠ＧＡＭＥＯＶＥＲ
- ＬＯＣＡＴＥ Ｘ，Ｙ：ＰＲＩＮＴ ”＊”
- ＬＯＣＡＴＥ １１，１０：ＰＲＩＮＴ ”ＧＡＭＥ ＯＶＥＲ”
- ＩＦ ＢＵＴＴＯＮ（）＞＝１６ ＴＨＥＮ ＠ＲＥＴＲＹ
- ＧＯＴＯ ＠ＧＡＭＥＯＶＥＲ
