******VIDEO POKER SIM******* (V.1 / 16JUL02)
for TI-83+ / by Taren Nauxen
*Programmed in TI-83+ BASIC*
****************************

This program simulates a video poker machine. In the casinos, you are given five cards, and you can hold none, some, or all of those five. Then the not-held cards are replaced by the next cards in the deck.

The catch is that this program will evalute all 32 ways to play the hand. There are two ways to play each card (hold, not held), and there are five cards, so that makes 32 ways.

After the program reads "32 OF 32 DONE", it will stop. You then open up List 3 (L3) to check the winnings.

It will most likely read something like this:
{11 0 1 0 0 0 0 0 0}

The elements of L3 from left to right are quantities of:
{1P 2P 3K ST FL FH 4K SF RF}
1P: one pair, of Jacks or better.
2P: two pairs of any value cards.
3K: three cards of equal face value.
ST: five cards in a run, not all the same suit.
FL: all cards of same suit, and not in a run.
FH: three cards of one value, and two of another.
4K: four cards of equal value.
SF: five cards in a run, of the same suit
RF: A-K-Q-J-10 of the same suit.

Most of the time you won't get anything above 3K.

Have fun.

****************************
Questions, comments, suggestions?
furusato@insightbb.com
****************************

LEGAL: VPOKRSIM.8xp is (c) Taren Nauxen.