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 Games Pac. This program was uploaded by Chris Johnson.

This program is supplied without representation or warranty of any kind. Chris Johnson, 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 A
 02 "     ROLLING   "
 03 "  "
 04 CF 21
 05 AVIEW
 06 XEQ 00
 07 STO 01
 08 "   "
 09 ARCL X
 10 XEQ 00
 11 "       "
 12 AVIEW
 13 ARCL X
 14 XEQ "P"
 15 RCL 01
 16 +
 17 FS? 05
 18 GTO 01
 19 STO 02
 20 7
 21 X=Y?
 22 GTO 04
 23 RDN
 24 11
 25 X=Y?
 26 GTO 04
 27 RDN
 28 2
 29 X=Y?
 30 GTO 02
 31 RDN
 32 3
 33 X=Y?
 34 GTO 02
 35 RDN
 36 12
 37 X=Y?
 38 GTO 02
 39 "POINT="
 40 ARCL Y
 41 XEQ "P"
 42 SF 05
 43 GTO 06
 44 LBL "CRAPS"
 45 6
 46 XEQ "SIZE?"
 47 FC?C 25
 48 PROMPT
 49 CF 05
 50 CLRG
 51 SF 27
 52 XEQ "INI"
 53 STO 00
 54 GTO 03
 55 LBL 04
 56 "  YOU WIN"
 57 BEEP
 58 XEQ "P"
 59 CF 05
 60 RCL 05
 61 ST+ 04
 62 GTO 03
 63 LBL 02
 64 "YOU LOSE"
 65 TONE 04
 66 XEQ "P"
 67 RCL 05
 68 ST- 04
 69 CF 05
 70 LBL 03
 71 SF 29
 72 FIX 02
 73 " PLACE BET"
 74 PROMPT
 75 CF 29
 76 FIX 00
 77 STO 05
 78 LBL 06
 79 "ROLL"
 80 AVIEW
 81 STOP
 82 LBL B
 83 "POINT="
 84 ARCL 02
 85 XEQ "P"
 86 PSE
 87 GTO 06
 88 LBL C
 89 "$"
 90 ARCL 04
 91 XEQ "P"
 92 GTO 03
 93 LBL 01
 94 RCL 02
 95 X=Y?
 96 GTO 04
 97 RDN
 98 7
 99 X=Y?
100 GTO 02
101 GTO 06
102 LBL 00
103 XEQ "RNDM"
104 6
105 *
106 1
107 +
108 INT
109 RTN
110 LBL "INI"
111 SF 21
112 DEG
113 "SEED ?"
114 PROMPT
115 SIN
116 ABS
117 RTN
118 LBL "RNDM"
119 RCL 00
120 9821
121 *
122 .211327
123 +
124 FRC
125 STO 00
126 RTN
127 LBL "SIZE?"
128 FIX 00
129 "SIZE>="
130 ARCL X
131 1
132 -
133 SF 25
134 RCL IND X
135 RTN
136 LBL "P"
137 CF 21
138 FS? 55
139 SF 21
140 AVIEW
141 FC? 55
142 PSE
143 PSE
144 END

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