Game of Eleven-Thirty for the HP-65

Back to main page | Email me at: Gene!


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

Instructions:
1) Store a decimal seed into memory 4 (STO 4).
2) Ante an initial "Pot" by entering the amount and pressing C. (You must give a starting amount here)
3) Deal the first two numbers. The HP-65 will show two numbers between 11 and 30. Pot is zero if display flashes. The numbers will be in the form of XX.YY.
4) Bet any amount you wish that the next number will be between the first two numbers. Enter bet, press B. Display will show the next number. If it is positive, you won. If it has a minus sign, you lost. Note: you may not bet more than what is in the pot!
5) If you won, your bet is added to your "pot." If you lost, it is subtracted. To see the amount in the pot, press D.


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

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