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

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