The Museum of HP Calculators

Beams Fixed at Both Ends for the HP-41C/CV/CX

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

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