The Museum of HP Calculators

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

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