home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 1B
/
DATAFILE_PDCD1B.iso
/
_pocketbk
/
pocketbook
/
002
/
s3poke_zip
/
POKER.OPA
/
POKER.txt
< prev
Wrap
Text File
|
1993-03-18
|
2KB
|
177 lines
OPLObjectFile**
LOC::M:\OPL\POKER.OPL
POKER.ODB
\OPD\
CARD$
DECK$
DUMP%
KEYP%
DEAL%
CREDITS&
BETSEL%
INITGFX
INITDECK
SHUFFLE
GETBET
PSELECT
CHECK
DRAWCARD
KEYP%
DUMP%
\OH@[
\OX@[
Special+
HelpOH+
ExitOX
O @[,
PUTSUIT
CARD$
DUMP%
LO-PO
O(O2O
hO(O2O
O(O2O
TLO(O
VIDEO POKER
TLO(O
TLO(O
Giles Goddard
\APP\POKER\
club16.pic
Rheart16O
club16O
spade16O
Rdiamd16O
v+&Sorry can't find one of the .PIC files+
Read the doc file !W8
DECK$
234567890JQKA
DRAWCARD
DECK$
DEAL%
Shuffling deck...O
O4|RWBIx
O4|RWBIx
DRAWCARD
DUMP%
CARD$
DECK$
DEAL%
O5@[
PSTATUS
CREDITS&
BETSEL%
You have broken the bank!
+ Game Over
Another game?O
YesOy+
W7On@[
You have $
Make your bet
Bet +
$1,$5,$10,$25,$50,$100
CREDITS&
Credit $
Bet $
FLUSH
STRAIGHT
PAIRS
CARD$
CREDITS&
ROYAL FLUSH!
Straight flush
Four of a kind
Full house
Flush
Straight
Three of a kind
+ Two pairs
One pair
YOU WIN $
+ You lose!
.G\[O
HANDJOB
A2345
23456
34567
45678
56789
67890
7890J
890JQ
90JQK
0JQKA
HHHHHC
CCCCCC`
DDDDDC`
SSSSSC`|
HANDJOB
HANDIS
AA...
22...
33...
44...
55...
66...
77...
88...
99...
00...
JJ...
QQ...
KK...
....K
HANDIS
Help: Video Poker(
HOW TO PLAY(
WINNING HANDS(
ABOUT(
Help: HOW TO PLAY(
Make your bet.
Use the cursor keys to select
a card then SPACE to flip it.
Press RETURN to discard flipped
+ cards and replace with new ones.
You only have one chance!
Bet X
Royal Flush -
1000K
10 J Q K A - Same suit
Straight Flush -
+ Any 5 cards in order & same suit
Four of a kind -
4 cards of same rank
Full House -
+%3 cards same rank + 2 cards same rank
Flush -
All cards same suit
Straight -
Any 5 cards in order
Three of a kind -
3 cards of same rank
Two Pairs -
+&2 pairs of cards, each pair same rank
One Pair -
2 cards of same rank
Video Poker(
(c) Giles Goddard. 1993O
+*Public Domain. Not to be sold in any form.O
+%The author cannot be held responsibleO
+)for any loss of jobs caused by bad timingO
+)on the part of the user and his/her boss.O
PSELECT
DRAWCARD
PUTSUIT
INITGFXl
INITDECK
SHUFFLE
GETBET
PSTATUS
CHECK
HANDIS
STRAIGHT
FLUSH
PAIRS
HANDJOB