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