Programmer 7500/MAX_PROGRAMMERS.iso/INFO/BASIC/MISCBAS.ZIP/21.ASC

Text File | 1987-01-11 | 7.1 KB | 394 lines

100 PRINTCHR$(26)
101 PRINT"WHAT IS YOUR LUCKY NUMBER (1 TO 25000)"
102 INPUT LN
103 IF LN<1 OR LN>25000 OR LN<>INT(LN) THEN PRINT"FOLLOW INSTRUCTIONS !":GOTO101
104 LN=LN MOD 97
105 FORX=1 TO LN:NL=RND(1):NL=RND(X):NEXT
106 PRINT : PRINT : PRINT
107 DIM D(208),H(16),O(16),P(16,11),Q(11),S(16),X(16)
108 PRINT
109 PRINT"         ***** BLACKJACK *****"
110 PRINT
111 PRINT"INSTRUCTIONS (Y=YES; N=NO)"
112 INPUTM$
113 IFM$="Y"GOTO115
114 IFM$<>"N"GOTO111ELSEGOTO116
115 GOSUB 471
116 PRINTCHR$(26):R=16
117 PRINT  "  HOW MANY DECKS? (1-4)";
118 INPUT N
119 IF N>0 GOTO 122
120 PRINT"    1 TO 4 DECKS ONLY!! REENTER ";
121 GOTO 118
122 IFN>4GOTO120
123 E=N*52
124 GOSUB 282
125 B=1
126 GOSUB 289
127 A=1
128 PRINT
129 G=1
130 PRINT
131 PRINT
132 PRINT
133 PRINT
134 INPUT"YOUR BET";U
135 IFU=0GOTO467:IFU<0GOSUB289
136 PRINTCHR$(26)
137 PRINT"YOUR BET IS $";U;"   YOUR STANDING IS $";V
138 IFU>0 GOTO 143
139 IFU=0GOTO467
140 B=1
141 GOSUB 289
142 GOTO 134
143 IFU<=500 GOTO 146
144 PRINT"  HOUSE LIMIT IS $500!! REENTER"
145 GOTO 134
146 GOSUB 299
147 H(1)=U
148 N=Q(2)
149 PRINT"MY UP CARD";
150 GOSUB 341
151 PRINT
152 N=P(R,1)
153 PRINTTAB(7)"YOUR 1ST CARD"
154 GOSUB 341
155 N=P(R,2)
156 PRINTTAB(7)"YOUR 2ND CARD"
157 GOSUB 341
158 GOSUB 374
159 IFM<>11 GOTO 161
160 GOSUB 456
161 IFW<>21 GOTO170
162 PRINT"I HAVE BLACKJACK, ";
163 IFX(1)<>21 GOTO 167
164 PRINT"SO DO YOU, WE PUSH";
165 GOSUB 447
166 GOTO 128
167 PRINT"YOU LOSE ";
168 V=V-U
169 GOTO 165
170 IFX(1)<>21 GOTO 174
171 PRINT"YOU HAVE BLACKJACK, YOU WIN!"
172 V=V+3*U/2
173 GOTO165
174 PRINT"PLAY ";
175 IFR=1 GOTO 177
176 PRINT"FOR HAND ";G;"   ";
177 INPUT F
178 IF F>-1 GOTO 181
179 PRINT"ONLY 0-3 ARE VALID! REENTER";
180 GOTO 177
181 IF F>3 GOTO 179
182 IF F<>1 GOTO 213
183 IFA<=E GOTO185
184 GOSUB 384
185 M=S(G)
186 M=M+1
187 S(G)=M
188 N=D(A)
189 P(G,M)=N
190 PRINTTAB(7)"YOUR CARD IS ";
191 GOSUB341
192 GOSUB 332
193 A=A+1
194 IFN<>11 GOTO 196
195 O(G)=O(G)+1
196 X(G)=X(G)+N
197 IF X(G)<22 GOTO 174
198 IFO(G)=0 GOTO 202
199 O(G)=O(G)-1
200 X(G)=X(G)-10
201 GOTO 197
202 PRINT:PRINT"YOU BUSTED WITH ";X(G)
203 X(G)=0
204 Y=Y-1
205 IFG<R GOTO 208
206 GOSUB 397
207 GOTO 128
208 G=G+1
209 N=P(G,1)
210 PRINT"YOUR FIRST CARD FOR HAND  ";G;"  WAS  ";
211 GOSUB 341
212 GOTO 174
213 IF F<>0 GOTO 219
214 IF X(G)<22 GOTO 205
215 IFO(G)=0 GOTO 202
216 X(G)=X(G)-10
217 O(G)=O(G)-1
218 G=G+1
219 IF F<>2 GOTO 240
220 IF S(G)=2 GOTO 223
221 PRINT"DOUBLE ON FIRST TWO CARDS ONLY!!"
222 GOTO 174
223 IFA<=E GOTO 225
224 GOSUB 384
225 H(G)=2*U
226 N=D(A)
227 P(G,3)=N
228 A=A+1
229 PRINTTAB(20)"YOU DRAW THE ";
230 GOSUB 341
231 GOSUB 332
232 IFN<>11 GOTO 234
233 O(G)=O(G)+1
234 X(G)=X(G)+N
235 IFX(G)<22 GOTO 205
236 IFO(G)=0 GOTO 202
237 O(G)=O(G)-1
238 X(G)=X(G)-10
239 GOTO 235
240 N=P(G,1)
241 Y=Y+1
242 GOSUB 332
243 M=N
244 N=P(G,2)
245 GOSUB 332
246 IF M=N GOTO 249
247 PRINT"YOU MAY ONLY SPLIT PAIRS!!";
248 GOTO 174
249 R=R+1
250 Y=Y+1
251 P(R,1)=P(G,2)
252 S(G)=1
253 S(R)=1
254 X(G)=X(G)/2
255 X(R)=X(G)
256 H(R)=U
257 IFN<>11 GOTO 174
258 IF A<=E GOTO 260
259 GOSUB 384
260 N=D(A)
261 P(G,2)=N
262 PRINT"1ST ACE GETS:";
263 GOSUB 341
264 GOSUB 332
265 IFN<>11 GOTO 267
266 N=1
267 X(G)=X(G)+N
268 A=A+1
269 IF A<=E GOTO 272
270 GOSUB 384
271 S0
272 N=D(A)
273 P(R,2)=N
274 PRINT"2ND ACE GETS:";
275 GOSUB 341
276 GOSUB 332
277 IFN<>11 GOTO 279
278 N=1
279 X(R)=X(R)+N
280 A=A+1
281 GOTO 206
282 FOR I=1 TO N
283 J=(I-1)*52
284 FOR K=1 TO 52
285 D(K+J)=K
286 NEXT K
287 NEXT I
288 RETURN
289 PRINT"I'M SHUFFLING THE CARDS ",
290 FOR I=B TO E
291 C=RND(5)*E
292 IF C<B GOTO 291
293 L=D(I)
294 D(I)=D(C)
295 D(C)=L
296 NEXT I
297 A=B
298 RETURN
299 FOR I=1 TO 11
300 Q(I)=0
301 FOR J=1 TO R
302 P(J,I)=0
303 NEXT J
304 NEXT I
305 R=1
306 Y=1
307 IF A+4<=E GOTO 310
308 B=1
309 GOSUB 289
310 PRINT"DEALING"
311 PRINT
312 P(R,1)=D(A)
313 Q(1)=D(A+1)
314 P(R,2)=D(A+2)
315 Q(2)=D(A+3)
316 A=A+4
317 T=2
318 S(1)=2
319 GOSUB 322
320 M=N
321 RETURN
322 Z=0
323 W=0
324 FOR I=1 TO2
325 N=Q(I)
326 GOSUB 332
327 IF N<>11 GOTO 329
328 Z=Z+1
329 W=W+N
330 NEXT I
331 RETURN
332 IF N<14 GOTO 335
333 N=N-13
334 GOTO332
335 IF N<>1 GOTO 338
336 N=11
337 RETURN
338 IF N<11 GOTO 340
339 LET N=10
340 RETURN
341 I=0
342 IF N<14 GOTO 346
343 N=N-13
344 I=I+1
345 GOTO 342
346 IF N<>1 GOTO 349
347 PRINTTAB(17);"ACE";
348 GOTO 362
349 IFN>9 GOTO 352
350 PRINTTAB(18);N;
351 GOTO 362
352 IFN>10 GOTO 355
353 PRINTTAB(17);N;
354 GOTO 362
355 IFN>11 GOTO 358
356 PRINTTAB(16);"JACK";
357 GOTO 362
358 IFN>12 GOTO 361
359 PRINTTAB(16);"QUEEN";
360 GOTO 362
361 PRINTTAB(16);"KING";
362 PRINT" OF ";
363 IF I<>0 GOTO 366
364 PRINT"SPADES"
365 RETURN
366 IF I<>1 GOTO 369
367 PRINT"HEARTS"
368 RETURN
369 IFI<>2 GOTO372
370 PRINT"DIAMONDS"
371 RETURN
372 PRINT"CLUBS"
373 RETURN
374 O(G)=0
375 X(G)=0
376 FORI=1 TO 2
377 N=P(G,I)
378 GOSUB 332
379 X(G)=X(G)+N
380 IFN<>11 GOTO 382
381 O(G)=O(G)+1
382 NEXT I
383 RETURN
384 K=T
385 FORI=1 TO R
386 K=K+S(I)
387 NEXT I
388 FOR I=1 TO K
389 A=A-1
390 J=D(I)
391 D(I)=D(A)
392 D(A)=J
393 NEXT I
394 B=K+1
395 GOSUB 289
396 RETURN
397 N=Q(1)
398 PRINT"MY HOLE CARD"
399 GOSUB 341
400 IF Y=0 GOTO 426
401 IFW<17 GOTO 406
402 IFW>17 GOTO 418
403 IFZ=0 GOTO 424
404 W=W-10
405 Z=Z-1
406 IFA<=E GOTO408
407 GOSUB 384
408 N=D(A)
409 A=A+1
410 Q(T)=N
411 PRINT"I DRAW THE";
412 GOSUB 341
413 GOSUB 332
414 IFN<>11 GOTO416
415 Z=Z+1
416 W=W+N
417 GOTO 401
418 IFW<22GOTO424
419 IFZ=0GOTO423
420 Z=Z-1
421 W=W-10
422 GOTO401
423 PRINT"I BUSTED ";
424 PRINT"MY TOTAL IS ";W
425 PRINTTAB(7)"YOUR TOTAL IS ";X(G)
426 FORI=1 TO R
427 PRINT"YOU ";
428 IFX(I)<>0 GOTO432
429 PRINT"LOST ";
430 V=V-H(I)
431 GOTO 441
432 IFW<22 GOTO 436
433 PRINT"WON ";
434 V=V+H(I)
435 GOTO 441
436 IFW<>X(I) GOTO439
437 PRINT"PUSHED ON ";
438 GOTO 441
439 IFW<X(I) GOTO 433
440 GOTO429
441 IFR<>1 GOTO 444
442 PRINT"THE HAND"
443 GOTO 445
444 PRINT"HAND ";I
445 NEXT I
446 PRINT
447 PRINT"YOU ARE ";
448 IFV<>0 GOTO451
449 PRINT"EVEN"
450 RETURN
451 IFV>0 GOTO 454
452 PRINT"LOSING $";V
453 RETURN
454 PRINT"WINNING $";V
455 RETURN
456 PRINT"INSURANCE ? (Y=YES; N=NO)":INPUTM$
457 IF M$="Y"GOTO459
458 RETURN
459 PRINT"YOUR INSURANCE BET ";
460 IFW<>21 GOTO 464
461 PRINT"WINS"
462 V=V+U
463 RETURN
464 PRINT"LOSES"
465 V=V-U/2
466 RETURN
467 PRINT"HERE'S YOUR FINAL STANDING!"
468 GOSUB 447
469 GOTO 491
470 PRINT
471 PRINT"THE DEALER STANDS ON 17 OR MORE,"
472 PRINT"BUT WILL HIT A SOFT 17."
473 PRINT"YOU MAY SPLIT ANY PAIR."
474 PRINT"YOU MAY DOUBLE DOWN ON FIRST TWO CARDS,"
475 PRINT"AND GET ONLY ONE MORE CARD."
476 PRINT
477 PRINT"HOUSE LIMIT IS $500 ON EACH HAND......."
478 PRINT
479 PRINT"USE THESE CODES TO PLAY:"
480 PRINT"   0-STAND"
481 PRINT"   1-HIT"
482 PRINT"   2-DOUBLE DOWN"
483 PRINT"   3-SPLIT A PAIR"
484 PRINT
485 PRINT"A ZERO BET ENDS THE GAME."
486 PRINT"A NEGATIVE BET FORCES A SHUFFLE."
487 PRINT"TO START, HIT RETURN KEY."
488 WAIT0,1,1
489 RETURN
490 GOTO 491
491 END
INT"A NEGATIVE BET FORCE