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