(35s) Roll Two Dice at Random

[Gamo]

This program is adapted from my HP-11C Roll Two Dice at Random

https://www.hpmuseum.org/forum/thread-11103.html

----------------------------------------------------------------

Usage: Enter [SEED] and keep pressing [R/S]

Display shown First and Second Dice with Total Amount by

[ X1.X2 E X ]

---------------------------------------------------------------
Example: 0.123456 [SEED]

[R/S] display [5.4 E 9]

First Dice is 5 and Second Dice is 4 Total is 9

[R/S] Display [6.2 E 8]
[R/S] Display [2.1 E 3]
---------------------------------------------------------------
Program:

Quote:0001 XEQ A001
0002 STO A
0003 XEQ A001
0004 STO+ A
0005 10
0006 ÷
0007 +
0008 RCL A
0009 10^x
0010 x
0011 SCI 1
0012 RTN
A001 LBL A
A002 RAND
A003 6
A004 x
A005 1
A006 +
A007 INTG
A008 RTN

Gamo 9/2024