(11C) Roll Two Dice at Random

[Thomas Klemm]

Based on Werner's idea this is what I came up with:

Code:

001-42,21,11   LBL A
002-   42 36   RAN#
003-    32 0   GSB 0
004-    44 0   STO 0
005-   43 36   LSTx
006-   42 44   FRAC
007-    32 0   GSB 0
008-44,40, 0   STO+ 0
009-       1   1
010-       0   0
011-      10   ÷
012-      40   +
013-   42 31   PSE
014-    45 0   RCL 0
015-   43 32   RTN
016-42,21, 0   LBL 0
017-       6   6
018-      20   ×
019-       1   1
020-      40   +
021-   43 44   INT
022-   43 32   RTN

Kind regards
Thomas