The Museum of HP Calculators

Craps for the HP-41C/CV/CX

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

Program Listing

LINE  KEYS
 01 LBL "CRAPS"
 02 LBL 10
 03 LBL A
 04 7SCI
 05 7DSP1
 06 SF 02
 07 XEQ 00
 08 STO 01
 09 LBL 00
 10 RCL 24
 11 PI
 12 +
 13 X^2
 14 FRC
 15 STO 24
 16 6
 17 *
 18 1
 19 +
 20 INT
 21 FS?C 02
 22 RTN
 23 STO 02
 24 +
 25 STO 00
 26 10^X
 27 FS? 00
 28 1/X
 29 RCL 01
 30 RCL 02
 31 10
 32 /
 33 +
 34 *
 35 STO 06
 36 RCL 00
 37 FS? 01
 38 GTO 01
 39 STO 03
 40 4
 41 X>Y?
 42 GTO 03
 43 CLX
 44 7
 45 X=Y?
 46 GTO 02
 47 4
 48 +
 49 X=Y?
 50 GTO 02
 51 X<=Y?
 52 GTO 03
 53 SF 01
 54 RCL 06
 55 FS? 00
 56 7PRTX
 57 RTN
 58 LBL 01
 59 7
 60 X=Y?
 61 GTO 03
 62 CLX
 63 RCL 03
 64 X=Y?
 65 GTO 02
 66 RCL 06
 67 FS? 00
 68 7PRTX
 69 RTN
 70 LBL 02
 71 RCL 06
 72 7PRTX
 73 RCL 04
 74 GTO 04
 75 LBL 03
 76 RCL 06
 77 7PRTX
 78 RCL 04
 79 CHS
 80 LBL 04
 81 7FIX
 82 7DSP2
 83 CF 01
 84 ST+ 05
 85 FS? 00
 86 7PRTX
 87 ADV
 88 RTN
 89 LBL 11
 90 LBL B
 91 FS? 01
 92 GTO 15
 93 X>0?
 94 X=0?
 95 GTO 15
 96 STO 04
 97 GTO 05
 98 LBL 12
 99 LBL C
100 RCL 05
101 LBL 05
102 7FIX
103 7DSP2
104 LBL 06
105 FS? 00
106 7PRTX
107 ADV
108 RTN
109 LBL 13
110 LBL D
111 7FIX
112 7DSP0
113 RCL 03
114 GTO 06
115 LBL 14
116 LBL E
117 PI
118 +
119 STO 24
120 GTO 14
121 LBL 18
122 LBL d
123 CF 01
124 CLX
125 STO 05
126 GTO 05
127 LBL 19
128 LBL e
129 1
130 FS? 00
131 CLX
132 SF 00
133 X=0?
134 CF 00
135 RTN
136 STOP
137 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall