home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 128 25
/
q25.d81
/
t.blackjack
< prev
next >
Wrap
Text File
|
2022-08-28
|
3KB
|
54 lines
B L A C K J A C K
by Edward Rainey
Back on LOADSTAR 128 #22 we published Jon Mattson's super-utility
CONTROL80-C, a version of his popular CONTROL80 that has a special font
tacked onto it that makes programming card games much easier. At that time
we challenged readers who dabbled in programming to use CONTROL80-C to
produce a card game. Edward Rainey of Jacksonville FL answered our
challenge even though it was technically the first big program he's ever
written. He's not a stranger to LOADSTAR 128, however; he revamped VIDEO
CRAPS from LS 128 #20 into an 80-column program and it was published on LS
128 #122.
For his first card game he decided to tackle BLACKJACK, a game familiar
to just about anyone who plays cards. It's a game where you play against
the dealer, trying to get as close to 21 as possible without going over.
The instructions to simple BLACKJACK are in the program where you can get to
them at any time. The reason I say "simple BLACKJACK" is that there are
some rules for casino-style BLACKJACK that aren't supported by the program.
There is no "splitting" of a hand when the first two cards dealt to the
player are the same. There is also no "double-down" where you can increase
your bet as a hand progresses.
You begin by making a bet from your $2000 grubstake. Then you and the
dealer are dealt two cards. If you want another card press H for "Hit".
When you're satisfied with your cards press S for "Stand". Then the dealer
plays his hand, standing only on 16 or higher. If you have a higher total
than the dealer, you win the amount of your bet. If you "bust" (go over 21)
the dealer wins without having to play at all.
There's another way of winning. If you are dealt five cards (three
"hits" plus the original two) without going over 21, this is known as a
"five card Charlie" and you win. The dealer can also win the same way.
If you can amass $10,000 the dealer will quit in disgust and ask you to
move on -- just like in a real casino. If you lose your $2000, you'll be
asked to beg, steal or borrow some more so you can play again -- just like
in a real casino.
It's a fast game. Ed has written a clean, streamlined program that
shows that with the right tools, a beginning programmer can produce
something really nice. Check out the docs for CONTROL80-C on LS 128 #22 and
maybe you'll be the next LOADSTARite to make the big time.
FT
\\\\\ R - Run RETURN - Menu \\\\\