File POKER.BA (BASIC source file)

Directory of image this file is from
This file as a plain text file

1 DIM A(50),B(15)
2DEFFNA(X)=INT(10*RND(X))
3DEFFNB(X)=X-100*INT(X/100)
4PRINT"WELCOME TO THE HALLDEN CASINO.  WE EACH HAVE $200"
5PRINT"I WILL OPEN THE BETTING BEFORE THE DRAW; YOU OPEN AFTER"
6PRINT"WHEN YOU FOLD, BET 0;  TO CHECK, BET .5"
7PRINT"ENOUGH TALK -- LET'S GET DOWN TO BUSINESS"
8PRINT 
9LETO=1
10LETC=200
11LETS=200
12LETP=0
13RANDOMIZE
14PRINT 
15IFC<=5THEN367 
16PRINT"THE ANTE IS $5.  I WILL DEAL" 
17PRINT 
18IFS>5THEN20 
19GOSUB383
20LETP=P+10 
21LETS=S-5
22LETC=C-5
23FORZ=1TO10
24GOSUB174
25NEXTZ 
26PRINT"YOUR HAND:" 
27LETN=1
28GOSUB185
29LETN=6
30LETI=2
31GOSUB217
32PRINT 
33IFI<>6THEN47
34IFFNA(0)<=7THEN37 
35LETX=11100
36GOTO42
37IFFNA(0)<=7THEN40 
38LETX=11110
39GOTO42
40IFFNA(0)>=1THEN45 
41LETX=11111
42LETI=7
43LETZ=23 
44GOTO58
45LETZ=1
46GOTO51
47IFU>=13THEN54 
48IFFNA(0)>=2THEN50 
49GOTO42
50LETZ=0
51LETK=0
52PRINT"I CHECK"
53GOTO62
54IFU<=16THEN57 
55LETZ=2
56IFFNA(0)>=1THEN58 
57LETZ=35 
58LETV=Z+FNA(0) 
59GOSUB348
60 PRINT "I'LL OPEN WITH ";V
61LETK=V
62GOSUB305
63GOSUB65 
64GOTO82
65IFI<>3THEN76
66PRINT 
67PRINT"I WIN"
68LETC=C+P
69PRINT"NOW I HAVE $";C;"AND YOU HAVE $";S 
70PRINT"DO YOU WISH TO CONTINUE"; 
71INPUTH$ 
72IFH$="YES"THEN12
73IFH$="NO"THEN410
74PRINT"ANSWER YES OR NO, IDIOT"
75GOTO70
76IFI<>4THEN81
77PRINT 
78PRINT"YOU WIN"
79LETS=S+P
80GOTO69
81RETURN
82PRINT 
83 PRINT"NOW WE DRAW -- HOW MANY CARDS DO YOU WANT";
84INPUTT
85IFT=0THEN98 
86LETZ=10 
87IFT<4THEN90 
88PRINT"YOU CAN'T DRAW MORE THAN THREE CARDS" 
89GOTO84
90PRINT"WHAT ARE THEIR NUMBERS" 
91FOR Q=1TOT
92INPUTU
93GOSUB173
94NEXTQ 
95PRINT"YOUR NEW HAND:" 
96LETN=1
97GOSUB185
98LETZ=10+T 
99FORU=6TO10
100IFINT(X/10^(U-6))<>10*INT(X/10^(U-5))THEN102
101GOSUB173
102NEXTU 
103PRINT 
104PRINT"I AM TAKING";Z-10-T;"CARD"; 
105IFZ=11+TTHEN109 
106PRINT"S"
107PRINT 
108GOTO110 
109PRINT 
110LETN=6
111LETV=I
112LETI=1
113GOSUB217
114LETB=U
115LETM=D
116IFV<>7THEN119 
117LETZ=28 
118GOTO133 
119IFI<>6THEN122 
120LETZ=1
121GOTO133 
122IFU>=13THEN127
123LETZ=2
124IFFNA(0)<>6THEN126
125LETZ=19 
126GOTO133 
127IFU>=16THEN132
128LETZ=19 
129IFFNA(0)<>8THEN131
130LETZ=11 
131GOTO133 
132LETZ=2
133LETK=0
134GOSUB305
135IFT<>.5THEN145
136IFV=7THEN140
137IFI<>6THEN140 
138PRINT"I'LL CHECK" 
139GOTO146 
140LETV=Z+FNA(0) 
141GOSUB348
142 PRINT "I'LL BET";V
143LETK=V
144GOSUB306
145GOSUB65 
146PRINT 
147PRINT"NOW WE COMPARE HANDS" 
148LETJ$=H$
149LETK$=I$
150PRINT"MY HAND:" 
151LETN=6
152GOSUB185
153LETN=1
154GOSUB217
155PRINT 
156PRINT"YOU HAVE "; 
157LETK=D
158GOSUB369
159LETH$=J$
160LETI$=K$
161LETK=M



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search