07-08-2019, 05:22 AM
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:
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
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