(11C) Roll Two Dice at Random

[Gamo]

This program is the improved version of the "Roll Two Dice at Random"
previously posted on the general software library for (12C)
http://www.hpmuseum.org/forum/thread-10565.html

This version display the face result of Two Dice at the same time and total up.

Example: f [A]
Two dice randomly roll display 3.5
First dice face is 3
Second Dice face is 5
Total is 8

Calculator display 3.5 pause and show total of 8

Program: Roll Two Dice at Random

Code:


LBL A
GSB 1
STO 0
GSB 1
STO 1
10
÷
FRAC
STO 2
FIX 1
RCL 0
RCL 2
+
PSE
FIX 0
RCL 0
RCL 1
+
RTN
------------------------------------------------------------------
LBL 1
RAN#
6
x
1
+
INT
RTN

Gamo