The Museum of HP Calculators

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

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