RDSタイピング by Toxsoft
一見なんの画面かわからないかな？ 実はこれ、ステレオグラムを利用したタイピングゲームなのだ。
ステレオグラムを見る方法（平行法）でじっと画面を見ると、アルファベットが大きく浮かんでいるのがわかるだろう。何の文字かわかったらキーボードをタッチ！ 効果音で正解/不正解がわかるだろう。
10問正解するとクリアーだ。めざせ最短タイム！
私が作りました
Toxsoft
元MSXユーザーです。1画面でがんばりました。
CHECK POiNT 
ぴったり１画面におさまった「１画面プログラム」の投稿だよ。
プチコンの編集画面で入力できるのは29×24文字じゃからの、なかなかタイヘンなことじゃぞ。シンプルなプログラムじゃがしっかりステレオグラムになっておるしのう。読める、読めるぞ！
ウォオー！ 目が、目がイテェー！ オレは平行法が苦手なんだぜ、ファック！
交差法にするのもカンタンだよ。16行目の
Ｘ＝Ｘ＋４８－Ｐ＊４をＸ＝Ｘ＋４８＋Ｐ＊４に変えればいいのさ。飛び出す字は拡大されたプチコンのフォントだから、大粒のドット単位で浮き出す文字を探すコツをつかめばいけるはずだよ。みなさんも目が疲れない範囲で楽しんでね。
プログラムリスト
- ’ＲＤＳタイヒ゜ンク゛ケ゛－ム
- ＣＬＥＡＲ：ＶＩＳＩＢＬＥ １，１，０，０，０，１
- ＧＰＡＧＥ ０：ＧＣＬＳ ０：Ｔ＝ＭＡＩＮＣＮＴＬ
- ＣＬＳ：ＬＯＣＡＴＥ １３，２２：？”● ●”；
- ＠１
- ＧＰＡＧＥ １：ＧＣＬＳ ０
- Ｃ＝ＲＮＤ（２６）＋６５：Ｃ＄＝ＣＨＲ＄（Ｃ）
- ＧＰＵＴＣＨＲ ２，１，”ＢＧＦ０”，Ｃ，０，２
- ＠２
- Ｘ＝－ＲＮＤ（８０）：Ｙ＝ＲＮＤ（１９２）
- Ｃ＝ＲＮＤ（２５６）
- ＠３
- ＧＰＡＧＥ １：Ｐ＝０
- ＩＦ ＧＳＰＯＩＴ（Ｘ／１２，Ｙ／１２） ＴＨＥＮ Ｐ＝１
- ＧＰＡＧＥ ０：ＧＬＩＮＥ Ｘ－４，Ｙ，Ｘ＋４，Ｙ，Ｃ
- Ｘ＝Ｘ＋４８－Ｐ＊４：ＩＦ Ｘ＜２５６ ＴＨＥＮ ＠３
- Ｉ＄＝ＩＮＫＥＹ＄（）
- ＩＦ Ｉ＄＝＝Ｃ＄ ＴＨＥＮ ＢＥＥＰ ３：ＧＯＴＯ ＠４
- ＩＦ Ｉ＄！＝”” ＴＨＥＮ ＢＥＥＰ １
- ＧＯＴＯ ＠２
- ＠４
- Ｉ＝Ｉ＋１：ＩＦ Ｉ＜１０ ＴＨＥＮ ＠１
- ＧＣＬＳ ０：ＣＬＳ：ＢＧＭＰＬＡＹ ５
- ？”ＴＩＭＥ＝”；（ＭＡＩＮＣＮＴＬ－Ｔ）／６０；”ｓ”
