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