10 REM VEGAS.ECB 20 REM ...VEGAS...from MECC : SHARE 1-13-78 30 DIM D(208),H(16),O(16),P(16,11),Q(11),S(16),X(16) 100 REM DAVID SOURS WAYZATA 110 REM ...REFINED TO THE OPTIMUM UPON DECEMBER 6, 1977 120 DIM A$(3),X$(3) 130 PRINT "&K&J" 140 LET L=1 150 LET T1=INT(RND(0)*24): REM ...LET T1=CLK(L) 160 PRINT "GOOD"; 170 IF T1>12 THEN 200 180 PRINT " MORNING, " 190 GOTO 240 200 IF T1>17 THEN 230 210 PRINT " AFTERNOON, " 220 GOTO 240 230 PRINT " EVENING, " 240 PRINT "THE COMPUTER CASINO WELCOMES YOU TO LAS VEGAS." 250 PRINT 270 PRINT 280 PRINT "(1) BLACKJACK" 285 PRINT "(2) CRAPS" 290 PRINT "(3) ROULETTE" 295 PRINT "(4) SLOT MACHINE" 297 PRINT 300 PRINT "WHEN ASKED 'WHICH GAME,' INPUT THE NUMBER OF THE GAME" 310 PRINT "YOU WISH TO PLAY, OR A ZERO TO STOP." 320 PRINT "TO LEAVE ANY GAME AND GO TO ANOTHER, TYPE A ZERO FOR YOUR BET." 330 GOTO 380 340 PRINT "PLAY AGAIN ( Y OR N ) ---=>"; 350 INPUT A$ 355 IF LEN(A$)=0 THEN LET A$="Y" 360 IF A$="Y" THEN 380 370 STOP 380 PRINT 390 PRINT "HOW MUCH MONEY HAVE YOU BROUGHT WITH YOU ---=>"; 400 INPUT C 410 LET C=INT(C) 420 LET C1=C 430 IF C>=1 THEN 460 440 PRINT "YOU GONNA USE MASTERCHARGE, BUB?" 450 GOTO 390 460 IF C<=100000. THEN 490 470 PRINT "YOU PLANNING TO BUY THE CASINO? THE HOUSE LIMIT IS $100,000." 480 GOTO 390 485 PRINT "&J(0) QUIT : Leave the Computor Casino" 486 PRINT "(1) BLACKJACK" 487 PRINT "(2) CRAPS" 488 PRINT "(3) ROULETTE" 489 PRINT "(4) SLOT MACHINE": PRINT 490 PRINT "WHICH GAME ( 1 TO 4 ) ---=>"; 500 INPUT G1 510 LET G1=INT(G1) 520 IF G1<0 OR G1>4 THEN 250 530 ON G1+1 GOTO 580,590,4350,4940,5670 540 PRINT "TOO BAD CHUM,YOU'RE BROKE GO OUT THE BACK WAY PLEASE." 550 GOTO 340 560 PRINT "THE CASINO IS CLOSED. YOU JUST BROKE THE BANK" 570 GOTO 340 580 GOTO 10000 590 PRINT 600 REM 610 PRINT "&K" 620 PRINT "WELCOME TO THE BLACKJACK TABLE." 650 PRINT 660 PRINT "THE DEALER STAYS ON 17 OR MORE, BUT WILL HIT ON LESS THAN 17." 670 PRINT "YOU MAY SPLIT ANY PAIR." 680 PRINT "YOU MAY DOUBLE DOWN ON THE FIRST TWO CARDS, AND GET" 690 PRINT "ONLY ONE MORE CARD FOR DOUBLE YOUR BET." 700 PRINT "THESE ARE YOUR OPTIONS TO PLAY:" 710 PRINT " S-STAY" 720 PRINT " H-HIT" 730 PRINT " D-DOUBLE DOWN" 740 PRINT " /-SPLIT A PAIR" 750 PRINT "A NEGATIVE BET FORCES A SHUFFLE." 760 LET R=16 765 PRINT 770 PRINT "HOW MANY DECKS (1-4) ---=>"; 780 INPUT N 790 LET N=INT(N) 800 IF N>0 THEN 830 810 PRINT "1-4 DECKS ONLY. TRY AGAIN"; 820 GOTO 780 830 IF N>4 THEN 810 840 LET E=N*52 850 GOSUB 2420 860 LET U=1 870 GOSUB 2500 880 LET A=1 890 PRINT 900 LET G=1 910 PRINT "HOW MUCH DO YOU WISH TO BET ---=>"; 920 INPUT B 930 LET B=INT(B) 940 IF B>0 THEN 990 950 IF B=0 THEN 485 960 LET U=1 970 GOSUB 2500 980 GOTO 910 990 IF B<=C THEN 1020 1000 PRINT "TOO MUCH. TRY AGAIN." 1010 GOTO 910 1020 GOSUB 2610 1030 LET H(1)=B 1040 LET N=Q(2) 1050 PRINT "MY UP CARD"; 1060 GOSUB 3050 1070 LET N=P(R,1) 1080 PRINT "YOUR FIRST CARD"; 1090 GOSUB 3050 1100 LET N=P(R,2) 1110 PRINT "YOUR SECOND CARD"; 1120 GOSUB 3050 1130 GOSUB 3380 1140 IF M<>11 THEN 1160 1150 GOSUB 4190 1160 IF W<>21 THEN 1250 1170 PRINT "I HAVE BLACKJACK "; 1180 IF X(1)<>21 THEN 1220 1190 PRINT "SO DO YOU. WE PUSH." 1200 GOSUB 4160 1210 GOTO 890 1220 LET C=C-B 1230 PRINT "YOU LOSE";B;" AND NOW HAVE";C 1240 GOTO 1200 1250 IF X(1)<>21 THEN 1290 1260 LET C=C+3*B/2 1270 PRINT "YOU HAVE BLACKJACK YOU WIN";3*B/2;" AND NOW HAVE";C 1280 GOTO 1200 1290 PRINT "PLAY "; 1300 IF R=1 THEN 1320 1310 PRINT "FOR HAND ";G;" "; 1320 INPUT F$ 1330 IF F$<>"H" THEN 1660 1340 REMPLAYER HIT SUBROUTINE 1350 IF A<=E THEN 1370 1360 GOSUB 3490 1370 LET M=S(G) 1380 LET M=M+1 1390 LET S(G)=M 1400 LET N=D(A) 1410 LET P(G,M)=N 1420 PRINT "YOUR CARD IS "; 1430 GOSUB 3050 1440 GOSUB 2950 1450 LET A=A+1 1460 IF N<>11 THEN 1480 1470 LET O(G)=O(G)+1 1480 LET X(G)=X(G)+N 1490 IF X(G)<22 THEN 1290 1500 IF O(G)=0 THEN 1540 1510 LET O(G)=O(G)-1 1520 LET X(G)=X(G)-10 1530 GOTO 1490 1540 PRINT "YOU BUSTED WITH";X(G) 1550 LET X(G)=0 1560 LET Y=Y-1 1570 REMCHECK FOR END OF PLAY 1580 IF G"S" THEN 1730 1670 REMPLAYER STAY ROUTINE 1680 IF X(G)<22 THEN 1580 1690 IF N(G)=0 THEN 1540 1700 LET X(G)=X(G)-10 1710 LET O(G)=O(G)-1 1720 LET G=G+1 1730 IF F$<>"D" THEN 1950 1740 IF S(G)=2 THEN 1780 1750 PRINT "DOUBLE ON FIRST TWO CARDS ONLY." 1760 GOTO 1290 1770 REMDOUBLE DOWN ROUTINE 1780 IF A<=E THEN 1800 1790 GOSUB 3490 1800 LET H(G)=2*B 1810 LET N=D(A) 1820 LET P(G,3)=N 1830 LET A=A+1 1840 PRINT "YOU DRAW THE "; 1850 GOSUB 3050 1860 GOSUB 2950 1870 IF N<>11 THEN 1890 1880 LET O(G)=O(G)+1 1890 LET X(G)=X(G)+N 1900 IF X(G)<22 THEN 1580 1910 IF O(G)=0 THEN 1540 1920 LET O(G)=O(G)-1 1930 LET X(G)=X(G)-10 1940 GOTO 1900 1950 IF F$="/" THEN 1980 1960 PRINT "INVALID PLAY. TRY AGAIN." 1970 GOTO 1290 1980 LET N=P(G,1) 1990 LET Y=Y+1 2000 GOSUB 2950 2010 LET M=N 2020 LET N=P(G,2) 2030 GOSUB 2950 2040 IF M=N THEN 2080 2050 PRINT "YOU MAY SPLIT ONLY PAIRS." 2060 GOTO 1290 2070 REMPAIR SPLIT ROUTINE 2080 LET R=R+1 2090 LET Y=Y+1 2100 LET P(R,1)=P(G,2) 2110 LET S(G)=1 2120 LET S(R)=1 2130 LET X(G)=X(G)/2 2140 LET X(R)=X(G) 2150 LET H(R)=B 2160 IF N<>11 THEN 1290 2170 REMACES WERE SPLIT-ONE CARD EACH 2180 IF A<=E THEN 2200 2190 GOSUB 3490 2200 LET N=D(A) 2210 LET P(G,2)=N 2220 PRINT "FIRST ACE GETS A "; 2230 GOSUB 3050 2240 GOSUB 2950 2250 IF N<>11 THEN 2270 2260 LET N=1 2270 LET X(G)=X(G)+N 2280 LET A=A+1 2290 IF A<=E THEN 2310 2300 GOSUB 3490 2310 LET N=D(A) 2320 LET P(R,2)=N 2330 PRINT "SECOND ACE GETS A "; 2340 GOSUB 3050 2350 GOSUB 2950 2360 IF N<>11 THEN 2380 2370 LET N=1 2380 LET X(R)=X(R)+N 2390 LET A=A+1 2400 GOTO 1590 2410 REMBUILD 1 TO 4 DECKS OF CARDS 2420 FOR I=1 TO N 2430 LET J=(I-1)*52 2440 FOR K=1 TO 52 2450 LET D(K+J)=K 2460 NEXT K 2470 NEXT I 2480 RETURN 2490 REMSHUFFLE THE CARDS 2500 PRINT "SHUFFLING" 2510 FOR I=U TO E 2520 LET V=RND(0)*E 2530 IF V11 THEN 2910 2900 LET Z=Z+1 2910 LET W=W+N 2920 NEXT I 2930 RETURN 2940 REMCOMPUTE THE VALUE OF A CARD 2950 IF N<14 THEN 2980 2960 LET N=N-13 2970 GOTO 2950 2980 IF N<>1 THEN 3010 2990 LET N=11 3000 RETURN 3010 IF N<11 THEN 3030 3020 LET N=10 3030 RETURN 3040 REMPRINT A CARD 3050 LET I=0 3060 IF N<14 THEN 3100 3070 LET N=N-13 3080 LET I=I+1 3090 GOTO 3060 3100 IF N<>1 THEN 3130 3110 PRINT TAB(18);"A"; 3120 GOTO 3260 3130 IF N>9 THEN 3160 3140 PRINT TAB(18);N; 3150 GOTO 3260 3160 IF N>10 THEN 3190 3170 PRINT TAB(18);N; 3180 GOTO 3260 3190 IF N>11 THEN 3220 3200 PRINT TAB(18);"J"; 3210 GOTO 3260 3220 IF N>12 THEN 3250 3230 PRINT TAB(18);"Q"; 3240 GOTO 3260 3250 PRINT TAB(18);"K"; 3260 IF I<>0 THEN 3290 3270 PRINT "S" 3280 RETURN 3290 IF I<>1 THEN 3320 3300 PRINT "H" 3310 RETURN 3320 IF I<>2 THEN 3350 3330 PRINT "D" 3340 RETURN 3350 PRINT "C" 3360 RETURN 3370 REMCOMPUTE THE VALUE OF THE PLAYER'S HAND 3380 LET O(G)=0 3390 LET X(G)=0 3400 FOR I=1 TO 2 3410 LET N=P(G,I) 3420 GOSUB 2950 3430 LET X(G)=X(G)+N 3440 IF N<>11 THEN 3460 3450 LET O(G)=O(G)+1 3460 NEXT I 3470 RETURN 3480 REMSAVE CARDS ALREADY DEALT AND SHUFFLE 3490 LET K=T 3500 FOR I=1 TO R 3510 LET K=K+S(I) 3520 NEXT I 3530 FOR I=1 TO K 3540 LET A=A-1 3550 LET J=D(I) 3560 LET D(I)=D(A) 3570 LET D(A)=J 3580 NEXT I 3590 LET U=K+1 3600 GOSUB 2500 3610 RETURN 3620 REMDEALER'S LOGIC 3630 LET N=Q(1) 3640 PRINT "MY HOLE CARD "; 3650 GOSUB 3050 3660 IF Y=0 THEN 3920 3670 IF W<17 THEN 3720 3680 IF W>17 THEN 3850 3690 IF Z=0 THEN 3910 3700 LET W=W-10 3710 LET Z=Z-1 3720 IF A<=E THEN 3740 3730 GOSUB 3490 3740 LET N=D(A) 3750 LET T=T+1 3760 LET A=A+1 3770 LET Q(T)=N 3780 PRINT "I DRAW THE "; 3790 GOSUB 3050 3800 GOSUB 2950 3810 IF N<>11 THEN 3830 3820 LET Z=Z+1 3830 LET W=W+N 3840 GOTO 3670 3850 IF W<22 THEN 3910 3860 IF Z=0 THEN 3900 3870 LET Z=Z-1 3880 LET W=W-10 3890 GOTO 3670 3900 PRINT "I BUSTED "; 3910 PRINT "MY TOTAL IS ";W 3920 FOR I=1 TO R 3930 PRINT "YOU "; 3940 IF X(I)<>0 THEN 4000 3950 PRINT "LOST "; 3960 LET C=C-H(I) 3970 IF C>0 THEN 4090 3980 LET C=0 3990 GOTO 4090 4000 IF W<22 THEN 4040 4010 PRINT "WON "; 4020 LET C=C+H(I) 4030 GOTO 4090 4040 IF W<>X(I) THEN 4070 4050 PRINT "PUSHED ON "; 4060 GOTO 4090 4070 IF W1 THEN 4120 4100 PRINT "THE HAND, AND NOW HAVE ";C 4110 GOTO 4130 4120 PRINT "HAND ";I;" AND NOW HAVE ";C 4130 NEXT I 4140 REMCHECK PLAYER'S STANDING 4150 PRINT 4160 IF C<=0 THEN 540 4170 IF C>=1.E+06 THEN 560 4180 RETURN 4190 REMINSURANCE ROUTINE 4200 PRINT "HOW ABOUT AN INSURANCE BET? ---=>"; 4210 INPUT A$ 4220 IF A$="Y" THEN 4240 4230 RETURN 4240 PRINT "HOW MUCH FOR YOUR INSURANCE BET ---=>"; 4250 IF W<>21 THEN 4290 4260 LET C=C+B 4270 PRINT "WINS ";B;" AND YOU NOW HAVE ";C 4280 RETURN 4290 LET C=C-B/2 4300 PRINT "LOSES ";B/2;" AND YOU NOW HAVE ";C 4310 IF C>0 THEN 4330 4320 LET C=0 4330 RETURN 4340 STOP 4350 PRINT "WELCOME TO THE CRAPS TABLE." 4360 PRINT "DO YOU WANT INSTRUCTIONS ( Y OR N ) ---=>"; 4370 INPUT A$ 4380 IF A$="N" THEN 4480 ELSE PRINT 4390 PRINT "YOU PLACE YOUR BET, AND THE CROUPIER 'FADES', OR BETS" 4400 PRINT "ANY AMOUNT LESS THAN OR EQUAL TO YOUR BET. IF YOU WIN," 4410 PRINT "THAT IS THE AMOUNT YOU WIN. TWO DICE ARE ROLLED. THE" 4420 PRINT "TOTAL IS YOUR 'POINT'. IF THE POINT IS A '7' OR '11'" 4430 PRINT "YOU WIN IMMEDIATELY. IF THE POINT IS A '2', '3', OR '12'" 4440 PRINT "YOU LOSE IMMEDIATELY. OTHERWISE, IT KEEPS ROLLING UNTIL" 4450 PRINT "YOUR POINT COMES UP AGAIN OR UNTIL A '7' COMES UP," 4460 PRINT "WHICHEVER COMES FIRST. IF YOUR POINT COMES FIRST, YOU WIN." 4470 PRINT "IF THE '7' COMES FIRST, YOU LOSE THE AMOUNT FADED." 4480 PRINT 4490 PRINT "HOW MUCH DO YOU WISH TO BET ---=>"; 4500 INPUT B 4510 LET B=INT(B) 4520 IF B=0 THEN 485 4530 IF B>0 THEN 4560 4540 PRINT "WE'RE NOT THAT DUMB. TRY AGAIN." 4550 GOTO 4490 4560 IF B<=C THEN 4590 4570 PRINT "TOO MUCH. TRY AGAIN." 4580 GOTO 4490 4590 LET F1=INT(B*RND(0)+1) 4600 PRINT "THE CROUPIER FADES";F1 4610 LET R=1 4620 LET Y=INT(6*RND(0)+1) 4630 LET W=INT(6*RND(0)+1) 4640 LET X=Y+W 4650 IF R<>1 THEN 4670 4660 LET X2=X 4670 PRINT "YOUR DICE ARE";Y;" AND";W;" =";X 4680 IF R<>1 THEN 4870 4690 IF X=7 OR X=11 THEN 4730 4700 IF X=2 OR X=3 OR X=12 THEN 4770 4710 PRINT "THE POINT IS";X 4720 GOTO 4870 4730 LET C=C+F1 4740 PRINT "YOU WON";F1;" AND NOW HAVE";C 4750 IF C>=1.E+06 THEN 560 4760 GOTO 4490 4770 PRINT "SORRY, YOU CRAPPED OUT." 4780 LET C=C-F1 4790 IF C>0 THEN 4810 4800 LET C=0 4810 PRINT "YOU LOSE";F1;" AND NOW HAVE";C 4820 IF C<1 THEN 540 4830 GOTO 4490 4840 PRINT "ANOTHER ROLL." 4850 LET R=R+1 4860 GOTO 4620 4870 IF R=1 THEN 4840 4880 IF X2<>X THEN 4910 4890 PRINT "YOU GOT YOUR POINT." 4900 GOTO 4730 4910 IF X<>7 THEN 4840 4920 PRINT "SORRY, YOU CRAPPED OUT." 4930 GOTO 4780 4940 PRINT "WELCOME TO THE ROULETTE TABLE." 4950 PRINT "DO YOU WANT INSTRUCTIONS ( Y OR N ) ---=>"; 4960 INPUT A$ 4970 IF A$="N" THEN 5060 ELSE PRINT 4980 PRINT "THE BALL WILL LAND ON A NUMBER FROM 00 TO 36. YOU CAN" 4990 PRINT "BET ON ONE OF THE SIX OPTIONS WITH THEIR ODDS," 5000 PRINT "WHICH FOLLOW:" 5010 PRINT "1)EVEN# 1:1 4)#FROM 13-24 2:1" 5020 PRINT "2)ODD# 1:1 5)#FROM 25-36 2:1" 5030 PRINT "3)#FROM 1-12 2:1 6)SINGLE # 35:1" 5040 PRINT "ZERO AND DOUBLE ZERO ARE NEITHER EVEN OR ODD. TO BET ON" 5050 PRINT "DOUBLE ZERO TYPE '-1'" 5060 PRINT "HOW MUCH DO YOU WISH TO BET ---=>"; 5070 INPUT B 5080 LET B=INT(B) 5090 IF B=0 THEN 485 5100 IF B>0 THEN 5130 5110 PRINT "WE'RE NOT THAT DUMB. TRY AGAIN." 5120 GOTO 5060 5130 IF B<=C THEN 5160 5140 PRINT "TOO MUCH. TRY AGAIN." 5150 GOTO 5060 5160 PRINT "WHAT IS THE NUMBER OF YOUR OPTION ---=>"; 5170 INPUT A 5180 LET A=INT(A) 5190 IF A<1 OR A>6 THEN 5160 5200 LET D=INT(38*RND(0)-1) 5210 IF A<>6 THEN 5260 5220 PRINT "WHAT NUMBER ARE YOU BETTING ON ---=>"; 5230 INPUT N 5240 LET N=INT(N) 5250 IF N<-1 OR N>36 THEN 5220 5260 PRINT 5270 PRINT "THE NUMBER IS"; 5280 IF D<>-1 THEN 5310 5290 PRINT "00" 5300 GOTO 5320 5310 PRINT D 5320 IF A<>6 THEN 5340 5330 IF N=D THEN 5350 5340 ON A GOTO 5560,5510,5470,5430,5390,5610 5350 PRINT "YOU WIN";B*35;"" 5360 LET C=C+B*35-B 5370 PRINT "YOU NOW HAVE";C 5380 GOTO 5640 5390 IF D<25 OR D>36 THEN 5610 5400 LET C=C+2*B 5410 PRINT "YOU WIN";2*B 5420 GOTO 5370 5430 IF D<13 OR D>24 THEN 5610 5440 LET C=C+2*B 5450 PRINT "YOU WIN";2*B 5460 GOTO 5370 5470 IF D<1 OR D>12 THEN 5610 5480 LET C=C+2*B 5490 PRINT "YOU WIN";2*B 5500 GOTO 5370 5510 IF D/2=INT(D/2) THEN 5610 5520 IF D<=0 THEN 5610 5530 LET C=C+B 5540 PRINT "YOU WIN";B 5550 GOTO 5370 5560 IF D/2<>INT(D/2) THEN 5610 5570 IF D<=0 THEN 5610 5580 LET C=C+B 5590 PRINT "YOU WIN";B 5600 GOTO 5370 5610 PRINT "SORRY, YOU LOSE. YOU NOW HAVE";C-B 5620 LET C=C-B 5630 IF C<1 THEN 540 5640 IF C>1.E+06 THEN 560 5650 GOTO 5060 5660 STOP 5670 PRINT "WELCOME TO THE SLOT MACHINE." 5675 PRINT 5680 PRINT "DO YOU WANT INSTRUCTIONS ( Y OR N ) ---=>"; 5690 INPUT A$ 5700 IF A$="N" THEN 5780 ELSE PRINT 5710 PRINT "WHEN REQUESTED TO DO SO, PLACE YOUR BET. THE WHEELS WILL" 5720 PRINT "SPIN AND STOP WITH THREE CHARACTERS SHOWING. PAYOFF IS" 5730 PRINT "AS FOLLOWS:" 5740 PRINT "TWO OR THREE CHERRIES 3:1" 5750 PRINT "THREE ORANGES 6:1" 5760 PRINT "THREE BARS 12:1" 5770 PRINT "MAXIMUM BET IS $100." 5780 PRINT "YOUR BET, PLEASE ---=>"; 5790 INPUT B 5800 LET B=INT(B) 5810 IF B=0 THEN 485 5820 IF B>0 THEN 5850 5830 PRINT "BENT COIN. TRY AGAIN." 5840 GOTO 5780 5850 IF B<=C AND B<=100 THEN 5880 5860 PRINT "TOO MUCH. TRY AGAIN." 5870 GOTO 5780 5880 LET C=C-B 5890 PRINT "SPINNNNN" 5900 LET W1=INT(12*RND(0)+1) 5910 LET W2=INT(12*RND(0)+1) 5920 LET W3=INT(12*RND(0)+1) 5930 IF W1>4 THEN 5950 5940 PRINT "CHERRY "; 5950 IF W1<5 OR W1>8 THEN 5970 5960 PRINT "ORANGE "; 5970 IF W1<>9 AND W1<>10 THEN 5990 5980 PRINT "BAR "; 5990 IF W1<>11 THEN 6010 6000 PRINT "BELL "; 6010 IF W1<>12 THEN 6030 6020 PRINT "LEMON "; 6030 IF W2>4 THEN 6050 6040 PRINT "CHERRY "; 6050 IF W2<5 OR W2>8 THEN 6070 6060 PRINT "ORANGE "; 6070 IF W2<>9 AND W2<>10 THEN 6090 6080 PRINT "BAR "; 6090 IF W2<>11 AND W2<>12 THEN 6110 6100 PRINT "PLUM "; 6110 IF W3<>1 THEN 6130 6120 PRINT "CHERRY" 6130 IF W3<2 OR W3>5 THEN 6150 6140 PRINT "ORANGE" 6150 IF W3<>6 AND W3<>7 THEN 6170 6160 PRINT "BAR" 6170 IF W3<>8 AND W3<>9 THEN 6190 6180 PRINT "BELL" 6190 IF W3<>10 THEN 6210 6200 PRINT "LEMON" 6210 IF W3<>11 AND W3<>12 THEN 6230 6220 PRINT "PLUM" 6230 IF W1<=4 AND W2<=4 THEN 6290 6250 IF W1<9 OR W1>10 OR W2<9 OR W2>10 OR W3<6 OR W3>7 THEN 6270 6260 GOTO 6350 6270 PRINT "SORRY. YOU LOSE";B;" AND NOW HAVE";C 6280 GOTO 6370 6290 LET C=C+3*B 6300 PRINT "YOU WIN";3*B;" AND NOW HAVE";C 6310 GOTO 6370 6320 LET C=C+6*B 6330 PRINT "YOU WIN";6*B;" AND NOW HAVE";C 6340 GOTO 6370 6350 LET C=C+12*B 6360 PRINT "*****JACKPOT*****YOU WIN";12*B;" AND NOW HAVE";C;" *****" 6370 IF C<=0 THEN 540 6380 IF C>=1.E+06 THEN 560 6390 GOTO 5780 6400 END 10000 PRINT " -=< Computor Casino thanks you for playing >=-" 10100 END