(11C) Blackjack - 21

[Rogier]

It appears I can only change my code, not the accompanying text. So here is the documentation in a separate note.

In order to incorporate a scoring routine I moved the last card drawn from R9 to R,0. Then added Lbl 4, which saves R9 if registers are cleared when 11C takes new cards.

This enabled me to fit in a basic scoring system with 1 line to spare (if you delete Lbl E). Lbl 5 is inserted to handle player totals >21, F0 is used to determine if 1 or -1 should be subtracted from R9. I inserted "Lbl E" in the listing for readability and testing of the scoring routine only.

Scoring is as follows:

• Score is kept in R9,
• Standard bet is 1 credit, no other bets possible,
• Player starts out at 0 credits (so positive values in R9 mean you are winning, negative values mean you are losing),
• If player has >21 points he loses (Lbl 5), if not:
• If 11C has > 21 points player wins, if not:
• If player points > 11C points player wins,
• If both passed with the same points 11C wins.
  

Use of A and B is as before. C now shows the total after each card 11C draws [Pse] and finally shows your credit balance. If you want to review the totals:
R7: 11C card score
R8: Player card score
R9: Credits

If you prefer the old system just delete all lines beyond Lbl E (from 107) and replace them by:
107 Rcl 8
108 EEX
109 2
110 /
111 +
(112 Rtn)