The Museum of HP Calculators

Dog Race (card 2) 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 "DOGB"
 02 LBL 10
 03 LBL A
 04 4
 05 STO 09
 06 0
 07 STO 25
 08 LBL 08
 09 7ISZ
 10 RCL IND 25
 11 7ISZ
 12 RCL IND 25
 13 X<=Y?
 14 X<>Y
 15 7DSZ
 16 STO IND 25
 17 7ISZ
 18 X<>Y
 19 STO IND 25
 20 7
 21 RCL 25
 22 X=Y?
 23 GTO 00
 24 8
 25 X#Y?
 26 GTO 08
 27 1
 28 STO 25
 29 GTO 08
 30 LBL 00
 31 0
 32 STO 00
 33  E4-
 34 STO 21
 35 7ISZ
 36 LBL 01
 37 RCL IND 25
 38  E5
 39 *
 40 FRC
 41 RCL 21
 42 10
 43 *
 44 STO 21
 45 *
 46 ST+ 00
 47 7DSZ
 48 GTO 01
 49 1
 50 ST- 09
 51 RCL 09
 52 X=0?
 53 GTO 03
 54 7DSP0
 55 PSE
 56 RCL 00
 57 STO 23
 58 7DSP4
 59 7PRTX
 60 GTO 08
 61 LBL 03
 62 RCL 23
 63 INT
 64 RCL 00
 65 INT
 66 X=Y?
 67 GTO 02
 68 RCL 24
 69 PI
 70 *
 71 FRC
 72 .7
 73 X<=Y?
 74 GTO 02
 75 20
 76 STO 25
 77 LBL 04
 78 RCL 25
 79 7DSP0
 80 PSE
 81 7DSZ
 82 GTO 04
 83 LBL 02
 84 RCL 00
 85  E4
 86 *
 87 7DSP0
 88 STOP
 89 LBL 11
 90 LBL B
 91 1
 92 STO 25
 93 XEQ 07
 94 STO 04
 95 RCL 01
 96 FRC
 97 STO 01
 98 ST- 04
 99 1/X
100 XEQ 05
101 RCL 23
102 STO 22
103 RCL 02
104 FRC
105 STO 02
106 ST- 04
107 RCL 04
108 XEQ 06
109 RCL 04
110 RCL 03
111 FRC
112 STO 03
113 -
114 STO 05
115 1.5
116 /
117 STO 06
118 XEQ 06
119 7ISZ
120 RCL 04
121 XEQ 06
122 RCL 06
123 XEQ 06
124 7ISZ
125 RCL 06
126 XEQ 06
127 RCL 01
128 RCL 02
129 +
130 STO 07
131 1/X
132 7
133 *
134 XEQ 05
135 3
136 *
137 7PRTX
138 252
139 RCL 07
140 RCL 03
141 +
142 /
143 XEQ 07
144 7PRTX
145 7DSP0
146 FRC
147 RCL 24
148 9
149 *
150 1
151 +
152 INT
153 X<>Y
154 6
155 1/X
156 X>Y?
157 GTO 19
158 3
159 *
160 X<=Y?
161 GTO 02
162 R^
163 7PRTX
164 GTO 02
165 LBL 19
166 LBL e
167 RDN
168 RDN
169 2
170 *
171 CHS
172 7DSP2
173 7PRTX
174 GTO 02
175 LBL 12
176 LBL C
177 RCL 22
178 GTO 09
179 LBL 13
180 LBL D
181 RCL 23
182 LBL 09
183 2
184 *
185 LBL 07
186 RCL 20
187 %
188 -
189 7DSP1
190 RTN
191 LBL 06
192 RCL IND 25
193 /
194 2
195 +
196 2.1
197 X<>Y
198 X<=Y?
199 RDN
200 7PRTX
201 RTN
202 LBL 05
203 ENTER
204 ENTER
205 7P<>S
206 RCL IND 25
207 X<>Y
208 STO IND 25
209 7P<>S
210 *
211 STO 23
212 RDN
213 XEQ 07
214 2
215 *
216 7PRTX
217 RTN
218 GTO 67
219 END

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