The Museum of HP Calculators

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

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