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