(11C) Roll "Four" Dice at Random

[Dieter]

(10-14-2018 05:37 AM)Gamo Wrote:  This version cheat a bit
by using Direct Exchange Storage Register as a Counter.

This will only work if register I happens to be zero on program start.
Otherwise its value is added to the result. Try it: 777 STO I, then run the program.

Also the RCL I and R↑ are no required. Just do it as simple as can be:

Code:

LBL D
4
STO I
CLX
LBL 4
RAN#
6
x
1
+
INT
PSE
+
DSE
GTO 4
RTN

Dieter