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