(11C) Blackjack - 21
07-08-2019, 05:22 AM (This post was last modified: 07-21-2019 03:05 AM by Gamo.)
Post: #1
 Gamo Senior Member Posts: 518 Joined: Dec 2016
(11C) Blackjack - 21
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]
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

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

Gamo
07-23-2019, 01:11 PM
Post: #2
 Gamo Senior Member Posts: 518 Joined: Dec 2016
RE: (11C) Blackjack - 21
Blackjack the Final Version

Program: https://www.dropbox.com/s/8w59oa0idq7zig...1.pdf?dl=0

Gamo
 « Next Oldest | Next Newest »

User(s) browsing this thread: 1 Guest(s)