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