The Museum of HP Calculators

Turn the Die for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Games Solution Book. This program was entered and uploaded by Tony Duell.

This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "TRNDIE"
 02 LBL 14
 03 LBL E
 04 7DSP0
 05 CF 22
 06 STO 20
 07 .12
 08 STO 00
 09 STO 09
 10 .41
 11 STO 08
 12 STO 04
 13 .42
 14 STO 07
 15 .63
 16 STO 06
 17 .51
 18 STO 05
 19 .631
 20 STO 03
 21 .21
 22 STO 02
 23 .512
 24 STO 01
 25 7P<>S
 26 RCL 20
 27 7CLREG
 28 10
 29 X>Y?
 30 ASIN
 31 CLX
 32  E2
 33 X<=Y?
 34 ASIN
 35 X<>Y
 36 INT
 37 STO 20
 38 7PRTX
 39 ADV
 40 ADV
 41 RTN
 42 LBL 10
 43 LBL A
 44 CF 22
 45 STO 24
 46 7
 47 X<=Y?
 48 ASIN
 49 RDN
 50 X<0?
 51 SQRT
 52 X=0?
 53 GTO 11
 54 RCL 22
 55 X=Y?
 56 GTO 02
 57 CLX
 58 RCL 23
 59 X=Y?
 60 GTO 02
 61 X<>Y
 62 RCL 21
 63 +
 64 RCL 20
 65 X=Y?
 66 GTO 03
 67 X<=Y?
 68 GTO 04
 69 XEQ 09
 70 LBL 11
 71 LBL B
 72 FS?C 22
 73 RTN
 74 RCL 20
 75 RCL 21
 76 -
 77 XEQ 13
 78 STO 25
 79 RCL 21
 80 +
 81 RCL 20
 82 7P<>S
 83 RCL IND 25
 84 7P<>S
 85 STO IND 25
 86 LBL 06
 87 RCL IND 25
 88 10
 89 *
 90 FRC
 91 STO IND 25
 92 LASTX
 93 INT
 94 X=0?
 95 GTO 17
 96 RCL 22
 97 X=Y?
 98 GTO 06
 99 CLX
100 RCL 23
101 X=Y?
102 GTO 06
103 RDN
104 STO 24
105 RCL 21
106 +
107 RCL 20
108 X<>Y
109 X>Y?
110 GTO 06
111 XEQ 09
112 ADV
113 RCL 20
114 X#Y?
115 RTN
116 LBL 04
117 X<>Y
118 7PRTX
119 X<>Y
120 7PRTX
121 ADV
122 RCL 20
123  E2
124 *
125 99
126 /
127 7DSP9
128 7PRTX
129 LBL 08
130 7DSP9
131 PSE
132 GTO 08
133 LBL 09
134 7
135 RCL 24
136 7PRTX
137 STO 22
138 -
139 STO 23
140 LASTX
141 RCL 21
142 +
143 STO 21
144 7PRTX
145 RTN
146 LBL 03
147 RCL 24
148 7PRTX
149 X<>Y
150 7PRTX
151 75
152 FACT
153 7PRTX
154 LBL 13
155 LBL D
156 9
157 /
158 FRC
159 9
160 *
161 .1
162 +
163 INT
164 RTN
165 STOP
166 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall