This program is Copyright © HP and is used here by permission. It was originally printed in the High-Level Math 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 A 02 1.009 03 STO 25 04 LBL 01 05 RCL IND 25 06 STOP 07 ISG 25 08 GTO 01 09 STOP 10 LBL "EVV" 11 CF 00 12 LBL 03 13 RCL 01 14 RCL 04 15 XEQ 08 16 RCL 07 17 RCL 22 18 * 19 + 20 STO 23 21 RCL 02 22 RCL 05 23 XEQ 08 24 RCL 08 25 RCL 22 26 * 27 + 28 STO 24 29 RCL 03 30 RCL 06 31 XEQ 08 32 RCL 09 33 RCL 22 34 * 35 + 36 STO 25 37 RCL 23 38 RCL 20 39 / 40 RCL 00 41 X=Y? 42 GTO 00 43 X<>Y 44 STO 00 45 RCL 23 46 STO 20 47 RCL 24 48 STO 21 49 RCL 25 50 STO 22 51 GTO 03 52 LBL 00 53 STOP 54 1 55 STO 20 56 STOP 57 RCL 24 58 RCL 23 59 / 60 STO 21 61 STOP 62 RCL 25 63 RCL 23 64 / 65 STO 22 66 STOP 67 RCL 05 68 RCL 21 69 RCL 04 70 * 71 - 72 STO 16 73 RCL 06 74 RCL 22 75 RCL 04 76 * 77 - 78 STO 17 79 RCL 08 80 RCL 21 81 RCL 07 82 * 83 - 84 STO 18 85 RCL 09 86 RCL 22 87 RCL 07 88 * 89 - 90 STO 19 91 RCL 16 92 + 93 STO 25 94 X^2 95 RCL 16 96 RCL 19 97 * 98 RCL 18 99 RCL 17 100 * 101 - 102 4 103 * 104 - 105 SQRT 106 2 107 / 108 STO 23 109 RCL 25 110 2 111 / 112 STO 24 113 RCL 23 114 - 115 STO 10 116 RCL 24 117 RCL 23 118 + 119 STO 13 120 LBL 02 121 RCL 10 122 STOP 123 RCL 16 124 - 125 STO 12 126 RDN 127 RCL 18 128 STO 11 129 RCL 04 130 R^ 131 RCL 07 132 XEQ 09 133 RCL 10 134 RCL 00 135 - 136 / 137 ST/ 11 138 ST/ 12 139 RCL 21 140 ST+ 11 141 RCL 22 142 ST+ 12 143 RCL 20 144 STOP 145 RCL 11 146 STOP 147 RCL 12 148 STOP 149 FS? 00 150 RTN 151 SF 00 152 RCL 10 153 RCL 13 154 STO 10 155 X<>Y 156 STO 13 157 RCL 11 158 RCL 12 159 RCL 14 160 RCL 15 161 STO 12 162 RDN 163 STO 11 164 RDN 165 STO 15 166 RDN 167 STO 14 168 GTO 02 169 LBL 08 170 RCL 20 171 X<>Y 172 RCL 21 173 LBL 09 174 * 175 RDN 176 * 177 R^ 178 + 179 RTN 180 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall