(12C Platimun) Roll Two Dice at Random

[Gamo]

Updated Version

This program use a "Virtual Subroutine" to run Random Routine Twice.

Procedure is the same as program above.

Program: FIX 0 (ALG Mode)

Code:


0
STO 2
2
STO 1
RCL 1
X=0
GTO 027
997 x RCL 0 = FRAC STO 0 x 6 + 1 = INTG PSE
STO+2
1
STO-1
GTO 005
RCL 2

Program: FIX 0 (RPN Mode)

Code:


0
STO 2
2
STO 1
RCL 1
X=0
GTO 25
997
RCL 0
x
FRAC
STO 0
6 x 1 +
INTG
PSE
STO+2
1
STO-1
GTO 05 
RCL 2

Gamo