The Museum of HP Calculators

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

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