数字記憶ゲーム by xiyuxi
キミの記憶力に挑戦するゲームだ。
RUNするとまず９ケタの数字が表示されるが、すぐに消えてしまう。消えるまでの３秒間でこの数字を記憶して、入力画面でタイプ＆Enterしよう。
正解しても気を抜かずスグに次の問題！ 正解していれば数字も９ケタから10ケタ、11ケタ……とどんどん増えていく。ミスすれば１ケタ減だ。何ケタまで増やせるかな？
私が作りました
xiyuxi
MSXユーザでした。
CHECK POiNT 
このページを公開したその日の晩にさっそく送られてきた、投稿プログラム第１号じゃ。もちろんプチコンの発売日前じゃぞ。なかなかやるわい。
さらっと言ってますけど、テストできない環境ってことですよね。
そのせいじゃろうな、残念ながら１つ動作せん部分があったのじゃ。元のプログラムでは24～28行が
となっておった。TRUE（真）=-1と考えるとうまくいきそうじゃが、おそらく別のBASICの「方言」に拠っていたのではないのかの？ ここではTRUEの判定値をそのまま変数の計算に使っておってテクニカルじゃわい。
Ｃ＝Ｃ－（ＭＩＤ＄（Ａ＄，Ｉ，１）＝ＭＩＤ＄（Ｂ＄，Ｉ，１））
ＮＥＸＴ Ｉ
ＰＲＩＮＴ” ”；Ａ＄；Ｃ；”／”；Ｌ
ＩＦ Ｃ＞Ｌ ＴＨＥＮ Ｌ＝Ｃとなっておった。TRUE（真）=-1と考えるとうまくいきそうじゃが、おそらく別のBASICの「方言」に拠っていたのではないのかの？ ここではTRUEの判定値をそのまま変数の計算に使っておってテクニカルじゃわい。
この解釈で間違ってたらすいませーん！ 教えてくださいね。
それと11～17行は時間を計っているんだね。プチコンなら「
ＶＳＹＮＣ ６０＊３」と書いてもいいはずだよ。
ＶＳＹＮＣ ６０が１秒ってどこにも書いてなかったからムリもねえが、６行をそんなあっさり一言でまとめていいのか……？ワンパク君はたまに穏健派になるよね。
このゲームは答合わせと次の質問が同時に表示されると両方見る時間がないから、間にインターバルを入れるといいんじゃないかな。
このゲームは答合わせと次の質問が同時に表示されると両方見る時間がないから、間にインターバルを入れるといいんじゃないかな。
そこも「紙プログラミング」ではなかなか気付けん問題というところじゃの。ハードな環境からの投稿、感謝じゃぞい！
プログラムリスト
- ’－－－－
- Ｌ＝９
- ＦＯＲ Ｊ＝０ ＴＯ １
-
- Ａ＄＝””
- ＦＯＲ Ｉ＝１ ＴＯ Ｌ
- Ａ＄＝Ａ＄＋ＣＨＲ＄（ＡＳＣ（”０”）＋ＲＮＤ（１０））
- ＮＥＸＴ Ｉ
- ＰＲＩＮＴ Ａ＄；
-
- ＴＭＲＥＡＤ（ＴＩＭＥ＄），Ｈ，Ｍ，Ｓ
- ＳＴ＝Ｈ＊３６００＋Ｍ＊６０＋Ｓ
- ＦＯＲ Ｉ＝０ ＴＯ ３
- ＴＭＲＥＡＤ（ＴＩＭＥ＄），Ｈ，Ｍ，Ｓ
- ＥＤ＝Ｈ＊３６００＋Ｍ＊６０＋Ｓ
- Ｉ＝ＥＤ－ＳＴ：ＩＦ Ｉ＜０ ＴＨＥＮ Ｉ＝３
- ＮＥＸＴ Ｉ
-
- ＣＬＳ
- Ｂ＄＝””
- ＩＮＰＵＴ Ｂ＄
- Ｃ＝０
- ＦＯＲ Ｉ＝１ ＴＯ Ｌ
- ＩＦ ＭＩＤ＄（Ａ＄，Ｉ，１）＝＝ＭＩＤ＄（Ｂ＄，Ｉ，１） ＴＨＥＮ Ｃ＝Ｃ＋１
- ＮＥＸＴ Ｉ
- ＰＲＩＮＴ” ”；Ａ＄；”：”；Ｃ；”／”；Ｌ
- ＩＦ Ｃ＜Ｌ ＴＨＥＮ Ｌ＝Ｌ－１
- ＩＦ Ｃ＝＝Ｌ ＴＨＥＮ Ｌ＝Ｃ＋１
- Ｊ＝０
- ＮＥＸＴ Ｊ
