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