The Museum of HP Calculators


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

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