10 REM BACRT.ECB 100 REM ...BACCARAT...Source: UNIVAC Eagan 7/29/77 R.E.H. 110 REM ...Last revision 3-3-81 R.E.H. 120 PRINT "&K&J&J" 130 PRINT ,"* WELCOME TO CASINO UNIVAC 1108&J&J&J" 140 PRINT ,"* THE GAME IS BACCARAT&J" 150 LET H=0 160 GOTO 1450 170 DIM A(10),C(10) 190 PRINT 200 PRINT "* ARE YOU READY ---=>"; 210 INPUT (1,0)X$: LET X$=X$+"Y" 230 IF X$(1,1)="N" THEN 1690 ELSE PRINT 250 PRINT "&J* WAGER ---=>"; 260 LET D=0: LET E=0 280 INPUT G 290 IF G>1E5 THEN 1430 300 IF G>0 THEN 330 310 PRINT "* HA!HA!, VERY FUNNY!!" 320 GOTO 250 330 LET B=1 340 GOTO 800 350 LET A(B)=INT(RND(0)*52)+1 360 LET C(B)=A(B)-13*INT(A(B)/13) 370 IF C(B)=0 THEN 660 380 ON C(B) GOTO 390,410,430,450,470,490,510,530,550,570,600,630 390 PRINT "ACE "; 400 GOTO 680 410 PRINT "DEUCE "; 420 GOTO 680 430 PRINT "THREE "; 440 GOTO 680 450 PRINT "FOUR "; 460 GOTO 680 470 PRINT "FIVE "; 480 GOTO 680 490 PRINT "SIX "; 500 GOTO 680 510 PRINT "SEVEN "; 520 GOTO 680 530 PRINT "EIGHT "; 540 GOTO 680 550 PRINT "NINE "; 560 GOTO 680 570 PRINT "TEN "; 590 GOTO 670 600 PRINT "JACK "; 620 GOTO 670 630 PRINT "QUEEN "; 650 GOTO 670 660 PRINT "KING "; 670 LET C(B)=0 680 IF INT(A(B)/13)<>A(B)/13 THEN 700 690 ON A(B)/13 GOTO 720,740,760,780 700 IF INT(A(B)/13)=0 THEN 720 710 ON INT(A(B)/13) GOTO 740,760,780 720 PRINT "OF CLUBS" 730 RETURN 740 PRINT "OF DIAMONDS" 750 RETURN 760 PRINT "OF SPADES" 770 RETURN 780 PRINT "OF HEARTS" 790 RETURN 800 PRINT "&J* Your FIRST card is a "; 810 GOSUB 350 820 GOSUB 1370 830 PRINT "* Your NEXT card is a "; 840 GOSUB 350 850 GOSUB 1370 860 PRINT "&J* DO YOU WANT A CARD (Y or N) ---=>"; 870 INPUT (1,0)J$: LET J$=J$+"Y": PRINT 880 IF J$(1,1)="Y" THEN 930 890 LET C(3)=0 900 LET D=D+C(B) 910 LET B=B+1 920 GOTO 960 930 PRINT "* THE CARD IS A "; 940 GOSUB 350 950 GOSUB 1370 960 PRINT "* My FIRST card is a "; 970 GOSUB 350 980 GOSUB 1400 990 PRINT "* My NEXT card is a "; 1000 GOSUB 350 1010 GOSUB 1400 1020 IF E<10 THEN 1050 1030 LET E=E-10 1040 GOTO 1020 1050 IF E<6 THEN 1090 1060 PRINT "* I DO NOT WANT A CARD" 1070 LET C(6)=0 1080 GOTO 1120 1090 PRINT "* I TAKE CARD" 1100 PRINT "* THE CARD IS A "; 1110 GOSUB 350 1120 LET E=E+C(6) 1130 IF D<10 THEN 1160 1140 LET D=D-10 1150 GOTO 1130 1160 PRINT "* YOUR TOTAL IS ";D 1170 IF E<10 THEN 1200 1180 LET E=E-10 1190 GOTO 1170 1200 PRINT "* MY TOTAL IS ";E 1210 IF D=E THEN 1650 1220 IF D>E THEN 1260 1230 PRINT "* I WIN ***** $";G 1240 LET G=-G 1250 GOTO 1270 1260 PRINT "* YOU WIN $";G 1270 LET H=H+G 1280 IF H>0 THEN 1350 1290 IF H=0 THEN 1670 1300 PRINT "* YOU OWE ME ***** $";-H 1310 PRINT "&J* Do you want to try again (Y or N) ---=>"; 1320 INPUT (1,0)K$: LET K$=K$+"Y" 1330 IF K$(1,1)="N" THEN 1690 1340 IF K$(1,1)="n" THEN 1690 ELSE 250 1350 PRINT "* I.O.U. $";H 1360 GOTO 1310 1370 LET D=D+C(B) 1380 LET B=B+1 1390 RETURN 1400 LET E=E+C(B) 1410 LET B=B+1 1420 RETURN 1430 PRINT "* HOUSE LIMIT IS $100000" 1440 GOTO 250 1450 PRINT 1460 PRINT "* DO YOU WANT THE RULES OF THE GAME ---=>"; 1470 INPUT (1,0)I$: LET I$=I$+"N" 1480 IF I$(1,1)="N" THEN 170 ELSE PRINT "&K" 1490 PRINT "* OFFICIAL RULES FOR THE GAME OF BACCARAT&J" 1500 PRINT "* The COMPUTER is shuffling SIX DECKS of cards" 1510 PRINT "* together. The rules are as follows: The object" 1520 PRINT "* is to be as close as possible to NINE in two" 1530 PRINT "* or three cards, FACE CARDS and TENS count ZERO" 1540 PRINT "* ACES count as ONE each, all other cards count" 1550 PRINT "* their index value. When the total is over TEN" 1560 PRINT "* the TENS unit is DROPPED. Example:A SEVEN and" 1570 PRINT "* a SIX totaling THIRTEEN count as THREE. The" 1580 PRINT "* player with the HIGHER TOTAL WINS, In case of" 1590 PRINT "* a TIE the COMPUTER wins. ********************&J" 1600 PRINT "* DO YOU UNDERSTAND THE RULES OF THE GAME "; 1610 INPUT (1,0)" ---=>",O$: LET O$=O$+"Y" 1620 IF O$(1,1)="Y" THEN 170 1630 PRINT ,"&J* TOUGH LUCK" 1640 GOTO 170 1650 PRINT "* IT IS A TIE. THE COMPUTER WINS!" 1660 GOTO 1230 1670 PRINT "* YOU ARE EVEN-UP !!" 1680 GOTO 1310 1690 PRINT ,"&J* Casino Closed *" 1700 END