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 Solution Book. 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
LINE KEYS 01 LBL "HNGMAN" 02 LBL 10 03 LBL A 04 FS? 00 05 GTO 18 06 CLX 07 STO 04 08 STO 08 09 XEQ 03 10 SF 00 11 7DSP0 12 RCL 21 13 7PRTX 14 RTN 15 LBL 13 16 LBL D 17 9 18 + 19 LBL 12 20 LBL C 21 9 22 + 23 LBL 11 24 LBL B 25 STO 03 26 CLX 27 STO 05 28 STO 06 29 23- 30 STO 25 31 RCL 00 32 STO 02 33 1 34 ST+ 06 35 RCL 06 36 6 37 X=Y? 38 SF 02 39 RCL 01 40 FS?C 02 41 STO 02 42 RCL 02 43 E2 44 * 45 FRC 46 STO 02 47 LASTX 48 INT 49 RCL 03 50 X=Y? 51 XEQ 00 52 RCL 06 53 RCL 21 54 X#Y? 55 7GTOI 56 .01 57 RCL 04 58 RCL 05 59 X=0? 60 RDN 61 + 62 FRC 63 STO 04 64 7DSP2 65 LASTX 66 RTN 67 LBL 00 68 10 69 X^2 70 LASTX 71 RCL 06 72 X=Y? 73 RDN 74 CLX 75 RCL 05 76 * 77 RCL 06 78 + 79 STO 05 80 RTN 81 LBL 19 82 LBL e 83 7CLREG 84 LBL 14 85 LBL E 86 CF 00 87 CLX 88 RTN 89 LBL 03 90 RCL 20 91 X#0? 92 GTO 05 93 9 94 STO 25 95 STO 09 96 7P<>S 97 CF 22 98 7DSP0 99 CLX 100 STO 22 101 LBL 04 102 MRG 103 PSE 104 FS?C 22 105 FS?C 22 106 GTO 04 107 7P<>S 108 XEQ 07 109 STO 20 110 LBL 05 111 1 112 - 113 STO 20 114 XEQ 07 115 STO 21 116 RCL 08 117 STO 25 118 CLX 119 STO IND 25 120 7ISZ 121 STO IND 25 122 7DSZ 123 CLX 124 STO 08 125 LBL 06 126 XEQ 07 127 RCL IND 25 128 E2 129 * 130 + 131 STO IND 25 132 1 133 ST+ 08 134 5 135 RCL 08 136 X=Y? 137 XEQ 09 138 RCL 21 139 RCL 08 140 X#Y? 141 GTO 06 142 5 143 - 144 X<0? 145 RCL 08 146 X>0? 147 XEQ 09 148 RTN 149 LBL 07 150 RCL 22 151 X#0? 152 GTO 08 153 RCL 09 154 X<> 25 155 7ISZ 156 RCL IND 25 157 STO 22 158 X<>Y 159 X<> 25 160 STO 09 161 RCL 22 162 LBL 08 163 E2 164 * 165 FRC 166 STO 22 167 LASTX 168 INT 169 RTN 170 LBL 09 171 2 172 * 173 10^X 174 ST/ IND 25 175 7ISZ 176 RTN 177 STOP 178 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall