The Museum of HP Calculators

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

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