The Museum of HP Calculators

Subhunt for the HP-41C/CV/CX

This program is supplied without representation or warranty of any kind. Chris Johnson, 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 "SUBHUNT"
 02 9
 03 XEQ "SIZE?"
 04 FC?C 25
 05 PROMPT
 06 CLRG
 07 SF 27
 08 XEQ "INI"
 09 STO 00
 10 FC? 55
 11 CF 21
 12 LBL 23
 13 CF 00
 14 XEQ 18
 15 STO 01
 16 XEQ 18
 17 STO 02
 18 "N"
 19 ASTO Y
 20 "HARD? Y/N"
 21 AON
 22 PROMPT
 23 AOFF
 24 ASTO X
 25 X=Y?
 26 GTO 20
 27 SF 00
 28 LBL 20
 29 RCL 05
 30 RCL 03
 31 "ORDERS"
 32 FIX 02
 33 PROMPT
 34 GTO E
 35 LBL 18
 36 XEQ "RNDM"
 37 10
 38 *
 39 RTN
 40 LBL E
 41 1
 42 ST+ 08
 43 RDN
 44 XEQ c
 45 TONE 09
 46 FS? 00
 47 XEQ a
 48 CF 05
 49 RCL 04
 50 2.5
 51 X>Y?
 52 GTO 01
 53 GTO 20
 54 LBL 01
 55 /
 56 10
 57 *
 58 INT
 59 9
 60 X<>Y
 61 -
 62 TONE IND X
 63 CLX
 64 GTO 20
 65 LBL A
 66 1
 67 ST+ 07
 68 RDN
 69 XEQ c
 70 .25
 71 -
 72 .8
 73 *
 74 XEQ "RNDM"
 75 X<=Y?
 76 GTO 01
 77 XEQ 24
 78 "BOOM"
 79 XEQ "BOOM"
 80 AVIEW
 81 PSE
 82 XEQ 25
 83 CLX
 84 STO 07
 85 STO 08
 86 GTO 23
 87 LBL 01
 88 XEQ a
 89 XEQ 24
 90 TONE 00
 91 "MISSED"
 92 AVIEW
 93 PSE
 94 GTO 20
 95 LBL C
 96 XEQ 25
 97 GTO 20
 98 LBL 25
 99 FIX 00
100 SF 03
101 RCL 07
102 XEQ 21
103 RCL 08
104 XEQ 21
105 RTN
106 LBL 21
107 CLA
108 ARCL X
109 " "
110 FC?C 03
111 "S"
112 "CAN"
113 1
114 X#Y?
115 "S"
116 AVIEW
117 PSE
118 RTN
119 LBL a
120 RCL 01
121 RCL 05
122 -
123 RCL 02
124 RCL 03
125 -
126 R-P
127 2.5
128 X<=Y?
129 GTO 02
130 RDN
131 X<>Y
132 90
133 -
134 360
135 +
136 LASTX
137 MOD
138 180
139 XEQ "RNDM"
140 *
141 +
142 LBL 03
143 XEQ "RNDM"
144 P-R
145 ST+ 02
146 RDN
147 ST+ 01
148 1
149 XEQ b
150 2
151 XEQ b
152 RTN
153 LBL b
154 10
155 RCL IND Y
156 X<Y?
157 GTO 01
158 20
159 -
160 LBL 01
161 ABS
162 STO IND Z
163 RTN
164 LBL 02
165 XEQ "RNDM"
166 GTO 03
167 LBL c
168 X<>Y
169 STO 05
170 RCL 01
171 -
172 X<>Y
173 STO 03
174 RCL 02
175 -
176 R-P
177 STO 04
178 RTN
179 LBL 24
180 CLA
181 "           *   "
182 "          "
183 AVIEW
184 RTN
185 LBL "INI"
186 SF 21
187 DEG
188 "SEED ?"
189 PROMPT
190 SIN
191 ABS
192 RTN
193 LBL "RNDM"
194 RCL 00
195 9821
196 *
197 .211327
198 +
199 FRC
200 STO 00
201 RTN
202 LBL "SIZE?"
203 FIX 00
204 "SIZE>="
205 ARCL X
206 1
207 -
208 SF 25
209 RCL IND X
210 RTN
211 LBL "BOOM"
212 TONE 05
213 TONE 05
214 TONE 05
215 TONE 04
216 RTN
217 END

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