(11C) Blackjack - 21

[Gamo]

Blackjack or 21 card game is adapted and added more features
from the HP-19C Games Solutions Handbook.

This is not a perfect program anyone got better idea go ahead and make
any suggestion is very welcome.

------------------------------------
Procedure: USER mode

[A] Player
[B] Dealer // Run and make decision automatically
[C] Ace // Player select to use 11 instead of 1
[D] Bankroll
[E] Bet

1. Input specific Bankroll [D]
2. Input your bet [E]
3. Take Cards [A] display first card amount
[R/S] display second card added from 1st card
continue [R/S] until the highest possible you like.
If you win your bankroll is added and display as negative sign -xxx.
4. [B] Dealer play automatically (if Dealer win you bankroll is deducted)

To continue: enter Bet [E] ---> [A] --->[R/S]..... ---->[B] display Bankroll remaining amount as negative value.

-----------------------------------------------
Remark:
Only the player have a choice to pick Ace as 1 or 11
when display show 1 and you want 11 simply press [C]
If you already got 10 next card is Ace press [C] for 11 total is 21
If you got Ace and any other but not 10 then keep on continue with [R/S] to your desire amount then [B]

Even if player done with lower amount for example: 16 if Dealer draw to 16 the dealer will not continue but
stop and get a tie game instead.
Tie Game will shown short moment effect display 0.000000000 then Bankroll amount.
-----------------------------------------------
Program:

Code:


LBL A  // Player
GSB 0  // Get Card
1,1  // the [ , ] mark is a decimal sign 
X<>Y
X>Y
GTO 3
R/S  // Stop here to choose Ace value
LBL 3  // For card 2 and above
STO+1
21
RCL 1  // Total
X=Y
RTN  // Stop when 21
X>Y
GTO 2  // Lose
R/S
GTO A
--------------
LBL B  // Dealer
GSB 0  // Get Card
STO+2
21
RCL 2  // Total
PSE
X>Y
GTO 1  // Win
RCL 1  // Total from Player
X<>Y
X=Y  // Test for when Player and Dealer got the same amount
GTO 4  // Same Amount go ahead and decide if dealer decide to Hit or Stop.
X>Y
GTO 2  // Lose
GTO B
-----------
LBL C  // Ace for 11
11
GTO 3  // Player Select 11 and continue
----------
LBL D  // Bankroll
STO 3
RTN
----------
LBL E  // Place Bet and Clear previous data
STO 4
CLx
STO 1
STO 2
FIX 0
RCL 4
RTN
----------
LBL 0  // Random Algorithm 
10
RAN#
13
x
1
+
INT
X>Y
X<>Y  // 10. for Jack-Queen-King
RTN
----------
LBL 1  // Win
RCL 3
RCL 4
+
STO 3
CHS
RTN
---------
LBL 2  // Lose
RCL 1  // To see the card amount that call a lose game by pressing [X<>Y]  
RCL 3
RCL 4
-
STO 3
CHS
RTN
--------
LBL 4  // Tie ( draw or maybe not ? )
17
RCL 2
X>Y  // For card amount 18 to 21 call a Tie Game
GTO 5
RAN#  // Card amount < 18 Dealer "randomly" decide to call tie or continue
2
x
INT
X=0  // Dealer make random decision to call tie or continue  
GTO B
LBL 5  // Start here for a Tie Game effect notification
0
FIX 9
PSE  // Display 0.000000000 briefly to indicate a tie game 
FIX 0
RCL 3  // Bankroll Amount
CHS
RTN

EDIT: [7/10/2019]
Make changed to LBL 4
When both Player and Dealer got the same cards amount
Dealer will make a Hit from 16 and below.
17 and above Dealer will call a "Tie Game"

EDIT: [7/11/2019]
On LBL A make change after X=Y from GTO 1 to RTN
After this change when Player get 21 this will not automatically win and
Player let the Dealer continue. If Dealer also get 21 then it is now a "Tie Game"

EDIT: [7/21/2019]
Make changed to LBL 4
Now card amount > 17 will call Tie Game
Card amount < 18 will randomly call either Tie or Continue

Added [X<>Y] under [LBL] 2
If you lose and like to see your card amount simply press [X<>Y]

Gamo