10 REM BLJAK.ECB
   20 REM ...BLCKJCK...FROM MERITSS : GAME   12-14-77
  100 REM ... THIS IS BLACKJACK FOR ONE OR TWO PLAYERS
  110 REM ... WRITTEN BY JLL
  120 REM ...LET A$=CLK$
  130 REM ...LET B=INT(VAL(SUBSTR(A$,2,2)))
  140 REM ...LET C=INT(VAL(SUBSTR(A$,5,2)))+1
  150 REM ...LET D=INT(VAL(SUBSTR(A$,8,2)))+1
  160 LET A=INT(RND(0)*PEEK(52226)): REM ...LET A=(B*C)+(B*D)
  170 FOR I=1 TO A
  180   LET X=RND(A)
  190 NEXT I
  195 PRINT "&K&J&J"
  196 PRINT ,"MERITSS  BLACKJACK"
  197 PRINT ,"   B L J A K"
  198 PRINT
  199 PRINT
  200 IF B<12 THEN 260
  210 IF B<17 THEN 240
  220 PRINT "GOOD EVENING.....THIS IS A BLACKJACK GAME"
  230 GOTO 270
  240 PRINT "GOOD AFTERNOON.....THIS IS A BLACKJACK GAME"
  250 GOTO 270
  260 PRINT "GOOD MORNING.....THIS IS A BLACKJACK GAME"
  270 PRINT "WILL THERE BE 1 OR 2 PLAYERS ---=>";
  280 INPUT N
  290 IF N>0 THEN 320
  300 PRINT "AW, COME ON, I NEED MORE THAN THAT.  TRY AGAIN";
  310 GOTO 280
  320 IF N<3 THEN 350
  330 PRINT "HEY FELLAS.....THAT'S TOO MANY.  TRY AGAIN";
  340 GOTO 280
  350 ON N GOTO 360,390
  360 PRINT "HELLO, ONE PLAYER...HOW ARE YOU CALLED ---=>";
  370 INPUT B$
  375 IF LEN(B$)=0 THEN  LET B$="Player 1"
  380 GOTO 430
  390 PRINT "TWO OF YOU THEN...YOUR NAME NUMBER ONE";
  400 INPUT B$
  410 PRINT "AND YOU NUMBER TWO ---=>";
  420 INPUT C$
  425 IF LEN(C$)=0 THEN  LET C$="Player 2"
  430 LET B0=0
  440 LET C0=0
  450 DEF FNX(I)=INT(I*RND(0))+1
  460 DIM S(52)
  470 GOSUB 12000
  475 PRINT "TO END THE GAME ENTER A BET OF 0 (ZERO)"
  480 REM REENTER HERE
  490 LET B1=0: LET C1=0: LET R=0: LET Q=0
  500 FOR I=1 TO 6
  510   LET B(I)=0: LET C(I)=0: LET D(I)=0
  520   LET E(I)=0: LET F(I)=0
  530 NEXT I
  540 LET M=FNX(4)
  550 ON N GOTO 560,2960
  560 REM BET AND DEAL FOR ONE PLAYER
  570 ON M GOTO 580,600,620,640
  580 PRINT "HOW MUCH OF THAT BIG STACK ARE YOU BETTING, ";B$;
  590 GOTO 650
  600 PRINT "FOR HOW MUCH DO YOU FEEL LUCKY THIS TIME, ";B$;
  610 GOTO 650
  620 PRINT "NOW, ";B$;" FOR WHAT STIPEND WILL YOU WAGER";
  630 GOTO 650
  640 PRINT "IT'S TIME TO BET, ";B$;" HOW MUCH";
  650 PRINT " ---=>";
  655 INPUT B1
  660 IF B1<=0 THEN 9000
  670 IF B1<=500 THEN 700
  680 PRINT "SORRY, ";B$;" NOT MORE THAN $500.....TRY AGAIN";
  690 GOTO 650
  700 LET P=S(T)
  710 PRINT "&JYOUR FIRST CARD, ";B$;" IS THE";
  720 GOSUB 13000
  730 LET B(1)=Q
  740 LET B(2)=P
  750 IF Q<>1 THEN 770
  760 LET B(5)=10
  770 GOSUB 12500
  780 LET P=S(T)
  790 LET D(4)=P
  800 LET R=1
  810 GOSUB 13000
  820 LET D(1)=Q
  830 LET D(2)=P
  840 IF Q<>1 THEN 860
  850 LET D(5)=10
  860 GOSUB 12500
  870 LET P=S(T)
  880 PRINT "AND YOUR SECOND CARD IS THE";
  890 GOSUB 13000
  900 LET B(1)=B(1)+Q
  910 LET B(3)=P
  920 IF Q<>1 THEN 940
  930 LET B(6)=10
  940 GOSUB 12500
  950 LET P=S(T)
  960 PRINT "&JMY UP CARD IS THE";
  970 GOSUB 13000
  980 LET D(1)=D(1)+Q
  990 LET D(3)=P
 1000 IF Q<>1 THEN 1020
 1010 LET D(6)=10
 1020 GOSUB 12500
 1030 FOR I=1 TO 6
 1040   LET G(I)=D(I)
 1050 NEXT I
 1060 GOSUB 6700
 1070 IF H=0 THEN 1190
 1080 PRINT "I HAVE ***BLACKJACK***"
 1090 LET P=D(4)
 1100 PRINT "MY HOLE CARD IS THE";
 1110 GOSUB 13000
 1120 LET U$=B$
 1130 LET U0=B0
 1140 LET U1=B1
 1150 GOSUB 8000
 1160 LET B0=U0
 1170 GOSUB 12000
 1180 GOTO 480
 1190 FOR I=1 TO 6
 1200   LET G(I)=B(I)
 1210 NEXT I
 1220 GOSUB 6700
 1230 IF H=0 THEN 1320
 1240 PRINT "YOU HAVE ***BLACKJACK*** ";B$
 1250 LET U$=B$
 1260 LET U0=B0
 1270 LET U1=B1*2
 1280 GOSUB 8500
 1290 LET B0=U0
 1300 GOSUB 12000
 1310 GOTO 480
 1320 IF B(1)=10 THEN 1340
 1330 IF B(1)<>11 THEN 1570
 1340 PRINT "YOUR TOTAL IS ";B(1);" ";B$;" DO YOU WANT ONE CARD FOR DOUBLES";
 1350 INPUT X$
 1360 IF X$="NO" THEN 1570
 1370 LET P=S(T)
 1380 PRINT "YOUR DOWN CARD IS THE ";
 1390 GOSUB 13000
 1400 LET B(1)=B(1)+Q
 1410 IF B(1)<>11 THEN 1430
 1420 LET B(1)=21
 1430 LET B1=B1*2
 1470 GOSUB 7000
 1480 LET U$=B$
 1490 LET U0=B0
 1500 LET U1=B1
 1510 IF B(1)>H THEN 1540
 1520 GOSUB 8000
 1530 GOTO 1550
 1540 GOSUB 8500
 1550 LET B0=U0
 1560 GOTO 480
 1570 IF B(2)<>B(3) THEN 2660
 1580 IF B(2)=1 THEN 2660
 1590 PRINT "DO YOU WANT TO SPLIT YOUR PAIR, ";B$;
 1600 INPUT X$
 1610 IF X$="NO" THEN 2660
 1620 LET E(2)=B(3)
 1630 LET B(1)=B(1)/2
 1640 LET E(1)=B(1)
 1650 LET P=S(T)
 1660 PRINT "THE CARD FOR YOUR FIRST HAND IS THE ";
 1670 GOSUB 13000
 1680 LET B(1)=B(1)+Q
 1690 LET B(3)=P
 1700 IF Q<>1 THEN 1720
 1710 LET B(6)=10
 1720 GOSUB 12500
 1730 LET P=S(T)
 1740 PRINT "AND FOR YOUR SECOND HAND IS THE ";
 1750 GOSUB 13000
 1760 LET E(1)=E(1)+Q
 1770 LET E(3)=P
 1780 IF Q<>1 THEN 1800
 1790 LET E(6)=10
 1800 GOSUB 12500
 1810 PRINT "PLAY ONE HAND AT A TIME, S.V.P."
 1820 FOR I=1 TO 6
 1830   LET G(I)=B(I)
 1840 NEXT I
 1850 GOSUB 6700
 1860 IF H=0 THEN 1970
 1870 PRINT "YOUR FIRST HAND IS A ***BLACKJACK*** ";B$
 1880 LET U$=B$
 1890 LET U0=B0
 1900 LET U1=B1*2
 1910 GOSUB 8500
 1920 LET B0=U0
 1930 LET E1=B1
 1940 LET B1=0
 1950 GOSUB 12000
 1960 GOTO 2060
 1970 PRINT "O.K. ";B$;" PLAY YOUR FIRST HAND"
 1980 LET G$=B$
 1990 LET G0=B0
 2000 LET G1=B1
 2010 GOSUB 6000
 2020 LET B0=G0
 2030 LET E1=B1
 2040 LET B1=G1
 2050 LET B2=H1
 2060 FOR I=1 TO 6
 2070   LET G(I)=E(I)
 2080 NEXT I
 2090 GOSUB 6700
 2100 IF H=0 THEN 2200
 2110 PRINT "YOUR SECOND HAND IS A ***BLACKJACK*** ";B$
 2120 LET U$=B$
 2130 LET U0=B0
 2140 LET U1=E1*2
 2150 GOSUB 8500
 2160 LET B0=U0
 2170 GOSUB 12000
 2180 LET E1=0
 2190 IF B1=0 THEN 480
 2200 PRINT "AND NOW, ";B$;" YOU CAN PLAY YOUR SECOND HAND"
 2210 LET G$=B$
 2220 LET B0=B0
 2230 LET G1=E1
 2240 GOSUB 6000
 2250 LET B0=G0
 2260 LET E1=G1
 2270 LET E2=H1
 2280 IF B1<>0 THEN 2340
 2290 IF E1<>0 THEN 2340
 2300 LET P=D(4)
 2310 PRINT "MY HOLE CARD WAS THE ";
 2320 GOSUB 13000
 2330 GOTO 480
 2340 GOSUB 7000
 2350 IF H<>0 THEN 2420
 2360 LET U$=B$
 2370 LET U0=B0
 2380 LET U1=B1+E1
 2390 GOSUB 8500
 2400 LET B0=U0
 2410 GOTO 480
 2420 IF B1=0 THEN 2530
 2430 LET U$=B$
 2440 LET U0=B0
 2450 LET U1=B1
 2460 IF B2>H THEN 2500
 2470 GOSUB 8000
 2480 LET B0=U0
 2490 GOTO 2520
 2500 GOSUB 8500
 2510 LET B0=U0
 2520 IF E1=0 THEN 480
 2530 LET U$=B$
 2540 LET U0=B0
 2550 LET U1=E1
 2560 IF E2>H THEN 2600
 2570 GOSUB 8000
 2580 LET B0=U0
 2590 GOTO 480
 2600 GOSUB 8500
 2610 LET B0=U0
 2620 GOTO 480
 2660 PRINT "O.K. THEN ";B$;" LET'S GO"
 2670 LET G$=B$
 2680 LET G0=B0
 2690 LET G1=B1
 2700 FOR I=1 TO 6
 2710   LET G(I)=B(I)
 2720 NEXT I
 2730 GOSUB 6000
 2740 LET B0=G0
 2750 IF G1<>0 THEN 2800
 2760 LET P=D(4)
 2770 PRINT "MY HOLE CARD WAS THE ";
 2780 GOSUB 13000
 2790 GOTO 480
 2800 LET B2=H1
 2840 GOSUB 7000
 2850 LET U$=B$
 2860 LET U0=B0
 2870 LET U1=B1
 2880 IF H=0 THEN 2930
 2890 IF B2>H THEN 2930
 2900 GOSUB 8000
 2910 LET B0=U0
 2920 GOTO 480
 2930 GOSUB 8500
 2940 LET B0=U0
 2950 GOTO 480
 2960 REM ..... BET AND DEAL FOR TWO PLAYERS
 2970 ON M GOTO 2980,3030,3080,3130
 2980 PRINT "HOW ABOUT IT, ";B$;" IT'S YOUR BET";
 2990 INPUT B1
 3000 PRINT "AND HOW ABOUT YOU, ";C$;
 3010 INPUT C1
 3020 GOTO 3170
 3030 PRINT "COME ON, ";B$;" LIVE IT UP.....IT'S YOUR BET";
 3040 INPUT B1
 3050 PRINT "YOU TOO, ";C$;" HOW MUCH";
 3060 INPUT C1
 3070 GOTO 3170
 3080 PRINT "WELL, ";B$;" HOW MANY MONIES ARE YOU BETTING";
 3090 INPUT B1
 3100 PRINT "LET'S SEE YOU BEAT THAT ONE, ";C$;
 3110 INPUT C1
 3120 GOTO 3170
 3130 PRINT "YOU CAN'T WIN ANY $ IF YOU DON'T RISK ANY $, ";B$;
 3140 INPUT B1
 3150 PRINT "DON'T BE A PIKER, ";C$;" YOUR BET";
 3160 INPUT C1
 3170 IF B1<=0 THEN 9000
 3180 IF C1<=0 THEN 9000
 3190 IF B1<=500 THEN 3230
 3200 PRINT "TOO MUCH, ";B$;" $500 IS TOPS.....TRY AGAIN";
 3210 INPUT B1
 3220 GOTO 3170
 3230 IF C1<=500 THEN 3270
 3240 PRINT "$500 OR LESS PLEASE, ";C$;" TRY AGAIN";
 3250 INPUT C1
 3260 GOTO 3180
 3270 LET P=S(T)
 3280 PRINT "YOUR FIRST CARD, ";B$;" IS THE";
 3290 GOSUB 13000
 3300 LET B(2)=P
 3310 LET B(1)=Q
 3320 IF Q<>1 THEN 3340
 3330 LET B(5)=10
 3340 GOSUB 12500
 3350 LET P=S(T)
 3360 PRINT "AND YOURS, ";C$;" IS THE";
 3370 GOSUB 13000
 3380 LET C(2)=P
 3390 LET C(1)=Q
 3400 IF Q<>1 THEN 3420
 3410 LET C(5)=10
 3420 GOSUB 12500
 3430 LET R=1
 3440 LET P=S(T)
 3450 LET D(4)=P
 3460 GOSUB 13000
 3470 LET D(2)=P
 3480 LET D(1)=Q
 3490 IF Q<>1 THEN 3510
 3500 LET D(5)=10
 3510 GOSUB 12500
 3520 LET P=S(T)
 3530 PRINT "YOUR SECOND CARD, ";B$;" IS THE";
 3540 GOSUB 13000
 3550 LET B(3)=P
 3560 LET B(1)=B(1)+Q
 3570 IF Q<>1 THEN 3590
 3580 LET B(6)=10
 3590 GOSUB 12500
 3600 LET P=S(T)
 3610 PRINT "AND YOURS, ";C$;" IS THE";
 3620 GOSUB 13000
 3630 LET C(3)=P
 3640 LET C(1)=C(1)+Q
 3650 IF Q<>1 THEN 3670
 3660 LET C(6)=10
 3670 GOSUB 12500
 3680 LET P=S(T)
 3690 PRINT "MY UP CARD IS THE ";
 3691 GOSUB 13000
 3700 LET D(3)=P
 3710 LET D(1)=D(1)+Q
 3720 IF Q<>1 THEN 3740
 3730 LET D(6)=10
 3740 GOSUB 12500
 3750 FOR I=1 TO 6
 3760   LET G(I)=D(I)
 3770 NEXT I
 3780 GOSUB 6700
 3790 IF H=0 THEN 3920
 3800 LET U$=B$
 3810 LET U0=B0
 3820 LET U1=B1
 3830 PRINT "I HAVE ***BLACKJACK***"
 3840 GOSUB 8000
 3850 LET B0=U0
 3860 LET U$=C$
 3870 LET U0=C0
 3880 LET U1=C1
 3890 GOSUB 8000
 3900 LET C0=U0
 3910 GOTO 480
 3920 FOR I=1 TO 6
 3930   LET G(I)=B(I)
 3940 NEXT I
 3950 GOSUB 6700
 3960 IF H=0 THEN 4050
 3970 PRINT "YOU HAVE ***BLACKJACK*** ";B$
 3980 LET U$=B$
 3990 LET U0=B0
 4000 LET U1=B1*2
 4010 GOSUB 8500
 4020 LET B0=U0
 4030 LET B1=0
 4040 GOTO 4910
 4050 IF B(1)=10 THEN 4070
 4060 IF B(1)<>11 THEN 4180
 4070 PRINT "YOUR TOTAL IS ";B(1);", ";B$;" DO YOU WANT ONE DOWN FOR DOUBLES";
 4080 INPUT X$
 4090 IF X$="NO" THEN 4180
 4100 LET B1=B1*2
 4110 PRINT "YOUR DOWN CARD IS THE";
 4120 LET P=S(T)
 4130 GOSUB 13000
 4140 LET B(1)=B(1)+Q
 4150 IF B(1)<>11 THEN 4170
 4160 LET B(1)=21
 4170 GOTO 4910
 4180 IF B(2)<>B(3) THEN 4840
 4190 IF B(2)=1 THEN 4840
 4200 PRINT "DO YOU WANT TO SPLIT YOUR PAIR, ";B$;
 4210 INPUT X$
 4220 IF X$="NO" THEN 4840
 4230 LET E1=B1
 4240 LET B(1)=B(1)/2
 4250 LET E(1)=B(1)
 4260 LET E(2)=B(3)
 4270 LET B(3)=0
 4280 PRINT "YOUR CARDS, ";B$;" ARE THE";
 4290 LET P=S(T)
 4300 GOSUB 13000
 4310 LET B(1)=B(1)+Q
 4320 LET B(3)=P
 4330 IF Q<>1 THEN 4350
 4340 LET B(6)=10
 4350 GOSUB 12500
 4360 PRINT "AND THE";
 4370 LET P=S(T)
 4380 GOSUB 13000
 4390 LET E(1)=E(1)+Q
 4400 LET E(3)=P
 4410 IF Q<>1 THEN 4430
 4420 LET E(6)=10
 4430 GOSUB 12500
 4440 LET U$=B$
 4450 FOR I=1 TO 6
 4460   LET G(I)=B(I)
 4470 NEXT I
 4480 GOSUB 6700
 4490 IF H=0 THEN 4570
 4500 PRINT "YOUR FIRST HAND IS A ***BLACKJACK*** ";B$
 4510 LET U0=B0
 4520 LET U1=B1*2
 4530 GOSUB 8500
 4540 LET B0=U0
 4550 LET B1=0
 4560 GOTO 4640
 4570 PRINT "NOW PLAY YOUR FIRST HAND, ";B$
 4580 LET G$=B$
 4590 LET G0=B0
 4600 LET G1=B1
 4610 GOSUB 6000
 4620 LET B0=G0
 4630 LET B1=G1
 4631 LET B(1)=H1
 4640 FOR I=1 TO 6
 4650   LET G(I)=E(I)
 4660 NEXT I
 4670 GOSUB 6700
 4680 IF H=0 THEN 4760
 4690 PRINT "YOUR SECOND HAND IS A ***BLACKJACK*** ";B$
 4700 LET U0=B0
 4710 LET U1=E1*2
 4720 GOSUB 8500
 4730 LET B0=U0
 4740 LET E1=0
 4750 GOTO 4910
 4760 PRINT "AND NOW FOR YOUR SECOND HAND, ";B$
 4770 LET G$=B$
 4780 LET G0=B0
 4790 LET G1=E1
 4800 GOSUB 6000
 4810 LET B0=G0
 4820 LET E1=G1
 4821 LET E(1)=H1
 4830 GOTO 4910
 4840 PRINT "&JO.K. ";B$;" PLAY YOUR HAND"
 4850 LET G$=B$
 4860 LET G0=B0
 4870 LET G1=B1
 4880 GOSUB 6000
 4890 LET B0=G0
 4900 LET B1=G1
 4901 LET B(1)=H1
 4910 LET U$=C$
 4920 LET G$=C$
 4930 FOR I=1 TO 6
 4940   LET G(I)=C(I)
 4950 NEXT I
 4960 GOSUB 6700
 4970 IF H=0 THEN 5050
 4980 PRINT "YOU HAVE ***BLACKJACK*** ";C$
 4990 LET U0=C0
 5000 LET U1=C1*2
 5010 GOSUB 8500
 5020 LET C0=U0
 5030 LET C1=0
 5040 GOTO 5860
 5050 IF C(1)=10 THEN 5070
 5060 IF C(1)<>11 THEN 5180
 5070 PRINT "YOU HAVE ";C(1);", ";C$;" DO YOU WANT ONE DOWN FOR DOUBLES";
 5080 INPUT X$
 5090 IF X$="NO" THEN 5180
 5100 PRINT "YOUR DOWN CARD IS THE ";
 5110 LET P=S(T)
 5120 GOSUB 13000
 5130 LET C(1)=C(1)+Q
 5140 IF C(1)<>11 THEN 5160
 5150 LET C(1)=21
 5160 GOSUB 12500
 5170 GOTO 5940
 5180 IF C(2)<>C(3) THEN 5800
 5190 IF C(2)=1 THEN 5800
 5200 PRINT "DO YOU WANT TO SPLIT YOUR PAIR, ";C$;
 5210 INPUT X$
 5220 IF X$="NO" THEN 5800
 5230 LET F1=C1
 5240 LET C(1)=C(1)/2
 5250 LET F(1)=C(1)
 5260 LET F(2)=C(3)
 5270 PRINT "YOUR CARDS, ";C$;" ARE THE ";
 5280 LET P=S(T)
 5290 GOSUB 13000
 5300 LET C(1)=C(1)+Q
 5310 LET C(3)=P
 5320 IF Q<>1 THEN 5340
 5330 LET C(6)=10
 5340 GOSUB 12500
 5350 PRINT " AND THE ";
 5360 LET P=S(T)
 5370 GOSUB 13000
 5380 LET F(1)=F(1)+Q
 5390 LET F(3)=P
 5400 IF Q<>1 THEN 5420
 5410 LET F(6)=10
 5420 GOSUB 12500
 5430 FOR I=1 TO 6
 5440   LET G(I)=C(I)
 5450 NEXT I
 5460 GOSUB 6700
 5470 IF H=0 THEN 5550
 5480 PRINT "***BLACKJACK ON YOUR FIRST HAND, ";C$
 5490 LET U0=C0
 5500 LET U1=C1*2
 5510 GOSUB 8500
 5520 LET C0=U0
 5530 LET C1=0
 5540 GOTO 5610
 5550 PRINT "PLAY YOUR FIRST HAND PLEASE, ";C$
 5560 LET G0=C0
 5570 LET G1=C1
 5580 GOSUB 6000
 5590 LET C0=G0
 5600 LET C1=G1
 5601 LET C(1)=H1
 5610 FOR I=1 TO 6
 5620   LET G(I)=F(I)
 5630 NEXT I
 5640 GOSUB 6700
 5650 IF H=0 THEN 5730
 5660 PRINT "YOUR SECOND HAND IS A ***BLACKJACK*** ";C$
 5670 LET U0=C0
 5680 LET U1=F1*2
 5690 GOSUB 8500
 5700 LET C0=U0
 5710 LET F1=0
 5720 GOTO 5860
 5730 PRINT "AND NOW PLAY YOUR SECOND HAND, ";C$
 5740 LET G0=C0
 5750 LET G1=F1
 5760 GOSUB 6000
 5770 LET C0=G0
 5780 LET F1=G1
 5781 LET F(1)=H1
 5790 GOTO 5860
 5800 PRINT "IT'S YOUR TURN TO PLAY, ";C$
 5810 LET G0=C0
 5820 LET G1=C1
 5830 GOSUB 6000
 5840 LET C0=G0
 5850 LET C1=G1
 5851 LET C(1)=H1
 5860 IF B1<>0 THEN 5940
 5870 IF C1<>0 THEN 5940
 5880 IF E1<>0 THEN 5940
 5890 IF F1<>0 THEN 5940
 5900 PRINT "MY HOLE CARD WAS THE ";
 5910 LET P=D(4)
 5920 GOSUB 13000
 5930 GOTO 480
 5940 GOSUB 7000
 5950 IF H<>0 THEN 10100
 5960 LET U1=B1+E1
 5970 IF U1=0 THEN 10030
 5980 LET U$=B$
 5990 GOTO 10000
 6000 REM ======= PLAY THE HAND
 6010 LET H=2
 6020 LET H1=G(1)
 6030 LET H3=1
 6040 IF G(5)=10 THEN 6060
 6050 IF G(6)<>10 THEN 6080
 6060 LET H3=2
 6070 LET H2=H1+10
 6080 ON H3 GOTO 6090,6120
 6090 PRINT "YOUR TOTAL IS ";H1;" WITH ";H;" CARDS"
 6100 LET H4=H1
 6110 GOTO 6140
 6120 PRINT "YOU HAVE ";H1;" OR ";H2;" WITH ";H;" CARDS"
 6130 LET H4=H2
 6140 PRINT "DO YOU WANT A HIT, ";G$;
 6150 INPUT X$
 6155 IF LEN(X$)=0 THEN  LET X$="N"
 6160 IF X$<>"N" THEN 6190 ELSE  PRINT
 6170 LET H1=H4
 6180 RETURN
 6190 PRINT "&J YOUR CARD IS THE ";
 6200 LET P=S(T)
 6210 GOSUB 13000
 6220 LET H=H+1
 6230 LET H1=H1+Q
 6240 IF Q<>1 THEN 6270
 6250 LET H2=H1+10
 6260 LET H3=2
 6270 IF H2<22 THEN 6290
 6280 LET H3=1
 6290 GOSUB 12500
 6300 IF H1>21 THEN 6330
 6310 IF H=5 THEN 6410
 6320 ON H3 GOTO 6090,6070
 6330 PRINT "YOU BUSTED, ";G$
 6340 LET U$=G$
 6350 LET U0=G0
 6360 LET U1=G1
 6370 GOSUB 8000
 6380 LET G0=U0
 6390 LET G1=0
 6400 RETURN
 6410 PRINT "YOU HAVE 5 UNDER WHICH PAYS DOUBLE"
 6420 LET U$=G$
 6430 LET U0=G0
 6440 LET U1=G1*2
 6450 GOSUB 8500
 6460 LET G0=U0
 6470 LET G1=0
 6480 RETURN
 6700 REM ======== CHECK FOR BLACKJACK
 6710 LET H=0
 6720 IF G(5)=10 THEN 6750
 6730 IF G(6)=10 THEN 6750
 6740 RETURN
 6750 IF G(2)>10 THEN 6780
 6760 IF G(3)>10 THEN 6780
 6770 RETURN
 6780 LET H=1
 6790 RETURN
 7000 REM THE DEALER PLAYS
 7010 LET P=D(4)
 7020 PRINT " MY HOLE CARD IS THE ";
 7030 GOSUB 13000
 7040 LET H1=D(1)
 7050 LET H3=1
 7060 IF D(5)=10 THEN 7080
 7070 IF D(6)<>10 THEN 7100
 7080 LET H2=H1+10
 7090 LET H3=2
 7100 ON H3 GOTO 7110,7140
 7110 PRINT "MY TOTAL IS ";H1;
 7120 LET H=H1
 7130 GOTO 7160
 7140 PRINT "I HAVE ";H1;" OR ";H2;
 7150 LET H=H2
 7160 IF H<>21 THEN 7190
 7170 PRINT " AND I WIN"
 7180 RETURN
 7190 IF H<17 THEN 7220
 7200 PRINT " AND I PAY ";H+1
 7210 RETURN
 7220 PRINT " AND I HIT WITH THE ";
 7230 LET P=S(T)
 7240 GOSUB 13000
 7250 LET H1=H1+Q
 7260 IF Q<>1 THEN 7290
 7270 LET H3=2
 7280 LET H2=H1+10
 7290 GOSUB 12500
 7300 IF H2<22 THEN 7320
 7310 LET H3=1
 7320 IF H1>21 THEN 7340
 7330 ON H3 GOTO 7110,7140
 7340 PRINT "OOPS.....I BUSTED"
 7350 LET H=0
 7360 RETURN
 8000 REM THE PLAYER LOSES
 8010 LET M=FNX(4)
 8020 LET U0=U0-U1
 8030 ON M GOTO 8040,8060,8080,8100
 8040 PRINT "GEE, ";U$;" YOU LOST $";U1
 8050 GOTO 8110
 8060 PRINT "THAT WASN'T TOO BAD, ";U$;" YOU LOST ONLY $";U1
 8070 GOTO 8110
 8080 PRINT "THAT WAS BAD LUCK, ";U$;" YOU LOST $";U1
 8090 GOTO 8110
 8100 PRINT "YOU LOST $";U1;" ";U$;" BUT YOU'LL PROBABLY WIN NIXT TIME"
 8110 LET M=FNX(4)
 8120 IF U0>0 THEN 8160
 8130 IF U0<0 THEN 8250
 8140 PRINT "AT LEAST YOU'RE NO WORSE THAN EVEN"
 8150 RETURN
 8160 ON M GOTO 8170,8190,8210,8230
 8170 PRINT "YOU'RE STILL WINNING $";U0
 8180 RETURN
 8190 PRINT "HEY.....DON'T CRY.....YOU'RE STILL AHEAD $";U0
 8200 RETURN
 8210 PRINT "I WISH I HAD YOUR PROBLEMS.....YOU ARE WINNING $";U0
 8220 RETURN
 8230 PRINT "YOU'RE STILL AHEAD $";U0;" GO ON.....SPLURGE"
 8240 RETURN
 8250 ON M GOTO 8260,8280,8300,8320
 8260 PRINT "YOU ARE ONLY LOSING $";-U0;" THAT'S NOT SO BAD"
 8270 RETURN
 8280 PRINT "DETAILS.....YOU'RE ONLY BEHIND $";-U0
 8290 RETURN
 8300 PRINT "YOU'RE NOT VERY MUCH BEHIND.....ONLY $";-U0
 8310 RETURN
 8320 PRINT "I'M NOT GETTING RICH ON THIS.....YOU'RE LOSING ONLY $";-U0
 8330 RETURN
 8500 REM THE PLAYER WINS
 8510 LET M=FNX(4)
 8520 LET U0=U0+U1
 8530 ON M GOTO 8540,8560,8580,8600
 8540 PRINT "WOW, ";U$;" YOU WON $";U1;" ARE YOU TRYING TO BREAK THE BANK"
 8550 GOTO 8610
 8560 PRINT "THIS HURTS ME, ";U$;" BUT YOU WON $";U1
 8570 GOTO 8610
 8580 PRINT "YOU WON $";U1;", ";U$;" .....JUST LUCKY"
 8590 GOTO 8610
 8600 PRINT "YOU WON $";U1;", ";U$;" WAIT 'TILL NEXT TIME"
 8610 LET M=FNX(4)
 8620 IF U0>0 THEN 8660
 8630 IF U0<0 THEN 8750
 8640 PRINT "VERY GOOD, ";U$;" YOU'RE BACK UP TO EVEN"
 8650 RETURN
 8660 ON M GOTO 8670,8690,8710,8730
 8670 PRINT "EVEN FURTHER AHEAD, YOU NOW HAVE $";U0
 8680 RETURN
 8690 PRINT "KEEP ON LIKE THIS AND YOU'LL BREAK ME.  YOU HAVE $";U0
 8700 RETURN
 8710 PRINT "KEEP IT UP, ";U$;" YOU ARE NOW WINNING $";U0
 8720 RETURN
 8730 PRINT "GROANNN.....NOW YOU'RE AHEAD $";U0
 8740 RETURN
 8750 ON M GOTO 8760,8780,8800,8820
 8760 PRINT "YOU'RE COMING BACK.....NOW YOU ARE ONLY LOSING $";-U0
 8770 RETURN
 8780 PRINT "WHAT ARE YOU TRYING TO DO.....WIN?  NOW YOU'RE LOSING $";-U0
 8790 RETURN
 8800 PRINT "KEEPTRYING.....YOU'RE ONLY BEHIND $";-U0
 8810 RETURN
 8820 PRINT "NEXT TIME MIGHT BE FATAL...YOU BETTER QUIT WHILE YOU'RE ONLY";
 8830 PRINT " LOSING $";-U0
 8840 RETURN
 9000 REM THE END
 9010 LET M=FNX(3)
 9020 IF B0>0 THEN 9060
 9030 IF B0<0 THEN 9130
 9040 PRINT "QUITTING WHILE YOU'RE EVEN, ";B$;" THAT'S NOT FAIR"
 9050 GOTO 9190
 9060 ON M GOTO 9070,9090,9110
 9070 PRINT "YOU WON $";B0;" BUT REALLY, ";B$;" YOU SHOULDN'T QUIT NOW"
 9080 GOTO 9190
 9090 PRINT "ONLY $";B0;" AHEAD, ";B$;" COME BACK AND TRY AGAIN"
 9100 GOTO 9190
 9110 PRINT "IT HURTS, ";B$;" BUT YOU WON $";B0
 9120 GOTO 9190
 9130 ON M GOTO 9140,9160,9180
 9140 PRINT B$;", YOU LOST $";-B0;" AND I NEED EVERY BIT OF IT"
 9150 GOTO 9190
 9160 PRINT "I HOPE YOU CAN PLAY AGAIN, ";B$;" YOU LOST $"-B0
 9170 GOTO 9190
 9180 PRINT "I'M RICHER BY $"-B0;", ";B$;" .....THANKS"
 9190 ON N GOTO 9370,9200
 9200 IF C0>0 THEN 9240
 9210 IF C0<0 THEN 9310
 9220 PRINT "ONLY LOSERS SHOULD QUIT, ";C$;" YOU'RE EVEN"
 9230 GOTO 9370
 9240 ON M GOTO 9250,9270,9290
 9250 PRINT "HOLY COW, ";C$;" I JUST LOST $";C0
 9260 GOTO 9370
 9270 PRINT "GROANNNN.....YOU'VE WON $";C0;", ";C$
 9280 GOTO 9370
 9290 PRINT "WHAT DID YOU DO TO ME, ";C$;" YOU WON $";C0
 9300 GOTO 9370
 9310 ON M GOTO 9320,9340,9360
 9320 PRINT "THAT'S A RELIEF, ";C$;" YOU LOST $";-C0
 9330 GOTO 9370
 9340 PRINT "YOU COULD'VE LOST MORE, ";C$;" THIS WAY YOU LOST ONLY $";-C0
 9350 GOTO 9370
 9360 PRINT "ANOTHER GAME, ";C$;" YOU'VE ONLY LOST $";-C0
 9370 PRINT
 9380 PRINT "THANKS FOR PLAYING BLACKJACK.........."
 9390 PRINT "YOUR DEALER HAS BEEN MINNESOTA FATS."
 9400 GOTO 13540
