(11C) Roll "Four" Dice at Random

[Gamo]

This version used [LBL] D to identify both the beginning of the program and
subroutine within the program.

So I adapted this program from the
"Subroutines Section" on Page 125 of the HP-11C Owner's Handbook.

In the handbook state that
*While it is generally best to avoid the use of identical labels to reduce
the possibility of confusion or programming error, the following program
illustrates one way identical labels might be used, if necessary.

Procedure: f [USER] FIX 0

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

Program: Roll 4 Dice at Random

Code:


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

Gamo