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