潜水艦 １６

４回目の哨戒任務。2d6=8、U-6336は大西洋への出動を命じられた。

今回はじめてとなる大西洋海域のパトロールは、ビスケー湾→移動→大西洋（４回）→移動→ビスケー湾の順で行われる。

ビスケー湾、2d6=6、異状なし。

大西洋海域へ移動中、2d6=5、無事通過。

大西洋海域（1/4）を巡回中、2d6=5、敵影見えず。

大西洋海域（2/4）を巡回中、2d6=3、エスコート無しの輸送艦を発見した。

夜間、大型輸送艦…

ヴィラドリージュ、7500tである。

金庫破り ４

プログラムを止めて、答えを表示してみたところ、42153が正解だった。ヒントと照らし合わせるとすべて合っているので、プログラムは正しく動いているようだ。

さらにタイマーを付けるには、TMREADとFORMAT＄（%02X）を使えばいいのだろうか。

金庫破り ３

当たり判定。まず変数Bを０にしておく。

変数ANS[1-5]とBET[1-5]を比較して同じかずであればBに１を足す。Bの数が当たりの数。

判定結果として、Bの数だけBEEP音を鳴らし、星を表示する。

Bが５だったら終了。５未満だったら再入力。

【プログラム】

ためしにプレイしてみよう。

【実行画面】

12345で星１つ。34512と入れると０だった。星１つは何の参考にもならないが、０は良いヒントだ。

さらに45123と入れると、星３つだった。

ではこのうちどれかを入れ替えればよくて、34512を避ければ良い。

45132、25143、45213と入れたが、いずれも帰ってきたヒントは星２つだった。