File 21INFO.30 (OMSI 30 basic source file)

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

100 PRINT"HERE ARE THE LAS VEGAS RULES FOR PLAYING BLACKJACK:"
110 PRINT
120 PRINT">WAGER: THE HOUSE LIMIT IS $500, SO TYPE IN A NUMBER "
130 PRINT"  FROM 0 TO 500. TO TERMINATE GAME, ENTER ZERO."
140 PRINT
150 PRINT">THE DEAL: I DEAL MYSELF 2 CARDS AND SHOW YOU ONE. THEN I"
160 PRINT"  DEAL YOU TWO CARDS, AND ASK IF YOU WANT A HIT (ANOTHER"
170 PRINT"  CARD). YOU HAVE SEVERAL OPTIONS DEPENDING ON THE CARDS YOU"
180 PRINT"  HOLD AND MY UP CARD:"
190 PRINT"    * STAND - BY TYPING A ZERO"
200 PRINT"    * TAKE A HIT - BY TYPING A ONE"
210 PRINT"    * GO DOWN FOR DOUBLES - BY TYPING A TWO"
220 PRINT"    * SPLIT A PAIR - BY TYPING A THREE"
230 PRINT
240 PRINT">INSURANCE: IF MY UP CARD IS AN ACE, I WILL ASK IF YOU"
250 PRINT"  WANT INSURANCE. IF YOU DO TYPE A ONE, BETTING ONE-HALF"
260 PRINT"  OF YOUR WAGER THAT I DO HAVE BLACKJACK. IF I DO, I PAY YOU"
270 PRINT"  2-TO-1 ON YOUR INSURANCE BET. YOU LOSE YOUR ORIGINAL WAGER"
280 PRINT"  SINCE I HAVE BLACKJACK, SO WE ARE EVEN FOR THE HAND."
290 PRINT"  IF I DON	T HAVE BLACKJACK, YOU LOSE YOUR INSURANCE BET"
300 PRINT"  AND THE GAME CONTINUES. "
310 PRINT
320 PRINT"  IF YOU REFUSE INSURANCE (BY TYPING A ZERO) THE GAME"
330 PRINT"  CONTINUES AS NORMAL."
340 PRINT
350 PRINT">THE PLAY: WHEN YOU FINALLY STAND (BY TYPING A ZERO)"
360 PRINT"  I WILL DRAW CARDS UNTIL:"
370 PRINT"    *I HAVE AT LEAST A HARD 17 (HARD MEANS THE TOTAL"
380 PRINT"     DOES NOT INCLUDE AN ACE BEING COUNTED AS 11)"
390 PRINT"    *I HAVE A SOFT 18 (SOFT MEANS THE TOTAL INCLUDES AN"
400 PRINT"     ACE COUNTED AS 11)"
410 PRINT"    *I REACH A TOTAL OF 21"
420 PRINT"    *I EXCEED 21 AND BUST"
430 PRINT
440 PRINT">ITEMS:"
450 PRINT"    *I PAY 1.5-TO-1 ON BLACKJACK"
460 PRINT"    *I DON	T RECOGNIZE 5-CARDS-AND-UNDER"
470 PRINT"    *YOU MAY DOUBLE DOWN ON A SPLIT HAND"
480 PRINT"    *YOU DON	T LOSE ON A TIE HAND...WE PUSH"
490 PRINT
500 PRINT
510 PRINT"             <<<GOOD LUCK>>>"
520 CHAIN "BLKJAK"
530 END



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