10000 LET U0=B0
10010 GOSUB 8500
10020 LET B0=U0
10030 LET U1=C1+F1
10040 IF U1=0 THEN 480
10050 LET U$=C$
10060 LET U0=C0
10070 GOSUB 8500
10080 LET C0=U0
10090 GOTO 480
10100 IF H<21 THEN 10240
10110 LET U1=B1+E1
10120 IF U1=0 THEN 10170
10130 LET U$=B$
10140 LET U0=B0
10150 GOSUB 8000
10160 LET B0=U0
10170 LET U1=C1+F1
10180 IF U1=0 THEN 480
10190 LET U$=C$
10200 LET U0=C0
10210 GOSUB 8000
10220 LET C0=U0
10230 GOTO 480
10240 LET U$=B$
10250 LET U1=B1
10260 IF U1=0 THEN 10350
10270 IF B(1)>H THEN 10320
10280 LET U0=B0
10290 GOSUB 8000
10300 LET B0=U0
10310 GOTO 10350
10320 LET U0=B0
10330 GOSUB 8500
10340 LET B0=U0
10350 LET U1=E1
10360 IF U1=0 THEN 10450
10370 IF E(1)>H THEN 10420
10380 LET U0=B0
10390 GOSUB 8000
10400 LET B0=U0
10410 GOTO 10450
10420 LET U0=B0
10430 GOSUB 8500
10440 LET B0=U0
10450 LET U$=C$
10460 LET U1=C1
10470 IF U1=0 THEN 10560
10480 IF C(1)>H THEN 10530
10490 LET U0=C0
10500 GOSUB 8000
10510 LET C0=U0
10520 GOTO 10560
10530 LET U0=C0
10540 GOSUB 8500
10550 LET C0=U0
10560 LET U1=F1
10570 IF U1=0 THEN 480
10580 IF F(1)>H THEN 10630
10590 LET U0=C0
10600 GOSUB 8000
10610 LET C0=U0
10620 GOTO 480
10630 LET U0=C0
10640 GOSUB 8500
10650 LET C0=U0
10660 GOTO 480
11500 REM ***********************************************
12000 REM THE SHUFFLE
12010 LET T=1
12020 FOR I=1 TO 52
12030   LET S(I)=I
12040 NEXT I
12050 FOR I=52 TO 1 STEP -1
12060   LET X=FNX(I)
12070   LET J=53-I
12080   LET K=52-I+X
12090   LET L=S(J)
12100   LET S(J)=S(K)
12110   LET S(K)=L
12120 NEXT I
12130 PRINT
12131 PRINT "I JUST SHUFFLED"
12132 PRINT
12140 RETURN
12500 REM CHECK FOR RESHUFFLING
12510 IF T<=50 THEN 12540
12520 GOSUB 12000
12530 LET T=0
12540 LET T=T+1
12550 RETURN
13000 REM DEAL A CARD
13010 LET O=0
13020 LET O=O+1
13030 IF P<14 THEN 13060
13040 LET P=P-13
13050 GOTO 13020
13060 LET Q=P
13070 IF Q<11 THEN 13090
13080 LET Q=10
13090 IF R=0 THEN 13120
13100 LET R=0
13110 RETURN
13120 LET V=P
13130 IF V<6 THEN 13190
13140 LET V=V-5
13150 IF V<6 THEN 13180
13160 LET V=V-5
13170 ON V GOTO 13400,13420,13440
13180 ON V GOTO 13300,13320,13340,13360,13380
13190 ON V GOTO 13200,13220,13240,13260,13280
13200 PRINT " ACE";
13210 GOTO 13450
13220 PRINT " TWO";
13230 GOTO 13450
13240 PRINT " THREE";
13250 GOTO 13450
13260 PRINT " FOUR";
13270 GOTO 13450
13280 PRINT " FIVE";
13290 GOTO 13450
13300 PRINT " SIX";
13310 GOTO 13450
13320 PRINT " SEVEN";
13330 GOTO 13450
13340 PRINT " EIGHT";
13350 GOTO 13450
13360 PRINT " NINE";
13370 GOTO 13450
13380 PRINT " TEN";
13390 GOTO 13450
13400 PRINT " JACK";
13410 GOTO 13450
13420 PRINT " QUEEN";
13430 GOTO 13450
13440 PRINT " KING";
13450 ON O GOTO 13460,13480,13500,13520
13460 PRINT " OF SPDS"
13470 RETURN
13480 PRINT " OF HRTS"
13490 RETURN
13500 PRINT " OF DMDS"
13510 RETURN
13520 PRINT " OF CLBS"
13530 RETURN
13540 END