Blackjack for the HP-19C/29C

Back to main page
I've had a lot of visitors but few comments! Let me hear from you! Email me at: Genewright143@hotmail.com


The HP-19C/29C Blackjack program presented below first appeared in the PPC Journal V6N4 July 1979 (when the HP-41C was introduced!) by Peter Brandman. Thanks to Peter wherever he is today! I have modified it to use a better random number generator.

Instructions:
1) Key in a decimal seed and press STO 1.
2) Key in initial bankroll. STO 2.
3) Key in bet. GSB 1. Display will pause with card dealt, then will show total in hand.
4) To hit (add another card): R/S
5) To stand: GSB 2
6) For a new hand, go to step 3.
7) For a new game, go to step 2.


Line      Instruction
01         LBL 1
02         STO 6
03         0
04         STO 3
05         STO 4
06         STO 5
07         5
08         STO 0
09         FIX 0
10         LBL 7
11         GSB 0
12         R/S
13         GTO 7
14         LBL 2
15         0
16         STO 3
17         4
18         STO 0
19         LBL 3
20         GSB 0
21         PAUSE
22         RCL 5
23         RCL 4
24         X>Y?
25         GTO 5
26         GTO 3
27         LBL 5
28         1
29         STO 0
30         LBL 6
31         LBL 4
32         RCL 6
33         DSZ
34         CHS
35         CHS
36         STO+ 2
37         FIX 2
38         RCL 2
39         R/S
40         LBL 0
41         1
42         0
43         RCL 1
44         9
45         9
46         7
47         *
48         FRAC
49         STO 1
50         1
51         3
52         *
53         1
54         +
55         INT
56         X>Y?
57         X<>Y
58         1
59         X<>Y
60         PAUSE
61         X NE Y?
62         GTO 8
63         STO+ 3
64         1
65         1
66         LBL 8
67         STO+ i
68         LBL 9
69         2
70         1
71         RCL i
72         X>Y?
73         GTO 9
74         X NE Y?
75         RTN
76         PAUSE
77         ISZ
78         GTO i
79         LBL 9
80         RCL 3
81         X=0?
82         GTO 2
83         1
84         STO- 3
85         1
86         0
87         STO- i
88         GTO 9
89         LBL 2
90         RDN
91         PAUSE
92         GTO i

Visitors since 6/2/97