(12C Platimun) Roll Two Dice at Random

[Gamo]

This two dice roller program is similar to my previous post at

http://www.hpmuseum.org/forum/thread-10565.html

Only different Random Algorithm and program on ALG mode.

Procedure:
1. Store Seed on Register 0
2. [R/S]
3. to continue press [R/S]

Example: FIX 0

,287103 [STO] 0

[R/S] "2" "6" 8
[R/S] "1" "1" 2
[R/S] "6" "1" 7
[R/S] "5" "4" 9

Program: Roll Two Dice in Random (ALG mode)

Code:


RCL 0
x
997
STO 1
=
FRAC
STO 0
x 6 + 1
=
INTG
STO 2
PSE
---------------------
RCL 0
x
RCL 1
=
FRAC
STO 0
x 6 + 1
=
INTG
PSE
+
RCL 2
=

Gamo