(11C) Roll "Four" Dice at Random

[Gamo]

Roll 4 dice at random program without using any store registers.

Procedure: f [USER] FIX 0

[D] display face 1st dice --> 2nd dice --> 3th dice --> 4th dice and display Total

Code:


LBL D
GSB 4
GSB 4
+
GSB 4
GSB 4
+
+
RTN
----------------------------
LBL 4
RAN#
6
x
1
+
INT
PSE
RTN

Gamo