The Museum of HP Calculators


Roulette 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 of Chance Solution Book. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. 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 "ROULET"
 02 LBL 10
 03 LBL A
 04 RCL 00
 05 PI
 06 +
 07 5
 08 Y^X
 09 FRC
 10 STO 00
 11  E3
 12 *
 13 INT
 14 37
 15 /
 16 FRC
 17 37
 18 *
 19 INT
 20 STO 03
 21 CLX
 22 RTN
 23 LBL 11
 24 LBL B
 25 STO 01
 26 RDN
 27 STO 02
 28 RCL 01
 29 X=0?
 30 GTO 00
 31 1
 32 X>Y?
 33 GTO 00
 34 RDN
 35 FRC
 36 X=0?
 37 GTO 01
 38 LASTX
 39 INT
 40 X<>Y
 41  E2
 42 *
 43 -
 44 ABS
 45 1
 46 +
 47 36
 48 X<>Y
 49 /
 50 INT
 51 1
 52 -
 53 STO 04
 54 CLX
 55 RTN
 56 LBL 00
 57 1
 58 STO 04
 59 CLX
 60 RTN
 61 LBL 01
 62 35
 63 STO 04
 64 CLX
 65 RTN
 66 LBL 12
 67 LBL C
 68 XEQ 10
 69 LBL 17
 70 LBL c
 71 7DSP0
 72 RCL 04
 73 35
 74 X=Y?
 75 GTO 02
 76 RCL 01
 77 INT
 78 X=0?
 79 GTO 03
 80 RCL 03
 81 X<>Y
 82 X<=Y?
 83 GTO 04
 84 LBL 09
 85 RCL 03
 86 PSE
 87 RCL 02
 88 CHS
 89 7PRTX
 90 PSE
 91 PSE
 92 10
 93 +
 94 STO 25
 95 RCL 02
 96 ST- IND 25
 97 RCL 25
 98 LASTX
 99 -
100 GTO 13
101 LBL 02
102 RCL 03
103 RCL 01
104 X=Y?
105 GTO 08
106 GTO 09
107 LBL 03
108 LASTX
109 .2
110 X<>Y
111 X#Y?
112 GTO 00
113 XEQ 07
114 FS? 00
115 GTO 09
116 LBL 08
117 RCL 02
118 RCL 04
119 *
120 STO 02
121 RCL 03
122 PSE
123 RCL 02
124 7PRTX
125 PSE
126 PSE
127 10
128 +
129 STO 25
130 RCL 02
131 ST+ IND 25
132 RCL 25
133 LASTX
134 -
135 GTO 13
136 LBL 04
137 RCL 01
138 FRC
139  E2
140 *
141 RCL 03
142 X<=Y?
143 GTO 08
144 GTO 09
145 LBL 00
146 XEQ 07
147 FS? 00
148 GTO 08
149 GTO 09
150 LBL 07
151 RCL 03
152 2
153 /
154 FRC
155 X=0?
156 GTO 04
157 SF 00
158 RTN
159 LBL 04
160 CF 00
161 RTN
162 LBL 13
163 LBL D
164 10
165 +
166 STO 25
167 RCL IND 25
168 RTN
169 LBL 14
170 LBL E
171 RCL 03
172 X>Y?
173 GTO 07
174 X=Y?
175 GTO 00
176 14
177 RTN
178 LBL 07
179 .7
180 7DSP1
181 RTN
182 LBL 00
183 CLX
184 7PRTX
185 RTN
186 LBL 18
187 LBL d
188 10
189 +
190 STO 25
191 RDN
192 ST+ IND 25
193 RTN
194 LBL 15
195 LBL a
196 STO 00
197 RTN
198 STOP
199 END

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