@A PRINT "GAM1 CONSISTS OF TWO GAMES: BANDIT & BLKJAC" \ PRINT@@@B PRINT "TO ACCESS 'BLKJAC', TYPE:" \ PRINT "DEL 1,140" \ PRINT "RUN"@@@C PRINT "TO OBTAIN 'BANDIT', TYPE:" \ PRINT "DEL 1,10" \ PRINT "DEL "; @@@D PRINT "141,1700" \ PRINT "RUN" \ PRINT "WHEN ONE GAME IS SELECTED";  @@@E PRINT "; IN ORDER TO OBTAIN THE OTHER," \ PRINT "USER HAS "; @@@F PRINT "TO RECALL GAM1 AGAIN." \ PRINT "HAVE FUN!"  @@@H STOP @@@K PRINT "ONE ARM BANDIT" \ PRINT \ GOTO 20 @@@L RANDOM \ LET Q=INT(711*RND(0)+1) \ PRINT @@@M DATA 43 \ READ Q9 \ LET U=INT(Q+Q9)  @@@N V=RND(I) \ LET S=50@@@P PRINT "YOU ARE GIVEN $50 TO PLAY WITH, GOOD LUCK."\PRINT\GOTO 30 @@@T PRINT\PRINT"EACH PLAY YOU CAN PUT ANY AMOUNT OF SILVER DOLLARS"@@@U PRINT"INTO THE MACHINE, UP TO THE BALANCE YOU HAVE, BY TYPING IN"@@@V PRINT"THE QUANTITY OF DOLLARS."\PRINT@@@X PRINT"YOU 'PULL DOWN THE HANDLE' BY DEPRESSING THE 'RETURN' KEY."@@@Z PRINT\PRINT"WHEN YOUR BALANCE REACHES ZERO, THE GAME IS OVER....." @@@[ PRINT "OR TYPE A ZERO ('0') TO QUIT AT ANY TIME."\PRINT@@@] GOTO 12@@@^ PRINT"HOW MANY DOLLARS DO YOU WANT TO PUT IN ON YOUR FIRST PLAY";@@@
 INPUT Z@@@  IF Z=INT(Z) THEN 36  @@@" PRINT"NO FRACTIONAL DOLLARS ALLOWED AT THIS CASINO!" \ GOTO 39 @@@$ IF Z<=0 THEN 41 \IF Z<S+1 THEN 44 \ PRINT@@@' PRINT"..ILLEGAL PLAY..TRY AGAIN..WHAT'S YOUR PLEASURE";\GOTO 31  @@@) PRINT\PRINT"..SO SOON!..YOU HAVEN'T YET GIVEN IT A WHIRL!"\GOTO 140@@@, PRINT \ DIM R(3),T(3),P(3,6) \ FOR I=1 TO 3 \ FOR J=1 TO 6 @@@0 READ P(I,J) \ NEXT J \ NEXT I \ LET E4=0 @@@4 FOR I=1 TO 3 \ LET R=RND(I) \ FOR J=1 TO 6 @@@7 LET T(I)=J \ IF R<P(I,J) THEN 58 \ NEXT J@@@: NEXT I \ FOR I=1 TO 3 \ LET W=T(I) @@@= IF W=1 THEN 67 \ IF W=2 THEN 69 \ IF W=3 THEN 71 @@A@ IF W=4 THEN 73 \ IF W=5 THEN 75 \ IF W=6 THEN 77 @@AC PRINT"LEMON   "; \ GOTO 79 @@AE PRINT"CHERRY  "; \ GOTO 79 @@AG PRINT"ORANGE  "; \ GOTO 79 @@AI PRINT"PLUM    "; \ GOTO 79 @@AK PRINT"BELL    "; \ GOTO 79 @@AM PRINT"LIBERTY "; \ GOTO 79 @@AO NEXT I @@AP LET D=100*T(1)+10*T(2)+T(3)@@AQ IF D=221 THEN 93 \ IF D=223 THEN 96 \ IF D=224 THEN 97 @@AT IF D=225 THEN 99 \ IF D=226 THEN 101 \ IF D=333 THEN 103 @@AW IF D=444 THEN 105 \ IF D=555 THEN 107 \ IF D=336 THEN 109@@AZ IF D=446 THEN 111 \ IF D=556 THEN 113 \ IF D=666 THEN 115@@A] LET D=0 \ PRINT "..A LOSER" \ GOTO 119 @@A  LET D=2*Z \ GOTO 119 @@A! LET D=4*Z \ GOTO 119 @@A
 LET D=6*Z \ GOTO 119 @@A% LET D=8*Z \ GOTO 119 @@A' LET D=10*Z \ GOTO 119@@A) LET D=12*Z \ GOTO 119@@A+ LET D=14*Z \ GOTO 119@@A- LET D=16*Z \ GOTO 119@@A/ LET D=18*Z \ GOTO 119@@A1 LET D=20*Z \ GOTO 119@@A3 LET D=INT(200+400*RND(T(2))) @@A4 PRINT "...YOU HIT THE JACKPOT OF $";D \ PRINT \ LET E4=1 @@A7 LET S=S+D-Z \ IF S>0 THEN 123@@A9 PRINT "...YOU HAVE RUN OUT OF MONEY..." \ GOTO 139 @@A; IF D=0 THEN 126 \ IF E4=1 THEN 126 @@A= PRINT "YOU WIN: $";D;"  "; @@A> PRINT "BALANCE: $";S;"NEXT WAGER"; @@A? INPUT Z@@B@ IF Z=INT(Z) THEN 132 \ PRINT @@BB PRINT"NO FRACTIONAL DOLLARS ALLOWED AT THIS CASINO!" \ GOTO 134@@BD IF Z<=0 THEN 139 \ IF Z<S+1 THEN 135 \ PRINT @@BF PRINT "..ILLEGAL PLAY..TRY AGAIN..WHAT'S YOUR PLEASURE";\GOTO 127@@BG PRINT \ GOTO 52 \ PRINT@@BH PRINT"THE GAME IS OVER.. BETTER LUCK NEXT TIME."\GOTO 140@@BI DATA 0,.2,.4,.6,.8,1  \  DATA .05,.3,.45,.7,.85,1@@BJ DATA .15,.35,.5,.7,.8,1@@BK PRINT \ PRINT "..SO SOON! ANYWAY, IT WAS FUN, WASN'T IT?"@@BL END@@BM PRINT "DO YOU WANT INSTRUCTIONS (IF SO TYPE A 1)"; \ INPUT K @@BN IF K<>1 THEN 150 \ PRINT \ PRINT \ PRINT \ PRINT @@BO PRINT"THIS IS A GAME OF BLACKJACK, LAS VEGAS STYLE." @@BP PRINT"HERE ARE THE RULES OF THE HOUSE.  THE DEALER"  @@BQ PRINT"MUST HIT ON 16 OR LESS AND WILL STAY ON 17 OR" @@BR PRINT"MORE.  YOU MAY SPLIT TWO CARDS IF THEY ARE THE"@@BS PRINT"SAME AND PLAY ONE HAND WITH EACH OF THEM.  ALSO,"@@BT PRINT"YOU MAY DOUBLE YOUR BET AND RECEIVE EXACTLY ONE "@@BU PRINT"MORE CARD ANY TIME ON YOUR FIRST HIT." @@BV PRINT"INSTRUCTIONS ARE: 0-NO HIT; 1-HIT; 2-DOUBLE; AND"@@BW PRINT "3-SPLIT A PAIR." \ IF K<> 1 THEN 160@@BX PRINT"WHEN THE DEALER HAS AN EXPOSED ACE HE WILL ASK"@@BY PRINT"YOU FOR AN INSURANCE BET.  AN INSURANCE BET WILL"@@BZ PRINT"RISK HALF YOUR BET FOR AN AMOUNT EQUAL TO YOUR BET"@@B[ PRINT"IF YOU WIN.  YOU WIN IF THE DEALER HAS A BLACKJACK"@@B\ PRINT"AND LOSE IF HE DOESN'T.  THE HOUSE LIMIT IS $500.00" @@B] PRINT"GOOD LUCK.  OH, BY THE WAY, THE DEALER IS NOTED FOR" @@B^ PRINT"DEALING OFF THE BOTTOM OF THE DECK.  WATCH HIM VERY" @@B
 PRINT"CLOSELY.  HERE HE IS NOW." \ PRINT \ PRINT \ PRINT @@B  LET K=0 \ LET W1=0 @@B% PRINT@@B* LET N=INT(1945*RND(0)+1) @@B/   PRINT@@B4   PRINT"ANY TIME YOU WANT ME TO RESHUFFLE THE CARDS SIMPLY"@@B9   PRINT"TYPE 7777 WHEN I ASK FOR YOUR WAGER AND I'LL BE VERY"@@B>   PRINT"HAPPY TO OBLIGE.  O.K., HERE IS THE FIRST HAND." @@CH LET X=INT(10*RND(0)) @@CR DIM D(52),E(5),V(5),T(5),W(5)@@CW   FOR A=1 TO 52@@C\    LET D(A)=0@@C!   NEXT A @@C&   DIM Q(52)@@C+   FOR A=0 TO 39 STEP 13@@C0   FOR C=1 TO 13@@C5    LET Q(A+C)=C@@C:   NEXT C @@C?   NEXT A @@DD   PRINT@@DI    LET K=K+1 @@DN   FOR P=1 TO 5 @@DS    LET E(P)=0@@DX    LET V(P)=0@@D]    LET T(P)=0@@D"   NEXT P @@D'    LET V(3)=1@@D,   PRINT@@D1   PRINT@@D6   PRINT@@D;   PRINT"WAGER";@@E@    LET P=1 @@EE   INPUT W@@EJ    LET W(2)=W@@EO   IF W<=0 THEN 1685@@ET   IF W<=500 THEN 370 @@EY   IF W<>7777 THEN 360@@E^   GOSUB 1645 @@E
   GOTO315@@E(   PRINT"THAT'S TOO MUCH - HOUSE LIMIT IS $500" @@E-   GOTO 315 @@E2   PRINT@@E7 PRINT "I SHOW",@@E<   GOSUB 865@@FA   IF E(1)=0 THEN 395 @@FF    LET V(4)=1@@FK    LET V(5)=1@@FP   GOSUB 865@@FU    LET M=X @@FZ    LET P=2 @@F
   PRINT"FIRST CARD IS",@@F$   GOSUB 865@@F)    LET G=X @@F.   PRINT"NEXT CARD IS", @@F3   GOSUB 865@@F8   IF V(2)>0 THEN 605 @@F=    LET S=X @@GB   IF V(3)<>1 THEN 605@@GG   IF T(P)<>21 THEN 505 @@GL PRINT "   ***BLACKJACK***   "@@GQ   PRINT@@GV   PRINT" THAT'S GETTING A BIT RIDICULOUS::::"@@G[   PRINT@@G  PRINT "MY HOLE CARD WAS ", @@G%    LET X=M @@G*   GOSUB 1035 @@G/    LET W1=W1+1.5*W @@G4   GOSUB 1335 @@G9   IF V(4)=0 THEN 570 @@G>   PRINT"INSURANCE ANYONE   (TYPE 1 OR 0, 1 MEANS YES)";@@HC   INPUT I@@HH   PRINT@@HM   IF I=0 THEN 570@@HR   IF T(1)<>21 THEN 555 @@HW LET W1=W1+W@@H\   PRINT@@H! PRINT "YOU WIN $"W;" ON YOUR INSURANCE BET"@@H&   GOTO 570 @@H+    LET W1=W1-W/2 @@H0   PRINT@@H5   PRINT"YOU LOST $"W/2;" ON YOUR INSURANCE BET - I DON'T HAVE BLACKJACK" @@H:   IF T(1)<>21 THEN 605 @@H?   PRINT@@ID   PRINT"**I HAVE BLACKJACK**"@@II PRINT "MY HOLE CARD WAS ", @@IN    LET X=M @@IS   GOSUB 1035 @@IX   GOTO 1300@@I]   IF T(P)<=21 THEN 650 @@I"   IF E(P)>0 THEN 640 @@I'   PRINT"YOU BUSTED, "; @@I,   PRINT"YOUR TOTAL IS "T(P)@@I1    LET C1=T(P)-5*(INT(T(P)/5)) @@I6   IF V(2)=1 THEN 775 @@I;   GOTO 1175@@J@    LET E(P)=E(P)-1 @@JE    LET T(P)=T(P)-10@@JJ   IF V(1)=2 THEN 620 @@JO    LET V(3)=V(3)+1 @@JT   PRINT"HIT "; @@JY   INPUT V(1) @@J^   IF V(1)<>3 THEN 830@@J
   IF V(2)>0 THEN 820 @@J(   IF V(3)<>2 THEN 820@@J-   IF Q(G)=Q(S) THEN 700@@J2   PRINT"NOW IS THAT A PAIR?" @@J7   GOTO 660 @@J<    LET V(2)=1@@KA   IF Q(G)<>1 THEN 715@@KF    LET V(1)=2@@KK    LET P=3 @@KP   PRINT"       PLAY HAND ONE NOW"@@KU   PRINT"FIRST CARD IS ", @@KZ    LET W(3)=W@@K
    LET X=G @@K$   GOSUB 750@@K)   GOTO 430 @@K.   GOSUB 990@@K3   GOSUB 1035 @@K8    LET V(3)=1@@K=    LET T(P)=C@@LB   RETURN @@LG    LET P=2 @@LL    LET V(2)=2@@LQ   PRINT"       PLAY HAND TWO NOW"@@LV   PRINT"FIRST CARD IS",@@L[    LET X=S @@L    GOSUB  750 @@L%   IF Q(G)=1 THEN 815 @@L*    LET V(1)=0@@L/   GOTO 430 @@L4   PRINT"NO SPLITS NOW -- TRY AGAIN"@@L9   GOTO 660 @@L>   IF V(1)<>2 THEN 855@@MC   IF V(3)=2 THEN 850 @@MH   PRINT"TOO LATE TO DOUBLE, CHARLIE."@@MM   GOTO 660 @@MR    LET W(P)=2*W(P) @@MW   IF V(1)>0 THEN 430 @@M\   GOTO 620 @@M!   GOSUB 900@@M&    LET T(P)=T(P)+C @@M+   IF V(5)=0 THEN 890 @@M0    LET V(5)=0@@M5   RETURN @@M:   GOSUB 1035 @@M?   RETURN @@ND   IF R>=50 THEN 945@@NI    LET N=10*(1+ABS(COS(N+W1))) @@NN   FOR A=1 TO N @@NS    LET X=INT(52.999999*RND(Y)) @@NX   IF X=0 THEN 915@@N]   NEXT A @@N"   IF D(X)=0 THEN 980 @@N'    LET R=R+1 @@N,   IF R<50 THEN 900 @@N1   FOR A=1 TO 52@@N6   IF D(A)=K THEN 960 @@N;    LET D(A)=0@@O@   NEXT A @@OE    LET R=0 @@OJ   PRINT"   I RESHUFFLED   "; @@OO   GOTO 900 @@OT    LET R=0 @@OY    LET D(X)=K@@O^   IF Q(X)<>1 THEN 1010 @@O
    LET C=11@@O(    LET E(P)=E(P)+1 @@O-   RETURN @@O2   IF Q(X)>10 THEN 1025 @@O7    LET C=Q(X)@@O<   RETURN @@PA    LET C=10@@PF   RETURN @@PK   GOSUB 1050 @@PP   GOSUB 1120 @@PU   RETURN @@PZ   IF Q(X)<>1 THEN 1065 @@P
   PRINT" ACE ";@@P$   RETURN @@P)   IF Q(X)>10 THEN 1080 @@P.   PRINT Q(X);" ";@@P3   RETURN @@P8   IF Q(X)>11 THEN 1095 @@P=   PRINT " JACK ";@@QB   RETURN @@QG   IF Q(X)>12 THEN 1110 @@QL   PRINT" QUEEN ";@@QQ   RETURN @@QV   PRINT" KING "; @@Q[   RETURN @@Q    IF X>39 THEN 1145@@Q%   IF X>26 THEN 1155@@Q*   IF X>13 THEN 1165@@Q/   PRINT"OF SPADES" @@Q4   RETURN @@Q9   PRINT"OF CLUBS"@@Q>   RETURN @@RC   PRINT"OF HEARTS" @@RH   RETURN @@RM   PRINT"OF DIAMONDS" @@RR   RETURN @@RW    LET P=2 @@R\ PRINT "MY HOLE CARD WAS ", @@R!    LET X=M @@R&   GOSUB 1035 @@R+   IF T(2)<22 THEN 1210 @@R0   IF V(2)=0 THEN 1300@@R5   IF T(3)>21 THEN 1300 @@R:    LET P=1 @@R?   IF T(1)<17 THEN 1360 @@SD   IF T(1)>17 THEN 1230 @@SI   IF E(1)>0 THEN 1360@@SN   IF T(1)>21 THEN 1375 @@SS    LET P=2 @@SX   PRINT"MY TOTAL IS "T(1)@@S]   IF T(P)>21 THEN 1300 @@S"   IF T(1)>21 THEN 1265 @@S'   IF T(1)>T(P) THEN 1300 @@S,   IF T(1)=T(P) THEN 1330 @@S1    LET W1=W1+W(P)@@S6   IF C1>3 THEN 1445@@S;   IF C1>2 THEN 1465@@T@   IF C1>1 THEN 1485@@TE   IF C1>0 THEN 1505@@TJ   GOTO 1525@@TO   GOTO 1330@@TT    LET W1=W1-W(P)@@TY   IF C1>3 THEN 1545@@T^   IF C1>2 THEN 1565@@T
   IF C1>1 THEN 1585@@T(   IF C1>0 THEN 1605@@T-   GOTO 1625@@T2   IF V(2)>0 THEN 1345@@T7   GOSUB 1405 @@T<   GOTO 265 @@UA    LET P=3 @@UF    LET V(2)=0@@UK   GOTO 1245@@UP PRINT "I DRAW",@@UU   GOSUB 865@@UZ   GOTO 1210@@U
   IF E(1)=0 THEN 1395@@U$    LET E(1)=E(1)-1 @@U)    LET T(1)=T(1)-10@@U.   GOTO 1210@@U3   PRINT"I BUSTED*****" @@U8   GOTO 1235@@U=   IF W1<0 THEN 1425@@VB   IF W1=0 THEN 1435@@VG   PRINT"YOU'RE AHEAD $"W1 \ RETURN @@VQ   PRINT"YOU'RE BEHIND $"-W1 \ RETURN @@V[   PRINT"YOU'RE EVEN" \ RETURN@@V%   PRINT \ PRINT "I MUST HAVE DEALT WRONG." \ PRINT \ GOTO 1330 @@V9 PRINT \ PRINT"YOU LUCKED OUT AGAIN:" \ PRINT \ GOTO 1330 @@WM PRINT \ PRINT"YOU MUST HAVE BEEN PEEKING." \ PRINT \ GOTO 1330 @@W!   PRINT \ PRINT"I COULD LOSE MY JOB THIS WAY." \ PRINT \ GOTO 1330 @@W5 PRINT\ PRINT"THE CARDS HAVE TURNED AGAINST ME:"\ PRINT\ GOTO 1330  @@XI PRINT\PRINT"THE BOTTOM OF THE DECK STRIKES AGAIN:"\PRINT\GOTO 1330 @@X] PRINT \ PRINT"A VICTORY FOR US GOOD GUYS." \ PRINT \ GOTO 1330 @@X1   PRINT \ PRINT"YOU CAN'T BEAT SKILL." \ PRINT \ GOTO 1330 @@YE   PRINT \ PRINT"YOU CAN'T WIN 'EM ALL." \ PRINT \ GOTO 1330@@YY   PRINT\PRINT"BABY GETS A NEW PAIR OF SHOES:"\PRINT\GOTO 1330@@Y-   FOR M9 = 1 TO 52 \ LET D(M9)=0 \ NEXT M9 @@Y<    LET R=0 \ PRINT \ PRINT "I RESHUFFLED" \ PRINT \ RETURN @@ZU STOP @@Z$ END@@
?@@@@RM   PRINT"OF DIAMONDS" @@RR   RETURN @@RW    LET P=2 @@R\ PRINT "MY HOLE CARD WAS ", @@R!    LET X=M @@R&   GOSUB 1035 @@R+   IF T(2)<22 THEN 1210 @@R0   IF V(2)=0 THEN 1300@@R5   IF T(3)>21 THEN 1300 @@R:    LET P=1 @@R?   IF T(1)<17 THEN 1360 @@SD   IF T(1)>17 THEN 1230 @@SI   IF E(1)>0 THEN 1360@@SN   IF T(1)>21 THEN 1375 @@SS    LET P=