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