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