(12C) Roll Two Dice at Random

[Gamo]

Two dice roller program using Random Generator (No Seed Needed) from the previous post.

To roll two dice:
R/S > 0.000000000 // ready to roll...
>1st dice result show briefly
>2nd dice result show briefly
>both dice add up result.

Program:

Code:


0
FIX 9
PSE
FIX 0
RCL 0
355
ENTER
113
÷
+
e^x
FRAC
STO 0
6
x
1
+
INTG
PSE
STO 1
RCL 0
355
ENTER
113
÷
+
e^x
FRAC
STO 0
6
x
1
+
INTG
PSE
RCL 1
+

Gamo