ブラックジャック ６

39年前のポケコンのプログラムを読んでいる。その3回目。

100行目、サブルーチンへ飛ぶ。ここからのサブルーチンがこのプログラムの肝であるような気がする。

500行目、よく分からないのだが、変数Uと変数Vを使って乱数を発生させているらしい。機械語でやる処理をダイレクトにベーシック言語にするとこうなるのだろうか。

510行目、Yが0以下あるいは14以上ならもう一度500行目の処理をくりかえす。

スマイルベーシックでやるなら、

Y=RND［13］+1

となるのだろうか。