This program is Copyright © HP and is used here by permission. It was originally printed in the HVAC Solution Book and also the Chemistry Solution Book. 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
LINE KEYS 01 LBL "ID" 02 0 03 SF 00 04 GTO 00 05 LBL "RK" 06 1 07 CF 00 08 "TC?" 09 PROMPT 10 STO 13 11 "PC?" 12 PROMPT 13 STO 14 14 LBL 00 15 SF 02 16 CF 01 17 FIX 02 18 "P?" 19 PROMPT 20 5 21 XEQ 00 22 "V?" 23 PROMPT 24 6 25 XEQ 00 26 "N?" 27 PROMPT 28 7 29 XEQ 00 30 "R?" 31 PROMPT 32 8 33 XEQ 00 34 "T?" 35 PROMPT 36 CF 02 37 9 38 LBL 00 39 CF 01 40 STO 01 41 RDN 42 STO IND 01 43 X#0? 44 GTO 01 45 R^ 46 STO 10 47 1 48 STO IND 01 49 LBL 01 50 FS? 02 51 RTN 52 GTO IND 10 53 LBL 05 54 "P=" 55 GTO 00 56 LBL 06 57 "V=" 58 LBL 00 59 RCL 07 60 RCL 08 61 * 62 RCL 09 63 * 64 RCL 05 65 RCL 06 66 * 67 / 68 STO IND 10 69 GTO 00 70 LBL 07 71 SF 01 72 "N=" 73 GTO 01 74 LBL 08 75 SF 01 76 "R=" 77 GTO 01 78 LBL 09 79 "T=" 80 SF 01 81 LBL 01 82 RCL 05 83 RCL 06 84 * 85 RCL 07 86 / 87 RCL 08 88 / 89 RCL 09 90 / 91 STO IND 10 92 LBL 00 93 FS? 00 94 GTO 10 95 XEQ 01 96 GTO 00 97 LBL 02 98 FS? 01 99 XEQ 01 100 LBL 00 101 RCL 00 102 RCL 09 103 * 104 RCL 06 105 RCL 12 106 - 107 STO 04 108 / 109 RCL 11 110 RCL 09 111 SQRT 112 / 113 STO 02 114 RCL 06 115 / 116 LASTX 117 RCL 12 118 + 119 STO 03 120 / 121 - 122 RCL 05 123 - 124 XEQ IND 10 125 / 126 ST- IND 10 127 RCL IND 10 128 / 129 ABS 130 1 E-4 131 X<=Y? 132 GTO 02 133 RCL IND 10 134 GTO 10 135 LBL 06 136 RCL 06 137 ENTER 138 + 139 RCL 12 140 + 141 RCL 02 142 * 143 RCL 03 144 RCL 06 145 * 146 X^2 147 / 148 RCL 00 149 RCL 09 150 * 151 RCL 04 152 X^2 153 / 154 - 155 RTN 156 LBL 09 157 RCL 00 158 RCL 04 159 / 160 RCL 02 161 2 162 / 163 RCL 09 164 / 165 RCL 06 166 / 167 RCL 03 168 / 169 + 170 RTN 171 LBL 07 172 LBL 08 173 RCL 09 174 RCL 06 175 * 176 RCL 04 177 X^2 178 / 179 RCL 06 180 ENTER 181 + 182 RCL 12 183 + 184 RCL 00 185 / 186 RCL 06 187 / 188 RCL 03 189 X^2 190 / 191 RCL 02 192 * 193 - 194 RCL 00 195 * 196 RCL IND 10 197 / 198 RTN 199 LBL 05 200 LASTX 201 + 202 STO 05 203 GTO 10 204 LBL 01 205 RCL 07 206 RCL 08 207 * 208 STO 00 209 .0867 210 RCL 14 211 / 212 X<>Y 213 RCL 13 214 * 215 * 216 STO 12 217 LASTX 218 * 219 RCL 13 220 SQRT 221 * 222 4.934 223 * 224 STO 11 225 RTN 226 LBL 10 227 ARCL X 228 AVIEW 229 STOP 230 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall