Directory of image this file is from
This file as a plain text file
@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=