Chuck-a-luck Game for the HP-65

Back to main page | Email me at: Gene!


The program presented below will play Chuck-a-luck on the HP-65. It was written by John Rausch and appeared in the V2N3P33 issue of PPC Journal (March 1975). Thanks to John wherever he is today!

The HP-65 acts as a casino operator in the game of Chuck-a-luck.
The player places a bet by entering an integer amount and pressing B.
The player then selects a number from 1 to 6 and presses A.
The HP-65 then rolls three dice.
The player is paid off 1-to-1 if the number selected appears on one of the dice, 2-to-1 if it appears on two of the dice and 3-to-1 if it appears on all three dice.
The player may continue by selecting another number and pressing A.
The display will show the three dice to the right of the decimal point and the win/loss to the left of the decimal point after each throw.
To see the total winnings at any time, press C.

Sample Game: In this sample game, $5 is bet on each roll.
Enter a starting seed of 9.8765 STO 4. See 9.88 displayed.
Enter 5 and press B. See 5.00 displayed.
Enter 6 and press A (to bet on sixes). See 5.361 (Won $5)
Enter 4 and press A (to bet on fours). See -5.126 (Lost $5)
Enter 2 and press A. See 5.214
Enter 3 and press A. See -5.122
Enter 1 and press A. See 10.131
Enter 2 and press A. See 15.222
See total winnings by pressing C. See 25.000


Program Listing: Email if you have any questions.
Line      Instruction  Keycode
01         STO 1        33 01
02         0            00
03         STO 3        33 03
04         STO 6        33 06
05         f            31
06         SF1          51
07         RCL 4        34 04
08         g            35
09         PI           02
10         +            61
11         ENTER        41
12         *            71
13         f-1          32
14         INT          83
15         STO 4        33 04
16         2            02
17         1            01
18         6            06
19         *            71
20         1            01
21         +            61
22         f            31
23         INT          83
24         STO 5        33 05
25         E            15
26         E            15
27         E            15
28         f            31
29         TF1          61
30         GTO          22
31         1            01
32         RCL 3        34 03
33         STO          33
34         +            61
35         2            02
36         RCL 6        34 06
37         +            61
38         RTN          24
39         LBL          23
40         1            01
41         RCL 7        34 07
42         CHS          42
43         STO          33
44         +            61
45         2            02
46         RCL 6        34 06
47         CHS          42
48         +            61
49         RTN          24
50         LBL          23
51         B            12
52         STO 7        33 07
53         DSP          21
54         .            83
55         3            03
56         RTN          24
57         LBL          23
58         C            13
59         RCL 2        34 02
60         RTN          24
61         LBL          23
62         D            14
63         0            00
64         STO 2        33 02
65         RTN          24
66         LBL          23
67         E            15
68         RCL 1        34 01
69         RCL 5        34 05
70         ENTER        41
71         ENTER        41
72         6            06
73         /            81
74         f            31
75         INT          83
76         STO 5        33 05
77         6            06
78         *            71
79         -            51
80         1            01
81         +            61
82         g X NE Y     35 21
83         GTO          22
84         2            02
85         RCL 7        34 07
86         STO          33
87         +            61
88         3            03
89         f-1          32
90         SF1          51
91         g RDN        35 08
92         LBL          23
93         2            02
94         RCL 6        34 06
95         +            61
96         .            83
97         1            01
98         *            71
99         STO 6        33 06
100        RTN          24

That's it!
Visitors since 8/4/97